Corretto caricamento oggetto TRegisro
git-svn-id: svn://10.65.10.50/trunk@755 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
77f1283481
commit
34ee6381f7
@ -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}"
|
||||
|
@ -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;
|
||||
}
|
||||
|
@ -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]) ;
|
||||
}
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user