diff --git a/ba/batbreg.uml b/ba/batbreg.uml index afab407f8..c36969e6c 100755 --- a/ba/batbreg.uml +++ b/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 diff --git a/ba/batbvid.uml b/ba/batbvid.uml new file mode 100755 index 000000000..b782711ca --- /dev/null +++ b/ba/batbvid.uml @@ -0,0 +1,80 @@ +#include "batbvid.h" + +TOOLBAR "" 0 20 0 2 + +#include + +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