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

ba/batbesc.h

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

ba/batbesc.uml

@@ -30,23 +30,29 @@ END
 
 NUMBER F_ANNO 4
 BEGIN
-  PROMPT 4 5 "Anno esercizio        "
-  HELP "Anno d'esercizio da assegnare"
+  PROMPT 4 5 "Codice esercizio        "
+  HELP "Codice d'esercizio da assegnare"
   FLAGS "ZR"
   FIELD LF_TAB->CODTAB
   KEY 1
   USE ESC
   INPUT CODTAB F_ANNO
-  DISPLAY "Anno esercizio" CODTAB
+  DISPLAY "Codice esercizio" CODTAB
   DISPLAY "Data inizio esercizio" D0
   DISPLAY "Data fine esercizio" D1
+  DISPLAY "Data chiusura esercizio" D3
   OUTPUT F_ANNO CODTAB
   CHECKTYPE REQUIRED
 END
 
+BUTTON BUT_CHECK 10 1 
+BEGIN 
+   PROMPT  40 5 "Controllo"
+END
+
 DATE F_DATAINI
 BEGIN
-  PROMPT 4 7 "Data inizio esercizio "
+  PROMPT 4 7 "Data inizio esercizio   "
   HELP "Data di inizio dell'esercizio"
   FIELD LF_TAB->D0
   CHECKTYPE REQUIRED
@@ -55,21 +61,31 @@ END
 
 DATE F_DATAFIN
 BEGIN
-  PROMPT 4 9 "Data fine esercizio   "
+  PROMPT 4 9 "Data fine esercizio     "
   HELP "Data di fine dell'esercizio"
   FIELD LF_TAB->D1
   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"
 END
 
 DATE F_DATASCARICO
-BEGIN
-  PROMPT 4 11 "Data di scarico       "
+BEGIN                                  
+  PROMPT 4 11 "Data di scarico         "
   HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto"
   FIELD LF_TAB->D2
 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
 
 ENDMASK

ba/prassi.mnu

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