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 "
END
BUTTON DLG_OK
BUTTON DLG_OK 9 2
BEGIN
PROMPT 45 5 ""
PROMPT -12 -1 ""
END
BUTTON DLG_CANCEL
BUTTON DLG_CANCEL 9 2
BEGIN
PROMPT 56 5 ""
PROMPT -22 -1 ""
END
ENDPAGE

12
ba/ba3600a.uml
View File

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

41
ba/ba4100a.uml
View File

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

30
ba/ba6100a.uml
View File

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

10
ba/ba6100b.uml
View File

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

4
ba/bastasf.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %ASF
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastcco.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %CCO
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastcfi.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %CFI
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastcrs.uml
View File

@ -6,7 +6,7 @@ STRING F_INIZIO1 2
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %CRS
INPUT CODTAB F_INIZIO1
@ -20,7 +20,7 @@ STRING F_FINE1 2
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastcve.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %CVE
INPUT CODTAB F_INIZIO1
@ -22,7 +22,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastesc.uml
View File

@ -11,7 +11,7 @@ END
NUMBER F_INIZIO1 4
BEGIN
PROMPT 2 3 "Da anno "
HELP "Inserire l'anno esercizio con cui iniziare la stampa"
HELP "Anno esercizio con cui iniziare la stampa"
FIELD LF_TAB->CODTAB
FLAGS "ZR"
USE ESC KEY 1
@ -26,7 +26,7 @@ END
NUMBER F_FINE1 4
BEGIN
PROMPT 25 3 "a anno "
HELP "Inserire l'anno esercizio con cui finire la stampa"
HELP "Anno esercizio con cui finire la stampa"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
FLAGS "ZR"

4
ba/bastleg.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %LEG
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastlis.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %LIS
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastmsp.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %MSP
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastndo.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %NDO
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastnot.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %NOT
INPUT CODTAB F_INIZIO1
@ -21,7 +21,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

8
ba/bastois.uml
View File

@ -6,7 +6,7 @@ STRING F_INIZIO1 4
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice d'inizio "
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
USE %OIS
FIELD CODTAB[1,4]
INPUT CODTAB[1,4] F_INIZIO1
@ -22,9 +22,9 @@ END
STRING F_INIZIO2 1
BEGIN
PROMPT 28 1 "subcodice "
HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio"
FLAGS "U"
FIELD CODTAB[5,]
HELP "Inserire il subcodice d'inizio "
COPY ALL F_INIZIO1
GROUP 1
END
@ -34,7 +34,7 @@ STRING F_FINE1 4
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine "
HELP "Codice di fine. Vuoto = fine archivio"
COPY USE F_INIZIO1
FIELD CODTAB[1,4]
INPUT CODTAB[1,4] F_FINE1
@ -50,8 +50,8 @@ STRING F_FINE2 1
BEGIN
PROMPT 28 3 "subcodice "
FLAGS "U"
HELP "Inserire il subcodice di fine "
FIELD CODTAB[5,]
HELP "Subcodice di fine. Vuoto = fine archivio"
COPY ALL F_FINE1
GROUP 2
END

4
ba/bastpor.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %POR
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

3
ba/bastreg.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa registri" -1 -1 74 8
NUMBER F_CODDITTA 5
BEGIN
PROMPT 1 1 "Ditta "
HELP "Ditta di cui stampare i registri"
FLAGS "FRD"
USE LF_NDITTE KEY 1
CHECKTYPE REQUIRED
@ -33,7 +34,7 @@ BEGIN
FLAGS "RZ"
// FLAGS "A"
FIELD CODTAB[1,4]
HELP "Stampa i registri dell'anno indicato. Se lasciato vuoto stampa tutti i registri"
HELP "Stampa i registri dell'anno indicato. Vuoto = tutti i registri"
MESSAGE COPY, F_FINE2
GROUP 1
END

4
ba/bastsad.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %SAD
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastsco.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
FIELD LF_TABCOM->CODTAB
USE %SCO
INPUT CODTAB F_INIZIO1
@ -20,7 +20,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/baststa.uml
View File

@ -6,7 +6,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %STA
INPUT CODTAB F_INIZIO1
@ -20,7 +20,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/baststt.uml
View File

@ -5,7 +5,7 @@ PAGE "Stampa codici statistici" -1 -1 50 8
STRING F_INIZIO1 7
BEGIN
PROMPT 2 1 "Da codice "
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %STT
INPUT CODTAB F_INIZIO1
@ -18,7 +18,7 @@ END
STRING F_FINE1 7
BEGIN
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
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/basttit.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %TIT
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

2
ba/bastues.uml
View File

