root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Maschere di Andrea (E' colpa sua)

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@565 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-11-08 12:46:52 +00:00
parent d226eebdf3
commit 251957f9c5
49 changed files with 2029 additions and 2097 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ba/ba3200a.uml
View File

@ -17,14 +17,14 @@ BEGIN
HELP "Inserire il codice di fine " HELP "Inserire il codice di fine "
END END
BUTTON DLG_OK BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT 45 5 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT 56 5 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE

12
ba/ba3600a.uml
View File

@ -40,13 +40,14 @@ END
DATE F_DATA_STAMPA DATE F_DATA_STAMPA
BEGIN BEGIN
PROMPT 4 9 "Data stampa " PROMPT 4 9 "Data stampa "
HELP "Data in cui viene stampato il libro unico"
FLAGS "A" FLAGS "A"
END END
STRING F_LIBRO_UNICO1 3 STRING F_LIBRO_UNICO1 3
BEGIN BEGIN
PROMPT 4 11 "Codice libro unico " PROMPT 4 11 "Codice libro unico "
HELP "E' obbligatorio inserire un codice presente nella tabella" HELP "Codice del libro da stampare"
USE %LBU USE %LBU
INPUT CODTAB[1,4] F_ANNODA INPUT CODTAB[1,4] F_ANNODA
INPUT CODTAB[5,7] F_LIBRO_UNICO1 INPUT CODTAB[5,7] F_LIBRO_UNICO1
@ -67,6 +68,7 @@ END
NUMBER F_MESEDA 2 NUMBER F_MESEDA 2
BEGIN BEGIN
PROMPT 8 14 "dal : mese " PROMPT 8 14 "dal : mese "
HELP "Primo mese di cui stampare i movimenti"
NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)} NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)}
END END
@ -79,6 +81,7 @@ END
NUMBER F_MESEA 2 NUMBER F_MESEA 2
BEGIN BEGIN
PROMPT 8 15 "al : mese " PROMPT 8 15 "al : mese "
HELP "Ultimo mese di cui stampare i movimenti"
NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)} NUM_EXPR {(#THIS_FIELD >= 1) && (#THIS_FIELD <= 12)}
END END
@ -91,7 +94,7 @@ END
STRING F_LIBRO_UNICO2 3 STRING F_LIBRO_UNICO2 3
BEGIN BEGIN
PROMPT 4 9 "Codice libro unico di studio " 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 USE %LBU
INPUT CODTAB[1,4] F_STAMPA_ANNO INPUT CODTAB[1,4] F_STAMPA_ANNO
INPUT CODTAB[5,7] F_LIBRO_UNICO2 INPUT CODTAB[5,7] F_LIBRO_UNICO2
@ -116,6 +119,7 @@ END
NUMBER F_STAMPA_MESE 2 NUMBER F_STAMPA_MESE 2
BEGIN BEGIN
PROMPT 4 11 "Stampa mese " PROMPT 4 11 "Stampa mese "
HELP "Mese di cui effettuare la stampa"
NUM_EXPR {(#THIS_FIELD >= #F_STAMPA_MESEG) && (#THIS_FIELD <= 12)} NUM_EXPR {(#THIS_FIELD >= #F_STAMPA_MESEG) && (#THIS_FIELD <= 12)}
END END
@ -128,7 +132,7 @@ END
STRING F_CODLIB_STAMPA 3 STRING F_CODLIB_STAMPA 3
BEGIN BEGIN
PROMPT 4 13 "Codice libro unico su cui stampare " 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 USE %LBU
INPUT CODTAB[1,4] F_STAMPA_ANNO INPUT CODTAB[1,4] F_STAMPA_ANNO
INPUT CODTAB[5,7] F_CODLIB_STAMPA INPUT CODTAB[5,7] F_CODLIB_STAMPA
@ -141,6 +145,7 @@ END
NUMBER F_PAGFINALE 5 NUMBER F_PAGFINALE 5
BEGIN BEGIN
PROMPT 4 15 "Ultim.num.pagina stampata libro unico " PROMPT 4 15 "Ultim.num.pagina stampata libro unico "
HELP "Numero ultima pagina stampata"
END END
BUTTON DLG_PRINT 9 2 BUTTON DLG_PRINT 9 2
@ -157,4 +162,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

41
ba/ba4100a.uml
View File

@ -23,7 +23,7 @@ BEGIN
DISPLAY "Nome@50" S0 DISPLAY "Nome@50" S0
OUTPUT FLD_CM1_STATO CODTAB OUTPUT FLD_CM1_STATO CODTAB
OUTPUT FLD_CM1_DENSTA S0 OUTPUT FLD_CM1_DENSTA S0
HELP "Inserire lo stato" HELP "Codice dello stato in cui risiede il comune"
MESSAGE COPY,FLD_CM2_STATO MESSAGE COPY,FLD_CM2_STATO
WARNING "Stato non presente" WARNING "Stato non presente"
KEY 1 KEY 1
@ -38,7 +38,7 @@ BEGIN
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT FLD_CM1_STATO CODTAB OUTPUT FLD_CM1_STATO CODTAB
OUTPUT FLD_CM1_DENSTA S0 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 MESSAGE COPY,FLD_CM2_DENSTA
FLAGS "G" FLAGS "G"
KEY 1 KEY 1
@ -57,7 +57,7 @@ BEGIN
OUTPUT FLD_CM1_STATO STATO OUTPUT FLD_CM1_STATO STATO
OUTPUT FLD_CM1_COM COM OUTPUT FLD_CM1_COM COM
OUTPUT FLD_CM1_DENCOM DENCOM OUTPUT FLD_CM1_DENCOM DENCOM
HELP "Inserire il comune" HELP "Codice del comune"
MESSAGE COPY,FLD_CM2_COM MESSAGE COPY,FLD_CM2_COM
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
VALIDATE FIXLEN_FUNC 4 VALIDATE FIXLEN_FUNC 4
@ -74,7 +74,7 @@ BEGIN
OUTPUT FLD_CM1_STATO STATO OUTPUT FLD_CM1_STATO STATO
OUTPUT FLD_CM1_COM COM OUTPUT FLD_CM1_COM COM
OUTPUT FLD_CM1_DENCOM DENCOM OUTPUT FLD_CM1_DENCOM DENCOM
HELP "Inserire la denominazione del comune" HELP "Denominazione del comune"
MESSAGE COPY,FLD_CM2_DENCOM MESSAGE COPY,FLD_CM2_DENCOM
FLAGS "G" FLAGS "G"
KEY 2 KEY 2
@ -85,7 +85,7 @@ BEGIN
PROMPT 3 4 "Provincia " PROMPT 3 4 "Provincia "
FIELD LF_COMUNI->PROVCOM FIELD LF_COMUNI->PROVCOM
FLAGS "U" FLAGS "U"
HELP "Inserire la provincia del comune" HELP "Provincia in cui risiede il comune"
END END
STRING FLD_CM1_CAPCOM 5 STRING FLD_CM1_CAPCOM 5
@ -93,14 +93,14 @@ BEGIN
PROMPT 29 4 "CAP " PROMPT 29 4 "CAP "
FIELD LF_COMUNI->CAPCOM FIELD LF_COMUNI->CAPCOM
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il Codice di Avviamento Postale" HELP "Codice di Avviamento Postale del comune"
END END
NUMBER FLD_CM1_CODISTAT 6 NUMBER FLD_CM1_CODISTAT 6
BEGIN BEGIN
PROMPT 51 4 "Codice ISTAT " PROMPT 51 4 "Codice ISTAT "
FIELD LF_COMUNI->CODISTAT FIELD LF_COMUNI->CODISTAT
HELP "Inserire il codice ISTAT del comune" HELP "Codice ISTAT del comune"
END END
GROUPBOX DLG_NULL 75 5 GROUPBOX DLG_NULL 75 5
@ -119,7 +119,7 @@ BEGIN
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM1_UFIIDD1 CODTAB OUTPUT FLD_CM1_UFIIDD1 CODTAB
OUTPUT FLD_CM1_DUFIIDD1 S0 OUTPUT FLD_CM1_DUFIIDD1 S0
HELP "Inserire il codice ufficio imposte dirette" HELP "Codice ufficio imposte dirette competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
@ -135,7 +135,7 @@ BEGIN
PROMPT 3 7 "Ufficio 2 " PROMPT 3 7 "Ufficio 2 "
FIELD LF_COMUNI->UFFIIDD2 FIELD LF_COMUNI->UFFIIDD2
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice ufficio imposte dirette" HELP "Codice ufficio imposte dirette competente"
COPY USE FLD_CM1_UFIIDD1 COPY USE FLD_CM1_UFIIDD1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB FLD_CM1_UFIIDD2 INPUT CODTAB FLD_CM1_UFIIDD2
@ -156,7 +156,7 @@ BEGIN
PROMPT 3 8 "Ufficio 3 " PROMPT 3 8 "Ufficio 3 "
FIELD LF_COMUNI->UFFIIDD3 FIELD LF_COMUNI->UFFIIDD3
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice ufficio imposte dirette" HELP "Codice ufficio imposte dirette competente"
COPY USE FLD_CM1_UFIIDD1 COPY USE FLD_CM1_UFIIDD1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB FLD_CM1_UFIIDD3 INPUT CODTAB FLD_CM1_UFIIDD3
@ -188,7 +188,7 @@ BEGIN
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM1_UFFIVA1 CODTAB OUTPUT FLD_CM1_UFFIVA1 CODTAB
OUTPUT FLD_CM1_DUFFIVA1 S0 OUTPUT FLD_CM1_DUFFIVA1 S0
HELP "Inserire il codice ufficio iva" HELP "Codice ufficio IVA competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
@ -204,7 +204,7 @@ BEGIN
PROMPT 3 12 "Ufficio 2 " PROMPT 3 12 "Ufficio 2 "
FIELD LF_COMUNI->UFFIVA2 FIELD LF_COMUNI->UFFIVA2
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice ufficio iva" HELP "Codice ufficio IVA competente"
COPY USE FLD_CM1_UFFIVA1 COPY USE FLD_CM1_UFFIVA1
INPUT CODTAB FLD_CM1_UFFIVA2 INPUT CODTAB FLD_CM1_UFFIVA2
COPY DISPLAY FLD_CM1_UFFIVA1 COPY DISPLAY FLD_CM1_UFFIVA1
@ -225,7 +225,7 @@ BEGIN
PROMPT 3 13 "Ufficio 3 " PROMPT 3 13 "Ufficio 3 "
FIELD LF_COMUNI->UFFIVA3 FIELD LF_COMUNI->UFFIVA3
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice ufficio iva" HELP "Codice ufficio IVA competente"
COPY USE FLD_CM1_UFFIVA1 COPY USE FLD_CM1_UFFIVA1
INPUT CODTAB FLD_CM1_UFFIVA3 INPUT CODTAB FLD_CM1_UFFIVA3
COPY DISPLAY FLD_CM1_UFFIVA1 COPY DISPLAY FLD_CM1_UFFIVA1
@ -291,7 +291,7 @@ BEGIN
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM2_UFFREG CODTAB OUTPUT FLD_CM2_UFFREG CODTAB
OUTPUT FLD_CM2_DUFFREG S0 OUTPUT FLD_CM2_DUFFREG S0
HELP "Inserire il codice ufficio del registro" HELP "Codice ufficio del registro competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
@ -313,7 +313,7 @@ BEGIN
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM2_UFFCONC CODTAB OUTPUT FLD_CM2_UFFCONC CODTAB
OUTPUT FLD_CM2_DUFFCONC S0 OUTPUT FLD_CM2_DUFFCONC S0
HELP "Inserire il codice ufficio concessioni" HELP "Codice ufficio concessioni competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
@ -335,7 +335,7 @@ BEGIN
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_CM2_UFFCSERV CODTAB OUTPUT FLD_CM2_UFFCSERV CODTAB
OUTPUT FLD_CM2_DUFFCSERV S0 OUTPUT FLD_CM2_DUFFCSERV S0
HELP "Inserire il codice del centro servizi" HELP "Codice del centro servizi competente"
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Ufficio assente" WARNING "Ufficio assente"
END END
@ -356,7 +356,7 @@ BEGIN
PROMPT 2 11 "Provinciale " PROMPT 2 11 "Provinciale "
FIELD LF_COMUNI->UFFESPROV FIELD LF_COMUNI->UFFESPROV
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice esattoria provinciale" HELP "Codice esattoria provinciale competente"
END END
NUMBER FLD_CM2_UFFESCOM 3 NUMBER FLD_CM2_UFFESCOM 3
@ -364,7 +364,7 @@ BEGIN
PROMPT 2 12 "Comunale " PROMPT 2 12 "Comunale "
FIELD LF_COMUNI->UFFESCOM FIELD LF_COMUNI->UFFESCOM
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice esattoria comunale" HELP "Codice esattoria comunale competente"
END END
NUMBER FLD_CM2_ALIQICI 6 3 NUMBER FLD_CM2_ALIQICI 6 3
@ -372,7 +372,7 @@ BEGIN
PROMPT 46 11 "Aliquota ICI " PROMPT 46 11 "Aliquota ICI "
FIELD LF_COMUNI->ALIQICI FIELD LF_COMUNI->ALIQICI
FLAGS "R" FLAGS "R"
HELP "Inserire aliquota ICI" HELP "Aliquota ICI applicata dal comune"
WARNING "Aliquota I.C.I. errata" WARNING "Aliquota I.C.I. errata"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<100)} NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<100)}
END END
@ -380,6 +380,7 @@ END
LIST FLD_CM2_TERRMON 3 LIST FLD_CM2_TERRMON 3
BEGIN BEGIN
PROMPT 46 12 "Territorio montano " PROMPT 46 12 "Territorio montano "
HELP "Codice identificativo di comune residente in territorio montano"
FIELD LF_COMUNI->TERRMON FIELD LF_COMUNI->TERRMON
ITEMS " | " ITEMS " | "
// ITEMS "0|0" // ITEMS "0|0"
@ -390,6 +391,7 @@ END
STRING FLD_CM2_COMAGG 4 STRING FLD_CM2_COMAGG 4
BEGIN BEGIN
PROMPT 2 14 "Comune aggr. " PROMPT 2 14 "Comune aggr. "
HELP "Codice comune a cui Š stato accorpato il presente comune"
FIELD LF_COMUNI->COMAGG FIELD LF_COMUNI->COMAGG
FLAGS "U" FLAGS "U"
USE LF_COMUNI USE LF_COMUNI
@ -405,6 +407,7 @@ END
STRING FLD_CM2_DENCOMAGG 50 STRING FLD_CM2_DENCOMAGG 50
BEGIN BEGIN
PROMPT 23 14 "" PROMPT 23 14 ""
HELP "Denominazione comune a cui Š stato accorpato il presente comune"
USE LF_COMUNI KEY 2 SELECT STATO="" USE LF_COMUNI KEY 2 SELECT STATO=""
INPUT DENCOM FLD_CM2_DENCOMAGG INPUT DENCOM FLD_CM2_DENCOMAGG
COPY DISPLAY FLD_CM1_DENCOM COPY DISPLAY FLD_CM1_DENCOM

