Maschera esercizi nuova (andrebbe spostata in cg)

Corretta chiamata gestione tabella esercizi


git-svn-id: svn://10.65.10.50/trunk@2661 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1996-03-05 08:39:24 +00:00
parent b365d2336d
commit 0f6fba3f4c
3 changed files with 34 additions and 19 deletions

View File

@ -1,11 +1,10 @@
// campi maschera batbesc.msk
#define F_ANNO 131
// campi maschera batbesc.msk #define F_DATAINI 132
#define F_DATAFIN 133
#define F_ANNO 131 #define F_CODDITTA 141
#define F_DATAINI 132 #define F_RAGSOC 142
#define F_DATAFIN 133 #define F_DATASCARICO 143
#define F_CODDITTA 141 #define F_DATACHIUSURA 144
#define F_RAGSOC 142 #define BUT_CHECK 145
#define F_DATASCARICO 143

View File

@ -30,23 +30,29 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 5 "Anno esercizio " PROMPT 4 5 "Codice esercizio "
HELP "Anno d'esercizio da assegnare" HELP "Codice d'esercizio da assegnare"
FLAGS "ZR" FLAGS "ZR"
FIELD LF_TAB->CODTAB FIELD LF_TAB->CODTAB
KEY 1 KEY 1
USE ESC USE ESC
INPUT CODTAB F_ANNO INPUT CODTAB F_ANNO
DISPLAY "Anno esercizio" CODTAB DISPLAY "Codice esercizio" CODTAB
DISPLAY "Data inizio esercizio" D0 DISPLAY "Data inizio esercizio" D0
DISPLAY "Data fine esercizio" D1 DISPLAY "Data fine esercizio" D1
DISPLAY "Data chiusura esercizio" D3
OUTPUT F_ANNO CODTAB OUTPUT F_ANNO CODTAB
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
BUTTON BUT_CHECK 10 1
BEGIN
PROMPT 40 5 "Controllo"
END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 4 7 "Data inizio esercizio " PROMPT 4 7 "Data inizio esercizio "
HELP "Data di inizio dell'esercizio" HELP "Data di inizio dell'esercizio"
FIELD LF_TAB->D0 FIELD LF_TAB->D0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -55,21 +61,31 @@ END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
PROMPT 4 9 "Data fine esercizio " PROMPT 4 9 "Data fine esercizio "
HELP "Data di fine dell'esercizio" HELP "Data di fine dell'esercizio"
FIELD LF_TAB->D1 FIELD LF_TAB->D1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
VALIDATE DATE_CMP_FUNC >= F_DATAINI VALIDATE DATE_CMP_FUNC > F_DATAINI
WARNING "La data fine esercizio deve essere indicata e deve essere maggiore della data di inizio esercizio" WARNING "La data fine esercizio deve essere indicata e deve essere maggiore della data di inizio esercizio"
END END
DATE F_DATASCARICO DATE F_DATASCARICO
BEGIN BEGIN
PROMPT 4 11 "Data di scarico " PROMPT 4 11 "Data di scarico "
HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto" HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto"
FIELD LF_TAB->D2 FIELD LF_TAB->D2
END END
DATE F_DATACHIUSURA
BEGIN
PROMPT 4 13 "Data chiusura esercizio "
HELP "Data di chiusura dell'esercizio"
FIELD LF_TAB->D3
VALIDATE DATE_CMP_FUNC >= F_DATAFIN
WARNING "La data chiusura esercizio deve essere maggiore o uguale alla data di fine esercizio"
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

View File

@ -84,7 +84,7 @@
7|Clienti/Fornitori|cg0 -1 7|Clienti/Fornitori|cg0 -1
7|Agenti|ba3 -0 age 7|Agenti|ba3 -0 age
7|Cambi giornalieri|ba3 -0 cam 7|Cambi giornalieri|ba3 -0 cam
7|Esercizi|ba3 -0 esc 7|Esercizi|cg0 -5 esc
8|Stampa tabelle ditta|3|7 8|Stampa tabelle ditta|3|7
8|Registri|ba3 -1 reg 8|Registri|ba3 -1 reg
8|Piano dei conti|cg1 -0 8|Piano dei conti|cg1 -0