diff --git a/ba/ba3200a.uml b/ba/ba3200a.uml index ebf3d3baa..2529ed46a 100755 --- a/ba/ba3200a.uml +++ b/ba/ba3200a.uml @@ -17,14 +17,14 @@ BEGIN HELP "Inserire il codice di fine " END -BUTTON DLG_OK +BUTTON DLG_OK 9 2 BEGIN - PROMPT 45 5 "" + PROMPT -12 -1 "" END -BUTTON DLG_CANCEL +BUTTON DLG_CANCEL 9 2 BEGIN - PROMPT 56 5 "" + PROMPT -22 -1 "" END ENDPAGE diff --git a/ba/ba3600a.uml b/ba/ba3600a.uml index 914feb318..9754c1cf6 100755 --- a/ba/ba3600a.uml +++ b/ba/ba3600a.uml @@ -40,13 +40,14 @@ END DATE F_DATA_STAMPA BEGIN PROMPT 4 9 "Data stampa " + HELP "Data in cui viene stampato il libro unico" FLAGS "A" END STRING F_LIBRO_UNICO1 3 BEGIN PROMPT 4 11 "Codice libro unico " - HELP "E' obbligatorio inserire un codice presente nella tabella" + HELP "Codice del libro da stampare" USE %LBU INPUT CODTAB[1,4] F_ANNODA INPUT CODTAB[5,7] F_LIBRO_UNICO1 @@ -67,6 +68,7 @@ END NUMBER F_MESEDA 2 BEGIN PROMPT 8 14 "dal : mese " + HELP "Primo mese di cui stampare i movimenti" NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)} END @@ -79,6 +81,7 @@ END NUMBER F_MESEA 2 BEGIN PROMPT 8 15 "al : mese " + HELP "Ultimo mese di cui stampare i movimenti" NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)} END @@ -91,7 +94,7 @@ END STRING F_LIBRO_UNICO2 3 BEGIN PROMPT 4 9 "Codice libro unico di studio " - HELP "E' obbligatorio inserire un codice presente nella tabella" + HELP "Codice del libro da stampare" USE %LBU INPUT CODTAB[1,4] F_STAMPA_ANNO INPUT CODTAB[5,7] F_LIBRO_UNICO2 @@ -116,6 +119,7 @@ END NUMBER F_STAMPA_MESE 2 BEGIN PROMPT 4 11 "Stampa mese " + HELP "Mese di cui effettuare la stampa" NUM_EXPR {(#THIS_FIELD >= #F_STAMPA_MESEG) && (#THIS_FIELD <= 12)} END @@ -128,7 +132,7 @@ END STRING F_CODLIB_STAMPA 3 BEGIN PROMPT 4 13 "Codice libro unico su cui stampare " - HELP "E' obbligatorio inserire un codice presente nella tabella" + HELP "Codice del libro su cui stampare" USE %LBU INPUT CODTAB[1,4] F_STAMPA_ANNO INPUT CODTAB[5,7] F_CODLIB_STAMPA @@ -141,6 +145,7 @@ END NUMBER F_PAGFINALE 5 BEGIN PROMPT 4 15 "Ultim.num.pagina stampata libro unico " + HELP "Numero ultima pagina stampata" END BUTTON DLG_PRINT 9 2 @@ -157,4 +162,3 @@ END ENDPAGE ENDMASK - diff --git a/ba/ba4100a.uml b/ba/ba4100a.uml index f8bc069df..42f93f352 100755 --- a/ba/ba4100a.uml +++ b/ba/ba4100a.uml @@ -23,7 +23,7 @@ BEGIN DISPLAY "Nome@50" S0 OUTPUT FLD_CM1_STATO CODTAB OUTPUT FLD_CM1_DENSTA S0 - HELP "Inserire lo stato" + HELP "Codice dello stato in cui risiede il comune" MESSAGE COPY,FLD_CM2_STATO WARNING "Stato non presente" KEY 1 @@ -38,7 +38,7 @@ BEGIN DISPLAY "Codice" CODTAB OUTPUT FLD_CM1_STATO CODTAB OUTPUT FLD_CM1_DENSTA S0 - HELP "Inserire la denominazione dello stato" + HELP "Nome dello stato in cui risiede il comune" MESSAGE COPY,FLD_CM2_DENSTA FLAGS "G" KEY 1 @@ -57,7 +57,7 @@ BEGIN OUTPUT FLD_CM1_STATO STATO OUTPUT FLD_CM1_COM COM OUTPUT FLD_CM1_DENCOM DENCOM - HELP "Inserire il comune" + HELP "Codice del comune" MESSAGE COPY,FLD_CM2_COM CHECKTYPE REQUIRED VALIDATE FIXLEN_FUNC 4 @@ -74,7 +74,7 @@ BEGIN OUTPUT FLD_CM1_STATO STATO OUTPUT FLD_CM1_COM COM OUTPUT FLD_CM1_DENCOM DENCOM - HELP "Inserire la denominazione del comune" + HELP "Denominazione del comune" MESSAGE COPY,FLD_CM2_DENCOM FLAGS "G" KEY 2 @@ -85,7 +85,7 @@ BEGIN PROMPT 3 4 "Provincia " FIELD LF_COMUNI->PROVCOM FLAGS "U" - HELP "Inserire la provincia del comune" + HELP "Provincia in cui risiede il comune" END STRING FLD_CM1_CAPCOM 5 @@ -93,14 +93,14 @@ BEGIN PROMPT 29 4 "CAP " FIELD LF_COMUNI->CAPCOM FLAGS "RZ" - HELP "Inserire il Codice di Avviamento Postale" + HELP "Codice di Avviamento Postale del comune" END NUMBER FLD_CM1_CODISTAT 6 BEGIN PROMPT 51 4 "Codice ISTAT " FIELD LF_COMUNI->CODISTAT - HELP "Inserire il codice ISTAT del comune" + HELP "Codice ISTAT del comune" END GROUPBOX DLG_NULL 75 5 @@ -119,7 +119,7 @@ BEGIN DISPLAY "Denominazione@50" S0 OUTPUT FLD_CM1_UFIIDD1 CODTAB OUTPUT FLD_CM1_DUFIIDD1 S0 - HELP "Inserire il codice ufficio imposte dirette" + HELP "Codice ufficio imposte dirette competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END @@ -135,7 +135,7 @@ BEGIN PROMPT 3 7 "Ufficio 2 " FIELD LF_COMUNI->UFFIIDD2 FLAGS "RZ" - HELP "Inserire il codice ufficio imposte dirette" + HELP "Codice ufficio imposte dirette competente" COPY USE FLD_CM1_UFIIDD1 CHECKTYPE NORMAL INPUT CODTAB FLD_CM1_UFIIDD2 @@ -156,7 +156,7 @@ BEGIN PROMPT 3 8 "Ufficio 3 " FIELD LF_COMUNI->UFFIIDD3 FLAGS "RZ" - HELP "Inserire il codice ufficio imposte dirette" + HELP "Codice ufficio imposte dirette competente" COPY USE FLD_CM1_UFIIDD1 CHECKTYPE NORMAL INPUT CODTAB FLD_CM1_UFIIDD3 @@ -188,7 +188,7 @@ BEGIN DISPLAY "Denominazione@50" S0 OUTPUT FLD_CM1_UFFIVA1 CODTAB OUTPUT FLD_CM1_DUFFIVA1 S0 - HELP "Inserire il codice ufficio iva" + HELP "Codice ufficio IVA competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END @@ -204,7 +204,7 @@ BEGIN PROMPT 3 12 "Ufficio 2 " FIELD LF_COMUNI->UFFIVA2 FLAGS "RZ" - HELP "Inserire il codice ufficio iva" + HELP "Codice ufficio IVA competente" COPY USE FLD_CM1_UFFIVA1 INPUT CODTAB FLD_CM1_UFFIVA2 COPY DISPLAY FLD_CM1_UFFIVA1 @@ -225,7 +225,7 @@ BEGIN PROMPT 3 13 "Ufficio 3 " FIELD LF_COMUNI->UFFIVA3 FLAGS "RZ" - HELP "Inserire il codice ufficio iva" + HELP "Codice ufficio IVA competente" COPY USE FLD_CM1_UFFIVA1 INPUT CODTAB FLD_CM1_UFFIVA3 COPY DISPLAY FLD_CM1_UFFIVA1 @@ -291,7 +291,7 @@ BEGIN DISPLAY "Denominazione@50" S0 OUTPUT FLD_CM2_UFFREG CODTAB OUTPUT FLD_CM2_DUFFREG S0 - HELP "Inserire il codice ufficio del registro" + HELP "Codice ufficio del registro competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END @@ -313,7 +313,7 @@ BEGIN DISPLAY "Denominazione@50" S0 OUTPUT FLD_CM2_UFFCONC CODTAB OUTPUT FLD_CM2_DUFFCONC S0 - HELP "Inserire il codice ufficio concessioni" + HELP "Codice ufficio concessioni competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END @@ -335,7 +335,7 @@ BEGIN DISPLAY "Denominazione@50" S0 OUTPUT FLD_CM2_UFFCSERV CODTAB OUTPUT FLD_CM2_DUFFCSERV S0 - HELP "Inserire il codice del centro servizi" + HELP "Codice del centro servizi competente" CHECKTYPE NORMAL WARNING "Ufficio assente" END @@ -356,7 +356,7 @@ BEGIN PROMPT 2 11 "Provinciale " FIELD LF_COMUNI->UFFESPROV FLAGS "RZ" - HELP "Inserire il codice esattoria provinciale" + HELP "Codice esattoria provinciale competente" END NUMBER FLD_CM2_UFFESCOM 3 @@ -364,7 +364,7 @@ BEGIN PROMPT 2 12 "Comunale " FIELD LF_COMUNI->UFFESCOM FLAGS "RZ" - HELP "Inserire il codice esattoria comunale" + HELP "Codice esattoria comunale competente" END NUMBER FLD_CM2_ALIQICI 6 3 @@ -372,7 +372,7 @@ BEGIN PROMPT 46 11 "Aliquota ICI " FIELD LF_COMUNI->ALIQICI FLAGS "R" - HELP "Inserire aliquota ICI" + HELP "Aliquota ICI applicata dal comune" WARNING "Aliquota I.C.I. errata" NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<100)} END @@ -380,6 +380,7 @@ END LIST FLD_CM2_TERRMON 3 BEGIN PROMPT 46 12 "Territorio montano " + HELP "Codice identificativo di comune residente in territorio montano" FIELD LF_COMUNI->TERRMON ITEMS " | " // ITEMS "0|0" @@ -390,6 +391,7 @@ END STRING FLD_CM2_COMAGG 4 BEGIN PROMPT 2 14 "Comune aggr. " + HELP "Codice comune a cui Š stato accorpato il presente comune" FIELD LF_COMUNI->COMAGG FLAGS "U" USE LF_COMUNI @@ -405,6 +407,7 @@ END STRING FLD_CM2_DENCOMAGG 50 BEGIN PROMPT 23 14 "" + HELP "Denominazione comune a cui Š stato accorpato il presente comune" USE LF_COMUNI KEY 2 SELECT STATO="" INPUT DENCOM FLD_CM2_DENCOMAGG COPY DISPLAY FLD_CM1_DENCOM diff --git a/ba/ba6100a.uml b/ba/ba6100a.uml index 112b79a4f..3f41c3199 100755 --- a/ba/ba6100a.uml +++ b/ba/ba6100a.uml @@ -5,7 +5,7 @@ PAGE "Definizione Stampe" -1 -1 70 17 RADIOBUTTON RDB_BA6_TYPE 25 BEGIN PROMPT 3 1 "Oggetto" - HELP "Selezionare l'archivio che si desidera stampare" + HELP "Selezionare l'anagrafica che si desidera stampare" ITEM "0|Persone Fisiche" MESSAGE ENABLE,CHK_BA6_INCLDI|ENABLE,BUT_BA6_ETICHETTE MESSAGE HIDE,2@|HIDE,3@|SHOW,1@ @@ -63,7 +63,7 @@ BEGIN DISPLAY "Ragione sociale@50" RAGSOC OUTPUT FLD_ANF_CODFR CODANAGR FLAGS "R" - HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" + HELP "Codice di inizio stampa: vuoto = inizio archivio" GROUP 1 4 END @@ -76,7 +76,7 @@ BEGIN COPY DISPLAY FLD_ANF_CODFR OUTPUT FLD_ANF_CODTO CODANAGR FLAGS "R" - HELP "Introdurre codice di fine stampa: vuoto = fine archivio" + HELP "Codice di fine stampa: vuoto = fine archivio" GROUP 1 4 END @@ -90,7 +90,7 @@ BEGIN DISPLAY "Codice" CODANAGR DISPLAY "Codice Fiscale@16" COFI OUTPUT FLD_ANF_RAGSOCFR RAGSOC - HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" + HELP "Ragione soc. di inizio stampa: vuoto = inizio archivio" GROUP 1 5 END @@ -102,7 +102,7 @@ BEGIN INPUT RAGSOC FLD_ANF_RAGSOCTO COPY DISPLAY FLD_ANF_RAGSOCFR OUTPUT FLD_ANF_RAGSOCTO RAGSOC - HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" + HELP "Ragione soc. di fine stampa: vuoto = fine archivio" GROUP 1 5 END @@ -115,7 +115,7 @@ BEGIN INPUT CODANAGR FLD_ANG_CODFR COPY DISPLAY FLD_ANF_CODFR OUTPUT FLD_ANG_CODFR CODANAGR - HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" + HELP "Codice di inizio stampa: vuoto = inizio archivio" GROUP 2 4 END @@ -128,7 +128,7 @@ BEGIN INPUT CODANAGR FLD_ANG_CODTO COPY DISPLAY FLD_ANF_CODFR OUTPUT FLD_ANG_CODTO CODANAGR - HELP "Introdurre codice di fine stampa: vuoto = fine archivio" + HELP "Codice di fine stampa: vuoto = fine archivio" GROUP 2 4 END @@ -142,7 +142,7 @@ BEGIN DISPLAY "Codice" CODANAGR DISPLAY "Codice Fiscale@16" COFI OUTPUT FLD_ANG_RAGSOCFR RAGSOC - HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" + HELP "Ragione soc. di inizio stampa: vuoto = inizio archivio" GROUP 2 5 END @@ -154,7 +154,7 @@ BEGIN INPUT RAGSOC FLD_ANG_RAGSOCTO COPY DISPLAY FLD_ANG_RAGSOCFR OUTPUT FLD_ANG_RAGSOCTO RAGSOC - HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" + HELP "Ragione soc. di fine stampa: vuoto = fine archivio" GROUP 2 5 END @@ -168,7 +168,7 @@ BEGIN DISPLAY "Persona Rif.@20" PERRIF OUTPUT FLD_DITTE_CODFR CODDITTA OUTPUT FLD_DITTE_RAGSOCFR RAGSOC - HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" + HELP "Codice di inizio stampa: vuoto = inizio archivio" GROUP 3 4 END @@ -181,7 +181,7 @@ BEGIN COPY DISPLAY FLD_DITTE_CODFR OUTPUT FLD_DITTE_RAGSOCTO RAGSOC OUTPUT FLD_DITTE_CODTO CODDITTA - HELP "Introdurre codice di fine stampa: vuoto = fine archivio" + HELP "Codice di fine stampa: vuoto = fine archivio" GROUP 3 4 END @@ -195,7 +195,7 @@ BEGIN DISPLAY "Persona Rif.@20" PERRIF OUTPUT FLD_DITTE_RAGSOCFR RAGSOC OUTPUT FLD_DITTE_CODFR CODDITTA - HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio" + HELP "Ragione soc. di inizio stampa: vuoto = inizio archivio" GROUP 3 5 END @@ -207,20 +207,20 @@ BEGIN COPY DISPLAY FLD_DITTE_RAGSOCFR OUTPUT FLD_DITTE_RAGSOCTO RAGSOC OUTPUT FLD_DITTE_CODTO CODDITTA - HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio" + HELP "Ragione soc. di fine stampa: vuoto = fine archivio" GROUP 3 5 END BOOLEAN CHK_BA6_INCLDI BEGIN PROMPT 3 10 "Includi ditte" - HELP "Selezionare per includere informazioni relative alle ditte" + HELP "Indicare se includere informazioni relative alle ditte" END BOOLEAN CHK_BA6_PRINTONE BEGIN PROMPT 3 11 "Stampa un solo record" - HELP "Selezionare per stampare soltanto il record nel campo DA" + HELP "Indicare se stampare soltanto il record nel campo DA" END diff --git a/ba/ba6100b.uml b/ba/ba6100b.uml index 7538580bc..01f7d1abd 100755 --- a/ba/ba6100b.uml +++ b/ba/ba6100b.uml @@ -17,7 +17,7 @@ BEGIN ITEM "1|Residenza" ITEM "2|Domicilio fiscale" ITEM "3|Corrispondenza" - HELP "Selezionare l'indirizzo da includere nelle etichette" + HELP "Indicare l'indirizzo da includere nelle etichette" END NUMBER FLD_BA6B_INDROW 4 @@ -37,7 +37,7 @@ BEGIN PROMPT 4 7 "Partita IVA/ Codice fiscale" MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,FLD_BA6B_PIVCOL - HELP "Questo campo puo' assumere solamente i valori vero e falso" + HELP "Indicare se stampare la Partita IVA/Codice fiscale" END NUMBER FLD_BA6B_PIVROW 4 @@ -59,7 +59,7 @@ BEGIN PROMPT 4 8 "Includi codice anagrafico" MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,FLD_BA6B_CODCOL - HELP "Questo campo puo' assumere solamente i valori vero e falso" + HELP "Indicare se stampare il codice anagrafico" END NUMBER FLD_BA6B_CODROW 4 @@ -79,16 +79,19 @@ END NUMBER FLD_BA6B_TOTROW 4 BEGIN PROMPT 4 10 "Numero totale di righe e colonne " + HELP "Totale righe (altezza dell'etichetta)" END NUMBER FLD_BA6B_TOTCOL 4 BEGIN PROMPT 47 10 "" + HELP "Totale colonne (larghezza dell'etichetta)" END BOOLEAN CHK_BA6B_SAVE BEGIN PROMPT 4 11 "Salva impostazioni" + HELP "Indicare se ritorvare le impostazioni successivamente" END BUTTON DLG_OK 9 2 @@ -108,4 +111,3 @@ END ENDPAGE ENDMASK - diff --git a/ba/bastasf.uml b/ba/bastasf.uml index ac725d8d8..787e4521b 100755 --- a/ba/bastasf.uml +++ b/ba/bastasf.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Assoggettamento" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %ASF - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Assoggettamento" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %ASF + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastcco.uml b/ba/bastcco.uml index 3fb7b5a35..2ccf942c3 100755 --- a/ba/bastcco.uml +++ b/ba/bastcco.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Categorie contabili" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %CCO - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Categorie contabili" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %CCO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastcfi.uml b/ba/bastcfi.uml index 1c9c00e4a..2e1dc0028 100755 --- a/ba/bastcfi.uml +++ b/ba/bastcfi.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Categorie finanziarie" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %CFI - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Categorie finanziarie" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %CFI + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastcrs.uml b/ba/bastcrs.uml index 650b819d5..079536a7d 100755 --- a/ba/bastcrs.uml +++ b/ba/bastcrs.uml @@ -1,43 +1,43 @@ -#include "ba3200.h" - -PAGE "Stampa cariche sociali" -1 -1 50 8 - -STRING F_INIZIO1 2 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %CRS - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Carica@25" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 2 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa cariche sociali" -1 -1 50 8 + +STRING F_INIZIO1 2 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "RZ" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %CRS + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Carica@25" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 2 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "RZ" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastcve.uml b/ba/bastcve.uml index d4e8f56c1..ebcc880af 100755 --- a/ba/bastcve.uml +++ b/ba/bastcve.uml @@ -1,45 +1,45 @@ -#include "ba3200.h" - -PAGE "Stampa Categorie Vendita" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %CVE - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Provvigione" R0 - DISPLAY "Gruppo" I1 - DISPLAY "Conto" I2 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Categorie Vendita" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %CVE + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Provvigione" R0 + DISPLAY "Gruppo" I1 + DISPLAY "Conto" I2 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastesc.uml b/ba/bastesc.uml index d4cf5f9b8..f1543b872 100755 --- a/ba/bastesc.uml +++ b/ba/bastesc.uml @@ -11,7 +11,7 @@ END NUMBER F_INIZIO1 4 BEGIN PROMPT 2 3 "Da anno " - HELP "Inserire l'anno esercizio con cui iniziare la stampa" + HELP "Anno esercizio con cui iniziare la stampa" FIELD LF_TAB->CODTAB FLAGS "ZR" USE ESC KEY 1 @@ -26,7 +26,7 @@ END NUMBER F_FINE1 4 BEGIN PROMPT 25 3 "a anno " - HELP "Inserire l'anno esercizio con cui finire la stampa" + HELP "Anno esercizio con cui finire la stampa" FIELD LF_TABCOM->CODTAB COPY USE F_INIZIO1 FLAGS "ZR" diff --git a/ba/bastleg.uml b/ba/bastleg.uml index 8ec0bc1a4..1596e6525 100755 --- a/ba/bastleg.uml +++ b/ba/bastleg.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Legali" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %LEG - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Legali" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %LEG + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastlis.uml b/ba/bastlis.uml index 3217056bc..49d139811 100755 --- a/ba/bastlis.uml +++ b/ba/bastlis.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa listini" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %LIS - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa listini" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %LIS + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastmsp.uml b/ba/bastmsp.uml index e9b47fd12..5502040bd 100755 --- a/ba/bastmsp.uml +++ b/ba/bastmsp.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Modalita' di spedizione" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %MSP - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Modalita' di spedizione" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %MSP + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastndo.uml b/ba/bastndo.uml index 29ae299c5..eaad9ba94 100755 --- a/ba/bastndo.uml +++ b/ba/bastndo.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Note documento" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %NDO - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Note documento" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %NDO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastnot.uml b/ba/bastnot.uml index 04112686e..0206ab9bd 100755 --- a/ba/bastnot.uml +++ b/ba/bastnot.uml @@ -1,44 +1,44 @@ -#include "ba3200.h" - -PAGE "Stampa Codici note" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %NOT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Destinazione@30" S0 - DISPLAY "Blocca imm." B0 - DISPLAY "Documento" B1 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Codici note" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %NOT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Destinazione@30" S0 + DISPLAY "Blocca imm." B0 + DISPLAY "Documento" B1 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastois.uml b/ba/bastois.uml index cb49cec9c..991e24581 100755 --- a/ba/bastois.uml +++ b/ba/bastois.uml @@ -1,70 +1,70 @@ -#include "ba3200.h" - -PAGE "Stampa vecchi codici attivita'" -1 -1 60 8 - -STRING F_INIZIO1 4 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" - HELP "Inserire il codice d'inizio " - USE %OIS - FIELD CODTAB[1,4] - INPUT CODTAB[1,4] F_INIZIO1 - INPUT CODTAB[5,] F_INIZIO2 - DISPLAY "Codice" CODTAB[1,4] - DISPLAY "Subcodice" CODTAB[5,] - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB[1,4] - OUTPUT F_INIZIO2 CODTAB[5,] - GROUP 1 -END - -STRING F_INIZIO2 1 -BEGIN - PROMPT 28 1 "subcodice " - FLAGS "U" - FIELD CODTAB[5,] - HELP "Inserire il subcodice d'inizio " - COPY ALL F_INIZIO1 - GROUP 1 -END - - -STRING F_FINE1 4 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" - HELP "Inserire il codice di fine " - COPY USE F_INIZIO1 - FIELD CODTAB[1,4] - INPUT CODTAB[1,4] F_FINE1 - INPUT CODTAB[5,] F_FINE2 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB[1,4] - OUTPUT F_FINE2 CODTAB[5,] - GROUP 2 -END - - -STRING F_FINE2 1 -BEGIN - PROMPT 28 3 "subcodice " - FLAGS "U" - HELP "Inserire il subcodice di fine " - FIELD CODTAB[5,] - COPY ALL F_FINE1 - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa vecchi codici attivita'" -1 -1 60 8 + +STRING F_INIZIO1 4 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "RZ" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + USE %OIS + FIELD CODTAB[1,4] + INPUT CODTAB[1,4] F_INIZIO1 + INPUT CODTAB[5,] F_INIZIO2 + DISPLAY "Codice" CODTAB[1,4] + DISPLAY "Subcodice" CODTAB[5,] + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB[1,4] + OUTPUT F_INIZIO2 CODTAB[5,] + GROUP 1 +END + +STRING F_INIZIO2 1 +BEGIN + PROMPT 28 1 "subcodice " + HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio" + FLAGS "U" + FIELD CODTAB[5,] + COPY ALL F_INIZIO1 + GROUP 1 +END + + +STRING F_FINE1 4 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "RZ" + HELP "Codice di fine. Vuoto = fine archivio" + COPY USE F_INIZIO1 + FIELD CODTAB[1,4] + INPUT CODTAB[1,4] F_FINE1 + INPUT CODTAB[5,] F_FINE2 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB[1,4] + OUTPUT F_FINE2 CODTAB[5,] + GROUP 2 +END + + +STRING F_FINE2 1 +BEGIN + PROMPT 28 3 "subcodice " + FLAGS "U" + FIELD CODTAB[5,] + HELP "Subcodice di fine. Vuoto = fine archivio" + COPY ALL F_FINE1 + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastpor.uml b/ba/bastpor.uml index 57661ad63..c65d1b250 100755 --- a/ba/bastpor.uml +++ b/ba/bastpor.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Modalita' di consegna" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %POR - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Modalita' di consegna" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %POR + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastreg.uml b/ba/bastreg.uml index 97083fd30..054975363 100755 --- a/ba/bastreg.uml +++ b/ba/bastreg.uml @@ -5,6 +5,7 @@ PAGE "Stampa registri" -1 -1 74 8 NUMBER F_CODDITTA 5 BEGIN PROMPT 1 1 "Ditta " + HELP "Ditta di cui stampare i registri" FLAGS "FRD" USE LF_NDITTE KEY 1 CHECKTYPE REQUIRED @@ -33,7 +34,7 @@ BEGIN FLAGS "RZ" // FLAGS "A" FIELD CODTAB[1,4] - HELP "Stampa i registri dell'anno indicato. Se lasciato vuoto stampa tutti i registri" + HELP "Stampa i registri dell'anno indicato. Vuoto = tutti i registri" MESSAGE COPY, F_FINE2 GROUP 1 END diff --git a/ba/bastsad.uml b/ba/bastsad.uml index 8aa17b192..ec5824236 100755 --- a/ba/bastsad.uml +++ b/ba/bastsad.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Spese da addebitare" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %SAD - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@20" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Spese da addebitare" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %SAD + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@20" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastsco.uml b/ba/bastsco.uml index 57d873cc5..9522bdb33 100755 --- a/ba/bastsco.uml +++ b/ba/bastsco.uml @@ -1,43 +1,43 @@ -#include "ba3200.h" - -PAGE "Stampa sconti incondizionati" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %SCO - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Percentuale" R0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa sconti incondizionati" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio" + FIELD LF_TABCOM->CODTAB + USE %SCO + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Percentuale" R0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/baststa.uml b/ba/baststa.uml index b288683cc..490191c66 100755 --- a/ba/baststa.uml +++ b/ba/baststa.uml @@ -1,43 +1,43 @@ -#include "ba3200.h" - -PAGE "Stampa stati" -1 -1 50 8 - -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %STA - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Stato@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa stati" -1 -1 50 8 + +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "RZ" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %STA + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Stato@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "RZ" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/baststt.uml b/ba/baststt.uml index f6dd384b3..63696d345 100755 --- a/ba/baststt.uml +++ b/ba/baststt.uml @@ -1,41 +1,41 @@ -#include "ba3200.h" - -PAGE "Stampa codici statistici" -1 -1 50 8 - -STRING F_INIZIO1 7 -BEGIN - PROMPT 2 1 "Da codice " - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %STT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 7 -BEGIN - PROMPT 2 3 "A codice " - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa codici statistici" -1 -1 50 8 + +STRING F_INIZIO1 7 +BEGIN + PROMPT 2 1 "Da codice " + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %STT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 7 +BEGIN + PROMPT 2 3 "A codice " + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/basttit.uml b/ba/basttit.uml index b01faa554..50c060017 100755 --- a/ba/basttit.uml +++ b/ba/basttit.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Titoli onorifici" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %TIT - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Titoli onorifici" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %TIT + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastues.uml b/ba/bastues.uml index ee0b3549c..cf49451e2 100755 --- a/ba/bastues.uml +++ b/ba/bastues.uml @@ -1,41 +1,43 @@ -#include "ba3200.h" - -PAGE "Stampa uffici esattoria" -1 -1 50 8 - -NUMBER F_INIZIO1 3 -BEGIN - PROMPT 3 1 "Da codice " - USE %UES - FLAGS "RZ" - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@25" S0 - OUTPUT F_INIZIO1 CODTAB - FIELD LF_TABCOM->CODTAB - GROUP 1 -END - -NUMBER F_FINE1 3 -BEGIN - PROMPT 3 3 "A codice " - COPY USE F_INIZIO1 - FLAGS "RZ" - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - FIELD LF_TABCOM->CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa uffici esattoria" -1 -1 50 8 + +NUMBER F_INIZIO1 3 +BEGIN + PROMPT 3 1 "Da codice " + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + USE %UES + FLAGS "RZ" + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@25" S0 + OUTPUT F_INIZIO1 CODTAB + FIELD LF_TABCOM->CODTAB + GROUP 1 +END + +NUMBER F_FINE1 3 +BEGIN + PROMPT 3 3 "A codice " + HELP "Codice di fine. Vuoto = fine archivio" + COPY USE F_INIZIO1 + FLAGS "RZ" + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + FIELD LF_TABCOM->CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastvet.uml b/ba/bastvet.uml index bbafba58d..af1bc5c8e 100755 --- a/ba/bastvet.uml +++ b/ba/bastvet.uml @@ -1,44 +1,44 @@ -#include "ba3200.h" - -PAGE "Stampa vettori" -1 -1 50 8 - -NUMBER F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "RZ" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %VET - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice vettore" CODTAB - DISPLAY "Ragione sociale@50" S0 - OUTPUT F_INIZIO1 CODTAB - KEY 1 - GROUP 1 -END - -NUMBER F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "RZ" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -3 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa vettori" -1 -1 50 8 + +NUMBER F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "RZ" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %VET + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice vettore" CODTAB + DISPLAY "Ragione sociale@50" S0 + OUTPUT F_INIZIO1 CODTAB + KEY 1 + GROUP 1 +END + +NUMBER F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "RZ" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -3 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/bastzon.uml b/ba/bastzon.uml index 103d11577..3ef7fac81 100755 --- a/ba/bastzon.uml +++ b/ba/bastzon.uml @@ -1,42 +1,42 @@ -#include "ba3200.h" - -PAGE "Stampa Zone" -1 -1 50 8 -STRING F_INIZIO1 3 -BEGIN - PROMPT 2 1 "Da codice " - FLAGS "U" - HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" - FIELD LF_TABCOM->CODTAB - USE %ZON - INPUT CODTAB F_INIZIO1 - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_INIZIO1 CODTAB - GROUP 1 -END - -STRING F_FINE1 3 -BEGIN - PROMPT 2 3 "A codice " - FLAGS "U" - HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" - FIELD LF_TABCOM->CODTAB - COPY USE F_INIZIO1 - INPUT CODTAB F_FINE1 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" -END - -BUTTON DLG_QUIT 8 2 -BEGIN - PROMPT -22 -1 "" -END - -ENDPAGE -ENDMASK +#include "ba3200.h" + +PAGE "Stampa Zone" -1 -1 50 8 +STRING F_INIZIO1 3 +BEGIN + PROMPT 2 1 "Da codice " + FLAGS "U" + HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio" + FIELD LF_TABCOM->CODTAB + USE %ZON + INPUT CODTAB F_INIZIO1 + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_INIZIO1 CODTAB + GROUP 1 +END + +STRING F_FINE1 3 +BEGIN + PROMPT 2 3 "A codice " + FLAGS "U" + HELP "Codice di fine. Vuoto = fine archivio" + FIELD LF_TABCOM->CODTAB + COPY USE F_INIZIO1 + INPUT CODTAB F_FINE1 + COPY DISPLAY F_INIZIO1 + OUTPUT F_FINE1 CODTAB + GROUP 2 +END + +BUTTON DLG_OK 8 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 8 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK diff --git a/ba/batbasf.uml b/ba/batbasf.uml index 5ad1159f9..5abe4c304 100755 --- a/ba/batbasf.uml +++ b/ba/batbasf.uml @@ -1,54 +1,44 @@ -#include "batbasf.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Codici assoggettamento fiscale" -1 -1 78 8 - -NUMBER F_CODICE 2 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %ASF -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @50" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 50 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %ASF KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @50" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbasf.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Codici assoggettamento fiscale" -1 -1 78 8 + +NUMBER F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice di assoggettamento fiscale" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %ASF +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @50" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione dell'assoggettamento fiscale" +FIELD LF_TABCOM->S0 +KEY 2 +USE %ASF KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @50" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbcco.uml b/ba/batbcco.uml index b5c8e2e90..1b0ff35e7 100755 --- a/ba/batbcco.uml +++ b/ba/batbcco.uml @@ -1,44 +1,44 @@ -#include "batbcco.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %CCO -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %CCO KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - +#include "batbcco.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice della categoria contabile" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %CCO +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @30" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione della categoria contabile" +FIELD LF_TABCOM->S0 +KEY 2 +USE %CCO KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @30" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbcfi.uml b/ba/batbcfi.uml index 8a1b9780b..6d219c6ec 100755 --- a/ba/batbcfi.uml +++ b/ba/batbcfi.uml @@ -1,54 +1,44 @@ -#include "batbcfi.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Categorie Finanziarie" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN - PROMPT 4 2 "Codice " - FIELD CODTAB - FLAGS "U" - KEY 1 - USE %CFI - INPUT CODTAB F_CODICE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @30" S0 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN - PROMPT 4 4 "Descrizione " - FIELD LF_TABCOM->S0 - KEY 2 - USE %CFI KEY 2 - INPUT CODTAB F_CODICE - INPUT S0 F_DESCR - DISPLAY "Descrizione @30" S0 - DISPLAY "Codice" CODTAB - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbcfi.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Categorie Finanziarie" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN + PROMPT 4 2 "Codice " + HELP "Codice della categoria finanziaria" + FIELD CODTAB + FLAGS "U" + KEY 1 + USE %CFI + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN + PROMPT 4 4 "Descrizione " + HELP "Descrizione della categoria fiinanziaria" + FIELD LF_TABCOM->S0 + KEY 2 + USE %CFI KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbcrs.uml b/ba/batbcrs.uml index 82462238d..b918347f9 100755 --- a/ba/batbcrs.uml +++ b/ba/batbcrs.uml @@ -1,50 +1,50 @@ -#include "batbcrs.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Cariche sociali" -1 -1 78 7 - -STRING FLD_TABCRS_CODTAB 2 -BEGIN - PROMPT 3 1 "Codice " - FIELD LF_TABCOM->CODTAB - KEY 1 - USE %CRS - INPUT CODTAB FLD_TABCRS_CODTAB - DISPLAY "Codice" CODTAB - DISPLAY "Carica@25" S0 - OUTPUT FLD_TABCRS_CODTAB CODTAB - OUTPUT FLD_TABCRS_S0 S0 - HELP "Inserire il codice della carica sociale" - CHECKTYPE REQUIRED -END - -STRING FLD_TABCRS_S0 25 -BEGIN - PROMPT 3 3 "Carica " - FIELD LF_TABCOM->S0 - KEY 2 - USE %CRS KEY 2 - INPUT S0 FLD_TABCRS_S0 - DISPLAY "Carica@25" S0 - DISPLAY "Codice" CODTAB - OUTPUT FLD_TABCRS_CODTAB CODTAB - OUTPUT FLD_TABCRS_S0 S0 - HELP "Inserire la descrizione della carica sociale" - CHECKTYPE REQUIRED -END - -BOOLEAN CHK_TABCRS_S6 -BEGIN - PROMPT 3 5 "Stampa modulo RAD" - FIELD LF_TABCOM->S6 - HELP "Indicare se la carica viene stampata su modulo RAD" -END - -ENDPAGE - -ENDMASK +#include "batbcrs.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Cariche sociali" -1 -1 78 7 + +STRING FLD_TABCRS_CODTAB 2 +BEGIN + PROMPT 3 1 "Codice " + HELP "Codice della carica sociale" + FIELD LF_TABCOM->CODTAB + KEY 1 + USE %CRS + INPUT CODTAB FLD_TABCRS_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Carica@25" S0 + OUTPUT FLD_TABCRS_CODTAB CODTAB + OUTPUT FLD_TABCRS_S0 S0 + CHECKTYPE REQUIRED +END + +STRING FLD_TABCRS_S0 25 +BEGIN + PROMPT 3 3 "Carica " + FIELD LF_TABCOM->S0 + KEY 2 + USE %CRS KEY 2 + INPUT S0 FLD_TABCRS_S0 + DISPLAY "Carica@25" S0 + DISPLAY "Codice" CODTAB + OUTPUT FLD_TABCRS_CODTAB CODTAB + OUTPUT FLD_TABCRS_S0 S0 + HELP "Descrizione della carica sociale" + CHECKTYPE REQUIRED +END + +BOOLEAN CHK_TABCRS_S6 +BEGIN + PROMPT 3 5 "Stampa modulo RAD" + FIELD LF_TABCOM->S6 + HELP "Indicare se la carica viene stampata su modulo RAD" +END + +ENDPAGE + +ENDMASK diff --git a/ba/batbcve.uml b/ba/batbcve.uml index aa22ff6e8..eb6b89b63 100755 --- a/ba/batbcve.uml +++ b/ba/batbcve.uml @@ -1,74 +1,77 @@ -batbude "batbcve.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Categorie di vendita " -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN - PROMPT 4 2 "Codice " - FIELD CODTAB - FLAGS "U" - KEY 1 - USE %CVE - INPUT CODTAB F_CODICE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @30" S0 - DISPLAY "Provvigione" R0 - DISPLAY "Gruppo" I1 - DISPLAY "Conto" I2 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - OUTPUT F_PROVV R0 - OUTPUT F_GRUPPO I1 - OUTPUT F_CONTO I2 - CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN - PROMPT 4 4 "Descrizione " - FIELD LF_TABCOM->S0 - KEY 2 - USE %CVE KEY 2 - INPUT CODTAB F_CODICE - INPUT S0 F_DESCR - DISPLAY "Descrizione @30" S0 - DISPLAY "Codice" CODTAB - DISPLAY "Provvigione" R0 - DISPLAY "Gruppo" I1 - DISPLAY "Conto" I2 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - OUTPUT F_PROVV R0 - OUTPUT F_GRUPPO I1 - OUTPUT F_CONTO I2 - CHECKTYPE REQUIRED -END - -NUMBER F_PROVV 5 2 -BEGIN - PROMPT 4 6 "Provvigione " - FIELD LF_TABCOM->R0 -END - -NUMBER F_GRUPPO 2 -BEGIN - PROMPT 30 6 "Gruppo " - FIELD LF_TABCOM->I1 -END - -NUMBER F_CONTO 2 -BEGIN - PROMPT 43 6 "Conto " - FIELD LF_TABCOM->I2 -END - -ENDPAGE -ENDMASK - - +#include "batbcve.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Categorie di vendita " -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN + PROMPT 4 2 "Codice " + HELP "Codice della categoria di vendita" + FIELD CODTAB + FLAGS "U" + KEY 1 + USE %CVE + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 + DISPLAY "Provvigione" R0 + DISPLAY "Gruppo" I1 + DISPLAY "Conto" I2 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + OUTPUT F_PROVV R0 + OUTPUT F_GRUPPO I1 + OUTPUT F_CONTO I2 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN + PROMPT 4 4 "Descrizione " + HELP "Descrizione della categoria di vendita" + FIELD LF_TABCOM->S0 + KEY 2 + USE %CVE KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB + DISPLAY "Provvigione" R0 + DISPLAY "Gruppo" I1 + DISPLAY "Conto" I2 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + OUTPUT F_PROVV R0 + OUTPUT F_GRUPPO I1 + OUTPUT F_CONTO I2 + CHECKTYPE REQUIRED +END + +NUMBER F_PROVV 5 2 +BEGIN + PROMPT 4 6 "Provvigione " + HELP "Percentuale di provvigione della categoria" + FIELD LF_TABCOM->R0 +END + +NUMBER F_GRUPPO 2 +BEGIN + PROMPT 30 6 "Gruppo " + HELP "Gurppo del piano dei conti della categoria" + FIELD LF_TABCOM->I1 +END + +NUMBER F_CONTO 2 +BEGIN + PROMPT 43 6 "Conto " + HELP "Conto del piano dei conti della categoria" + FIELD LF_TABCOM->I2 +END + +ENDPAGE +ENDMASK diff --git a/ba/batbesc.uml b/ba/batbesc.uml index c8d29ea8d..17f28c0ef 100755 --- a/ba/batbesc.uml +++ b/ba/batbesc.uml @@ -11,6 +11,7 @@ PAGE "Esercizio contabili" -1 -1 78 16 NUMBER F_CODDITTA 5 BEGIN PROMPT 4 1 "Ditta " + HELP "Codice della ditta a cui assegnare l'esercizio" FLAGS "FRD" USE LF_NDITTE INPUT CODDITTA F_CODDITTA @@ -30,6 +31,7 @@ END NUMBER F_ANNO 4 BEGIN PROMPT 4 5 "Anno esercizio " + HELP "Anno d'esercizio da asssegnare" FLAGS "ZR" FIELD LF_TAB->CODTAB KEY 1 @@ -45,6 +47,7 @@ END DATE F_DATAINI BEGIN PROMPT 4 7 "Data inizio esercizio " + HELP "Data di inizio dell'esercizio" FIELD LF_TAB->D0 CHECKTYPE REQUIRED WARNING "La data di inizio esercizio e' obbligatoria" @@ -53,6 +56,7 @@ END DATE F_DATAFIN BEGIN PROMPT 4 9 "Data fine esercizio " + HELP "Data di fine dell'esercizio" FIELD LF_TAB->D1 CHECKTYPE REQUIRED VALIDATE DATE_CMP_FUNC >= F_DATAINI @@ -62,6 +66,7 @@ END DATE F_DATASCARICO BEGIN PROMPT 4 11 "Data di scarico " + HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto" FIELD LF_TAB->D2 END diff --git a/ba/batbleg.uml b/ba/batbleg.uml index 5041e61c2..bcf4d3783 100755 --- a/ba/batbleg.uml +++ b/ba/batbleg.uml @@ -1,54 +1,44 @@ -#include "batbleg.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Codici Legali" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %LEG -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %LEG KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbleg.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Codici Legali" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice di riconoscimento codici legali" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %LEG +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @30" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione del codice legale" +FIELD LF_TABCOM->S0 +KEY 2 +USE %LEG KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @30" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batblis.uml b/ba/batblis.uml index dfb826ba9..6a0757713 100755 --- a/ba/batblis.uml +++ b/ba/batblis.uml @@ -1,54 +1,44 @@ -#include "batblis.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Codici Listino" -1 -1 78 8 - -STRING F_CODICE 5 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %LIS -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @50" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 50 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %LIS KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @50" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batblis.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Codici Listino" -1 -1 78 8 + +STRING F_CODICE 5 +BEGIN +PROMPT 4 2 "Codice " +Help "Codice listino" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %LIS +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @50" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione listino" +FIELD LF_TABCOM->S0 +KEY 2 +USE %LIS KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @50" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbmsp.uml b/ba/batbmsp.uml index 00871a9ea..44649a058 100755 --- a/ba/batbmsp.uml +++ b/ba/batbmsp.uml @@ -1,54 +1,44 @@ -#include "batbmsp.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Modalita' di Spedizione" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %MSP -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %MSP KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbmsp.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Modalita' di Spedizione" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice della modalit… di spedizione" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %MSP +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @30" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione della modalit… di spedizione" +FIELD LF_TABCOM->S0 +KEY 2 +USE %MSP KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @30" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbndo.uml b/ba/batbndo.uml index 345a2c50c..2b56c60d7 100755 --- a/ba/batbndo.uml +++ b/ba/batbndo.uml @@ -1,54 +1,44 @@ -#include "batbndo.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Note Documento" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN - PROMPT 4 2 "Codice " - FIELD CODTAB - FLAGS "U" - KEY 1 - USE %NDO - INPUT CODTAB F_CODICE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @30" S0 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN - PROMPT 4 4 "Descrizione " - FIELD LF_TABCOM->S0 - KEY 2 - USE %NDO KEY 2 - INPUT CODTAB F_CODICE - INPUT S0 F_DESCR - DISPLAY "Descrizione @30" S0 - DISPLAY "Codice" CODTAB - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbndo.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Note Documento" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN + PROMPT 4 2 "Codice " + HELP "Codice note documento" + FIELD CODTAB + FLAGS "U" + KEY 1 + USE %NDO + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN + PROMPT 4 4 "Descrizione " + HELP "Descrizione nota documento" + FIELD LF_TABCOM->S0 + KEY 2 + USE %NDO KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbnot.uml b/ba/batbnot.uml index 4a19dbb00..e78163da4 100755 --- a/ba/batbnot.uml +++ b/ba/batbnot.uml @@ -1,61 +1,52 @@ -#include "batbnot.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Codici Note Cliente" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %NOT -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Destinazione@30" S0 -DISPLAY "Blocca immobili" B0 -DISPLAY "Documento" B1 -OUTPUT F_CODICE CODTAB -OUTPUT F_DEST S0 -OUTPUT F_BLOCCA B0 -OUTPUT F_DOCUM B1 -CHECKTYPE REQUIRED -END - -STRING F_DEST 30 -BEGIN -PROMPT 4 4 "Destinazione " -FIELD LF_TABCOM->S0 -END - -BOOLEAN F_BLOCCA -BEGIN -PROMPT 4 6 "Blocca immissione " -FIELD LF_TABCOM->B0 -END - -BOOLEAN F_DOCUM -BEGIN -PROMPT 4 8 "Documento " -FIELD LF_TABCOM->B1 -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbnot.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Codici Note Cliente" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice note del cliente" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %NOT +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Destinazione@30" S0 +DISPLAY "Blocca immobili" B0 +DISPLAY "Documento" B1 +OUTPUT F_CODICE CODTAB +OUTPUT F_DEST S0 +OUTPUT F_BLOCCA B0 +OUTPUT F_DOCUM B1 +CHECKTYPE REQUIRED +END + +STRING F_DEST 30 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione della nota del cliente" +FIELD LF_TABCOM->S0 +END + +BOOLEAN F_BLOCCA +BEGIN +PROMPT 4 6 "Blocca immissione " +HELP "Indicare se bloccare l'inserimento del documento" +FIELD LF_TABCOM->B0 +END + +BOOLEAN F_DOCUM +BEGIN +PROMPT 4 8 "Documento " +FIELD LF_TABCOM->B1 +END + +ENDPAGE +ENDMASK diff --git a/ba/batbois.uml b/ba/batbois.uml index dcb68e266..2b87f950a 100755 --- a/ba/batbois.uml +++ b/ba/batbois.uml @@ -1,56 +1,57 @@ -#include "batbois.h" - -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "Vecchi codici attivita'" -1 -1 78 7 - -STRING FLD_TABOIS_CODTAB 4 -BEGIN - PROMPT 2 1 "Codice " - FIELD %OIS->CODTAB[1,4] - HELP "Inserire il codice del vecchio codice attivit…" - USE %OIS - CHECKTYPE REQUIRED - INPUT CODTAB[1,4] FLD_TABOIS_CODTAB - INPUT CODTAB[5,] FLD_TABOIS_ADD - DISPLAY "Codice" CODTAB[1,4] - DISPLAY "Subcodice" CODTAB[5,] - DISPLAY "Descrizione@40" S0 - OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] - OUTPUT FLD_TABOIS_ADD CODTAB[5,] - OUTPUT FLD_TABOIS_S0 S0 - KEY 1 - FLAGS "RZ" -END - -STRING FLD_TABOIS_ADD 1 -BEGIN - PROMPT 22 1 "Subcodice " - FIELD %OIS->CODTAB[5,] - COPY ALL FLD_TABOIS_CODTAB - CHECKTYPE REQUIRED - KEY 1 - FLAGS "U" -END - -STRING FLD_TABOIS_S0 40 -BEGIN - PROMPT 2 3 "Descrizione " - FIELD %OIS->S0 - HELP "Inserire la descrizione del vecchio codice attivit… " - USE %OIS KEY 2 - CHECKTYPE REQUIRED - INPUT S0 FLD_TABOIS_S0 - DISPLAY "Descrizione@40" S0 - DISPLAY "Codice" CODTAB[1,4] - DISPLAY "Subcodice" CODTAB[5,] - OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] - OUTPUT FLD_TABOIS_ADD CODTAB[5,] - OUTPUT FLD_TABOIS_S0 S0 - KEY 2 -END - -ENDPAGE -ENDMASK +#include "batbois.h" + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Vecchi codici attivita'" -1 -1 78 7 + +STRING FLD_TABOIS_CODTAB 4 +BEGIN + PROMPT 2 1 "Codice " + FIELD %OIS->CODTAB[1,4] + HELP "Codice del vecchio codice attivit…" + USE %OIS + CHECKTYPE REQUIRED + INPUT CODTAB[1,4] FLD_TABOIS_CODTAB + INPUT CODTAB[5,] FLD_TABOIS_ADD + DISPLAY "Codice" CODTAB[1,4] + DISPLAY "Subcodice" CODTAB[5,] + DISPLAY "Descrizione@40" S0 + OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] + OUTPUT FLD_TABOIS_ADD CODTAB[5,] + OUTPUT FLD_TABOIS_S0 S0 + KEY 1 + FLAGS "RZ" +END + +STRING FLD_TABOIS_ADD 1 +BEGIN + PROMPT 22 1 "Subcodice " + HELP "Subcodice del vecchio codice attivit…" + FIELD %OIS->CODTAB[5,] + COPY ALL FLD_TABOIS_CODTAB + CHECKTYPE REQUIRED + KEY 1 + FLAGS "U" +END + +STRING FLD_TABOIS_S0 40 +BEGIN + PROMPT 2 3 "Descrizione " + FIELD %OIS->S0 + HELP "Descrizione del vecchio codice attivit… " + USE %OIS KEY 2 + CHECKTYPE REQUIRED + INPUT S0 FLD_TABOIS_S0 + DISPLAY "Descrizione@40" S0 + DISPLAY "Codice" CODTAB[1,4] + DISPLAY "Subcodice" CODTAB[5,] + OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] + OUTPUT FLD_TABOIS_ADD CODTAB[5,] + OUTPUT FLD_TABOIS_S0 S0 + KEY 2 +END + +ENDPAGE +ENDMASK diff --git a/ba/batbpor.uml b/ba/batbpor.uml index 91a9b6511..02c0990ba 100755 --- a/ba/batbpor.uml +++ b/ba/batbpor.uml @@ -1,54 +1,44 @@ -#include "batbpor.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Modalita' di consegna" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN - PROMPT 4 2 "Codice " - FIELD CODTAB - FLAGS "U" - KEY 1 - USE %POR - INPUT CODTAB F_CODICE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione @30" S0 - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN - PROMPT 4 4 "Descrizione " - FIELD LF_TABCOM->S0 - KEY 2 - USE %POR KEY 2 - INPUT CODTAB F_CODICE - INPUT S0 F_DESCR - DISPLAY "Descrizione @30" S0 - DISPLAY "Codice" CODTAB - OUTPUT F_CODICE CODTAB - OUTPUT F_DESCR S0 - CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbpor.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Modalita' di consegna" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN + PROMPT 4 2 "Codice " + HELP "Codice della modalit… di consegna" + FIELD CODTAB + FLAGS "U" + KEY 1 + USE %POR + INPUT CODTAB F_CODICE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione @30" S0 + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN + PROMPT 4 4 "Descrizione " + HELP "Descrizione della modalit… di consegna" + FIELD LF_TABCOM->S0 + KEY 2 + USE %POR KEY 2 + INPUT CODTAB F_CODICE + INPUT S0 F_DESCR + DISPLAY "Descrizione @30" S0 + DISPLAY "Codice" CODTAB + OUTPUT F_CODICE CODTAB + OUTPUT F_DESCR S0 + CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbreg.uml b/ba/batbreg.uml index 98f2dce10..8ec2ddbbd 100755 --- a/ba/batbreg.uml +++ b/ba/batbreg.uml @@ -21,6 +21,7 @@ END NUMBER F_ANNO 4 BEGIN PROMPT 4 1 "Anno " + HELP "Anno a cui fa riferimento il registro" FIELD CODTAB[1,4] FLAGS "AZ" KEY 1 @@ -41,6 +42,7 @@ END STRING F_CODICE 3 BEGIN PROMPT 4 2 "Codice registro " + Help "Codice del registro" FIELD CODTAB[5,7] FLAGS "U" KEY 1 @@ -52,6 +54,7 @@ END STRING F_DESCR 50 BEGIN PROMPT 4 3 "Descrizione " + HELP "Descrizione del registro" FIELD S0 KEY 2 GROUP 1 @@ -79,12 +82,13 @@ BEGIN OUTPUT F_DESCR S0 OUTPUT F_CODLIB CODTAB CHECHTYPE NORMAL - HELP "Inserire il codice del libro" + HELP "Codice del libro sociale a cui fa riferimento il registro" END LIST F_TIPO 26 BEGIN PROMPT 29 5 "Tipo " + HELP "Tipo di regitro" FIELD I0 FLAGS "G" GROUP 1 GR_MODIFY_PROTECTED @@ -111,6 +115,7 @@ END STRING F_CONSPRESSO 40 BEGIN PROMPT 4 7 "Conservato presso " + HELP "Luogo dove verra' conservato il registro" FIELD S1 GROUP 1 END @@ -148,7 +153,7 @@ BEGIN DISPLAY "Indirizzo@35" INDULC DISPLAY "N.ro civico@35" CIVULC OUTPUT F_CODULC CODULC - HELP "Inserire il codice dell'unita' locale" + HELP "Codice dell'unita' locale della ditta" WARNING "Unita' locale non prevista per questa ditta" CHECKTYPE NORMAL END @@ -156,6 +161,7 @@ END NUMBER F_PAGSTAMP 5 BEGIN PROMPT 4 11 "Pagine stampate " + HELP "Numero di pagine gia' stampate" FIELD I1 FLAGS "R" GROUP 1 @@ -164,6 +170,7 @@ END NUMBER F_PAGNUM 5 BEGIN PROMPT 35 11 "Pagine numerate " + HELP "numero di pagine di cui e' stata stampata la numerazione" FIELD I2 FLAGS "R" GROUP 1 @@ -172,6 +179,7 @@ END DATE F_DATAVID BEGIN PROMPT 4 13 "Data vidimazione " + HELP "Data di vidimazione del registro" FIELD D0 GROUP 1 END @@ -179,6 +187,7 @@ END DATE F_DATASCAD BEGIN PROMPT 35 13 "Data scadenza " + HELP "Data fino a cui rimane in vigore il registro" FIELD D1 GROUP 1 END @@ -186,6 +195,7 @@ END STRING F_CODLBU 3 BEGIN PROMPT 4 15 "Cod. libro unico " + HELP "Codice del libro unico a cui fa riferimento" GROUP 2 3 4 FIELD S6 USE %LBU @@ -215,6 +225,7 @@ END LIST F_FREQUENZA_STAMPA 1 16 BEGIN PROMPT 2 2 "Stampa reg.riepilogativo " + HELP "Intervallo per fare il riepilogo" FIELD S9 GROUP 4 ITEM "M|Mensile" @@ -224,6 +235,7 @@ END BOOLEAN F_VENTIL BEGIN PROMPT 2 2 "Attivita' con ventilazione" + HELP "Indicare se vengono registrate operazioni con ventilazione IVA" FIELD B3 GROUP 3 END @@ -231,6 +243,7 @@ END BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO BEGIN PROMPT 2 2 "Stampa sullo stesso registro" + HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro" FIELD B8 GROUP 6 END @@ -246,6 +259,7 @@ END BOOLEAN F_STAMPA_CREDITO_ANNO_PREC BEGIN PROMPT 46 4 "Stampa credito anno precedente" + HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente" FIELD B4 GROUP 3 END @@ -253,6 +267,7 @@ END BOOLEAN F_CORRISP BEGIN PROMPT 46 4 "Registro corrispettivi" + HELP "Indicare se si tratta di registro dei corrispettivi" FIELD B0 GROUP 2 END @@ -260,6 +275,7 @@ END LIST F_TIPO_DESC_COSTI_RICAVI 1 10 BEGIN PROMPT 2 4 "Tipo descrizione costi/ricavi " + HELP "Livello a cui stampare la descrizione costi/ricavi" FIELD I3 GROUP 5 ITEM "1|Gruppo" @@ -270,6 +286,7 @@ NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7 BEGIN PROMPT 44 4 "Ultimo numero riga stamp." FIELD I6 + HELP"Ultimo numero della riga stampata" FLAGS "R" GROUP 5 6 END @@ -277,6 +294,7 @@ END BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI BEGIN PROMPT 2 6 "Stampa indirizzi completi" + HELP "Indicare se stampare gli indirizzi completi" FIELD B5 GROUP 2 3 END @@ -284,6 +302,7 @@ END NUMBER F_PROG_DARE 15 BEGIN PROMPT 2 6 "Progressivo dare " + HELP "Progressivo dare del giornale" FIELD R1 PICTURE "." FLAGS "R" @@ -293,6 +312,7 @@ END NUMBER F_TOT_INCASSI 15 BEGIN PROMPT 2 6 "Totale incassi " + HELP "Progressivo degli incassi effettuati" FIELD R0 FLAGS "R" PICTURE "." @@ -304,7 +324,7 @@ BEGIN PROMPT 46 6 "Stampa riepilogo liquidazione" FIELD B6 GROUP 2 3 - HELP "Stampa riepilogo IVA delle aliquote utilizzate" + HELP "Indicare se stampare il riepilogo IVA delle aliquote utilizzate" MESSAGE FALSE ENABLE,F_STAMPA_LIQUIDAZIONE MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE END @@ -312,6 +332,7 @@ END NUMBER F_TOT_PAGAMENTI 15 BEGIN PROMPT 42 6 "Totale pagamenti " + HELP "Progressivo dei pagamenti effettuati" FIELD R1 FLAGS "R" PICTURE "." @@ -323,12 +344,13 @@ BEGIN PROMPT 2 8 "Stampa liquidazione" FIELD B7 GROUP 2 3 4 - HELP "Stampa a fine periodo la liquidazione" + HELP "Indicare se stampare a fine periodo la liquidazione" END NUMBER F_PROG_AVERE 15 BEGIN PROMPT 2 8 "Progressivo avere " + HELP "Progressivo avere del giornale" FIELD R2 FLAGS "R" PICTURE "." @@ -338,6 +360,7 @@ END LIST F_MESE_STAMPA_ULTIMA_LIQ 10 BEGIN PROMPT 2 10 "Mese stampa ultima liquidazione " + HELP "Mese in cui Š stat stampata l'ultima liquidazione" FIELD I4 FLAGS "M" ITEM "13|Annuale" @@ -350,12 +373,13 @@ BEGIN FIELD I5 FLAGS "R" GROUP 2 3 - HELP "Inserire ultimo numero di protocollo" + HELP "Ultimo numero di protocollo" END BOOLEAN F_STAMPA_INTESTAZIONE BEGIN PROMPT 46 12 "Stampa intestazione ditta" + HELP "Indicare se stampare l'intestazione della ditta" FIELD B9 GROUP 1 END @@ -363,6 +387,7 @@ END DATE F_ULTIMA_DATA_DI_REGISTR BEGIN PROMPT 2 14 "Ultima data di registrazione " + HELP "Date dell'ultima registrazione stampata" FIELD D2 GROUP 2 3 5 6 END @@ -370,13 +395,10 @@ END DATE F_ULTIMA_DATA_DI_STAMPA BEGIN PROMPT 2 16 "Ultima data di stampa " + HELP "Data dell'ultima stampa effettuata" FIELD D3 END ENDPAGE ENDMASK - - - - diff --git a/ba/batbsad.uml b/ba/batbsad.uml index 25a4f14e6..1299f5485 100755 --- a/ba/batbsad.uml +++ b/ba/batbsad.uml @@ -1,54 +1,44 @@ -#include "batbsad.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Spese da addebitare" -1 -1 78 8 - -STRING F_CODICE 3 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %SAD -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @20" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 20 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %SAD KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @20" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbsad.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Spese da addebitare" -1 -1 78 8 + +STRING F_CODICE 3 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice delle spese da addebitare" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %SAD +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @20" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 20 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione delle spese da addebitare" +FIELD LF_TABCOM->S0 +KEY 2 +USE %SAD KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @20" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbsco.uml b/ba/batbsco.uml index de7b84256..372e0c1ef 100755 --- a/ba/batbsco.uml +++ b/ba/batbsco.uml @@ -1,44 +1,44 @@ -#include "batbsco.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Sconti Incondizionati" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %SCO -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @50" S0 -DISPLAY "Percentuale " R0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -OUTPUT F_PERC R0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 50 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -END - -NUMBER F_PERC 5 2 -BEGIN -PROMPT 4 6 "Percentuale " -FIELD LF_TABCOM->R0 -END - -ENDPAGE -ENDMASK - - - +#include "batbsco.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Sconti Incondizionati" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice sconto incondizionato" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %SCO +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @50" S0 +DISPLAY "Percentuale " R0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +OUTPUT F_PERC R0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 50 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione sconto incondizionato" +FIELD LF_TABCOM->S0 +END + +NUMBER F_PERC 5 2 +BEGIN +PROMPT 4 6 "Percentuale " +HELP "Percentuale sconto incondizionato" +FIELD LF_TABCOM->R0 +END + +ENDPAGE +ENDMASK diff --git a/ba/batbsta.uml b/ba/batbsta.uml index eb6a8cbb6..0fcee39c3 100755 --- a/ba/batbsta.uml +++ b/ba/batbsta.uml @@ -1,92 +1,92 @@ -#include "batbsta.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Stati esteri" -1 -1 78 13 - -STRING FLD_TABSTA_CODTAB 3 -BEGIN - PROMPT 3 1 "Codice " - FIELD %STA->CODTAB - FLAGS "RZ" - KEY 1 - USE %STA - INPUT CODTAB FLD_TABSTA_CODTAB - DISPLAY "Codice" CODTAB - DISPLAY "Denominazione@50" S0 - OUTPUT FLD_TABSTA_CODTAB CODTAB - OUTPUT FLD_TABSTA_S0 S0 - HELP "Inserire il codice dello stato" - CHECKTYPE REQUIRED -END - -STRING FLD_TABSTA_S0 50 -BEGIN - PROMPT 3 3 "Denominazione " - FIELD %STA->S0 - KEY 2 - USE %STA KEY 2 - INPUT S0 FLD_TABSTA_S0 - DISPLAY "Denominazione@50" S0 - DISPLAY "Codice" CODTAB - OUTPUT FLD_TABSTA_CODTAB CODTAB - OUTPUT FLD_TABSTA_S0 S0 - HELP "Inserire il nome dello stato" - CHECKTYPE REQUIRED -END - -LIST CHK_TABSTA_S6 18 -BEGIN - PROMPT 3 5 "Stato CEE " - FIELD %STA->S6 - HELP "Indicare il codice ISO dello stato" - ITEM " |Italia o extra CEE" - ITEM "BE|Belgio" - ITEM "DE|Germania" - ITEM "DK|Danimarca" - ITEM "EL|Grecia" - ITEM "ES|Spagna" - ITEM "FR|Francia" - ITEM "GB|Gran Bretagna" - ITEM "IE|Irlanda" - ITEM "IT|Italia" - ITEM "LU|Lussemburgo" - ITEM "NL|Olanda" - ITEM "PT|Portogallo" -END - -STRING FLD_TABSTA_S7 3 -BEGIN - PROMPT 3 7 "Valuta " - FIELD %STA->S7 - FLAGS "U" - USE %VAL - CHECKTYPE NORMAL - INPUT CODTAB FLD_TABSTA_S7 - DISPLAY "Codice" CODTAB - DISPLAY "Valuta " S0 - OUTPUT FLD_TABSTA_S7 CODTAB - OUTPUT FLD_TABSTA_S7_TABVAL_S0 S0 - HELP "Inserire la valuta corrente dello stato" -END - -STRING FLD_TABSTA_S7_TABVAL_S0 50 -BEGIN - PROMPT 17 8 "" - FLAGS "D" -END - -STRING FLD_TABSTA_S2 10 -BEGIN - PROMPT 3 10 "Nazionalit… " - FIELD %STA->S2 - HELP "Inserire la nazionalit… corrispondente a questo stato" -END - -ENDPAGE - -ENDMASK +#include "batbsta.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Stati esteri" -1 -1 78 13 + +STRING FLD_TABSTA_CODTAB 3 +BEGIN + PROMPT 3 1 "Codice " + FIELD %STA->CODTAB + FLAGS "RZ" + KEY 1 + USE %STA + INPUT CODTAB FLD_TABSTA_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Denominazione@50" S0 + OUTPUT FLD_TABSTA_CODTAB CODTAB + OUTPUT FLD_TABSTA_S0 S0 + HELP "Codice dello stato" + CHECKTYPE REQUIRED +END + +STRING FLD_TABSTA_S0 50 +BEGIN + PROMPT 3 3 "Denominazione " + FIELD %STA->S0 + KEY 2 + USE %STA KEY 2 + INPUT S0 FLD_TABSTA_S0 + DISPLAY "Denominazione@50" S0 + DISPLAY "Codice" CODTAB + OUTPUT FLD_TABSTA_CODTAB CODTAB + OUTPUT FLD_TABSTA_S0 S0 + HELP "Nome dello stato" + CHECKTYPE REQUIRED +END + +LIST CHK_TABSTA_S6 18 +BEGIN + PROMPT 3 5 "Stato CEE " + FIELD %STA->S6 + HELP "Indicare il codice ISO dello stato" + ITEM " |Italia o extra CEE" + ITEM "BE|Belgio" + ITEM "DE|Germania" + ITEM "DK|Danimarca" + ITEM "EL|Grecia" + ITEM "ES|Spagna" + ITEM "FR|Francia" + ITEM "GB|Gran Bretagna" + ITEM "IE|Irlanda" + ITEM "IT|Italia" + ITEM "LU|Lussemburgo" + ITEM "NL|Olanda" + ITEM "PT|Portogallo" +END + +STRING FLD_TABSTA_S7 3 +BEGIN + PROMPT 3 7 "Valuta " + FIELD %STA->S7 + FLAGS "U" + USE %VAL + CHECKTYPE NORMAL + INPUT CODTAB FLD_TABSTA_S7 + DISPLAY "Codice" CODTAB + DISPLAY "Valuta " S0 + OUTPUT FLD_TABSTA_S7 CODTAB + OUTPUT FLD_TABSTA_S7_TABVAL_S0 S0 + HELP "Valuta corrente dello stato" +END + +STRING FLD_TABSTA_S7_TABVAL_S0 50 +BEGIN + PROMPT 17 8 "" + FLAGS "D" +END + +STRING FLD_TABSTA_S2 10 +BEGIN + PROMPT 3 10 "Nazionalit… " + FIELD %STA->S2 + HELP "Nazionalit… corrispondente a questo stato" +END + +ENDPAGE + +ENDMASK diff --git a/ba/batbstt.uml b/ba/batbstt.uml index f7848526e..4e1914d67 100755 --- a/ba/batbstt.uml +++ b/ba/batbstt.uml @@ -1,45 +1,40 @@ -#include "batbstt.h" - -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "Codici statistici" -1 -1 78 7 - -STRING FLD_TABSTT_CODTAB 7 -BEGIN - PROMPT 2 1 "Codice " - FIELD %STT->CODTAB - HELP "Inserire il codice statistico" - USE %STT - CHECKTYPE REQUIRED - INPUT CODTAB FLD_TABSTT_CODTAB - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@40" S0 - OUTPUT FLD_TABSTT_CODTAB CODTAB - OUTPUT FLD_TABSTT_S0 S0 - KEY 1 -END - -STRING FLD_TABSTT_S0 40 -BEGIN - PROMPT 2 3 "Descrizione " - FIELD %STT->S0 - HELP "Inserire la descrizione della statistica" - USE %STT KEY 2 - CHECKTYPE REQUIRED - INPUT S0 FLD_TABSTT_S0 - DISPLAY "Descrizione@40" S0 - DISPLAY "Codice" CODTAB - OUTPUT FLD_TABSTT_CODTAB CODTAB - OUTPUT FLD_TABSTT_S0 S0 - KEY 2 -END - -ENDPAGE -ENDMASK - - - - - +#include "batbstt.h" + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Codici statistici" -1 -1 78 7 + +STRING FLD_TABSTT_CODTAB 7 +BEGIN + PROMPT 2 1 "Codice " + FIELD %STT->CODTAB + HELP "Codice statistico" + USE %STT + CHECKTYPE REQUIRED + INPUT CODTAB FLD_TABSTT_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@40" S0 + OUTPUT FLD_TABSTT_CODTAB CODTAB + OUTPUT FLD_TABSTT_S0 S0 + KEY 1 +END + +STRING FLD_TABSTT_S0 40 +BEGIN + PROMPT 2 3 "Descrizione " + FIELD %STT->S0 + HELP "Descrizione del codice statistico" + USE %STT KEY 2 + CHECKTYPE REQUIRED + INPUT S0 FLD_TABSTT_S0 + DISPLAY "Descrizione@40" S0 + DISPLAY "Codice" CODTAB + OUTPUT FLD_TABSTT_CODTAB CODTAB + OUTPUT FLD_TABSTT_S0 S0 + KEY 2 +END + +ENDPAGE +ENDMASK diff --git a/ba/batbtit.uml b/ba/batbtit.uml index 4edf37fd8..797328475 100755 --- a/ba/batbtit.uml +++ b/ba/batbtit.uml @@ -1,54 +1,44 @@ -#include "batbtit.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Titoli Onorifici" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %TIT -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %TIT KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbtit.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Titoli Onorifici" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice titolo onorifico" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %TIT +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @30" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione titolo onorifico" +FIELD LF_TABCOM->S0 +KEY 2 +USE %TIT KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @30" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK diff --git a/ba/batbues.uml b/ba/batbues.uml index f2f0b9d58..887f2be87 100755 --- a/ba/batbues.uml +++ b/ba/batbues.uml @@ -1,101 +1,101 @@ -#include "batbues.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Uffici esattoria" -1 -1 78 18 - -NUMBER FLD_TABUES_CODTAB 3 -BEGIN - PROMPT 3 1 "Codice " - FIELD %UES->CODTAB - FLAGS "RZ" - KEY 1 - USE %UES - INPUT CODTAB FLD_TABUES_CODTAB - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@25" S0 - OUTPUT FLD_TABUES_CODTAB CODTAB - OUTPUT FLD_TABUES_S0 S0 - HELP "Inserire il codice dell'ufficio esattoria" - CHECKTYPE REQUIRED -END - -STRING FLD_TABUES_S0 25 -BEGIN - PROMPT 3 3 "Ufficio " - FIELD %UES->S0 - KEY 2 - USE %UES KEY 2 - INPUT S0 FLD_TABUES_S0 - DISPLAY "Descrizione@25" S0 - DISPLAY "Codice" CODTAB - OUTPUT FLD_TABUES_CODTAB CODTAB - OUTPUT FLD_TABUES_S0 S0 - HELP "Inserire la descrizione dell'ufficio esattoria" - CHECKTYPE REQUIRED -END - -STRING FLD_TABUES_S1 35 -BEGIN - PROMPT 3 5 "Indirizzo " - FIELD %UES->S1 - HELP "Inserire l'indirizzo della sede dell'ufficio esattoria" -END - -STRING FLD_TABUES_S3 10 -BEGIN - PROMPT 56 5 "N." - FIELD %UES->S3 - HELP "Inserire il numero civico della sede dell'ufficio esattoria" -END - -STRING FLD_TABUES_S6 4 -BEGIN - PROMPT 3 7 "Comune " - FIELD %UES->S6 - FLAGS "U" - USE LF_COMUNI - INPUT STATO "" - INPUT COM FLD_TABUES_S6 -#include - OUTPUT FLD_TABUES_S6 COM - OUTPUT FLD_TABUES_S6_COMUNI_DENCOM DENCOM - OUTPUT FLD_TABUES_S6_COMUNI_PROVCOM PROVCOM - OUTPUT FLD_TABUES_S6_COMUNI_CAPCOM CAPCOM - HELP "Inserire il codice del comune della sede dell'ufficio esattoria" - CHECKTYPE NORMAL -END - -STRING FLD_TABUES_S6_COMUNI_DENCOM 50 -BEGIN - PROMPT 3 9 "Nome " - FLAGS "D" -END - -STRING FLD_TABUES_S6_COMUNI_PROVCOM 6 -BEGIN - PROMPT 3 11 "Provincia " - FLAGS "D" -END - -STRING FLD_TABUES_S6_COMUNI_CAPCOM 5 -BEGIN - PROMPT 56 11 "CAP " - FIELD %UES->S7 - HELP "Inserire il numero civico della sede dell'ufficio esattoria" -END - -STRING FLD_TABUES_S4 10 -BEGIN - PROMPT 3 13 "C.Corr.Postale " - FIELD %UES->S4 - HELP "Inserire il numero di conto corrente postale dell'ufficio" -END - -ENDPAGE - -ENDMASK +#include "batb%ues.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Uffici esattoria" -1 -1 78 18 + +NUMBER FLD_TABUES_CODTAB 3 +BEGIN + PROMPT 3 1 "Codice " + FIELD %UES->CODTAB + FLAGS "RZ" + KEY 1 + USE %UES + INPUT CODTAB FLD_TABUES_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@25" S0 + OUTPUT FLD_TABUES_CODTAB CODTAB + OUTPUT FLD_TABUES_S0 S0 + HELP "Codice dell'ufficio esattoria" + CHECKTYPE REQUIRED +END + +STRING FLD_TABUES_S0 25 +BEGIN + PROMPT 3 3 "Ufficio " + FIELD %UES->S0 + KEY 2 + USE %UES KEY 2 + INPUT S0 FLD_TABUES_S0 + DISPLAY "Descrizione@25" S0 + DISPLAY "Codice" CODTAB + OUTPUT FLD_TABUES_CODTAB CODTAB + OUTPUT FLD_TABUES_S0 S0 + HELP "Descrizione dell'ufficio esattoria" + CHECKTYPE REQUIRED +END + +STRING FLD_TABUES_S1 35 +BEGIN + PROMPT 3 5 "Indirizzo " + FIELD %UES->S1 + HELP "Indirizzo della sede dell'ufficio esattoria" +END + +STRING FLD_TABUES_S3 10 +BEGIN + PROMPT 56 5 "N." + FIELD %UES->S3 + HELP "Numero civico della sede dell'ufficio esattoria" +END + +STRING FLD_TABUES_S6 4 +BEGIN + PROMPT 3 7 "Comune " + FIELD %UES->S6 + FLAGS "U" + USE LF_COMUNI + INPUT STATO "" + INPUT COM FLD_TABUES_S6 +#include + OUTPUT FLD_TABUES_S6 COM + OUTPUT FLD_TABUES_S6_COMUNI_DENCOM DENCOM + OUTPUT FLD_TABUES_S6_COMUNI_PROVCOM PROVCOM + OUTPUT FLD_TABUES_S6_COMUNI_CAPCOM CAPCOM + HELP "Codice del comune della sede dell'ufficio esattoria" + CHECKTYPE NORMAL +END + +STRING FLD_TABUES_S6_COMUNI_DENCOM 50 +BEGIN + PROMPT 3 9 "Nome " + FLAGS "D" +END + +STRING FLD_TABUES_S6_COMUNI_PROVCOM 6 +BEGIN + PROMPT 3 11 "Provincia " + FLAGS "D" +END + +STRING FLD_TABUES_S6_COMUNI_CAPCOM 5 +BEGIN + PROMPT 56 11 "CAP " + FIELD %UES->S7 + HELP "Numero civico della sede dell'ufficio esattoria" +END + +STRING FLD_TABUES_S4 10 +BEGIN + PROMPT 3 13 "C.Corr.Postale " + FIELD %UES->S4 + HELP "Numero di conto corrente postale dell'ufficio" +END + +ENDPAGE + +ENDMASK diff --git a/ba/batbvet.uml b/ba/batbvet.uml index 001e7c759..cfaa17aac 100755 --- a/ba/batbvet.uml +++ b/ba/batbvet.uml @@ -1,56 +1,59 @@ -#include "batbvet.h" - -TOOLBAR "" 0 20 0 2 -#include -ENDPAGE - -PAGE "Vettori" -1 -1 78 15 - -NUMBER F_CODVETT 3 -BEGIN - PROMPT 4 1 "Codice vettore " - FIELD LF_TABCOM->CODTAB - HELP "Inserire il codice del nuovo vettore" - FLAGS "RZ" - USE %VET - CHECKTYPE REQUIRED - INPUT CODTAB F_CODVETT - DISPLAY "Codice vettore" CODTAB - DISPLAY "Ragione sociale@50" S0 - OUTPUT F_CODVETT CODTAB - OUTPUT F_RAGSO S0 - KEY 1 -END - -STRING F_RAGSO 50 -BEGIN - PROMPT 4 3 "Ragione sociale " - FIELD LF_TABCOM->S0 - FLAGS "U" - USE %VET KEY 2 - CHECKTYPE REQUIRED - INPUT S0 F_RAGSO - DISPLAY "Codice vettore" CODTAB - DISPLAY "Ragione sociale@50" S0 - OUTPUT F_CODVETT CODTAB - OUTPUT F_RAGSO S0 - KEY 2 -END - -STRING F_RESI 50 -BEGIN - PROMPT 4 5 "Residenza " - FIELD LF_TABCOM->S1 - FLAGS "U" -END - -STRING F_TEL 15 -BEGIN - PROMPT 4 7 "Telefono " - FIELD LF_TABCOM->S2 - FLAGS "U" -END - -ENDPAGE - -ENDMASK +#include "batbvet.h" + +TOOLBAR "" 0 20 0 2 +#include +ENDPAGE + +PAGE "Vettori" -1 -1 78 15 + +NUMBER F_CODVETT 3 +BEGIN + PROMPT 4 1 "Codice vettore " + FIELD LF_TABCOM->CODTAB + HELP "Codice del vettore" + FLAGS "RZ" + USE %VET + CHECKTYPE REQUIRED + INPUT CODTAB F_CODVETT + DISPLAY "Codice vettore" CODTAB + DISPLAY "Ragione sociale@50" S0 + OUTPUT F_CODVETT CODTAB + OUTPUT F_RAGSO S0 + KEY 1 +END + +STRING F_RAGSO 50 +BEGIN + PROMPT 4 3 "Ragione sociale " + HELP "Ragione sociale del vettore" + FIELD LF_TABCOM->S0 + FLAGS "U" + USE %VET KEY 2 + CHECKTYPE REQUIRED + INPUT S0 F_RAGSO + DISPLAY "Codice vettore" CODTAB + DISPLAY "Ragione sociale@50" S0 + OUTPUT F_CODVETT CODTAB + OUTPUT F_RAGSO S0 + KEY 2 +END + +STRING F_RESI 50 +BEGIN + PROMPT 4 5 "Residenza " + HELP "Residenza del vettore" + FIELD LF_TABCOM->S1 + FLAGS "U" +END + +STRING F_TEL 15 +BEGIN + PROMPT 4 7 "Telefono " + HELP "Numero telefonico del vettore" + FIELD LF_TABCOM->S2 + FLAGS "U" +END + +ENDPAGE + +ENDMASK diff --git a/ba/batbzon.uml b/ba/batbzon.uml index 95c958a50..443514edf 100755 --- a/ba/batbzon.uml +++ b/ba/batbzon.uml @@ -1,54 +1,44 @@ -#include "batbzon.h" - -TOOLBAR "" 0 20 0 2 - -#include - -ENDPAGE - -PAGE "Tabella Codici Zona" -1 -1 78 8 - -STRING F_CODICE 2 -BEGIN -PROMPT 4 2 "Codice " -FIELD CODTAB -FLAGS "U" -KEY 1 -USE %ZON -INPUT CODTAB F_CODICE -DISPLAY "Codice" CODTAB -DISPLAY "Descrizione @30" S0 -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -STRING F_DESCR 30 -BEGIN -PROMPT 4 4 "Descrizione " -FIELD LF_TABCOM->S0 -KEY 2 -USE %ZON KEY 2 -INPUT CODTAB F_CODICE -INPUT S0 F_DESCR -DISPLAY "Descrizione @30" S0 -DISPLAY "Codice" CODTAB -OUTPUT F_CODICE CODTAB -OUTPUT F_DESCR S0 -CHECKTYPE REQUIRED -END - -ENDPAGE -ENDMASK - - - - - - - - - - - - +#include "batbzon.h" + +TOOLBAR "" 0 20 0 2 + +#include + +ENDPAGE + +PAGE "Tabella Codici Zona" -1 -1 78 8 + +STRING F_CODICE 2 +BEGIN +PROMPT 4 2 "Codice " +HELP "Codice della zona" +FIELD CODTAB +FLAGS "U" +KEY 1 +USE %ZON +INPUT CODTAB F_CODICE +DISPLAY "Codice" CODTAB +DISPLAY "Descrizione @30" S0 +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +STRING F_DESCR 30 +BEGIN +PROMPT 4 4 "Descrizione " +HELP "Descrizione della zona" +FIELD LF_TABCOM->S0 +KEY 2 +USE %ZON KEY 2 +INPUT CODTAB F_CODICE +INPUT S0 F_DESCR +DISPLAY "Descrizione @30" S0 +DISPLAY "Codice" CODTAB +OUTPUT F_CODICE CODTAB +OUTPUT F_DESCR S0 +CHECKTYPE REQUIRED +END + +ENDPAGE +ENDMASK