diff --git a/cg/cg0.cpp b/cg/cg0.cpp index 0b6581c3a..287eb9c71 100755 --- a/cg/cg0.cpp +++ b/cg/cg0.cpp @@ -1,7 +1,5 @@ - #include #include -//#include #include "cg0.h" #define usage "Error - usage : %s -{0|1|2|3|4|5}" diff --git a/cg/cg2103.cpp b/cg/cg2103.cpp index 978b8cc31..2585b3bc3 100755 --- a/cg/cg2103.cpp +++ b/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; } diff --git a/cg/cg5.cpp b/cg/cg5.cpp index 2c2e81dfc..7deb4de97 100755 --- a/cg/cg5.cpp +++ b/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]) ; } diff --git a/cg/cg5200a.uml b/cg/cg5200a.uml index 4cd5ef891..84c28d33a 100755 --- a/cg/cg5200a.uml +++ b/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