30
ba/ba6100a.uml
View File

@ -5,7 +5,7 @@ PAGE "Definizione Stampe" -1 -1 70 17
RADIOBUTTON RDB_BA6_TYPE 25 RADIOBUTTON RDB_BA6_TYPE 25
BEGIN BEGIN
PROMPT 3 1 "Oggetto" PROMPT 3 1 "Oggetto"
HELP "Selezionare l'archivio che si desidera stampare" HELP "Selezionare l'anagrafica che si desidera stampare"
ITEM "0|Persone Fisiche" ITEM "0|Persone Fisiche"
MESSAGE ENABLE,CHK_BA6_INCLDI|ENABLE,BUT_BA6_ETICHETTE MESSAGE ENABLE,CHK_BA6_INCLDI|ENABLE,BUT_BA6_ETICHETTE
MESSAGE HIDE,2@|HIDE,3@|SHOW,1@ MESSAGE HIDE,2@|HIDE,3@|SHOW,1@
@ -63,7 +63,7 @@ BEGIN
DISPLAY "Ragione sociale@50" RAGSOC DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT FLD_ANF_CODFR CODANAGR OUTPUT FLD_ANF_CODFR CODANAGR
FLAGS "R" FLAGS "R"
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio" HELP "Codice di inizio stampa: vuoto = inizio archivio"
GROUP 1 4 GROUP 1 4
END END
@ -76,7 +76,7 @@ BEGIN
COPY DISPLAY FLD_ANF_CODFR COPY DISPLAY FLD_ANF_CODFR
OUTPUT FLD_ANF_CODTO CODANAGR OUTPUT FLD_ANF_CODTO CODANAGR
FLAGS "R" FLAGS "R"
HELP "Introdurre codice di fine stampa: vuoto = fine archivio" HELP "Codice di fine stampa: vuoto = fine archivio"
GROUP 1 4 GROUP 1 4
END END
@ -90,7 +90,7 @@ BEGIN
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
DISPLAY "Codice Fiscale@16" COFI DISPLAY "Codice Fiscale@16" COFI
OUTPUT FLD_ANF_RAGSOCFR RAGSOC 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 GROUP 1 5
END END
@ -102,7 +102,7 @@ BEGIN
INPUT RAGSOC FLD_ANF_RAGSOCTO INPUT RAGSOC FLD_ANF_RAGSOCTO
COPY DISPLAY FLD_ANF_RAGSOCFR COPY DISPLAY FLD_ANF_RAGSOCFR
OUTPUT FLD_ANF_RAGSOCTO RAGSOC 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 GROUP 1 5
END END
@ -115,7 +115,7 @@ BEGIN
INPUT CODANAGR FLD_ANG_CODFR INPUT CODANAGR FLD_ANG_CODFR
COPY DISPLAY FLD_ANF_CODFR COPY DISPLAY FLD_ANF_CODFR
OUTPUT FLD_ANG_CODFR CODANAGR 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 GROUP 2 4
END END
@ -128,7 +128,7 @@ BEGIN
INPUT CODANAGR FLD_ANG_CODTO INPUT CODANAGR FLD_ANG_CODTO
COPY DISPLAY FLD_ANF_CODFR COPY DISPLAY FLD_ANF_CODFR
OUTPUT FLD_ANG_CODTO CODANAGR 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 GROUP 2 4
END END
@ -142,7 +142,7 @@ BEGIN
DISPLAY "Codice" CODANAGR DISPLAY "Codice" CODANAGR
DISPLAY "Codice Fiscale@16" COFI DISPLAY "Codice Fiscale@16" COFI
OUTPUT FLD_ANG_RAGSOCFR RAGSOC 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 GROUP 2 5
END END
@ -154,7 +154,7 @@ BEGIN
INPUT RAGSOC FLD_ANG_RAGSOCTO INPUT RAGSOC FLD_ANG_RAGSOCTO
COPY DISPLAY FLD_ANG_RAGSOCFR COPY DISPLAY FLD_ANG_RAGSOCFR
OUTPUT FLD_ANG_RAGSOCTO RAGSOC 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 GROUP 2 5
END END
@ -168,7 +168,7 @@ BEGIN
DISPLAY "Persona Rif.@20" PERRIF DISPLAY "Persona Rif.@20" PERRIF
OUTPUT FLD_DITTE_CODFR CODDITTA OUTPUT FLD_DITTE_CODFR CODDITTA
OUTPUT FLD_DITTE_RAGSOCFR RAGSOC 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 GROUP 3 4
END END
@ -181,7 +181,7 @@ BEGIN
COPY DISPLAY FLD_DITTE_CODFR COPY DISPLAY FLD_DITTE_CODFR
OUTPUT FLD_DITTE_RAGSOCTO RAGSOC OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
OUTPUT FLD_DITTE_CODTO CODDITTA 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 GROUP 3 4
END END
@ -195,7 +195,7 @@ BEGIN
DISPLAY "Persona Rif.@20" PERRIF DISPLAY "Persona Rif.@20" PERRIF
OUTPUT FLD_DITTE_RAGSOCFR RAGSOC OUTPUT FLD_DITTE_RAGSOCFR RAGSOC
OUTPUT FLD_DITTE_CODFR CODDITTA 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 GROUP 3 5
END END
@ -207,20 +207,20 @@ BEGIN
COPY DISPLAY FLD_DITTE_RAGSOCFR COPY DISPLAY FLD_DITTE_RAGSOCFR
OUTPUT FLD_DITTE_RAGSOCTO RAGSOC OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
OUTPUT FLD_DITTE_CODTO CODDITTA 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 GROUP 3 5
END END
BOOLEAN CHK_BA6_INCLDI BOOLEAN CHK_BA6_INCLDI
BEGIN BEGIN
PROMPT 3 10 "Includi ditte" PROMPT 3 10 "Includi ditte"
HELP "Selezionare per includere informazioni relative alle ditte" HELP "Indicare se includere informazioni relative alle ditte"
END END
BOOLEAN CHK_BA6_PRINTONE BOOLEAN CHK_BA6_PRINTONE
BEGIN BEGIN
PROMPT 3 11 "Stampa un solo record" 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 END

