Modifiche varie

git-svn-id: svn://10.65.10.50/trunk@3513 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg1100a.uml

@@ -28,7 +28,7 @@ BEGIN
   FLAGS "A"
 END
 
-RADIOBUTTON F_SCELTA_STAMPA 47
+RADIOBUTTON F_SCELTA_STAMPA 50
 BEGIN
   PROMPT 2 6 "Tipo di stampa   "
   HELP "Scegliere il tipo di stampa desiderata"

cg/cg1200a.uml

@@ -77,8 +77,8 @@ BEGIN
   INPUT TIPOCF "C"
   INPUT CODCF FLD_CLI_CODFR
   DISPLAY "Codice" CODCF
-  DISPLAY "Codice Fiscale@16" COFI
   DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Codice Fiscale@16" COFI  
   OUTPUT FLD_CLI_CODFR CODCF 
   GROUP 1 3
         HELP "Codice di inizio stampa: vuoto = inizio archivio"

cg/cg1500a.uml

@@ -194,17 +194,17 @@ BEGIN
   ITEM "3|Situazione C/F"
 END
 
-RADIOBUTTON F_STAMPAC 35
+RADIOBUTTON F_STAMPAC 36
 BEGIN
-  PROMPT 35 1 "Tipo stampa "
+  PROMPT 34 1 "Tipo stampa "
   HELP "Help tipo di stampa del bilancio"
   ITEM "1|Conti movimentati"
   ITEM "2|Conti con saldo diverso da zero"
 END
 
-RADIOBUTTON F_STAMPAV 35
+RADIOBUTTON F_STAMPAV 36
 BEGIN
-  PROMPT 35 1 "Tipo stampa "
+  PROMPT 34 1 "Tipo stampa "
   HELP "Help tipo di stampa del bilancio"
   ITEM "1|Conti movimentati"
   ITEM "2|Conti con saldo diverso da zero"

cg/cg6400.cpp

@@ -583,6 +583,8 @@ int TRic_archivi::controllo_ripartenza()
   bool    flag = FALSE;              
   int     var = 0;
   
+  set_firm(_dittaric);
+  
   TString trasfer;       
   trasfer = _tras_file->path(_dittaric);
   trasfer << HEADER;
@@ -729,7 +731,7 @@ void TRic_archivi::ripristina_trasfer()
   
   if (_numdisk == 1)           
   {
-    set_firm(_dittaric);
+//    set_firm(_dittaric);
     fcopy(_trasfer,_trasf,FALSE);
   }
   else

cg/cg6700.cpp

@@ -141,7 +141,8 @@ public:
   void             stampa_errori_pagsca(int riga);    
   bool             controlla_anaCF_Pcon(char tipocf,int gruppo,int conto,long codcf);
   bool             controlla_anagrafica(char tipo, int gruppo, int conto);
-  bool             cerca_codpag(TString& codpag);
+  bool             cerca_codpag(TString& codpag);                     
+  bool             cerca_tipopag_codpag(TString& codpag, int tipopag);
   bool             ulteriore_classificazione(int tipopag, TString& ultclass); 
   bool             banca(long abi,long cab);
   bool             agente(TString& codag); 
@@ -1317,13 +1318,40 @@ bool TRic_ListaMov::cerca_codpag(TString& codpag)
   if (cpg.read() == NOERR)      
   { 
     _descr_pag   = cpg.get("S0");  
-    _tipopag_pag = atoi(cpg.get("S4"));
+//    _tipopag_pag = atoi(cpg.get("S4"));
     return TRUE;
   }                            
     
   return FALSE;
 }
 
