// Delega di pagamento delle ritenute alla fonte e altri codici tributo

USE %SDR
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)
JOIN %BAN ALIAS 14 INTO CODTAB=S7
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5

END

SECTION BODY 0 66 0 0

STRINGA
BEGIN
 KEY "Azienda di credito"
 PROMPT 47 7 ""
 FIELD 14@->S0
END

STRINGA
BEGIN
 KEY "Dipendenza"
 PROMPT 47 9 ""
 FIELD 24@->S0
END

STRINGA
BEGIN
 KEY "PROVINCIA Dipendenza"
 PROMPT 78 9 ""
 FIELD 313@->PROVCOM
END

STRINGA
BEGIN
 KEY "COD. CONCESS."
 PROMPT 9 12 ""
 FIELD S9
END

STRINGA
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 15 12 ""
 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         

NUMERO
BEGIN
 KEY "AL PERIODO DI RIFERIMENTO (mese o anno)"
 PROMPT 30 28 ""
 FIELD I0
END

NUMERO
BEGIN
 KEY "AL PERIODO DI RIFERIMENTO (anno)"
 PROMPT 34 28 ""
 FIELD I1
END

DATA
BEGIN
 KEY "OVVERO ALTRA DATA"
 PROMPT 64 28 ""
 PICTURE "# # ^ # #^^^# #"
 FIELD D1
END

NUMERO
BEGIN
 KEY "TRIBUTO 1001: IMPORTO"
 PROMPT 14 33 ""
 MESSAGE COPY,10@
 PICTURE "###.###.###^^^"
 FIELD R0
END

NUMERO
BEGIN
 KEY "TRIBUTO 1001: INTERESSI"
 PROMPT 36 33 ""
 MESSAGE ADD,10@
 PICTURE "###.###.###^^^"
 FIELD R7
END

NUMERO
BEGIN
 KEY "TRIBUTO 1001: TOTALE"
 PROMPT 54 33 ""
 PICTURE "###.###.###^^^"
 MESSAGE COPY,9@
 GROUP 10
END

NUMERO
BEGIN
 KEY "TRIBUTO 1040: IMPORTO"
 PROMPT 14 35 ""
 MESSAGE COPY,11@
 PICTURE "###.###.###^^^"
 FIELD R1
END

NUMERO
BEGIN
 KEY "TRIBUTO 1040: INTERESSI"
 PROMPT 36 35 ""
 MESSAGE ADD,11@
 PICTURE "###.###.###^^^"
 FIELD R7
END

NUMERO
BEGIN
 KEY "TRIBUTO 1040: TOTALE"
 PROMPT 54 35 ""
 PICTURE "###.###.###^^^"
 MESSAGE ADD,9@
 GROUP 11
END

STRING
BEGIN
 KEY "TRIBUTO 3: CODICE"
 PROMPT 4 37 ""
 FIELD S2
END

NUMERO
BEGIN
 KEY "TRIBUTO 3: IMPORTO"
 PROMPT 14 37 ""
 MESSAGE COPY,12@
 PICTURE "###.###.###^^^"
 FIELD R2
END

NUMERO
BEGIN
 KEY "TRIBUTO 3: INTERESSI"
 PROMPT 36 37 ""
 MESSAGE ADD,12@
 PICTURE "###.###.###^^^"
 FIELD R8
END

NUMERO
BEGIN
 KEY "TRIBUTO 3: TOTALE"
 PROMPT 54 37 ""
 PICTURE "###.###.###^^^"
 MESSAGE ADD,9@
 GROUP 12
END


STRING
BEGIN
 KEY "TRIBUTO 4: CODICE"
 PROMPT 4 39 ""
 FIELD S3
END

NUMERO
BEGIN
 KEY "TRIBUTO 4: IMPORTO"
 PROMPT 14 39 ""
 MESSAGE COPY,13@
 PICTURE "###.###.###^^^"
 FIELD R3
END

NUMERO
BEGIN
 KEY "TRIBUTO 4: INTERESSI"
 PROMPT 36 39 ""
 MESSAGE ADD,13@
 PICTURE "###.###.###^^^"
 FIELD R9
END

NUMERO
BEGIN
 KEY "TRIBUTO 4: TOTALE"
 PROMPT 54 39 ""
 PICTURE "###.###.###^^^"
 MESSAGE ADD,9@
 GROUP 13
END


STRING
BEGIN
 KEY "TRIBUTO 5: CODICE"
 PROMPT 4 41 ""
 FIELD S4
END

NUMERO
BEGIN
 KEY "TRIBUTO 5: IMPORTO"
 PROMPT 14 41 ""
 MESSAGE COPY,14@
 PICTURE "###.###.###^^^"
 FIELD R4
END

NUMERO
BEGIN
 KEY "TRIBUTO 5: INTERESSI"
 PROMPT 36 41 ""
 MESSAGE ADD,14@
 PICTURE "###.###.###^^^"
 FIELD R10
END

NUMERO
BEGIN
 KEY "TRIBUTO 5: TOTALE"
 PROMPT 54 41 ""
 PICTURE "###.###.###^^^"
 MESSAGE ADD,9@
 GROUP 14
END


STRING
BEGIN
 KEY "TRIBUTO 6: CODICE"
 PROMPT 4 43 ""
 FIELD S5
END

NUMERO
BEGIN
 KEY "TRIBUTO 6: IMPORTO"
 PROMPT 14 43 ""
 MESSAGE COPY,15@
 PICTURE "###.###.###^^^"
 FIELD R5
END

NUMERO
BEGIN
 KEY "TRIBUTO 6: INTERESSI"
 PROMPT 36 43 ""
 MESSAGE ADD,15@
 PICTURE "###.###.###^^^"
 FIELD R11
END

NUMERO
BEGIN
 KEY "TRIBUTO 6: TOTALE"
 PROMPT 54 43 ""
 PICTURE "###.###.###^^^"
 MESSAGE ADD,9@
 GROUP 15
END


NUMERO
BEGIN
 KEY "TOTALE (in lettere)"
 PROMPT 5 57 ""
 GROUP  9
 PICTURE "LETTERE"
END

NUMERO
BEGIN
 KEY "TOTALE (in cifre)"
 PROMPT 60 57 ""
 GROUP  9
 PICTURE "###.###.###^^^"
END

DATA
BEGIN
 KEY "DATA: giorno - mese - anno"
 PROMPT 47 61 ""
 PICTURE "@@ ^ @@^^^@@"
 FIELD D0
END

END

END