10
ba/ba6100b.uml
View File

@ -17,7 +17,7 @@ BEGIN
ITEM "1|Residenza" ITEM "1|Residenza"
ITEM "2|Domicilio fiscale" ITEM "2|Domicilio fiscale"
ITEM "3|Corrispondenza" ITEM "3|Corrispondenza"
HELP "Selezionare l'indirizzo da includere nelle etichette" HELP "Indicare l'indirizzo da includere nelle etichette"
END END
NUMBER FLD_BA6B_INDROW 4 NUMBER FLD_BA6B_INDROW 4
@ -37,7 +37,7 @@ BEGIN
PROMPT 4 7 "Partita IVA/ Codice fiscale" PROMPT 4 7 "Partita IVA/ Codice fiscale"
MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL MESSAGE FALSE DISABLE,FLD_BA6B_PIVROW|DISABLE,FLD_BA6B_PIVCOL
MESSAGE TRUE ENABLE,FLD_BA6B_PIVROW|ENABLE,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 END
NUMBER FLD_BA6B_PIVROW 4 NUMBER FLD_BA6B_PIVROW 4
@ -59,7 +59,7 @@ BEGIN
PROMPT 4 8 "Includi codice anagrafico" PROMPT 4 8 "Includi codice anagrafico"
MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL MESSAGE FALSE DISABLE,FLD_BA6B_CODROW|DISABLE,FLD_BA6B_CODCOL
MESSAGE TRUE ENABLE,FLD_BA6B_CODROW|ENABLE,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 END
NUMBER FLD_BA6B_CODROW 4 NUMBER FLD_BA6B_CODROW 4
@ -79,16 +79,19 @@ END
NUMBER FLD_BA6B_TOTROW 4 NUMBER FLD_BA6B_TOTROW 4
BEGIN BEGIN
PROMPT 4 10 "Numero totale di righe e colonne " PROMPT 4 10 "Numero totale di righe e colonne "
HELP "Totale righe (altezza dell'etichetta)"
END END
NUMBER FLD_BA6B_TOTCOL 4 NUMBER FLD_BA6B_TOTCOL 4
BEGIN BEGIN
PROMPT 47 10 "" PROMPT 47 10 ""
HELP "Totale colonne (larghezza dell'etichetta)"
END END
BOOLEAN CHK_BA6B_SAVE BOOLEAN CHK_BA6B_SAVE
BEGIN BEGIN
PROMPT 4 11 "Salva impostazioni" PROMPT 4 11 "Salva impostazioni"
HELP "Indicare se ritorvare le impostazioni successivamente"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
@ -108,4 +111,3 @@ END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastasf.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Assoggettamento" -1 -1 50 8 PAGE "Stampa Assoggettamento" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %ASF USE %ASF
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastcco.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Categorie contabili" -1 -1 50 8 PAGE "Stampa Categorie contabili" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %CCO USE %CCO
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastcfi.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Categorie finanziarie" -1 -1 50 8 PAGE "Stampa Categorie finanziarie" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %CFI USE %CFI
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

86
ba/bastcrs.uml
View File

@ -1,43 +1,43 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa cariche sociali" -1 -1 50 8 PAGE "Stampa cariche sociali" -1 -1 50 8
STRING F_INIZIO1 2 STRING F_INIZIO1 2
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %CRS USE %CRS
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Carica@25" S0 DISPLAY "Carica@25" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 2 STRING F_FINE1 2
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

90
ba/bastcve.uml
View File

@ -1,45 +1,45 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Categorie Vendita" -1 -1 50 8 PAGE "Stampa Categorie Vendita" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %CVE USE %CVE
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Provvigione" R0 DISPLAY "Provvigione" R0
DISPLAY "Gruppo" I1 DISPLAY "Gruppo" I1
DISPLAY "Conto" I2 DISPLAY "Conto" I2
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

4
ba/bastesc.uml
View File

@ -11,7 +11,7 @@ END
NUMBER F_INIZIO1 4 NUMBER F_INIZIO1 4
BEGIN BEGIN
PROMPT 2 3 "Da anno " 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 FIELD LF_TAB->CODTAB
FLAGS "ZR" FLAGS "ZR"
USE ESC KEY 1 USE ESC KEY 1
@ -26,7 +26,7 @@ END
NUMBER F_FINE1 4 NUMBER F_FINE1 4
BEGIN BEGIN
PROMPT 25 3 "a anno " 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 FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
FLAGS "ZR" FLAGS "ZR"

84
ba/bastleg.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Legali" -1 -1 50 8 PAGE "Stampa Legali" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %LEG USE %LEG
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastlis.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa listini" -1 -1 50 8 PAGE "Stampa listini" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %LIS USE %LIS
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastmsp.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Modalita' di spedizione" -1 -1 50 8 PAGE "Stampa Modalita' di spedizione" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %MSP USE %MSP
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastndo.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Note documento" -1 -1 50 8 PAGE "Stampa Note documento" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %NDO USE %NDO
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

88
ba/bastnot.uml
View File

@ -1,44 +1,44 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Codici note" -1 -1 50 8 PAGE "Stampa Codici note" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %NOT USE %NOT
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Destinazione@30" S0 DISPLAY "Destinazione@30" S0
DISPLAY "Blocca imm." B0 DISPLAY "Blocca imm." B0
DISPLAY "Documento" B1 DISPLAY "Documento" B1
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

140
ba/bastois.uml
View File

@ -1,70 +1,70 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa vecchi codici attivita'" -1 -1 60 8 PAGE "Stampa vecchi codici attivita'" -1 -1 60 8
STRING F_INIZIO1 4 STRING F_INIZIO1 4
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice d'inizio " HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
USE %OIS USE %OIS
FIELD CODTAB[1,4] FIELD CODTAB[1,4]
INPUT CODTAB[1,4] F_INIZIO1 INPUT CODTAB[1,4] F_INIZIO1
INPUT CODTAB[5,] F_INIZIO2 INPUT CODTAB[5,] F_INIZIO2
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,] DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB[1,4] OUTPUT F_INIZIO1 CODTAB[1,4]
OUTPUT F_INIZIO2 CODTAB[5,] OUTPUT F_INIZIO2 CODTAB[5,]
GROUP 1 GROUP 1
END END
STRING F_INIZIO2 1 STRING F_INIZIO2 1
BEGIN BEGIN
PROMPT 28 1 "subcodice " PROMPT 28 1 "subcodice "
FLAGS "U" HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD CODTAB[5,] FLAGS "U"
HELP "Inserire il subcodice d'inizio " FIELD CODTAB[5,]
COPY ALL F_INIZIO1 COPY ALL F_INIZIO1
GROUP 1 GROUP 1
END END
STRING F_FINE1 4 STRING F_FINE1 4
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice di fine " HELP "Codice di fine. Vuoto = fine archivio"
COPY USE F_INIZIO1 COPY USE F_INIZIO1
FIELD CODTAB[1,4] FIELD CODTAB[1,4]
INPUT CODTAB[1,4] F_FINE1 INPUT CODTAB[1,4] F_FINE1
INPUT CODTAB[5,] F_FINE2 INPUT CODTAB[5,] F_FINE2
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB[1,4] OUTPUT F_FINE1 CODTAB[1,4]
OUTPUT F_FINE2 CODTAB[5,] OUTPUT F_FINE2 CODTAB[5,]
GROUP 2 GROUP 2
END END
STRING F_FINE2 1 STRING F_FINE2 1
BEGIN BEGIN
PROMPT 28 3 "subcodice " PROMPT 28 3 "subcodice "
FLAGS "U" FLAGS "U"
HELP "Inserire il subcodice di fine " FIELD CODTAB[5,]
FIELD CODTAB[5,] HELP "Subcodice di fine. Vuoto = fine archivio"
COPY ALL F_FINE1 COPY ALL F_FINE1
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastpor.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Modalita' di consegna" -1 -1 50 8 PAGE "Stampa Modalita' di consegna" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %POR USE %POR
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

3
ba/bastreg.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa registri" -1 -1 74 8
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 1 1 "Ditta " PROMPT 1 1 "Ditta "
HELP "Ditta di cui stampare i registri"
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
@ -33,7 +34,7 @@ BEGIN
FLAGS "RZ" FLAGS "RZ"
// FLAGS "A" // FLAGS "A"
FIELD CODTAB[1,4] 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 MESSAGE COPY, F_FINE2
GROUP 1 GROUP 1
END END

84
ba/bastsad.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Spese da addebitare" -1 -1 50 8 PAGE "Stampa Spese da addebitare" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %SAD USE %SAD
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@20" S0 DISPLAY "Descrizione@20" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

86
ba/bastsco.uml
View File

@ -1,43 +1,43 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa sconti incondizionati" -1 -1 50 8 PAGE "Stampa sconti incondizionati" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %SCO USE %SCO
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
DISPLAY "Percentuale" R0 DISPLAY "Percentuale" R0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

86
ba/baststa.uml
View File

@ -1,43 +1,43 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa stati" -1 -1 50 8 PAGE "Stampa stati" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %STA USE %STA
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Stato@50" S0 DISPLAY "Stato@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

