467 lines
6.5 KiB
Plaintext
Executable File
467 lines
6.5 KiB
Plaintext
Executable File
USE 63
|
|
JOIN %CA7 TO 63 ALIAS 14 INTO CODTAB==CODCAUS
|
|
JOIN 9 INTO CODDITTA=CODDITTA
|
|
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
|
JOIN 6 TO 63 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 COM=COMRES
|
|
JOIN 13 TO 216@ ALIAS 513 INTO COM=COMRF(COMRES)
|
|
JOIN %STA TO 216@ ALIAS 24 INTO CODTAB=STATORES
|
|
END
|
|
|
|
DESCRIPTION
|
|
BEGIN
|
|
63->* "Quadro D1 770"
|
|
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 18
|
|
|
|
LISTA 9
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
FIELD 116@->TIPOA
|
|
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
|
END
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 3 1 ""
|
|
FIELD 116@->COFI
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "RAGIONE SOCIALE"
|
|
PROMPT 39 1 ""
|
|
FIELD 116@->RAGSOC
|
|
GROUP 2
|
|
END
|
|
|
|
STRINGA 3
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 39 1 ""
|
|
FIELD 116@->RAGSOC[1,30]
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 4
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 17 3 ""
|
|
FIELD 116@->RAGSOC[31,50]
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 5
|
|
BEGIN
|
|
KEY "SESSO"
|
|
PROMPT 58 3 ""
|
|
FIELD 118@->SESSO
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 6
|
|
BEGIN
|
|
KEY "DATA DI NASCITA"
|
|
PROMPT 63 3 ""
|
|
FIELD 118@->DATANASC
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 84 3 ""
|
|
FIELD 113@->DENCOM
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA"
|
|
PROMPT 125 3 ""
|
|
FIELD 113@->PROVCOM
|
|
GROUP 1
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "COMUNE DI RES.FISCALE"
|
|
PROMPT 17 5 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "PROV DI RES.FISCALE"
|
|
PROMPT 59 5 ""
|
|
FIELD 213@->PROVCOM
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "VIA di RES."
|
|
PROMPT 67 5 ""
|
|
FIELD 116@->INDRF
|
|
FIELD 116@->INDRES
|
|
FLAGS "H"
|
|
MESSAGE COPY,17
|
|
END
|
|
|
|
STRINGA 15
|
|
BEGIN
|
|
KEY "NUM. CIVICO di RES."
|
|
PROMPT 103 5 ""
|
|
FIELD 116@->CIVRF
|
|
FIELD 116@->CIVRES
|
|
FLAGS "H"
|
|
MESSAGE APPEND,17
|
|
END
|
|
|
|
STRINGA 17
|
|
BEGIN
|
|
KEY "VIA RES. + NUM. RES."
|
|
PROMPT 67 5 ""
|
|
END
|
|
|
|
STRINGA 16
|
|
BEGIN
|
|
KEY "CAP"
|
|
PROMPT 124 5 ""
|
|
FIELD 116@->CAPRF
|
|
FIELD 116@->CAPRES
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "CODICE FISCALE DICHIARANTE"
|
|
PROMPT 105 8 ""
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "NUM. FOGLIO"
|
|
PROMPT 125 11 ""
|
|
END
|
|
|
|
STRINGA 21
|
|
BEGIN
|
|
KEY "Ritenuta d'acconto"
|
|
PROMPT 105 10 ""
|
|
END
|
|
|
|
STRINGA 22
|
|
BEGIN
|
|
KEY "Ritenuta d'imposta"
|
|
PROMPT 105 11 ""
|
|
END
|
|
|
|
END
|
|
|
|
SECTION BODY ODD 6
|
|
|
|
LISTA 100
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
FIELD 216@->TIPOA
|
|
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
|
END
|
|
|
|
STRINGA 1
|
|
BEGIN
|
|
KEY "COD.FIS"
|
|
PROMPT 10 1 ""
|
|
FIELD 216@->COFI
|
|
END
|
|
|
|
STRING 2
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 42 1 ""
|
|
FIELD 216@->RAGSOC[1,30]
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 3
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 80 1 ""
|
|
FIELD 216@->RAGSOC[31,50]
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 101
|
|
BEGIN
|
|
KEY "RAGSOC GIURIDICHE"
|
|
PROMPT 54 1 ""
|
|
FIELD 216@->RAGSOC
|
|
GROUP 2
|
|
END
|
|
|
|
STRING 4
|
|
BEGIN
|
|
KEY "DATA NASCITA"
|
|
PROMPT 114 1 ""
|
|
FIELD 218@->DATANASC
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 5
|
|
BEGIN
|
|
KEY "SESSO"
|
|
PROMPT 128 1 ""
|
|
FIELD 218@->SESSO
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 6
|
|
BEGIN
|
|
KEY "COMUNE DI NASCITA"
|
|
PROMPT 10 3 ""
|
|
FIELD 313@->DENCOM
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 7
|
|
BEGIN
|
|
KEY "PROV DI NASCITA"
|
|
PROMPT 48 3 ""
|
|
FIELD 313@->PROVCOM
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 8
|
|
BEGIN
|
|
KEY "COMUNE DI RESIDENZA FISICHE"
|
|
PROMPT 53 3 ""
|
|
FIELD 413@->DENCOM
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 9
|
|
BEGIN
|
|
KEY "PROV. RESIDENZA FISICHE"
|
|
PROMPT 89 3 ""
|
|
FIELD 413@->PROVCOM
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 102
|
|
BEGIN
|
|
KEY "COMUNE RF/RES. GIURIDICHE"
|
|
PROMPT 10 3 ""
|
|
FIELD 513@->DENCOM
|
|
GROUP 2
|
|
END
|
|
|
|
STRING 103
|
|
BEGIN
|
|
KEY "PROVINCIA RF/RES. GIURIDICHE"
|
|
PROMPT 71 3 ""
|
|
FIELD 513@->PROVCOM
|
|
GROUP 2
|
|
END
|
|
|
|
STRING 105
|
|
BEGIN
|
|
KEY "VIA RESIDENZA FISICHE"
|
|
FIELD 216@->INDRES[1,18]
|
|
FLAGS "H"
|
|
MESSAGE COPY,10
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 106
|
|
BEGIN
|
|
KEY "NUMERO CIVICO RES. FISICHE"
|
|
FLAGS "H"
|
|
FIELD 216@->CIVRES
|
|
MESSAGE APPEND,10
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 10
|
|
BEGIN
|
|
KEY "VIA + NUMERO CIVICO RESIDENZA FISICHE"
|
|
PROMPT 95 3 ""
|
|
GROUP 1
|
|
END
|
|
|
|
STRING 105
|
|
BEGIN
|
|
KEY "VIA RF/RES. GIURIDICHE"
|
|
FIELD 216@->INDRF[1,18]
|
|
FIELD 216@->INDRES[1,18]
|
|
FLAGS "H"
|
|
MESSAGE COPY,104
|
|
GROUP 2
|
|
END
|
|
|
|
STRING 106
|
|
BEGIN
|
|
KEY "NUMERO CIVICO RF/RES. GIURIDICHE"
|
|
FLAGS "H"
|
|
FIELD 216@->CIVRF
|
|
FIELD 216@->CIVRES
|
|
MESSAGE APPEND,104
|
|
GROUP 2
|
|
END
|
|
|
|
STRING 104
|
|
BEGIN
|
|
KEY "VIA + NUMERO CIVICO RF/RES. GIURIDICHE"
|
|
PROMPT 75 3 ""
|
|
GROUP 2
|
|
END
|
|
|
|
STRING 11
|
|
BEGIN
|
|
KEY "CAUSALE DEL QUADRO D1"
|
|
PROMPT 13 5 ""
|
|
FIELD 14@->S3
|
|
END
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "TOTALE"
|
|
PROMPT 23 5 ""
|
|
// FIELD 63->TOTALE
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FL->12
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "QUOTA PROVVIGIONI"
|
|
PROMPT 40 5 ""
|
|
// FIELD 63->QUOTAPRO
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FL->13
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "SPESE ANTICIPATE"
|
|
PROMPT 57 5 ""
|
|
// FIELD 63->SPESEANT
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FL->14
|
|
END
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "IMPONIBILE"
|
|
PROMPT 75 5 ""
|
|
// FIELD 63->IMPONIBILE
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FL->15
|
|
END
|
|
|
|
STRING 16
|
|
BEGIN
|
|
KEY "ALIQUOTA"
|
|
PROMPT 90 5 ""
|
|
// FIELD 63->PERC
|
|
// PICTURE "##@,@@"
|
|
END
|
|
|
|
NUMBER 17
|
|
BEGIN
|
|
KEY "IMPORTO"
|
|
PROMPT 104 5 ""
|
|
// FIELD 63->IMPORTO
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FL->17
|
|
END
|
|
|
|
NUMBER 18
|
|
BEGIN
|
|
KEY "NETTO"
|
|
PROMPT 120 5 ""
|
|
// FIELD 63->NETTO
|
|
PICTURE "###.###.###^^^"
|
|
MESSAGE ADD,FL->18
|
|
END
|
|
|
|
END
|
|
|
|
SECTION FOOTER LAST 6
|
|
|
|
NUMBER 12
|
|
BEGIN
|
|
KEY "TOTALE TOTALE"
|
|
PROMPT 19 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 13
|
|
BEGIN
|
|
KEY "TOTALE QUOTA PROVVIGIONI"
|
|
PROMPT 36 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 14
|
|
BEGIN
|
|
KEY "TOTALE SPESE ANTICIPATE"
|
|
PROMPT 53 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 15
|
|
BEGIN
|
|
KEY "TOTALE IMPONIBILE"
|
|
PROMPT 70 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 17
|
|
BEGIN
|
|
KEY "TOTALE IMPORTO"
|
|
PROMPT 99 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMBER 18
|
|
BEGIN
|
|
KEY "TOTALE NETTO"
|
|
PROMPT 115 1 ""
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
STRINGA 2
|
|
BEGIN
|
|
KEY "FIRMA"
|
|
PROMPT 83 6 ""
|
|
FIELD 116@->RAGSOC
|
|
END
|
|
|
|
END
|