Aggiunta tabella vidimazioni

Corretta tabella registri


git-svn-id: svn://10.65.10.50/trunk@630 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/batbreg.uml

@@ -36,7 +36,8 @@ BEGIN
   OUTPUT F_ANNO CODTAB[1,4]
   OUTPUT F_CODICE CODTAB[5,7]
   OUTPUT F_DESCR S0
-  CHECKTYPE REQUIRED
+  CHECKTYPE REQUIRED  
+  MESSAGE COPY,20@
 END
 
 STRING F_CODICE 3
@@ -48,7 +49,8 @@ BEGIN
   KEY 1
   GROUP 1
   COPY ALL F_ANNO
-  CHECKTYPE REQUIRED
+  CHECKTYPE REQUIRED 
+  MESSAGE COPY,21@
 END
 
 STRING F_DESCR 50
@@ -65,7 +67,8 @@ BEGIN
   DISPLAY "Codice" CODTAB[5,7]
   DISPLAY "Tipo" I0
   COPY OUTPUT F_ANNO
-  CHECKTYPE REQUIRED
+  CHECKTYPE REQUIRED 
+  MESSAGE COPY,22@
 END 
 
 STRING F_CODLIB 2
@@ -214,16 +217,37 @@ ENDPAGE
 
 PAGE "Registri pag.2" -1 -1 78 18
 
+NUMBER DLG_NULL 4
+BEGIN
+  PROMPT 2 1 "Anno/Registro "
+  FLAGS "D"
+  GROUP 20
+END
+
+STRING DLG_NULL 3
+BEGIN
+  PROMPT 22 1 ""
+  FLAGS "D"
+  GROUP 21
+END
+
+STRING DLG_NULL 50
+BEGIN
+  PROMPT 27 1 ""
+  GROUP 22
+  FLAGS "D"
+END 
+
 BOOLEAN F_STAMPA_COSTI_RICAVI
 BEGIN
-  PROMPT 2 2 "Stampa costi/ricavi su libro cronologico "
+  PROMPT 2 3 "Stampa costi/ricavi su libro cronologico "
   FIELD B2
   GROUP 5
 END
 	     
 LIST F_FREQUENZA_STAMPA 1 16
 BEGIN
-  PROMPT 2 2 "Stampa reg.riepilogativo "
+  PROMPT 2 3 "Stampa reg.riepilogativo "
   HELP "Intervallo per fare il riepilogo"
   FIELD S9
   GROUP 4
@@ -233,7 +257,7 @@ END
 
 BOOLEAN F_VENTIL
 BEGIN
-  PROMPT 2 2 "Attivita' con ventilazione"
+  PROMPT 2 3 "Attivita' con ventilazione"
   HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
   FIELD B3
   GROUP 3
@@ -241,7 +265,7 @@ END
 
 BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
 BEGIN
-  PROMPT 2 2 "Stampa sullo stesso registro"
+  PROMPT 2 3 "Stampa sullo stesso registro"
   HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro"
   FIELD B8
   GROUP 6
@@ -249,7 +273,7 @@ END
 
 BOOLEAN F_REGSOSP
 BEGIN
-  PROMPT 2 4 "Registro in sospensione "
+  PROMPT 2 5 "Registro in sospensione "
   FIELD B1
   GROUP 2 3
   HELP "Indicare se il registro e' in sospensione d'imposta"
@@ -257,7 +281,7 @@ END
 			 
 BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
 BEGIN
-  PROMPT 46 4 "Stampa credito anno precedente"
+  PROMPT 46 5 "Stampa credito anno precedente"
   HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente"
   FIELD B4
   GROUP 3
@@ -265,7 +289,7 @@ END
 
 BOOLEAN F_CORRISP                         
 BEGIN
-  PROMPT 46 4 "Registro corrispettivi"
+  PROMPT 46 5 "Registro corrispettivi"
   HELP "Indicare se si tratta di registro dei corrispettivi"
   FIELD B0
   GROUP 2
@@ -273,7 +297,7 @@ END
 
 LIST F_TIPO_DESC_COSTI_RICAVI 1 10
 BEGIN
-  PROMPT 2 4 "Tipo descrizione costi/ricavi "
+  PROMPT 2 5 "Tipo descrizione costi/ricavi "
   HELP "Livello a cui stampare la descrizione costi/ricavi"
   FIELD I3
   GROUP 5
@@ -283,7 +307,7 @@ END
 
 NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
 BEGIN
-  PROMPT 44 4 "Ultimo numero riga stamp."
+  PROMPT 44 5 "Ultimo numero riga stamp."
   FIELD I6
   HELP "Ultimo numero della riga stampata"
   FLAGS "R"
@@ -292,7 +316,7 @@ END
 
 BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
 BEGIN
-  PROMPT 2 6 "Stampa indirizzi completi"
+  PROMPT 2 7 "Stampa indirizzi completi"
   HELP "Indicare se stampare gli indirizzi completi"
   FIELD B5
   GROUP 2 3
@@ -300,7 +324,7 @@ END
 
 NUMBER F_PROG_DARE 15
 BEGIN
-  PROMPT 2 6 "Progressivo dare               "
+  PROMPT 2 7 "Progressivo dare               "
   HELP "Progressivo dare del giornale"
   FIELD R1
   PICTURE "."
@@ -310,7 +334,7 @@ END
 
 NUMBER F_TOT_INCASSI 15
 BEGIN
-  PROMPT 2 6 "Totale incassi "
+  PROMPT 2 7 "Totale incassi "
   HELP "Progressivo degli incassi effettuati"
   FIELD R0                      
   FLAGS "R"