82
ba/baststt.uml
View File

@ -1,41 +1,41 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa codici statistici" -1 -1 50 8 PAGE "Stampa codici statistici" -1 -1 50 8
STRING F_INIZIO1 7 STRING F_INIZIO1 7
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %STT USE %STT
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 7 STRING F_FINE1 7
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/basttit.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Titoli onorifici" -1 -1 50 8 PAGE "Stampa Titoli onorifici" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %TIT USE %TIT
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastues.uml
View File

@ -1,41 +1,43 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa uffici esattoria" -1 -1 50 8 PAGE "Stampa uffici esattoria" -1 -1 50 8
NUMBER F_INIZIO1 3 NUMBER F_INIZIO1 3
BEGIN BEGIN
PROMPT 3 1 "Da codice " PROMPT 3 1 "Da codice "
USE %UES HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FLAGS "RZ" USE %UES
INPUT CODTAB F_INIZIO1 FLAGS "RZ"
DISPLAY "Codice" CODTAB INPUT CODTAB F_INIZIO1
DISPLAY "Descrizione@25" S0 DISPLAY "Codice" CODTAB
OUTPUT F_INIZIO1 CODTAB DISPLAY "Descrizione@25" S0
FIELD LF_TABCOM->CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 FIELD LF_TABCOM->CODTAB
END GROUP 1
END
NUMBER F_FINE1 3
BEGIN NUMBER F_FINE1 3
PROMPT 3 3 "A codice " BEGIN
COPY USE F_INIZIO1 PROMPT 3 3 "A codice "
FLAGS "RZ" HELP "Codice di fine. Vuoto = fine archivio"
INPUT CODTAB F_FINE1 COPY USE F_INIZIO1
COPY DISPLAY F_INIZIO1 FLAGS "RZ"
OUTPUT F_FINE1 CODTAB INPUT CODTAB F_FINE1
FIELD LF_TABCOM->CODTAB COPY DISPLAY F_INIZIO1
GROUP 2 OUTPUT F_FINE1 CODTAB
END FIELD LF_TABCOM->CODTAB
GROUP 2
BUTTON DLG_OK 8 2 END
BEGIN
PROMPT -12 -1 "" BUTTON DLG_OK 8 2
END BEGIN
PROMPT -12 -1 ""
BUTTON DLG_QUIT 8 2 END
BEGIN
PROMPT -22 -1 "" BUTTON DLG_QUIT 8 2
END BEGIN
PROMPT -22 -1 ""
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

88
ba/bastvet.uml
View File

@ -1,44 +1,44 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa vettori" -1 -1 50 8 PAGE "Stampa vettori" -1 -1 50 8
NUMBER F_INIZIO1 3 NUMBER F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %VET USE %VET
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice vettore" CODTAB DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0 DISPLAY "Ragione sociale@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
KEY 1 KEY 1
GROUP 1 GROUP 1
END END
NUMBER F_FINE1 3 NUMBER F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "RZ" FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -3 "" PROMPT -22 -3 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

84
ba/bastzon.uml
View File

@ -1,42 +1,42 @@
#include "ba3200.h" #include "ba3200.h"
PAGE "Stampa Zone" -1 -1 50 8 PAGE "Stampa Zone" -1 -1 50 8
STRING F_INIZIO1 3 STRING F_INIZIO1 3
BEGIN BEGIN
PROMPT 2 1 "Da codice " PROMPT 2 1 "Da codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio" HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
USE %ZON USE %ZON
INPUT CODTAB F_INIZIO1 INPUT CODTAB F_INIZIO1
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_INIZIO1 CODTAB OUTPUT F_INIZIO1 CODTAB
GROUP 1 GROUP 1
END END
STRING F_FINE1 3 STRING F_FINE1 3
BEGIN BEGIN
PROMPT 2 3 "A codice " PROMPT 2 3 "A codice "
FLAGS "U" FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo" HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1 COPY USE F_INIZIO1
INPUT CODTAB F_FINE1 INPUT CODTAB F_FINE1
COPY DISPLAY F_INIZIO1 COPY DISPLAY F_INIZIO1
OUTPUT F_FINE1 CODTAB OUTPUT F_FINE1 CODTAB
GROUP 2 GROUP 2
END END
BUTTON DLG_OK 8 2 BUTTON DLG_OK 8 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 8 2 BUTTON DLG_QUIT 8 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

98
ba/batbasf.uml
View File

@ -1,54 +1,44 @@
#include "batbasf.h" #include "batbasf.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Codici assoggettamento fiscale" -1 -1 78 8 PAGE "Codici assoggettamento fiscale" -1 -1 78 8
NUMBER F_CODICE 2 NUMBER F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice di assoggettamento fiscale"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %ASF KEY 1
INPUT CODTAB F_CODICE USE %ASF
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @50" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @50" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN STRING F_DESCR 50
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione dell'assoggettamento fiscale"
USE %ASF KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %ASF KEY 2
DISPLAY "Descrizione @50" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @50" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

88
ba/batbcco.uml
View File

@ -1,44 +1,44 @@
#include "batbcco.h" #include "batbcco.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8 PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice della categoria contabile"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %CCO KEY 1
INPUT CODTAB F_CODICE USE %CCO
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione della categoria contabile"
USE %CCO KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %CCO KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

98
ba/batbcfi.uml
View File

@ -1,54 +1,44 @@
#include "batbcfi.h" #include "batbcfi.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Categorie Finanziarie" -1 -1 78 8 PAGE "Tabella Categorie Finanziarie" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice della categoria finanziaria"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %CFI KEY 1
INPUT CODTAB F_CODICE USE %CFI
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione della categoria fiinanziaria"
USE %CFI KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %CFI KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

100
ba/batbcrs.uml
View File

@ -1,50 +1,50 @@
#include "batbcrs.h" #include "batbcrs.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Cariche sociali" -1 -1 78 7 PAGE "Cariche sociali" -1 -1 78 7
STRING FLD_TABCRS_CODTAB 2 STRING FLD_TABCRS_CODTAB 2
BEGIN BEGIN
PROMPT 3 1 "Codice " PROMPT 3 1 "Codice "
FIELD LF_TABCOM->CODTAB HELP "Codice della carica sociale"
KEY 1 FIELD LF_TABCOM->CODTAB
USE %CRS KEY 1
INPUT CODTAB FLD_TABCRS_CODTAB USE %CRS
DISPLAY "Codice" CODTAB INPUT CODTAB FLD_TABCRS_CODTAB
DISPLAY "Carica@25" S0 DISPLAY "Codice" CODTAB
OUTPUT FLD_TABCRS_CODTAB CODTAB DISPLAY "Carica@25" S0
OUTPUT FLD_TABCRS_S0 S0 OUTPUT FLD_TABCRS_CODTAB CODTAB
HELP "Inserire il codice della carica sociale" OUTPUT FLD_TABCRS_S0 S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING FLD_TABCRS_S0 25 STRING FLD_TABCRS_S0 25
BEGIN BEGIN
PROMPT 3 3 "Carica " PROMPT 3 3 "Carica "
FIELD LF_TABCOM->S0 FIELD LF_TABCOM->S0
KEY 2 KEY 2
USE %CRS KEY 2 USE %CRS KEY 2
INPUT S0 FLD_TABCRS_S0 INPUT S0 FLD_TABCRS_S0
DISPLAY "Carica@25" S0 DISPLAY "Carica@25" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT FLD_TABCRS_CODTAB CODTAB OUTPUT FLD_TABCRS_CODTAB CODTAB
OUTPUT FLD_TABCRS_S0 S0 OUTPUT FLD_TABCRS_S0 S0
HELP "Inserire la descrizione della carica sociale" HELP "Descrizione della carica sociale"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
BOOLEAN CHK_TABCRS_S6 BOOLEAN CHK_TABCRS_S6
BEGIN BEGIN
PROMPT 3 5 "Stampa modulo RAD" PROMPT 3 5 "Stampa modulo RAD"
FIELD LF_TABCOM->S6 FIELD LF_TABCOM->S6
HELP "Indicare se la carica viene stampata su modulo RAD" HELP "Indicare se la carica viene stampata su modulo RAD"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

151
ba/batbcve.uml
View File

@ -1,74 +1,77 @@
batbude "batbcve.h" #include "batbcve.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Categorie di vendita " -1 -1 78 8 PAGE "Categorie di vendita " -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice della categoria di vendita"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %CVE KEY 1
INPUT CODTAB F_CODICE USE %CVE
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
DISPLAY "Provvigione" R0 DISPLAY "Descrizione @30" S0
DISPLAY "Gruppo" I1 DISPLAY "Provvigione" R0
DISPLAY "Conto" I2 DISPLAY "Gruppo" I1
OUTPUT F_CODICE CODTAB DISPLAY "Conto" I2
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
OUTPUT F_PROVV R0 OUTPUT F_DESCR S0
OUTPUT F_GRUPPO I1 OUTPUT F_PROVV R0
OUTPUT F_CONTO I2 OUTPUT F_GRUPPO I1
CHECKTYPE REQUIRED OUTPUT F_CONTO I2
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione della categoria di vendita"
USE %CVE KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %CVE KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
DISPLAY "Provvigione" R0 DISPLAY "Descrizione @30" S0
DISPLAY "Gruppo" I1 DISPLAY "Codice" CODTAB
DISPLAY "Conto" I2 DISPLAY "Provvigione" R0
OUTPUT F_CODICE CODTAB DISPLAY "Gruppo" I1
OUTPUT F_DESCR S0 DISPLAY "Conto" I2
OUTPUT F_PROVV R0 OUTPUT F_CODICE CODTAB
OUTPUT F_GRUPPO I1 OUTPUT F_DESCR S0
OUTPUT F_CONTO I2 OUTPUT F_PROVV R0
CHECKTYPE REQUIRED OUTPUT F_GRUPPO I1
END OUTPUT F_CONTO I2
CHECKTYPE REQUIRED
NUMBER F_PROVV 5 2 END
BEGIN
PROMPT 4 6 "Provvigione " NUMBER F_PROVV 5 2
FIELD LF_TABCOM->R0 BEGIN
END PROMPT 4 6 "Provvigione "
HELP "Percentuale di provvigione della categoria"
NUMBER F_GRUPPO 2 FIELD LF_TABCOM->R0
BEGIN END
PROMPT 30 6 "Gruppo "
FIELD LF_TABCOM->I1 NUMBER F_GRUPPO 2
END BEGIN
PROMPT 30 6 "Gruppo "
NUMBER F_CONTO 2 HELP "Gurppo del piano dei conti della categoria"
BEGIN FIELD LF_TABCOM->I1
PROMPT 43 6 "Conto " END
FIELD LF_TABCOM->I2
END NUMBER F_CONTO 2
BEGIN
ENDPAGE PROMPT 43 6 "Conto "
ENDMASK HELP "Conto del piano dei conti della categoria"
FIELD LF_TABCOM->I2
END
ENDPAGE
ENDMASK

