397 lines
4.9 KiB
Plaintext
Executable File
397 lines
4.9 KiB
Plaintext
Executable File
// Distinte di versamento IRPEF/ILOR (PERSONE FISICHE)
|
|
|
|
USE %SII
|
|
|
|
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
|
JOIN 8 TO 6 ALIAS 18 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
|
|
|
JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
|
|
JOIN 8 TO 6 ALIAS 28 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 8 ALIAS 313 INTO COM=COMNASC
|
|
|
|
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
|
|
|
|
END
|
|
|
|
SECTION BODY 0 66 0 0
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CONCESSIONE DI"
|
|
PROMPT 40 5 ""
|
|
FIELD 14@->S0
|
|
END
|
|
|
|
GRUPPO
|
|
BEGIN
|
|
KEY "DATI DICHIARANTE"
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 5 10 ""
|
|
FIELD 16->RAGSOC[1,30]
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 36 10 ""
|
|
FIELD 16->RAGSOC[31,0]
|
|
END
|
|
|
|
DATA
|
|
BEGIN
|
|
KEY "DATA DI NASCITA"
|
|
PROMPT 56 10 ""
|
|
PICTURE "# #^# #^^ # # #"
|
|
FIELD 18->DATANASC
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "SESSO (M o F)"
|
|
PROMPT 69 12 ""
|
|
FIELD 18->SESSO
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "STATO CIVILE"
|
|
PROMPT 74 12 ""
|
|
FIELD 18->STATCIV
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COMUNE (o Stato estero) DI NASCITA"
|
|
PROMPT 5 12 ""
|
|
FIELD 113@->DENCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA (sigla)"
|
|
PROMPT 41 12 ""
|
|
FIELD 113@->PROVCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 46 12 ""
|
|
FIELD 16->COFI
|
|
PICTURE "# # # # # # # # # # # # # # #"
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "RESIDENTE IN: COMUNE"
|
|
PROMPT 14 14 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "RESIDENTE IN: PROV. (sigla)"
|
|
PROMPT 41 14 ""
|
|
FIELD 213@->PROVCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "RESIDENTE IN: VIA"
|
|
PROMPT 46 14 ""
|
|
FIELD 16->INDRES
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "RESIDENTE IN: NUMERO CIVICO"
|
|
PROMPT 72 14 ""
|
|
FIELD 16->CIVRES
|
|
END
|
|
|
|
GRUPPO
|
|
BEGIN
|
|
KEY "DATI CONIUGE"
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COGNOME"
|
|
PROMPT 5 17 ""
|
|
FIELD 26->RAGSOC[1,30]
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 36 17 ""
|
|
FIELD 26->RAGSOC[31,0]
|
|
END
|
|
|
|
DATA
|
|
BEGIN
|
|
KEY "DATA DI NASCITA"
|
|
PROMPT 56 17 ""
|
|
PICTURE "# #^# #^^ # # #"
|
|
FIELD 28->DATANASC
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "SESSO (M o F)"
|
|
PROMPT 69 17 ""
|
|
FIELD 28->SESSO
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "STATO CIVILE"
|
|
PROMPT 74 17 ""
|
|
FIELD 28->STATCIV
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COMUNE (o Stato estero) DI NASCITA"
|
|
PROMPT 5 19 ""
|
|
FIELD 313@->DENCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA (sigla)"
|
|
PROMPT 42 19 ""
|
|
FIELD 313@->PROVCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 46 19 ""
|
|
FIELD 26->COFI
|
|
PICTURE "# # # # # # # # # # # # # # #"
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF Saldo: anno"
|
|
PROMPT 25 24 ""
|
|
FIELD I0
|
|
PICTURE "^^# #"
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF Saldo: Imposta"
|
|
PROMPT 32 24 ""
|
|
FIELD R0
|
|
MESSAGE COPY,10@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF Saldo: Interessi"
|
|
PROMPT 47 24 ""
|
|
FIELD R7
|
|
MESSAGE ADD,10@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF Saldo: Totale"
|
|
PROMPT 62 24 ""
|
|
GROUP 10
|
|
MESSAGE COPY,20@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF Acconto: anno"
|
|
PROMPT 25 28 ""
|
|
FIELD I1
|
|
PICTURE "^^# #"
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF Acconto: Imposta"
|
|
PROMPT 32 28 ""
|
|
FIELD R1
|
|
MESSAGE COPY,11@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF Acconto: Interessi"
|
|
PROMPT 47 28 ""
|
|
FIELD R8
|
|
MESSAGE ADD,11@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF Acconto: Totale"
|
|
PROMPT 62 28 ""
|
|
GROUP 11
|
|
MESSAGE ADD,20@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Saldo: anno"
|
|
PROMPT 25 35 ""
|
|
FIELD I2
|
|
PICTURE "^^# #"
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Saldo dichiarante: Imposta"
|
|
PROMPT 32 37 ""
|
|
FIELD R2
|
|
MESSAGE COPY,12@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Saldo dichiarante: Interessi"
|
|
PROMPT 47 37 ""
|
|
FIELD R9
|
|
MESSAGE ADD,12@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Saldo dichiarante: Totale"
|
|
PROMPT 62 37 ""
|
|
GROUP 12
|
|
MESSAGE ADD,20@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Saldo coniuge: Imposta"
|
|
PROMPT 32 39 ""
|
|
FIELD R3
|
|
MESSAGE COPY,13@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Saldo coniuge: Interessi"
|
|
PROMPT 47 39 ""
|
|
FIELD R10
|
|
MESSAGE ADD,13@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Saldo coniuge: Totale"
|
|
PROMPT 62 39 ""
|
|
GROUP 13
|
|
MESSAGE ADD,20@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Acconto: anno"
|
|
PROMPT 25 43 ""
|
|
FIELD I3
|
|
PICTURE "^^# #"
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Acconto dichiarante: Imposta"
|
|
PROMPT 32 45 ""
|
|
FIELD R4
|
|
MESSAGE COPY,14@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Acconto dichiarante: Interessi"
|
|
PROMPT 47 45 ""
|
|
FIELD R11
|
|
MESSAGE ADD,14@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Acconto dichiarante: Totale"
|
|
PROMPT 62 45 ""
|
|
GROUP 14
|
|
MESSAGE ADD,20@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Acconto coniuge: Imposta"
|
|
PROMPT 32 47 ""
|
|
FIELD R5
|
|
MESSAGE COPY,15@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Acconto coniuge: Interessi"
|
|
PROMPT 47 47 ""
|
|
FIELD R12
|
|
MESSAGE ADD,15@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR Acconto coniuge: Totale"
|
|
PROMPT 62 47 ""
|
|
GROUP 15
|
|
MESSAGE ADD,20@
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR: TOTALE DA VERSARE"
|
|
PROMPT 62 50 ""
|
|
GROUP 20
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE CONTRIBUENTE Dichiarante"
|
|
PROMPT 2 54 "# # # # # # # # # # # # # # #"
|
|
FIELD 16@->CODCONTR
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE CONTRIBUENTE Coniuge"
|
|
PROMPT 2 57 "# # # # # # # # # # # # # # #"
|
|
FIELD 26@->CODCONTR
|
|
END
|
|
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CENTRO SERVIZI: Provincia e Denominazione"
|
|
PROMPT 42 57 ""
|
|
MESSAGE _CENSERoUFFIMP,16@,213@
|
|
END
|
|
|
|
DATA
|
|
BEGIN
|
|
KEY "DATA: giorno - mese - anno"
|
|
PROMPT 12 60 ""
|
|
PICTURE "@ @^@ @^^^@ @"
|
|
FIELD D0
|
|
END
|
|
|
|
END
|
|
|
|
END
|