Corretto caricamento oggetto TRegisro

git-svn-id: svn://10.65.10.50/trunk@755 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-12-13 13:49:49 +00:00
parent 77f1283481
commit 34ee6381f7
4 changed files with 16 additions and 6 deletions

View File

@ -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}"

View File

@ -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;
}

View File

@ -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]) ;
}

View File

@ -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