@ -5,6 +5,7 @@ PAGE "Stampa uffici esattoria" -1 -1 50 8
NUMBER F_INIZIO1 3
BEGIN
PROMPT 3 1 "Da codice "
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
USE %UES
FLAGS "RZ"
INPUT CODTAB F_INIZIO1
@ -18,6 +19,7 @@ END
NUMBER F_FINE1 3
BEGIN
PROMPT 3 3 "A codice "
HELP "Codice di fine. Vuoto = fine archivio"
COPY USE F_INIZIO1
FLAGS "RZ"
INPUT CODTAB F_FINE1

4
ba/bastvet.uml
View File

@ -6,7 +6,7 @@ NUMBER F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "RZ"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %VET
INPUT CODTAB F_INIZIO1
@ -21,7 +21,7 @@ NUMBER F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "RZ"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

4
ba/bastzon.uml
View File

@ -5,7 +5,7 @@ STRING F_INIZIO1 3
BEGIN
PROMPT 2 1 "Da codice "
FLAGS "U"
HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
FIELD LF_TABCOM->CODTAB
USE %ZON
INPUT CODTAB F_INIZIO1
@ -19,7 +19,7 @@ STRING F_FINE1 3
BEGIN
PROMPT 2 3 "A codice "
FLAGS "U"
HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
HELP "Codice di fine. Vuoto = fine archivio"
FIELD LF_TABCOM->CODTAB
COPY USE F_INIZIO1
INPUT CODTAB F_FINE1

14
ba/batbasf.uml
View File

@ -11,6 +11,7 @@ PAGE "Codici assoggettamento fiscale" -1 -1 78 8
NUMBER F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice di assoggettamento fiscale"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione dell'assoggettamento fiscale"
FIELD LF_TABCOM->S0
KEY 2
USE %ASF KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

4
ba/batbcco.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Codici Categorie Contabili" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della categoria contabile"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della categoria contabile"
FIELD LF_TABCOM->S0
KEY 2
USE %CCO KEY 2
@ -40,5 +42,3 @@ END
ENDPAGE
ENDMASK

14
ba/batbcfi.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Categorie Finanziarie" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della categoria finanziaria"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della categoria fiinanziaria"
FIELD LF_TABCOM->S0
KEY 2
USE %CFI KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

4
ba/batbcrs.uml
View File

@ -11,6 +11,7 @@ PAGE "Cariche sociali" -1 -1 78 7
STRING FLD_TABCRS_CODTAB 2
BEGIN
PROMPT 3 1 "Codice "
HELP "Codice della carica sociale"
FIELD LF_TABCOM->CODTAB
KEY 1
USE %CRS
@ -19,7 +20,6 @@ BEGIN
DISPLAY "Carica@25" S0
OUTPUT FLD_TABCRS_CODTAB CODTAB
OUTPUT FLD_TABCRS_S0 S0
HELP "Inserire il codice della carica sociale"
CHECKTYPE REQUIRED
END
@ -34,7 +34,7 @@ BEGIN
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABCRS_CODTAB CODTAB
OUTPUT FLD_TABCRS_S0 S0
HELP "Inserire la descrizione della carica sociale"
HELP "Descrizione della carica sociale"
CHECKTYPE REQUIRED
END

9
ba/batbcve.uml
View File

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

5
ba/batbesc.uml
View File

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

14
ba/batbleg.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Codici Legali" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice di riconoscimento codici legali"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione del codice legale"
FIELD LF_TABCOM->S0
KEY 2
USE %LEG KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

14
ba/batblis.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Codici Listino" -1 -1 78 8
STRING F_CODICE 5
BEGIN
PROMPT 4 2 "Codice "
Help "Codice listino"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione listino"
FIELD LF_TABCOM->S0
KEY 2
USE %LIS KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

14
ba/batbmsp.uml
View File

@ -11,6 +11,7 @@ PAGE "Modalita' di Spedizione" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della modalit… di spedizione"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della modalit… di spedizione"
FIELD LF_TABCOM->S0
KEY 2
USE %MSP KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

14
ba/batbndo.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Note Documento" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice note documento"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione nota documento"
FIELD LF_TABCOM->S0
KEY 2
USE %NDO KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

17
ba/batbnot.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Codici Note Cliente" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice note del cliente"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -29,13 +30,15 @@ END
STRING F_DEST 30
BEGIN
PROMPT 4 4 "Destinazione "
PROMPT 4 4 "Descrizione "
HELP "Descrizione della nota del cliente"
FIELD LF_TABCOM->S0
END
BOOLEAN F_BLOCCA
BEGIN
PROMPT 4 6 "Blocca immissione "
HELP "Indicare se bloccare l'inserimento del documento"
FIELD LF_TABCOM->B0
END
@ -47,15 +50,3 @@ END
ENDPAGE
ENDMASK