5
ba/batbesc.uml
View File

@ -11,6 +11,7 @@ PAGE "Esercizio contabili" -1 -1 78 16
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 4 1 "Ditta " PROMPT 4 1 "Ditta "
HELP "Codice della ditta a cui assegnare l'esercizio"
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
@ -30,6 +31,7 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 5 "Anno esercizio " PROMPT 4 5 "Anno esercizio "
HELP "Anno d'esercizio da asssegnare"
FLAGS "ZR" FLAGS "ZR"
FIELD LF_TAB->CODTAB FIELD LF_TAB->CODTAB
KEY 1 KEY 1
@ -45,6 +47,7 @@ END
DATE F_DATAINI DATE F_DATAINI
BEGIN BEGIN
PROMPT 4 7 "Data inizio esercizio " PROMPT 4 7 "Data inizio esercizio "
HELP "Data di inizio dell'esercizio"
FIELD LF_TAB->D0 FIELD LF_TAB->D0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "La data di inizio esercizio e' obbligatoria" WARNING "La data di inizio esercizio e' obbligatoria"
@ -53,6 +56,7 @@ END
DATE F_DATAFIN DATE F_DATAFIN
BEGIN BEGIN
PROMPT 4 9 "Data fine esercizio " PROMPT 4 9 "Data fine esercizio "
HELP "Data di fine dell'esercizio"
FIELD LF_TAB->D1 FIELD LF_TAB->D1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
VALIDATE DATE_CMP_FUNC >= F_DATAINI VALIDATE DATE_CMP_FUNC >= F_DATAINI
@ -62,6 +66,7 @@ END
DATE F_DATASCARICO DATE F_DATASCARICO
BEGIN BEGIN
PROMPT 4 11 "Data di scarico " PROMPT 4 11 "Data di scarico "
HELP "Data in cui e' stato effettuato l'ultimo scarico su dischetto"
FIELD LF_TAB->D2 FIELD LF_TAB->D2
END END

98
ba/batbleg.uml
View File

@ -1,54 +1,44 @@
#include "batbleg.h" #include "batbleg.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Legali" -1 -1 78 8 PAGE "Tabella Codici Legali" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice di riconoscimento codici legali"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %LEG KEY 1
INPUT CODTAB F_CODICE USE %LEG
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione del codice legale"
USE %LEG KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %LEG KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

98
ba/batblis.uml
View File

@ -1,54 +1,44 @@
#include "batblis.h" #include "batblis.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Listino" -1 -1 78 8 PAGE "Tabella Codici Listino" -1 -1 78 8
STRING F_CODICE 5 STRING F_CODICE 5
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB Help "Codice listino"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %LIS KEY 1
INPUT CODTAB F_CODICE USE %LIS
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @50" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @50" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN STRING F_DESCR 50
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione listino"
USE %LIS KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %LIS KEY 2
DISPLAY "Descrizione @50" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @50" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

98
ba/batbmsp.uml
View File

@ -1,54 +1,44 @@
#include "batbmsp.h" #include "batbmsp.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Modalita' di Spedizione" -1 -1 78 8 PAGE "Modalita' di Spedizione" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice della modalit… di spedizione"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %MSP KEY 1
INPUT CODTAB F_CODICE USE %MSP
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione della modalit… di spedizione"
USE %MSP KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %MSP KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

98
ba/batbndo.uml
View File

@ -1,54 +1,44 @@
#include "batbndo.h" #include "batbndo.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Note Documento" -1 -1 78 8 PAGE "Tabella Note Documento" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice note documento"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %NDO KEY 1
INPUT CODTAB F_CODICE USE %NDO
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione nota documento"
USE %NDO KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %NDO KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

113
ba/batbnot.uml
View File

@ -1,61 +1,52 @@
#include "batbnot.h" #include "batbnot.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Note Cliente" -1 -1 78 8 PAGE "Tabella Codici Note Cliente" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice note del cliente"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %NOT KEY 1
INPUT CODTAB F_CODICE USE %NOT
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Destinazione@30" S0 DISPLAY "Codice" CODTAB
DISPLAY "Blocca immobili" B0 DISPLAY "Destinazione@30" S0
DISPLAY "Documento" B1 DISPLAY "Blocca immobili" B0
OUTPUT F_CODICE CODTAB DISPLAY "Documento" B1
OUTPUT F_DEST S0 OUTPUT F_CODICE CODTAB
OUTPUT F_BLOCCA B0 OUTPUT F_DEST S0
OUTPUT F_DOCUM B1 OUTPUT F_BLOCCA B0
CHECKTYPE REQUIRED OUTPUT F_DOCUM B1
END CHECKTYPE REQUIRED
END
STRING F_DEST 30
BEGIN STRING F_DEST 30
PROMPT 4 4 "Destinazione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
END HELP "Descrizione della nota del cliente"
FIELD LF_TABCOM->S0
BOOLEAN F_BLOCCA END
BEGIN
PROMPT 4 6 "Blocca immissione " BOOLEAN F_BLOCCA
FIELD LF_TABCOM->B0 BEGIN
END PROMPT 4 6 "Blocca immissione "
HELP "Indicare se bloccare l'inserimento del documento"
BOOLEAN F_DOCUM FIELD LF_TABCOM->B0
BEGIN END
PROMPT 4 8 "Documento "
FIELD LF_TABCOM->B1 BOOLEAN F_DOCUM
END BEGIN
PROMPT 4 8 "Documento "
ENDPAGE FIELD LF_TABCOM->B1
ENDMASK END
ENDPAGE
ENDMASK

113
ba/batbois.uml
View File

@ -1,56 +1,57 @@
#include "batbois.h" #include "batbois.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Vecchi codici attivita'" -1 -1 78 7 PAGE "Vecchi codici attivita'" -1 -1 78 7
STRING FLD_TABOIS_CODTAB 4 STRING FLD_TABOIS_CODTAB 4
BEGIN BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FIELD %OIS->CODTAB[1,4] FIELD %OIS->CODTAB[1,4]
HELP "Inserire il codice del vecchio codice attivit…" HELP "Codice del vecchio codice attivit…"
USE %OIS USE %OIS
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB[1,4] FLD_TABOIS_CODTAB INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
INPUT CODTAB[5,] FLD_TABOIS_ADD INPUT CODTAB[5,] FLD_TABOIS_ADD
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Codice" CODTAB[1,4]
DISPLAY "Subcodice" CODTAB[5,] DISPLAY "Subcodice" CODTAB[5,]
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_ADD CODTAB[5,] OUTPUT FLD_TABOIS_ADD CODTAB[5,]
OUTPUT FLD_TABOIS_S0 S0 OUTPUT FLD_TABOIS_S0 S0
KEY 1 KEY 1
FLAGS "RZ" FLAGS "RZ"
END END
STRING FLD_TABOIS_ADD 1 STRING FLD_TABOIS_ADD 1
BEGIN BEGIN
PROMPT 22 1 "Subcodice " PROMPT 22 1 "Subcodice "
FIELD %OIS->CODTAB[5,] HELP "Subcodice del vecchio codice attivit…"
COPY ALL FLD_TABOIS_CODTAB FIELD %OIS->CODTAB[5,]
CHECKTYPE REQUIRED COPY ALL FLD_TABOIS_CODTAB
KEY 1 CHECKTYPE REQUIRED
FLAGS "U" KEY 1
END FLAGS "U"
END
STRING FLD_TABOIS_S0 40
BEGIN STRING FLD_TABOIS_S0 40
PROMPT 2 3 "Descrizione " BEGIN
FIELD %OIS->S0 PROMPT 2 3 "Descrizione "
HELP "Inserire la descrizione del vecchio codice attivit… " FIELD %OIS->S0
USE %OIS KEY 2 HELP "Descrizione del vecchio codice attivit… "
CHECKTYPE REQUIRED USE %OIS KEY 2
INPUT S0 FLD_TABOIS_S0 CHECKTYPE REQUIRED
DISPLAY "Descrizione@40" S0 INPUT S0 FLD_TABOIS_S0
DISPLAY "Codice" CODTAB[1,4] DISPLAY "Descrizione@40" S0
DISPLAY "Subcodice" CODTAB[5,] DISPLAY "Codice" CODTAB[1,4]
OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4] DISPLAY "Subcodice" CODTAB[5,]
OUTPUT FLD_TABOIS_ADD CODTAB[5,] OUTPUT FLD_TABOIS_CODTAB CODTAB[1,4]
OUTPUT FLD_TABOIS_S0 S0 OUTPUT FLD_TABOIS_ADD CODTAB[5,]
KEY 2 OUTPUT FLD_TABOIS_S0 S0
END KEY 2
END
ENDPAGE
ENDMASK ENDPAGE
ENDMASK

98
ba/batbpor.uml
View File

@ -1,54 +1,44 @@
#include "batbpor.h" #include "batbpor.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Modalita' di consegna" -1 -1 78 8 PAGE "Tabella Modalita' di consegna" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice della modalit… di consegna"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %POR KEY 1
INPUT CODTAB F_CODICE USE %POR
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione della modalit… di consegna"
USE %POR KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %POR KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

40
ba/batbreg.uml
View File

