Corretto caricamento oggetto TRegisro

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

cg/cg0.cpp

@@ -1,7 +1,5 @@
-
 #include <xvt.h>
 #include <checks.h>
-//#include <stdlib.h>
 #include "cg0.h"
 
 #define usage   "Error - usage : %s -{0|1|2|3|4|5}"

cg/cg2103.cpp

@@ -55,9 +55,9 @@ bool TRegistro::read(const char* cod, int year)
   }
   _rec = reg.curr();
   
-  _att.zero();
   if (err != NOERR)
     _rec.zero();
+  read_att();  
 
   return err == NOERR;
 }           

cg/cg5.cpp

@@ -22,7 +22,7 @@ int main(int argc,char** argv)
   case 4:
     cg5400(argc,argv) ; break;
   case 5:
-    cg5500(argc,argv) ; break;
+    //    cg5500(argc,argv) ; break;
   default:
     error_box(usage, argv[0]) ;
   }

cg/cg5200a.uml

@@ -12,6 +12,7 @@ NUMBER F_ANNO 4
 BEGIN
   PROMPT 4 1 "Anno esercizio "
   HELP "Anno d'esercizio a cui si riferiscono i saldi"
+  WARNING "Anno d'esercizio inesistente"
   KEY 1
   USE ESC 
   CHECKTYPE NORMAL
@@ -20,7 +21,8 @@ BEGIN
   DISPLAY "Data inizio esercizio" D0
   DISPLAY "Data fine esercizio" D1
   OUTPUT F_ANNO CODTAB[1,4] 
-  FLAGS "RZ"
+  VALIDATE CHECK_FIELD F_ANNO
+  FLAGS "Z"
 END
    
 GROUPBOX DLG_NULL 73 4
@@ -43,6 +45,7 @@ NUMBER F_GRUPPO 3
 BEGIN
   PROMPT 26 3 "Gruppo "
   HELP "Codice del conto da visualizzare"
+  WARNING "Gruppo inesistente"
   USE LF_PCON KEY 1 SELECT CONTO=""
   FIELD LF_PCON->GRUPPO
   KEY 1
@@ -51,6 +54,7 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_GRUPPO GRUPPO
   CHECKTYPE NORMAL
+  VALIDATE CHECK_FIELD F_GRUPPO
   FLAGS "R" 
 END
 
@@ -58,6 +62,7 @@ NUMBER F_CONTO 3
 BEGIN
   PROMPT 40 3 "Conto "  
   HELP "Codice del conto da visualizzare"
+  WARNING "Conto inesistente"
   USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
   FIELD LF_PCON->CONTO
   KEY 1
@@ -73,6 +78,7 @@ BEGIN
   OUTPUT F_DESCR_CONTO DESCR
   FLAGS "R"
   CHECKTYPE NORMAL
+  VALIDATE CHECK_FIELD F_CONTO
   WARNING "Conto inesistente o mancante"
 END
 
@@ -80,6 +86,7 @@ NUMBER F_SOTTOCONTO 6
 BEGIN
   PROMPT 54 3 "Sottoconto "
   HELP "Codice del conto da visualizzare"
+  WARNING "Sottoconto inesistente"
   USE LF_PCON SELECT SOTTOCONTO!=""
   FIELD LF_PCON->SOTTOCONTO 
   KEY 1
@@ -96,6 +103,7 @@ BEGIN
   OUTPUT F_DESCR_CONTO DESCR
   FLAGS "R" 
   CHECKTYPE NORMAL
+  VALIDATE CHECK_FIELD F_SOTTOCONTO
   GROUP 1         
   WARNING "Conto inesistente"
 END
@@ -104,6 +112,7 @@ NUMBER F_SOTTOC_CLIENTE 6
 BEGIN
   PROMPT 54 3 "Cliente "
   HELP "Codice del conto da visualizzare"
+  WARNING "Cliente inesistente"
   USE LF_CLIFO
   INPUT TIPOCF "C"
   INPUT CODCF F_SOTTOC_CLIENTE
@@ -114,7 +123,8 @@ BEGIN
   OUTPUT F_SOTTOC_CLIENTE CODCF
   OUTPUT F_DESCR_CLIENTE RAGSOC
   FLAGS "R"
-  CHECKTYPE NORMAL  
+  VALIDATE CHECK_FIELD F_SOTTOC_CLIENTE
+  CHECKTYPE NORMAL
   KEY 1
   WARNING "Cliente inesistente"
   GROUP 2
@@ -124,6 +134,7 @@ NUMBER F_SOTTOC_FORN 6
 BEGIN
   PROMPT 54 3 "Fornitore "
   HELP "Codice del conto da visualizzare"
+  WARNING "Fornitore inesistente"
   USE LF_CLIFO
   INPUT TIPOCF "F"
   INPUT CODCF F_SOTTOC_FORN
@@ -133,6 +144,7 @@ BEGIN
   DISPLAY "Conto" CONTO
   OUTPUT F_SOTTOC_FORN CODCF 
   OUTPUT F_DESCR_FORN RAGSOC
+  VALIDATE CHECK_FIELD F_SOTTOC_FORN
   FLAGS "R"
   CHECKTYPE NORMAL
   KEY 1