5
ba/batbois.uml
View File

@ -10,7 +10,7 @@ STRING FLD_TABOIS_CODTAB 4
BEGIN
PROMPT 2 1 "Codice "
FIELD %OIS->CODTAB[1,4]
HELP "Inserire il codice del vecchio codice attivit…"
HELP "Codice del vecchio codice attivit…"
USE %OIS
CHECKTYPE REQUIRED
INPUT CODTAB[1,4] FLD_TABOIS_CODTAB
@ -28,6 +28,7 @@ END
STRING FLD_TABOIS_ADD 1
BEGIN
PROMPT 22 1 "Subcodice "
HELP "Subcodice del vecchio codice attivit…"
FIELD %OIS->CODTAB[5,]
COPY ALL FLD_TABOIS_CODTAB
CHECKTYPE REQUIRED
@ -39,7 +40,7 @@ STRING FLD_TABOIS_S0 40
BEGIN
PROMPT 2 3 "Descrizione "
FIELD %OIS->S0
HELP "Inserire la descrizione del vecchio codice attivit… "
HELP "Descrizione del vecchio codice attivit… "
USE %OIS KEY 2
CHECKTYPE REQUIRED
INPUT S0 FLD_TABOIS_S0

14
ba/batbpor.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Modalita' di consegna" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della modalit… di consegna"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della modalit… di consegna"
FIELD LF_TABCOM->S0
KEY 2
USE %POR KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

40
ba/batbreg.uml
View File

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

14
ba/batbsad.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Spese da addebitare" -1 -1 78 8
STRING F_CODICE 3
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice delle spese da addebitare"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 20
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione delle spese da addebitare"
FIELD LF_TABCOM->S0
KEY 2
USE %SAD KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

6
ba/batbsco.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Sconti Incondizionati" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice sconto incondizionato"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -28,17 +29,16 @@ END
STRING F_DESCR 50
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione sconto incondizionato"
FIELD LF_TABCOM->S0
END
NUMBER F_PERC 5 2
BEGIN
PROMPT 4 6 "Percentuale "
HELP "Percentuale sconto incondizionato"
FIELD LF_TABCOM->R0
END
ENDPAGE
ENDMASK

8
ba/batbsta.uml
View File

@ -20,7 +20,7 @@ BEGIN
DISPLAY "Denominazione@50" S0
OUTPUT FLD_TABSTA_CODTAB CODTAB
OUTPUT FLD_TABSTA_S0 S0
HELP "Inserire il codice dello stato"
HELP "Codice dello stato"
CHECKTYPE REQUIRED
END
@ -35,7 +35,7 @@ BEGIN
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABSTA_CODTAB CODTAB
OUTPUT FLD_TABSTA_S0 S0
HELP "Inserire il nome dello stato"
HELP "Nome dello stato"
CHECKTYPE REQUIRED
END
@ -71,7 +71,7 @@ BEGIN
DISPLAY "Valuta " S0
OUTPUT FLD_TABSTA_S7 CODTAB
OUTPUT FLD_TABSTA_S7_TABVAL_S0 S0
HELP "Inserire la valuta corrente dello stato"
HELP "Valuta corrente dello stato"
END
STRING FLD_TABSTA_S7_TABVAL_S0 50
@ -84,7 +84,7 @@ STRING FLD_TABSTA_S2 10
BEGIN
PROMPT 3 10 "Nazionalit… "
FIELD %STA->S2
HELP "Inserire la nazionalit… corrispondente a questo stato"
HELP "Nazionalit… corrispondente a questo stato"
END
ENDPAGE

9
ba/batbstt.uml
View File

@ -10,7 +10,7 @@ STRING FLD_TABSTT_CODTAB 7
BEGIN
PROMPT 2 1 "Codice "
FIELD %STT->CODTAB
HELP "Inserire il codice statistico"
HELP "Codice statistico"
USE %STT
CHECKTYPE REQUIRED
INPUT CODTAB FLD_TABSTT_CODTAB
@ -25,7 +25,7 @@ STRING FLD_TABSTT_S0 40
BEGIN
PROMPT 2 3 "Descrizione "
FIELD %STT->S0
HELP "Inserire la descrizione della statistica"
HELP "Descrizione del codice statistico"
USE %STT KEY 2
CHECKTYPE REQUIRED
INPUT S0 FLD_TABSTT_S0
@ -38,8 +38,3 @@ END
ENDPAGE
ENDMASK