@ -21,6 +21,7 @@ END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 4 1 "Anno " PROMPT 4 1 "Anno "
HELP "Anno a cui fa riferimento il registro"
FIELD CODTAB[1,4] FIELD CODTAB[1,4]
FLAGS "AZ" FLAGS "AZ"
KEY 1 KEY 1
@ -41,6 +42,7 @@ END
STRING F_CODICE 3 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 4 2 "Codice registro " PROMPT 4 2 "Codice registro "
Help "Codice del registro"
FIELD CODTAB[5,7] FIELD CODTAB[5,7]
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
@ -52,6 +54,7 @@ END
STRING F_DESCR 50 STRING F_DESCR 50
BEGIN BEGIN
PROMPT 4 3 "Descrizione " PROMPT 4 3 "Descrizione "
HELP "Descrizione del registro"
FIELD S0 FIELD S0
KEY 2 KEY 2
GROUP 1 GROUP 1
@ -79,12 +82,13 @@ BEGIN
OUTPUT F_DESCR S0 OUTPUT F_DESCR S0
OUTPUT F_CODLIB CODTAB OUTPUT F_CODLIB CODTAB
CHECHTYPE NORMAL CHECHTYPE NORMAL
HELP "Inserire il codice del libro" HELP "Codice del libro sociale a cui fa riferimento il registro"
END END
LIST F_TIPO 26 LIST F_TIPO 26
BEGIN BEGIN
PROMPT 29 5 "Tipo " PROMPT 29 5 "Tipo "
HELP "Tipo di regitro"
FIELD I0 FIELD I0
FLAGS "G" FLAGS "G"
GROUP 1 GR_MODIFY_PROTECTED GROUP 1 GR_MODIFY_PROTECTED
@ -111,6 +115,7 @@ END
STRING F_CONSPRESSO 40 STRING F_CONSPRESSO 40
BEGIN BEGIN
PROMPT 4 7 "Conservato presso " PROMPT 4 7 "Conservato presso "
HELP "Luogo dove verra' conservato il registro"
FIELD S1 FIELD S1
GROUP 1 GROUP 1
END END
@ -148,7 +153,7 @@ BEGIN
DISPLAY "Indirizzo@35" INDULC DISPLAY "Indirizzo@35" INDULC
DISPLAY "N.ro civico@35" CIVULC DISPLAY "N.ro civico@35" CIVULC
OUTPUT F_CODULC CODULC 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" WARNING "Unita' locale non prevista per questa ditta"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
@ -156,6 +161,7 @@ END
NUMBER F_PAGSTAMP 5 NUMBER F_PAGSTAMP 5
BEGIN BEGIN
PROMPT 4 11 "Pagine stampate " PROMPT 4 11 "Pagine stampate "
HELP "Numero di pagine gia' stampate"
FIELD I1 FIELD I1
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
@ -164,6 +170,7 @@ END
NUMBER F_PAGNUM 5 NUMBER F_PAGNUM 5
BEGIN BEGIN
PROMPT 35 11 "Pagine numerate " PROMPT 35 11 "Pagine numerate "
HELP "numero di pagine di cui e' stata stampata la numerazione"
FIELD I2 FIELD I2
FLAGS "R" FLAGS "R"
GROUP 1 GROUP 1
@ -172,6 +179,7 @@ END
DATE F_DATAVID DATE F_DATAVID
BEGIN BEGIN
PROMPT 4 13 "Data vidimazione " PROMPT 4 13 "Data vidimazione "
HELP "Data di vidimazione del registro"
FIELD D0 FIELD D0
GROUP 1 GROUP 1
END END
@ -179,6 +187,7 @@ END
DATE F_DATASCAD DATE F_DATASCAD
BEGIN BEGIN
PROMPT 35 13 "Data scadenza " PROMPT 35 13 "Data scadenza "
HELP "Data fino a cui rimane in vigore il registro"
FIELD D1 FIELD D1
GROUP 1 GROUP 1
END END
@ -186,6 +195,7 @@ END
STRING F_CODLBU 3 STRING F_CODLBU 3
BEGIN BEGIN
PROMPT 4 15 "Cod. libro unico " PROMPT 4 15 "Cod. libro unico "
HELP "Codice del libro unico a cui fa riferimento"
GROUP 2 3 4 GROUP 2 3 4
FIELD S6 FIELD S6
USE %LBU USE %LBU
@ -215,6 +225,7 @@ END
LIST F_FREQUENZA_STAMPA 1 16 LIST F_FREQUENZA_STAMPA 1 16
BEGIN BEGIN
PROMPT 2 2 "Stampa reg.riepilogativo " PROMPT 2 2 "Stampa reg.riepilogativo "
HELP "Intervallo per fare il riepilogo"
FIELD S9 FIELD S9
GROUP 4 GROUP 4
ITEM "M|Mensile" ITEM "M|Mensile"
@ -224,6 +235,7 @@ END
BOOLEAN F_VENTIL BOOLEAN F_VENTIL
BEGIN BEGIN
PROMPT 2 2 "Attivita' con ventilazione" PROMPT 2 2 "Attivita' con ventilazione"
HELP "Indicare se vengono registrate operazioni con ventilazione IVA"
FIELD B3 FIELD B3
GROUP 3 GROUP 3
END END
@ -231,6 +243,7 @@ END
BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO BOOLEAN F_STAMPA_SULLO_STESSO_REGISTRO
BEGIN BEGIN
PROMPT 2 2 "Stampa sullo stesso registro" PROMPT 2 2 "Stampa sullo stesso registro"
HELP "Indicare se il nuovo esercizio viene stampato sullo stesso registro"
FIELD B8 FIELD B8
GROUP 6 GROUP 6
END END
@ -246,6 +259,7 @@ END
BOOLEAN F_STAMPA_CREDITO_ANNO_PREC BOOLEAN F_STAMPA_CREDITO_ANNO_PREC
BEGIN BEGIN
PROMPT 46 4 "Stampa credito anno precedente" PROMPT 46 4 "Stampa credito anno precedente"
HELP "Indicare se si vuole la stampa del credito IVA dell'anno precedente"
FIELD B4 FIELD B4
GROUP 3 GROUP 3
END END
@ -253,6 +267,7 @@ END
BOOLEAN F_CORRISP BOOLEAN F_CORRISP
BEGIN BEGIN
PROMPT 46 4 "Registro corrispettivi" PROMPT 46 4 "Registro corrispettivi"
HELP "Indicare se si tratta di registro dei corrispettivi"
FIELD B0 FIELD B0
GROUP 2 GROUP 2
END END
@ -260,6 +275,7 @@ END
LIST F_TIPO_DESC_COSTI_RICAVI 1 10 LIST F_TIPO_DESC_COSTI_RICAVI 1 10
BEGIN BEGIN
PROMPT 2 4 "Tipo descrizione costi/ricavi " PROMPT 2 4 "Tipo descrizione costi/ricavi "
HELP "Livello a cui stampare la descrizione costi/ricavi"
FIELD I3 FIELD I3
GROUP 5 GROUP 5
ITEM "1|Gruppo" ITEM "1|Gruppo"
@ -270,6 +286,7 @@ NUMBER F_ULTIMO_NUM_RIGA_STAMPATO 7
BEGIN BEGIN
PROMPT 44 4 "Ultimo numero riga stamp." PROMPT 44 4 "Ultimo numero riga stamp."
FIELD I6 FIELD I6
HELP"Ultimo numero della riga stampata"
FLAGS "R" FLAGS "R"
GROUP 5 6 GROUP 5 6
END END
@ -277,6 +294,7 @@ END
BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI BOOLEAN F_STAMPA_INDIRIZZI_COMPLETI
BEGIN BEGIN
PROMPT 2 6 "Stampa indirizzi completi" PROMPT 2 6 "Stampa indirizzi completi"
HELP "Indicare se stampare gli indirizzi completi"
FIELD B5 FIELD B5
GROUP 2 3 GROUP 2 3
END END
@ -284,6 +302,7 @@ END
NUMBER F_PROG_DARE 15 NUMBER F_PROG_DARE 15
BEGIN BEGIN
PROMPT 2 6 "Progressivo dare " PROMPT 2 6 "Progressivo dare "
HELP "Progressivo dare del giornale"
FIELD R1 FIELD R1
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
@ -293,6 +312,7 @@ END
NUMBER F_TOT_INCASSI 15 NUMBER F_TOT_INCASSI 15
BEGIN BEGIN
PROMPT 2 6 "Totale incassi " PROMPT 2 6 "Totale incassi "
HELP "Progressivo degli incassi effettuati"
FIELD R0 FIELD R0
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
@ -304,7 +324,7 @@ BEGIN
PROMPT 46 6 "Stampa riepilogo liquidazione" PROMPT 46 6 "Stampa riepilogo liquidazione"
FIELD B6 FIELD B6
GROUP 2 3 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 FALSE ENABLE,F_STAMPA_LIQUIDAZIONE
MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE MESSAGE TRUE DISABLE,F_STAMPA_LIQUIDAZIONE|"X",F_STAMPA_LIQUIDAZIONE
END END
@ -312,6 +332,7 @@ END
NUMBER F_TOT_PAGAMENTI 15 NUMBER F_TOT_PAGAMENTI 15
BEGIN BEGIN
PROMPT 42 6 "Totale pagamenti " PROMPT 42 6 "Totale pagamenti "
HELP "Progressivo dei pagamenti effettuati"
FIELD R1 FIELD R1
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
@ -323,12 +344,13 @@ BEGIN
PROMPT 2 8 "Stampa liquidazione" PROMPT 2 8 "Stampa liquidazione"
FIELD B7 FIELD B7
GROUP 2 3 4 GROUP 2 3 4
HELP "Stampa a fine periodo la liquidazione" HELP "Indicare se stampare a fine periodo la liquidazione"
END END
NUMBER F_PROG_AVERE 15 NUMBER F_PROG_AVERE 15
BEGIN BEGIN
PROMPT 2 8 "Progressivo avere " PROMPT 2 8 "Progressivo avere "
HELP "Progressivo avere del giornale"
FIELD R2 FIELD R2
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
@ -338,6 +360,7 @@ END
LIST F_MESE_STAMPA_ULTIMA_LIQ 10 LIST F_MESE_STAMPA_ULTIMA_LIQ 10
BEGIN BEGIN
PROMPT 2 10 "Mese stampa ultima liquidazione " PROMPT 2 10 "Mese stampa ultima liquidazione "
HELP "Mese in cui Š stat stampata l'ultima liquidazione"
FIELD I4 FIELD I4
FLAGS "M" FLAGS "M"
ITEM "13|Annuale" ITEM "13|Annuale"
@ -350,12 +373,13 @@ BEGIN
FIELD I5 FIELD I5
FLAGS "R" FLAGS "R"
GROUP 2 3 GROUP 2 3
HELP "Inserire ultimo numero di protocollo" HELP "Ultimo numero di protocollo"
END END
BOOLEAN F_STAMPA_INTESTAZIONE BOOLEAN F_STAMPA_INTESTAZIONE
BEGIN BEGIN
PROMPT 46 12 "Stampa intestazione ditta" PROMPT 46 12 "Stampa intestazione ditta"
HELP "Indicare se stampare l'intestazione della ditta"
FIELD B9 FIELD B9
GROUP 1 GROUP 1
END END
@ -363,6 +387,7 @@ END
DATE F_ULTIMA_DATA_DI_REGISTR DATE F_ULTIMA_DATA_DI_REGISTR
BEGIN BEGIN
PROMPT 2 14 "Ultima data di registrazione " PROMPT 2 14 "Ultima data di registrazione "
HELP "Date dell'ultima registrazione stampata"
FIELD D2 FIELD D2
GROUP 2 3 5 6 GROUP 2 3 5 6
END END
@ -370,13 +395,10 @@ END
DATE F_ULTIMA_DATA_DI_STAMPA DATE F_ULTIMA_DATA_DI_STAMPA
BEGIN BEGIN
PROMPT 2 16 "Ultima data di stampa " PROMPT 2 16 "Ultima data di stampa "
HELP "Data dell'ultima stampa effettuata"
FIELD D3 FIELD D3
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