@@ -320,7 +344,7 @@ END
 
 BOOLEAN F_STAMPA_RIEPIL_SUL_REGISTRO
 BEGIN
-  PROMPT 46 6 "Stampa riepilogo liquidazione"
+  PROMPT 46 7 "Stampa riepilogo liquidazione"
   FIELD B6
   GROUP 2 3
   HELP "Indicare se stampare il  riepilogo IVA delle aliquote utilizzate"
@@ -330,7 +354,7 @@ END
 
 NUMBER F_TOT_PAGAMENTI 15
 BEGIN
-  PROMPT 42 6 "Totale pagamenti "
+  PROMPT 42 7 "Totale pagamenti "
   HELP "Progressivo dei pagamenti effettuati"
   FIELD R1
   FLAGS "R"
@@ -340,7 +364,7 @@ END
 		 
 BOOLEAN F_STAMPA_LIQUIDAZIONE
 BEGIN
-  PROMPT 2 8 "Stampa liquidazione"
+  PROMPT 2 9 "Stampa liquidazione"
   FIELD B7
   GROUP 2 3 4
   HELP "Indicare se stampare a fine periodo la liquidazione"
@@ -348,7 +372,7 @@ END
 
 NUMBER F_PROG_AVERE 15
 BEGIN
-  PROMPT 2 8 "Progressivo avere              "
+  PROMPT 2 9 "Progressivo avere              "
   HELP "Progressivo avere del giornale"
   FIELD R2           
   FLAGS "R"
@@ -358,7 +382,7 @@ END
 
 LIST F_MESE_STAMPA_ULTIMA_LIQ 10
 BEGIN
-  PROMPT 2 10 "Mese stampa ultima liquidazione "
+  PROMPT 2 11 "Mese stampa ultima liquidazione "
   HELP "Mese in cui e' stata stampata l'ultima liquidazione"
   FIELD I4
   FLAGS "M" 
@@ -368,7 +392,7 @@ END
 
 NUMBER F_ULTIMO_NUM_PROT 7
 BEGIN
-  PROMPT 2 12 "Ultimo numero di protocollo     "
+  PROMPT 2 13 "Ultimo numero di protocollo     "
   FIELD I5
   FLAGS "R"
   GROUP 2 3
@@ -377,7 +401,7 @@ END
 
 BOOLEAN F_STAMPA_INTESTAZIONE
 BEGIN
-  PROMPT 46 12 "Stampa intestazione ditta"
+  PROMPT 46 13 "Stampa intestazione ditta"
   HELP "Indicare se stampare l'intestazione della ditta"
   FIELD B9
   GROUP 1
@@ -385,7 +409,7 @@ END
 
 DATE F_ULTIMA_DATA_DI_REGISTR
 BEGIN
-  PROMPT 2 14 "Ultima data di registrazione    "
+  PROMPT 2 15 "Ultima data di registrazione    "
   HELP "Date dell'ultima registrazione stampata"
   FIELD D2
   GROUP 2 3 5 6
@@ -393,7 +417,7 @@ END
 
 DATE F_ULTIMA_DATA_DI_STAMPA
 BEGIN
-  PROMPT 2 16 "Ultima data di stampa           "
+  PROMPT 2 17 "Ultima data di stampa           "
   HELP "Data dell'ultima stampa effettuata"
   FIELD D3
 END

ba/batbvid.uml

@@ -0,0 +1,80 @@
+#include "batbvid.h"
+
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Tabella Vidimazioni" -1 -1 78 18
+
+STRING F_CODICE 3
+BEGIN              
+  PROMPT 4 1 "Codice vidimazione  "
+  USE VID           
+  FIELD VID->CODTAB
+  INPUT CODTAB F_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Intestatario@50" S0
+  OUTPUT F_CODICE CODTAB
+  OUTPUT F_INTESTA S0
+  OUTPUT F_DATAVID D0
+  OUTPUT F_UFFVID S1
+  OUTPUT F_NUMFOGLI I0
+  OUTPUT F_PAGDA I1
+  OUTPUT F_PAGA I2
+  CHECKTYPE REQUIRED 
+  KEY 1
+END
+
+STRING F_INTESTA 50
+BEGIN
+  PROMPT 4 3 "Intestatario        "
+  HELP "Inserire l' intestatario del codice di vidimazione"
+  FIELD VID->S0
+  CHECKTYPE REQUIRED  
+END
+
+DATE F_DATAVID
+BEGIN
+  PROMPT 4 5 "Data vidimazione    "
+  FIELD VID->D0
+  FLAGS "A"
+  CHECKTYPE REQUIRED 
+END
+
+STRING F_UFFVID 50
+BEGIN
+  PROMPT 4 7 "Ufficio vidimazione "
+  FIELD VID->S1
+  CHECKTYPE REQUIRED 
+END 
+
+NUMBER F_NUMFOGLI 5
+BEGIN
+  PROMPT 4 9 "Numero fogli libro  "
+  FIELD VID->I0
+  FLAGS "R"
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_PAGDA 5
+BEGIN
+  PROMPT 4 11 "Dalla pagina "
+  FIELD VID->I1
+  FLAGS "R"
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_PAGA 5
+BEGIN
+  PROMPT 30 11 "Alla pagina "
+  FIELD VID->I2
+  FLAGS "R"
+  CHECKTYPE REQUIRED  
+  NUM_EXPR {(#THIS_FIELD>=#F_PAGDA)}
+END
+
+ENDPAGE
+
+ENDMASK