764 lines
9.9 KiB
Plaintext
Executable File
764 lines
9.9 KiB
Plaintext
Executable File
// Distinta di versamento: IRPEF, IRPEG e altri codici tributo
|
|
|
|
USE %SDI
|
|
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
|
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
|
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
|
|
|
|
|
SECTION BODY 0 66 0 0
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CONCESSIONE DI"
|
|
PROMPT 28 7 ""
|
|
FIELD 14@->S0
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COD. CONCESS."
|
|
PROMPT 9 13 ""
|
|
FIELD S9
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "CODICE FISCALE"
|
|
PROMPT 15 13 ""
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
|
|
PROMPT 2 17 ""
|
|
FIELD 6->RAGSOC[1,30]
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "NOME"
|
|
PROMPT 54 17 ""
|
|
FIELD 6->RAGSOC[31,-1]
|
|
END
|
|
|
|
LISTA
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
FIELD 6->TIPOA
|
|
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
|
END
|
|
|
|
GRUPPO
|
|
BEGIN
|
|
KEY "Persone fisiche"
|
|
PROMPT 0 0 ""
|
|
GROUP 1
|
|
END
|
|
|
|
DATA
|
|
BEGIN
|
|
KEY "DATA DI NASCITA"
|
|
PROMPT 2 19 ""
|
|
GROUP 1
|
|
PICTURE "# #~# #~~ # # #"
|
|
FIELD 8->DATANASC
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "SESSO (M o F)"
|
|
PROMPT 19 19 ""
|
|
GROUP 1
|
|
FIELD 8->SESSO
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "COMUNE (o Stato estero) DI NASCITA"
|
|
PROMPT 24 19 ""
|
|
GROUP 1
|
|
FIELD 113@->DENCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA (sigla)"
|
|
PROMPT 68 19 ""
|
|
GROUP 1
|
|
FIELD 113@->PROVCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: COMUNE"
|
|
PROMPT 8 21 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
|
PROMPT 36 21 ""
|
|
FIELD 213@->PROVCOM
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: VIA"
|
|
PROMPT 41 21 ""
|
|
FIELD 6->INDRF
|
|
FIELD 6->INDRES
|
|
END
|
|
|
|
STRINGA
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
|
PROMPT 70 21 ""
|
|
FIELD 6->CIVRF
|
|
FIELD 6->CIVRES
|
|
END
|
|
|
|
LISTA
|
|
BEGIN
|
|
KEY "Righe da compilare "
|
|
FIELD S6
|
|
ITEM "F| " MESSAGE ENABLE,6@|DISABLE,7@|DISABLE,8@
|
|
ITEM "G| " MESSAGE ENABLE,7@|DISABLE,6@|DISABLE,8@
|
|
ITEM "S| " MESSAGE ENABLE,8@|DISABLE,6@|DISABLE,7@
|
|
END
|
|
|
|
GRUPPO
|
|
BEGIN
|
|
KEY "Righe Persone Fisiche"
|
|
PROMPT 0 0 ""
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4007: PERIODO AA (1)"
|
|
PROMPT 20 26 ""
|
|
FIELD I0
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4007: PERIODO AA (2)"
|
|
PROMPT 23 26 ""
|
|
FIELD I1
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4007: IMPOSTA"
|
|
PROMPT 28 26 ""
|
|
MESSAGE COPY,10@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R0
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4007: INTERESSI"
|
|
PROMPT 46 26 ""
|
|
MESSAGE ADD,10@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R7
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4007: TOTALE"
|
|
PROMPT 60 26 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 6 10
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4001: PERIODO AA (1)"
|
|
PROMPT 20 28 ""
|
|
FIELD I2
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4001: PERIODO AA (2)"
|
|
PROMPT 23 28 ""
|
|
FIELD I3
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4001: IMPOSTA"
|
|
PROMPT 28 28 ""
|
|
MESSAGE COPY,11@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R1
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4001: INTERESSI"
|
|
PROMPT 46 28 ""
|
|
MESSAGE ADD,11@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R8
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 4001: TOTALE"
|
|
PROMPT 60 28 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 6 11
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3353: PERIODO AA (1)"
|
|
PROMPT 20 30 ""
|
|
FIELD I2
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3353: PERIODO AA (2)"
|
|
PROMPT 23 30 ""
|
|
FIELD I3
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3353: IMPOSTA"
|
|
PROMPT 28 30 ""
|
|
MESSAGE COPY,12@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R2
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3353: INTERESSI"
|
|
PROMPT 46 30 ""
|
|
MESSAGE ADD,12@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R9
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 3353: TOTALE"
|
|
PROMPT 60 30 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 6 12
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3350: PERIODO AA (1)"
|
|
PROMPT 20 32 ""
|
|
FIELD I6
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3350: PERIODO AA (2)"
|
|
PROMPT 23 32 ""
|
|
FIELD I7
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3350: IMPOSTA"
|
|
PROMPT 28 32 ""
|
|
MESSAGE COPY,13@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R3
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3350: INTERESSI"
|
|
PROMPT 46 32 ""
|
|
MESSAGE ADD,13@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R10
|
|
GROUP 6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3350: TOTALE"
|
|
PROMPT 60 32 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 6 13
|
|
END
|
|
|
|
|
|
GRUPPO
|
|
BEGIN
|
|
KEY "Righe Persone Giuridiche"
|
|
PROMPT 0 0 ""
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2110: PERIODO AA (1)"
|
|
PROMPT 20 34 ""
|
|
FIELD I0
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2110: PERIODO AA (2)"
|
|
PROMPT 23 34 ""
|
|
FIELD I1
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2110: IMPOSTA"
|
|
PROMPT 28 34 ""
|
|
MESSAGE COPY,10@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R0
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2110: INTERESSI"
|
|
PROMPT 46 34 ""
|
|
MESSAGE ADD,10@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R7
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2110: TOTALE"
|
|
PROMPT 60 34 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 7 10
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2100: PERIODO AA (1)"
|
|
PROMPT 20 36 ""
|
|
FIELD I2
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2100: PERIODO AA (2)"
|
|
PROMPT 23 36 ""
|
|
FIELD I3
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2100: IMPOSTA"
|
|
PROMPT 28 36 ""
|
|
MESSAGE COPY,11@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R1
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2100: INTERESSI"
|
|
PROMPT 46 36 ""
|
|
MESSAGE ADD,11@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R8
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEG 2100: TOTALE"
|
|
PROMPT 60 36 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 7 11
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3110: PERIODO AA (1)"
|
|
PROMPT 20 38 ""
|
|
FIELD I2
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3110: PERIODO AA (2)"
|
|
PROMPT 23 38 ""
|
|
FIELD I3
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3110: IMPOSTA"
|
|
PROMPT 28 38 ""
|
|
MESSAGE COPY,12@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R2
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3110: INTERESSI"
|
|
PROMPT 46 38 ""
|
|
MESSAGE ADD,12@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R9
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "IRPEF 3110: TOTALE"
|
|
PROMPT 60 38 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 7 12
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3000: PERIODO AA (1)"
|
|
PROMPT 20 40 ""
|
|
FIELD I6
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3000: PERIODO AA (2)"
|
|
PROMPT 23 40 ""
|
|
FIELD I7
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3000: IMPOSTA"
|
|
PROMPT 28 40 ""
|
|
MESSAGE COPY,13@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R3
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3000: INTERESSI"
|
|
PROMPT 46 40 ""
|
|
MESSAGE ADD,13@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R10
|
|
GROUP 7
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3000: TOTALE"
|
|
PROMPT 60 40 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 7 13
|
|
END
|
|
|
|
|
|
GRUPPO
|
|
BEGIN
|
|
KEY "Righe Societa' di Persone"
|
|
PROMPT 0 0 ""
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3303: PERIODO AA (1)"
|
|
PROMPT 20 42 ""
|
|
FIELD I4
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3303: PERIODO AA (2)"
|
|
PROMPT 23 42 ""
|
|
FIELD I5
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3303: IMPOSTA"
|
|
PROMPT 28 42 ""
|
|
MESSAGE COPY,12@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R2
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3303: INTERESSI"
|
|
PROMPT 46 42 ""
|
|
MESSAGE ADD,12@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R9
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3303: TOTALE"
|
|
PROMPT 60 42 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 8 12
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3300: PERIODO AA (1)"
|
|
PROMPT 20 44 ""
|
|
FIELD I6
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3300: PERIODO AA (2)"
|
|
PROMPT 23 44 ""
|
|
FIELD I7
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3300: IMPOSTA"
|
|
PROMPT 28 44 ""
|
|
MESSAGE COPY,13@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R3
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3300: INTERESSI"
|
|
PROMPT 46 44 ""
|
|
MESSAGE ADD,13@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R10
|
|
GROUP 8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "ILOR 3300: TOTALE"
|
|
PROMPT 60 44 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 8 13
|
|
END
|
|
|
|
GRUPPO
|
|
BEGIN
|
|
KEY "IMPOSTE SOSTITUTIVE E ALTRI CODICI TRIBUTO"
|
|
PROMPT 0 0 ""
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1: PERIODO AA (1)"
|
|
PROMPT 20 50 ""
|
|
FIELD I8
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1: PERIODO AA (2)"
|
|
PROMPT 23 50 ""
|
|
FIELD I9
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1: IMPORTO"
|
|
PROMPT 28 50 ""
|
|
MESSAGE COPY,14@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R4
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1: INTERESSI"
|
|
PROMPT 46 50 ""
|
|
MESSAGE ADD,14@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R11
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 1: TOTALE"
|
|
PROMPT 60 50 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 14
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 2: PERIODO AA (1)"
|
|
PROMPT 20 52 ""
|
|
FIELD I10
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 2: PERIODO AA (2)"
|
|
PROMPT 23 52 ""
|
|
FIELD I11
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 2: IMPORTO"
|
|
PROMPT 28 52 ""
|
|
MESSAGE COPY,15@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R5
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 2: INTERESSI"
|
|
PROMPT 46 52 ""
|
|
MESSAGE ADD,15@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R12
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 2: TOTALE"
|
|
PROMPT 60 52 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 15
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 3: PERIODO AA (1)"
|
|
PROMPT 20 54 ""
|
|
FIELD I12
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 3: PERIODO AA (2)"
|
|
PROMPT 23 54 ""
|
|
FIELD I13
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 3: IMPORTO"
|
|
PROMPT 28 54 ""
|
|
MESSAGE COPY,16@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R6
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 3: INTERESSI"
|
|
PROMPT 46 54 ""
|
|
MESSAGE ADD,16@
|
|
PICTURE "###.###.###~~~"
|
|
FIELD R13
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TRIBUTO 3: TOTALE"
|
|
PROMPT 60 54 ""
|
|
PICTURE "###.###.###~~~"
|
|
MESSAGE ADD,9@
|
|
GROUP 16
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TOTALE (in lettere)"
|
|
PROMPT 5 58 ""
|
|
GROUP 9
|
|
PICTURE "LETTERE"
|
|
END
|
|
|
|
NUMERO
|
|
BEGIN
|
|
KEY "TOTALE (in cifre)"
|
|
PROMPT 60 58 ""
|
|
GROUP 9
|
|
PICTURE "###.###.###~~~"
|
|
END
|
|
|
|
DATA
|
|
BEGIN
|
|
KEY "DATA: giorno - mese - anno"
|
|
PROMPT 12 62 ""
|
|
PICTURE "@@ ~ @@~~~@@"
|
|
FIELD D0
|
|
END
|
|
|
|
END
|
|
|
|
END
|