98
ba/batbsad.uml
View File

@ -1,54 +1,44 @@
#include "batbsad.h" #include "batbsad.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Spese da addebitare" -1 -1 78 8 PAGE "Tabella Spese da addebitare" -1 -1 78 8
STRING F_CODICE 3 STRING F_CODICE 3
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice delle spese da addebitare"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %SAD KEY 1
INPUT CODTAB F_CODICE USE %SAD
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @20" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @20" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 20
BEGIN STRING F_DESCR 20
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione delle spese da addebitare"
USE %SAD KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %SAD KEY 2
DISPLAY "Descrizione @20" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @20" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

88
ba/batbsco.uml
View File

@ -1,44 +1,44 @@
#include "batbsco.h" #include "batbsco.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Sconti Incondizionati" -1 -1 78 8 PAGE "Tabella Sconti Incondizionati" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice sconto incondizionato"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %SCO KEY 1
INPUT CODTAB F_CODICE USE %SCO
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @50" S0 DISPLAY "Codice" CODTAB
DISPLAY "Percentuale " R0 DISPLAY "Descrizione @50" S0
OUTPUT F_CODICE CODTAB DISPLAY "Percentuale " R0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
OUTPUT F_PERC R0 OUTPUT F_DESCR S0
CHECKTYPE REQUIRED OUTPUT F_PERC R0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 50
BEGIN STRING F_DESCR 50
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
END HELP "Descrizione sconto incondizionato"
FIELD LF_TABCOM->S0
NUMBER F_PERC 5 2 END
BEGIN
PROMPT 4 6 "Percentuale " NUMBER F_PERC 5 2
FIELD LF_TABCOM->R0 BEGIN
END PROMPT 4 6 "Percentuale "
HELP "Percentuale sconto incondizionato"
ENDPAGE FIELD LF_TABCOM->R0
ENDMASK END
ENDPAGE
ENDMASK

184
ba/batbsta.uml
View File

@ -1,92 +1,92 @@
#include "batbsta.h" #include "batbsta.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Stati esteri" -1 -1 78 13 PAGE "Stati esteri" -1 -1 78 13
STRING FLD_TABSTA_CODTAB 3 STRING FLD_TABSTA_CODTAB 3
BEGIN BEGIN
PROMPT 3 1 "Codice " PROMPT 3 1 "Codice "
FIELD %STA->CODTAB FIELD %STA->CODTAB
FLAGS "RZ" FLAGS "RZ"
KEY 1 KEY 1
USE %STA USE %STA
INPUT CODTAB FLD_TABSTA_CODTAB INPUT CODTAB FLD_TABSTA_CODTAB
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
OUTPUT FLD_TABSTA_CODTAB CODTAB OUTPUT FLD_TABSTA_CODTAB CODTAB
OUTPUT FLD_TABSTA_S0 S0 OUTPUT FLD_TABSTA_S0 S0
HELP "Inserire il codice dello stato" HELP "Codice dello stato"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING FLD_TABSTA_S0 50 STRING FLD_TABSTA_S0 50
BEGIN BEGIN
PROMPT 3 3 "Denominazione " PROMPT 3 3 "Denominazione "
FIELD %STA->S0 FIELD %STA->S0
KEY 2 KEY 2
USE %STA KEY 2 USE %STA KEY 2
INPUT S0 FLD_TABSTA_S0 INPUT S0 FLD_TABSTA_S0
DISPLAY "Denominazione@50" S0 DISPLAY "Denominazione@50" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT FLD_TABSTA_CODTAB CODTAB OUTPUT FLD_TABSTA_CODTAB CODTAB
OUTPUT FLD_TABSTA_S0 S0 OUTPUT FLD_TABSTA_S0 S0
HELP "Inserire il nome dello stato" HELP "Nome dello stato"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
LIST CHK_TABSTA_S6 18 LIST CHK_TABSTA_S6 18
BEGIN BEGIN
PROMPT 3 5 "Stato CEE " PROMPT 3 5 "Stato CEE "
FIELD %STA->S6 FIELD %STA->S6
HELP "Indicare il codice ISO dello stato" HELP "Indicare il codice ISO dello stato"
ITEM " |Italia o extra CEE" ITEM " |Italia o extra CEE"
ITEM "BE|Belgio" ITEM "BE|Belgio"
ITEM "DE|Germania" ITEM "DE|Germania"
ITEM "DK|Danimarca" ITEM "DK|Danimarca"
ITEM "EL|Grecia" ITEM "EL|Grecia"
ITEM "ES|Spagna" ITEM "ES|Spagna"
ITEM "FR|Francia" ITEM "FR|Francia"
ITEM "GB|Gran Bretagna" ITEM "GB|Gran Bretagna"
ITEM "IE|Irlanda" ITEM "IE|Irlanda"
ITEM "IT|Italia" ITEM "IT|Italia"
ITEM "LU|Lussemburgo" ITEM "LU|Lussemburgo"
ITEM "NL|Olanda" ITEM "NL|Olanda"
ITEM "PT|Portogallo" ITEM "PT|Portogallo"
END END
STRING FLD_TABSTA_S7 3 STRING FLD_TABSTA_S7 3
BEGIN BEGIN
PROMPT 3 7 "Valuta " PROMPT 3 7 "Valuta "
FIELD %STA->S7 FIELD %STA->S7
FLAGS "U" FLAGS "U"
USE %VAL USE %VAL
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODTAB FLD_TABSTA_S7 INPUT CODTAB FLD_TABSTA_S7
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Valuta " S0 DISPLAY "Valuta " S0
OUTPUT FLD_TABSTA_S7 CODTAB OUTPUT FLD_TABSTA_S7 CODTAB
OUTPUT FLD_TABSTA_S7_TABVAL_S0 S0 OUTPUT FLD_TABSTA_S7_TABVAL_S0 S0
HELP "Inserire la valuta corrente dello stato" HELP "Valuta corrente dello stato"
END END
STRING FLD_TABSTA_S7_TABVAL_S0 50 STRING FLD_TABSTA_S7_TABVAL_S0 50
BEGIN BEGIN
PROMPT 17 8 "" PROMPT 17 8 ""
FLAGS "D" FLAGS "D"
END END
STRING FLD_TABSTA_S2 10 STRING FLD_TABSTA_S2 10
BEGIN BEGIN
PROMPT 3 10 "Nazionalit… " PROMPT 3 10 "Nazionalit… "
FIELD %STA->S2 FIELD %STA->S2
HELP "Inserire la nazionalit… corrispondente a questo stato" HELP "Nazionalit… corrispondente a questo stato"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

85
ba/batbstt.uml
View File

@ -1,45 +1,40 @@
#include "batbstt.h" #include "batbstt.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Codici statistici" -1 -1 78 7 PAGE "Codici statistici" -1 -1 78 7
STRING FLD_TABSTT_CODTAB 7 STRING FLD_TABSTT_CODTAB 7
BEGIN BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FIELD %STT->CODTAB FIELD %STT->CODTAB
HELP "Inserire il codice statistico" HELP "Codice statistico"
USE %STT USE %STT
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABSTT_CODTAB INPUT CODTAB FLD_TABSTT_CODTAB
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
OUTPUT FLD_TABSTT_CODTAB CODTAB OUTPUT FLD_TABSTT_CODTAB CODTAB
OUTPUT FLD_TABSTT_S0 S0 OUTPUT FLD_TABSTT_S0 S0
KEY 1 KEY 1
END END
STRING FLD_TABSTT_S0 40 STRING FLD_TABSTT_S0 40
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
FIELD %STT->S0 FIELD %STT->S0
HELP "Inserire la descrizione della statistica" HELP "Descrizione del codice statistico"
USE %STT KEY 2 USE %STT KEY 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT S0 FLD_TABSTT_S0 INPUT S0 FLD_TABSTT_S0
DISPLAY "Descrizione@40" S0 DISPLAY "Descrizione@40" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT FLD_TABSTT_CODTAB CODTAB OUTPUT FLD_TABSTT_CODTAB CODTAB
OUTPUT FLD_TABSTT_S0 S0 OUTPUT FLD_TABSTT_S0 S0
KEY 2 KEY 2
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

98
ba/batbtit.uml
View File

