Patch level : 10.0 354

Files correlati     : cg2100b.msk cg2100p.msk cg2.exe
Ricompilazione Demo : [ ]
Commento            :
0001385: Registrazione con saldaconto
Test effettuato con dati Borgoa8 (vedi ftp cartella Ilaria):
inserisco una registrazione contabile, causale SFC, clicco nuovo, vado sulle righe, + , codice 6 1 41 clicco su bottone 1 mi porta nel saldaconto, seleziono la riga da pagare, metto importo, confermo e a volte va in crash, sicuramente va in crash se annullo e rifaccio il tutto.


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

cg/cg2100b.uml

@@ -2,9 +2,7 @@
 #include "cg21sld.h"
 
 TOOLBAR "topbar" 0 0 0 2
-
 #include <relapbar.h>
-
 ENDPAGE
 
 PAGE "Testata" -1 -1 77 20

cg/cg2100p.h

@@ -1,15 +1,15 @@
 #ifndef __CG2100P_H
 #define __CG2100P_H
 
-#define P_DESCR        105
+#define P_DESCR        111
-#define P_RESIDUO      106
+#define P_RESIDUO      112
-#define P_ANNO         107
+#define P_ANNO         113
-#define P_NUMERO       108
+#define P_NUMERO       114
-#define P_VALUTA       109
+#define P_VALUTA       115
-#define P_DATACAMBIO   110
+#define P_DATACAMBIO   116
-#define P_CAMBIO       111
+#define P_CAMBIO       117
-#define P_RESIDUOVAL   112
+#define P_RESIDUOVAL   118
-#define P_CONTROEURO   113
+#define P_CONTROEURO   119
 
 #define P_SHOWALL      180
 #define P_SORT         181

cg/cg2100p.uml

@@ -20,19 +20,19 @@ PAGE "PARTITE" -1 -1 77 20
 
 STRING P_DESCR 78
 BEGIN
-  PROMPT 1 1 ""
+  PROMPT 1 0 ""
   FLAGS "D"
 END
 
 STRING P_VALUTA 3
 BEGIN
-  PROMPT 1 2 "Valuta  "
+  PROMPT 1 1 "Valuta  "
   FLAGS "DUZ"
 END
 
 DATE P_DATACAMBIO
 BEGIN
-  PROMPT 15 2 "Data cambio "
+  PROMPT 15 1 "Data cambio "
   FLAGS "DR"
   USE CAM
   INPUT CODTAB[1,3] P_VALUTA SELECT
@@ -50,7 +50,7 @@ END
 
 NUMBER P_CAMBIO 15 6
 BEGIN
-  PROMPT 43 2 "Cambio  "
+  PROMPT 45 1 "Cambio  "
   FLAGS "DU"
   GROUP 3
   PICTURE ".6"
@@ -68,29 +68,42 @@ END
 
 NUMBER P_ANNO 4
 BEGIN
-  PROMPT 1 3 "Partita "
+  PROMPT 1 2 "Partita "
   FLAGS "U"
 END
 
 STRING P_NUMERO 7
 BEGIN
-  PROMPT 15 3 ""
+  PROMPT 15 2 ""
   FLAGS "U#"
 END
 
 CURRENCY P_RESIDUO 18
 BEGIN
-  PROMPT 25 3 "Residuo "
+  PROMPT 25 2 "Residuo "
   FLAGS "D"
 END
 
 CURRENCY P_RESIDUOVAL 18
 BEGIN
-  PROMPT 53 3 ""
+  PROMPT 53 2 ""
   FLAGS "D"
   DRIVENBY P_VALUTA
 END
 
+BOOLEAN P_SHOWALL
+BEGIN
+  PROMPT 1 3 "Mostra tutte le partite"
+END
+
+LIST P_SORT 1 10
+BEGIN
+  PROMPT 41 3 "Ordinamento "
+  ITEM "A|Alfabetico"
+  ITEM "N|Numerico"
+  ITEM "D|Per Data"
+END
+
 SPREADSHEET P_PARTITE 0 7
 BEGIN
   PROMPT 0 4 ""
@@ -106,7 +119,7 @@ BEGIN
   FLAGS "D"
 END
 
-SPREADSHEET P_SCADENZE 0 -2
+SPREADSHEET P_SCADENZE
 BEGIN
   PROMPT 0 12 ""
   ITEM "Riga"
@@ -126,19 +139,6 @@ BEGIN
   FLAGS "D"
 END
 
-BOOLEAN P_SHOWALL
-BEGIN
-  PROMPT 1 -1 "Mostra tutte le partite"
-END
-
-LIST P_SORT 1 10
-BEGIN
-  PROMPT 40 -1 "Ordinamento "
-  ITEM "A|Alfabetico"
-  ITEM "N|Numerico"
-  ITEM "D|Per Data"
-END
-
 ENDPAGE
 
 ENDMASK               
@@ -297,7 +297,6 @@ BEGIN
   PICTURE TOOL_EDIT
 END
 
-
 ENDPAGE
 
 ENDMASK               

cg/cg2103.cpp

@@ -232,11 +232,10 @@ void TCausale::calcIVA()
   bool c = false;                                   // Corrispettivi di default
     
   const TString& td = tipo_doc();
-  if (td.not_empty())
+  if (td.full())
   {
-    TTable tpd("%TPD");
+    const TRectype& tpd = cache().get("%TPD", td);
-    tpd.put("CODTAB", td);
+    if (!tpd.empty())
-    if (tpd.read() == NOERR)
     {
       i = (TipoIVA)tpd.get_int("I0");               // IVA acquisti, vendite, generica
       const TipoIVA ri = _reg.iva();
@@ -249,7 +248,8 @@ void TCausale::calcIVA()
       }  
       c = tpd.get_bool("B0");                       // B0 flag corrispettivi
     }
-    else error_box(FR("Tipo documento sconosciuto: '%s'"), (const char*)td);
+    else 
+      error_box(FR("Tipo documento sconosciuto: '%s'"), (const char*)td);
   }
   _iva = i;                    
   _corrisp = c;          

cg/cg21cg.uml

@@ -1,4 +1,4 @@
-PAGE "RIGA PRIMA NOTA" -1 -1 67 14
+PAGE "RIGA PRIMA NOTA" -1 -1 67 15
 
 GROUPBOX DLG_NULL 66 3
 BEGIN