450 lines
6.0 KiB
Plaintext
Executable File
450 lines
6.0 KiB
Plaintext
Executable File
USE 101
|
|
JOIN 9 TO 101 INTO CODDITTA==CODDITTA
|
|
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 6 TO 101 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 218@ ALIAS 313 INTO COM=COMNASC
|
|
JOIN 13 TO 216@ ALIAS 413 INTO STATO=STATORES COM=COMRES
|
|
JOIN 13 TO 216@ ALIAS 513 INTO STATO=""(STATORES) COM=COMRF(COMRES)
|
|
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
62->* "770 Quadro G distinta"
|
|
9->* "Ditte"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
8->* "Anagrafica persone fisiche"
|
|
113@->* "Comuni"
|
|
213@->* "Comuni"
|
|
216@->* "Anagrafica persone fisiche e giuridiche"
|
|
218@->* "Anagrafica persone giuridiche"
|
|
313@->* "Comuni"
|
|
413@->* "Comuni"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier 17cpi"
|
|
SIZE 10
|
|
CA "X"
|
|
IN 3 2
|
|
FI 131
|
|
END
|
|
|
|
SECTION HEADER FIRST 15
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DICHIARANTE"
|
|
PROMPT 105 19 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 123 6 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION HEADER LAST 18
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 4 11 ""
|
|
FIELD 106@->COFI
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "RAGIONE SOCIALE"
|
|
PROMPT 39 11 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 39 11 ""
|
|
FIELD 106@->RAGSOC[1,30]
|
|
GROUP 1
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 17 13 ""
|
|
FIELD 106@->RAGSOC[31,50]
|
|
GROUP 1
|
|
FLAGS "H"
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "COMUNE DI RES."
|
|
PROMPT 17 13 ""
|
|
FIELD 413@->DENCOM
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "PROV DI RES."
|
|
PROMPT 58 13 ""
|
|
FIELD 413@->PROVCOM
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "VIA di RES."
|
|
PROMPT 65 13 ""
|
|
FIELD 106@->INDRF
|
|
FIELD 106@->INDRES
|
|
GROUP 4
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "NUM. CIVICO di RES."
|
|
PROMPT 101 13 ""
|
|
FIELD 106@->CIVRF
|
|
FIELD 106@->CIVRES
|
|
GROUP 4
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "CAP"
|
|
PROMPT 122 13 ""
|
|
FIELD 106@->CAPRF
|
|
FIELD 106@->CAPRES
|
|
GROUP 4
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DICHIARANTE"
|
|
PROMPT 118 16 ""
|
|
END
|
|
|
|
STRINGA 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 120 17 ""
|
|
FLAGS "H"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD 8
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 10 1 ""
|
|
FIELD 216@->COFI
|
|
END
|
|
|
|
STRING 2
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 43 1 ""
|
|
FIELD 216@->RAGSOC[1,30]
|
|
END
|
|
|
|
STRING 3
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 98 1 ""
|
|
FIELD 216@->RAGSOC[31,50]
|
|
END
|
|
|
|
STRING 4
|
|
BEGIN
|
|
KEY "DATA NASCITA"
|
|
PROMPT 10 3 ""
|
|
FIELD 218@->DATANASC
|
|
END
|
|
|
|
STRING 5
|
|
BEGIN
|
|
KEY "SESSO"
|
|
PROMPT 36 3 ""
|
|
FIELD 218@->SESSO
|
|
END
|
|
|
|
STRING 6
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 44 3 ""
|
|
FIELD 313@->DENCOM
|
|
END
|
|
|
|
STRING 7
|
|
BEGIN
|
|
KEY "PROV DI NASCITA"
|
|
PROMPT 117 3 ""
|
|
FIELD 313@->PROVCOM
|
|
END
|
|
|
|
STRING 8
|
|
BEGIN
|
|
KEY "COMUNE DI RESIDENZA"
|
|
PROMPT 10 5 ""
|
|
FIELD 413@->DENCOM
|
|
END
|
|
|
|
STRING 9
|
|
BEGIN
|
|
KEY "PROV. RESIDENZA"
|
|
PROMPT 58 5 ""
|
|
FIELD 413@->PROVCOM
|
|
END
|
|
|
|
STRING 101
|
|
BEGIN
|
|
KEY "VIA RES."
|
|
PROMPT 94 5 ""
|
|
FIELD 216@->INDRES[1,18]
|
|
FLAGS "H"
|
|
MESSAGE COPY,10
|
|
END
|
|
|
|
STRING 102
|
|
BEGIN
|
|
KEY "NUM.CIV"
|
|
PROMPT 93 5 ""
|
|
FLAGS "H"
|
|
FIELD 216@->CIVRES
|
|
MESSAGE APPEND,10
|
|
END
|
|
|
|
STRING 10
|
|
BEGIN
|
|
KEY "VIA RES. + numcivres"
|
|
PROMPT 66 5 ""
|
|
END
|
|
|
|
NUMBER 11
|
|
BEGIN
|
|
KEY "NUMERO QUOTE"
|
|
PROMPT 117 5 ""
|
|
FIELD 101->NUMQUOTE
|
|
PICTURE "###.###.###,@@"
|
|
END
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "UTILI SPETTANTI"
|
|
PROMPT 31 7 ""
|
|
FIELD 101->UTSPETT
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FO->12
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
|
|
PROMPT 59 7 ""
|
|
FIELD 101->ROPESPET
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FO->13
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "UTILI PAGATI"
|
|
PROMPT 93 7 ""
|
|
FIELD 101->UTPAG
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FO->14
|
|
END
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
|
|
PROMPT 120 7 ""
|
|
FIELD 101->ROPE
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FO->15
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY EVEN 6
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 10 1 ""
|
|
FIELD 216@->COFI
|
|
END
|
|
|
|
STRING 2
|
|
BEGIN
|
|
KEY "RAGSOC GIURIDICHE"
|
|
PROMPT 44 1 ""
|
|
FIELD 216@->RAGSOC
|
|
END
|
|
|
|
STRING 3
|
|
BEGIN
|
|
KEY "COMUNE DI RF/RES. GIURIDICHE"
|
|
PROMPT 10 3 ""
|
|
FIELD 513@->DENCOM
|
|
END
|
|
|
|
STRING 4
|
|
BEGIN
|
|
KEY "PROV. RF/RES. GIURIDICHE"
|
|
PROMPT 61 3 ""
|
|
FIELD 513@->PROVCOM
|
|
END
|
|
|
|
STRING 5
|
|
BEGIN
|
|
KEY "VIA RF/RES. GIURIDICHE"
|
|
PROMPT 94 3 ""
|
|
FIELD 216@->INDRF[1,18]
|
|
FIELD 216@->INDRES[1,18]
|
|
FLAGS "H"
|
|
MESSAGE COPY,7
|
|
END
|
|
|
|
STRING 6
|
|
BEGIN
|
|
KEY "NUM.CIV RF/RES. GIURIDICHE"
|
|
PROMPT 93 3 ""
|
|
FLAGS "H"
|
|
FIELD 216@->CIVRF
|
|
FIELD 216@->CIVRES
|
|
MESSAGE APPEND,7
|
|
END
|
|
|
|
STRING 7
|
|
BEGIN
|
|
KEY "VIA RF/RES. + numcivres"
|
|
PROMPT 69 3 ""
|
|
END
|
|
|
|
NUMBER 11
|
|
BEGIN
|
|
KEY "NUMERO QUOTE"
|
|
PROMPT 117 3 ""
|
|
FIELD 101->NUMQUOTE
|
|
PICTURE "###.###.###,@@"
|
|
END
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "UTILI SPETTANTI"
|
|
PROMPT 31 5 ""
|
|
FIELD 101->UTSPETT
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FE->12
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "RIT.OPERATE SUGLI UTILI SPETTANTI"
|
|
PROMPT 59 5 ""
|
|
FIELD 101->ROPESPET
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FE->13
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "UTILI PAGATI"
|
|
PROMPT 93 5 ""
|
|
FIELD 101->UTPAG
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FE->14
|
|
END
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "RITENUTE OPERATE SUGLI UT.PAGATI"
|
|
PROMPT 120 5 ""
|
|
FIELD 101->ROPE
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FE->15
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER ODD 2
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "TOTALE UT.SPETT."
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "TOTALE R.OPE.SU UT.SPETT."
|
|
PROMPT 59 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "TOTALE UTILI PAGATI"
|
|
PROMPT 93 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "TOTALE R.OPE.SU UT.PAGATI"
|
|
PROMPT 120 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER EVEN 2
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "TOTALE UT.SPETT."
|
|
PROMPT 31 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "TOTALE R.OPE.SU UT.SPETT."
|
|
PROMPT 59 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "TOTALE UTILI PAGATI"
|
|
PROMPT 93 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "TOTALE R.OPE.SU UT.PAGAI"
|
|
PROMPT 120 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 16
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 13 ""
|
|
FIELD 106@->RAGSOC
|
|
END
|
|
|
|
END
|