+bool TRic_ListaMov::cerca_tipopag_codpag(TString& codpag, int tipopag)
+{             
+  TTable rpg ("%RPG");
+  TString dep; 
+   
+  for (int i = 0; !rpg.eof(); rpg.next(), i++)
+  { 
+    dep.format("%-4s%d", (const char*) codpag, i);
+    
+    rpg.zero();
+    rpg.put("CODTAB", dep);
+    if (rpg.read() == NOERR)      
+    {         
+      int tipo = rpg.get_int("I1");
+      if (tipo == tipopag) 
+      {
+        _tipopag_pag = tipo;
+        return TRUE;  
+      }
+    } 
+    else
+      return FALSE;
+  }                            
+    
+  return FALSE;
+}
+
 bool TRic_ListaMov::ulteriore_classificazione(int tipopag, TString& ultclass)
 {
   TTable clr ("%CLR");
@@ -1444,7 +1472,8 @@ bool TRic_ListaMov::controlla_scadenze()
       {
         scad.readat(nrec);
         return TRUE;
-      }
+      }       
+      cerca_tipopag_codpag(codpag,tipopag);
       if (tipopag != _tipopag_pag)
       {
         scad.readat(nrec);
@@ -1514,16 +1543,53 @@ void TRic_ListaMov::descrizione_pagamento(TString& descr,int tipopag,TString& ul
   }
   else
   {
-    TTable cpg ("%CPG");
+    TTable rpg ("%RPG");
+    int tipo;
     
-    dep.format("%-4s", (const char*) codpag);
+    for (int i = 0; !rpg.eof(); rpg.next(), i++)
+    {
+      dep.format("%-4s%d", (const char*) codpag, i);
     
-    cpg.zero();
+      rpg.zero();
-    cpg.put("CODTAB", dep);
+      rpg.put("CODTAB", dep);
-    if (cpg.read() == NOERR)
+      if (rpg.read() == NOERR)   
-      descr = cpg.get("S0");
+      {
-    else
+        tipo = rpg.get_int("I1");
-      descr = "";
+        if (tipo == tipopag)
+        {
+          switch(tipo)
+          {
+            case 1: descr = "Rimessa diretta";
+                    break;
+            case 2: descr = "Tratta";
+                    break;
+            case 3: descr = "Ricevuta bancaria";
+                    break;
+            case 4: descr = "Cessione";
+                    break;
+            case 5: descr = "Paghero'";
+                    break;
+            case 6: descr = "Lettera di credito";
+                    break;
+            case 7: descr = "Tratta accettata";
+                    break;
+            case 8: descr = "Rapporti interbancari diretti";
+                    break;
+            case 9: descr = "Bonifico";
+                    break;
+            case 10: descr = "Altro";
+                     break;
+            default: break;
+          };
+          break;
+        }
+      }  
+      else
+      {
+        descr = ""; 
+        break;
+      }
+    }    
   }
 }
 
@@ -1595,7 +1661,8 @@ void TRic_ListaMov::stampa_errori_scadenze(int riga)
   {
     _errore_grave_SC = TRUE;
     set_row(++riga, "@30g%s", (const char*) err_msg[19]);
-  }                 
+  }                                        
+  cerca_tipopag_codpag(codpag,tipopag);  
   if (tipopag != _tipopag_pag)
   {
     _errore_grave_SC = TRUE;

cg/cg6903a.uml

@@ -5,12 +5,13 @@ PAGE "Invio contabilita'" -1 -1 76 12
 NUMBER F_DITTAINV 5
 BEGIN
   PROMPT 2 1 "Codice ditta inviante "
-  USE LF_NDITTE KEY 1
+  USE %IND KEY 1
-  INPUT CODDITTA F_DITTAINV
+  JOIN LF_NDITTE TO %IND INTO CODDITTA=CODTAB
-  DISPLAY "Ditta" CODDITTA
+  INPUT CODTAB F_DITTAINV
-  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Ditta" CODTAB
-  OUTPUT F_DITTAINV CODDITTA
+  DISPLAY "Ragione sociale@50" LF_NDITTE->RAGSOC
-  OUTPUT F_RAGSOC RAGSOC
+  OUTPUT F_DITTAINV CODTAB
+  OUTPUT F_RAGSOC LF_NDITTE->RAGSOC
   FLAGS "Z"
   CHECKTYPE REQUIRED
 END

cg/cglib04.cpp

@@ -3053,7 +3053,7 @@ bool TTransfer_file::fcopytemp(const char* orig, const char* dest)
     _tmprmov = "%";
     _tmprmov << path();         
     _tmprmov << "\\" << TEMP_RMOV;  
-    nrec_mov = atol(nrec.mid(pos,6));
+    nrec_mov = atol(nrec.mid(pos*6,6));
   }
   if ( (pos = sigle.find('U')) >= 0)
   {