14
ba/batbtit.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Titoli Onorifici" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice titolo onorifico"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione titolo onorifico"
FIELD LF_TABCOM->S0
KEY 2
USE %TIT KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK

16
ba/batbues.uml
View File

@ -1,4 +1,4 @@
#include "batbues.h"
#include "batb%ues.h"
TOOLBAR "" 0 20 0 2
@ -20,7 +20,7 @@ BEGIN
DISPLAY "Descrizione@25" S0
OUTPUT FLD_TABUES_CODTAB CODTAB
OUTPUT FLD_TABUES_S0 S0
HELP "Inserire il codice dell'ufficio esattoria"
HELP "Codice dell'ufficio esattoria"
CHECKTYPE REQUIRED
END
@ -35,7 +35,7 @@ BEGIN
DISPLAY "Codice" CODTAB
OUTPUT FLD_TABUES_CODTAB CODTAB
OUTPUT FLD_TABUES_S0 S0
HELP "Inserire la descrizione dell'ufficio esattoria"
HELP "Descrizione dell'ufficio esattoria"
CHECKTYPE REQUIRED
END
@ -43,14 +43,14 @@ STRING FLD_TABUES_S1 35
BEGIN
PROMPT 3 5 "Indirizzo "
FIELD %UES->S1
HELP "Inserire l'indirizzo della sede dell'ufficio esattoria"
HELP "Indirizzo della sede dell'ufficio esattoria"
END
STRING FLD_TABUES_S3 10
BEGIN
PROMPT 56 5 "N."
FIELD %UES->S3
HELP "Inserire il numero civico della sede dell'ufficio esattoria"
HELP "Numero civico della sede dell'ufficio esattoria"
END
STRING FLD_TABUES_S6 4
@ -66,7 +66,7 @@ BEGIN
OUTPUT FLD_TABUES_S6_COMUNI_DENCOM DENCOM
OUTPUT FLD_TABUES_S6_COMUNI_PROVCOM PROVCOM
OUTPUT FLD_TABUES_S6_COMUNI_CAPCOM CAPCOM
HELP "Inserire il codice del comune della sede dell'ufficio esattoria"
HELP "Codice del comune della sede dell'ufficio esattoria"
CHECKTYPE NORMAL
END
@ -86,14 +86,14 @@ STRING FLD_TABUES_S6_COMUNI_CAPCOM 5
BEGIN
PROMPT 56 11 "CAP "
FIELD %UES->S7
HELP "Inserire il numero civico della sede dell'ufficio esattoria"
HELP "Numero civico della sede dell'ufficio esattoria"
END
STRING FLD_TABUES_S4 10
BEGIN
PROMPT 3 13 "C.Corr.Postale "
FIELD %UES->S4
HELP "Inserire il numero di conto corrente postale dell'ufficio"
HELP "Numero di conto corrente postale dell'ufficio"
END
ENDPAGE

5
ba/batbvet.uml
View File

@ -10,7 +10,7 @@ NUMBER F_CODVETT 3
BEGIN
PROMPT 4 1 "Codice vettore "
FIELD LF_TABCOM->CODTAB
HELP "Inserire il codice del nuovo vettore"
HELP "Codice del vettore"
FLAGS "RZ"
USE %VET
CHECKTYPE REQUIRED
@ -25,6 +25,7 @@ END
STRING F_RAGSO 50
BEGIN
PROMPT 4 3 "Ragione sociale "
HELP "Ragione sociale del vettore"
FIELD LF_TABCOM->S0
FLAGS "U"
USE %VET KEY 2
@ -40,6 +41,7 @@ END
STRING F_RESI 50
BEGIN
PROMPT 4 5 "Residenza "
HELP "Residenza del vettore"
FIELD LF_TABCOM->S1
FLAGS "U"
END
@ -47,6 +49,7 @@ END
STRING F_TEL 15
BEGIN
PROMPT 4 7 "Telefono "
HELP "Numero telefonico del vettore"
FIELD LF_TABCOM->S2
FLAGS "U"
END

14
ba/batbzon.uml
View File

@ -11,6 +11,7 @@ PAGE "Tabella Codici Zona" -1 -1 78 8
STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice "
HELP "Codice della zona"
FIELD CODTAB
FLAGS "U"
KEY 1
@ -26,6 +27,7 @@ END
STRING F_DESCR 30
BEGIN
PROMPT 4 4 "Descrizione "
HELP "Descrizione della zona"
FIELD LF_TABCOM->S0
KEY 2
USE %ZON KEY 2
@ -40,15 +42,3 @@ END
ENDPAGE
ENDMASK