// 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)

END     
     
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