@ -1,54 +1,44 @@
#include "batbtit.h" #include "batbtit.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Titoli Onorifici" -1 -1 78 8 PAGE "Tabella Titoli Onorifici" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice titolo onorifico"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %TIT KEY 1
INPUT CODTAB F_CODICE USE %TIT
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione titolo onorifico"
USE %TIT KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %TIT KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK

202
ba/batbues.uml
View File

@ -1,101 +1,101 @@
#include "batbues.h" #include "batb%ues.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Uffici esattoria" -1 -1 78 18 PAGE "Uffici esattoria" -1 -1 78 18
NUMBER FLD_TABUES_CODTAB 3 NUMBER FLD_TABUES_CODTAB 3
BEGIN BEGIN
PROMPT 3 1 "Codice " PROMPT 3 1 "Codice "
FIELD %UES->CODTAB FIELD %UES->CODTAB
FLAGS "RZ" FLAGS "RZ"
KEY 1 KEY 1
USE %UES USE %UES
INPUT CODTAB FLD_TABUES_CODTAB INPUT CODTAB FLD_TABUES_CODTAB
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@25" S0 DISPLAY "Descrizione@25" S0
OUTPUT FLD_TABUES_CODTAB CODTAB OUTPUT FLD_TABUES_CODTAB CODTAB
OUTPUT FLD_TABUES_S0 S0 OUTPUT FLD_TABUES_S0 S0
HELP "Inserire il codice dell'ufficio esattoria" HELP "Codice dell'ufficio esattoria"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING FLD_TABUES_S0 25 STRING FLD_TABUES_S0 25
BEGIN BEGIN
PROMPT 3 3 "Ufficio " PROMPT 3 3 "Ufficio "
FIELD %UES->S0 FIELD %UES->S0
KEY 2 KEY 2
USE %UES KEY 2 USE %UES KEY 2
INPUT S0 FLD_TABUES_S0 INPUT S0 FLD_TABUES_S0
DISPLAY "Descrizione@25" S0 DISPLAY "Descrizione@25" S0
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
OUTPUT FLD_TABUES_CODTAB CODTAB OUTPUT FLD_TABUES_CODTAB CODTAB
OUTPUT FLD_TABUES_S0 S0 OUTPUT FLD_TABUES_S0 S0
HELP "Inserire la descrizione dell'ufficio esattoria" HELP "Descrizione dell'ufficio esattoria"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING FLD_TABUES_S1 35 STRING FLD_TABUES_S1 35
BEGIN BEGIN
PROMPT 3 5 "Indirizzo " PROMPT 3 5 "Indirizzo "
FIELD %UES->S1 FIELD %UES->S1
HELP "Inserire l'indirizzo della sede dell'ufficio esattoria" HELP "Indirizzo della sede dell'ufficio esattoria"
END END
STRING FLD_TABUES_S3 10 STRING FLD_TABUES_S3 10
BEGIN BEGIN
PROMPT 56 5 "N." PROMPT 56 5 "N."
FIELD %UES->S3 FIELD %UES->S3
HELP "Inserire il numero civico della sede dell'ufficio esattoria" HELP "Numero civico della sede dell'ufficio esattoria"
END END
STRING FLD_TABUES_S6 4 STRING FLD_TABUES_S6 4
BEGIN BEGIN
PROMPT 3 7 "Comune " PROMPT 3 7 "Comune "
FIELD %UES->S6 FIELD %UES->S6
FLAGS "U" FLAGS "U"
USE LF_COMUNI USE LF_COMUNI
INPUT STATO "" INPUT STATO ""
INPUT COM FLD_TABUES_S6 INPUT COM FLD_TABUES_S6
#include <comdcod.h> #include <comdcod.h>
OUTPUT FLD_TABUES_S6 COM OUTPUT FLD_TABUES_S6 COM
OUTPUT FLD_TABUES_S6_COMUNI_DENCOM DENCOM OUTPUT FLD_TABUES_S6_COMUNI_DENCOM DENCOM
OUTPUT FLD_TABUES_S6_COMUNI_PROVCOM PROVCOM OUTPUT FLD_TABUES_S6_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_TABUES_S6_COMUNI_CAPCOM CAPCOM OUTPUT FLD_TABUES_S6_COMUNI_CAPCOM CAPCOM
HELP "Inserire il codice del comune della sede dell'ufficio esattoria" HELP "Codice del comune della sede dell'ufficio esattoria"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING FLD_TABUES_S6_COMUNI_DENCOM 50 STRING FLD_TABUES_S6_COMUNI_DENCOM 50
BEGIN BEGIN
PROMPT 3 9 "Nome " PROMPT 3 9 "Nome "
FLAGS "D" FLAGS "D"
END END
STRING FLD_TABUES_S6_COMUNI_PROVCOM 6 STRING FLD_TABUES_S6_COMUNI_PROVCOM 6
BEGIN BEGIN
PROMPT 3 11 "Provincia " PROMPT 3 11 "Provincia "
FLAGS "D" FLAGS "D"
END END
STRING FLD_TABUES_S6_COMUNI_CAPCOM 5 STRING FLD_TABUES_S6_COMUNI_CAPCOM 5
BEGIN BEGIN
PROMPT 56 11 "CAP " PROMPT 56 11 "CAP "
FIELD %UES->S7 FIELD %UES->S7
HELP "Inserire il numero civico della sede dell'ufficio esattoria" HELP "Numero civico della sede dell'ufficio esattoria"
END END
STRING FLD_TABUES_S4 10 STRING FLD_TABUES_S4 10
BEGIN BEGIN
PROMPT 3 13 "C.Corr.Postale " PROMPT 3 13 "C.Corr.Postale "
FIELD %UES->S4 FIELD %UES->S4
HELP "Inserire il numero di conto corrente postale dell'ufficio" HELP "Numero di conto corrente postale dell'ufficio"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

115
ba/batbvet.uml
View File

@ -1,56 +1,59 @@
#include "batbvet.h" #include "batbvet.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Vettori" -1 -1 78 15 PAGE "Vettori" -1 -1 78 15
NUMBER F_CODVETT 3 NUMBER F_CODVETT 3
BEGIN BEGIN
PROMPT 4 1 "Codice vettore " PROMPT 4 1 "Codice vettore "
FIELD LF_TABCOM->CODTAB FIELD LF_TABCOM->CODTAB
HELP "Inserire il codice del nuovo vettore" HELP "Codice del vettore"
FLAGS "RZ" FLAGS "RZ"
USE %VET USE %VET
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODTAB F_CODVETT INPUT CODTAB F_CODVETT
DISPLAY "Codice vettore" CODTAB DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0 DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0 OUTPUT F_RAGSO S0
KEY 1 KEY 1
END END
STRING F_RAGSO 50 STRING F_RAGSO 50
BEGIN BEGIN
PROMPT 4 3 "Ragione sociale " PROMPT 4 3 "Ragione sociale "
FIELD LF_TABCOM->S0 HELP "Ragione sociale del vettore"
FLAGS "U" FIELD LF_TABCOM->S0
USE %VET KEY 2 FLAGS "U"
CHECKTYPE REQUIRED USE %VET KEY 2
INPUT S0 F_RAGSO CHECKTYPE REQUIRED
DISPLAY "Codice vettore" CODTAB INPUT S0 F_RAGSO
DISPLAY "Ragione sociale@50" S0 DISPLAY "Codice vettore" CODTAB
OUTPUT F_CODVETT CODTAB DISPLAY "Ragione sociale@50" S0
OUTPUT F_RAGSO S0 OUTPUT F_CODVETT CODTAB
KEY 2 OUTPUT F_RAGSO S0
END KEY 2
END
STRING F_RESI 50
BEGIN STRING F_RESI 50
PROMPT 4 5 "Residenza " BEGIN
FIELD LF_TABCOM->S1 PROMPT 4 5 "Residenza "
FLAGS "U" HELP "Residenza del vettore"
END FIELD LF_TABCOM->S1
FLAGS "U"
STRING F_TEL 15 END
BEGIN
PROMPT 4 7 "Telefono " STRING F_TEL 15
FIELD LF_TABCOM->S2 BEGIN
FLAGS "U" PROMPT 4 7 "Telefono "
END HELP "Numero telefonico del vettore"
FIELD LF_TABCOM->S2
ENDPAGE FLAGS "U"
END
ENDMASK
ENDPAGE
ENDMASK

98
ba/batbzon.uml
View File

@ -1,54 +1,44 @@
#include "batbzon.h" #include "batbzon.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Tabella Codici Zona" -1 -1 78 8 PAGE "Tabella Codici Zona" -1 -1 78 8
STRING F_CODICE 2 STRING F_CODICE 2
BEGIN BEGIN
PROMPT 4 2 "Codice " PROMPT 4 2 "Codice "
FIELD CODTAB HELP "Codice della zona"
FLAGS "U" FIELD CODTAB
KEY 1 FLAGS "U"
USE %ZON KEY 1
INPUT CODTAB F_CODICE USE %ZON
DISPLAY "Codice" CODTAB INPUT CODTAB F_CODICE
DISPLAY "Descrizione @30" S0 DISPLAY "Codice" CODTAB
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 OUTPUT F_CODICE CODTAB
CHECKTYPE REQUIRED OUTPUT F_DESCR S0
END CHECKTYPE REQUIRED
END
STRING F_DESCR 30
BEGIN STRING F_DESCR 30
PROMPT 4 4 "Descrizione " BEGIN
FIELD LF_TABCOM->S0 PROMPT 4 4 "Descrizione "
KEY 2 HELP "Descrizione della zona"
USE %ZON KEY 2 FIELD LF_TABCOM->S0
INPUT CODTAB F_CODICE KEY 2
INPUT S0 F_DESCR USE %ZON KEY 2
DISPLAY "Descrizione @30" S0 INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB INPUT S0 F_DESCR
OUTPUT F_CODICE CODTAB DISPLAY "Descrizione @30" S0
OUTPUT F_DESCR S0 DISPLAY "Codice" CODTAB
CHECKTYPE REQUIRED OUTPUT F_CODICE CODTAB
END OUTPUT F_DESCR S0
CHECKTYPE REQUIRED
ENDPAGE END
ENDMASK
ENDPAGE
ENDMASK