// Delega di pagamento: IRPEF E/O ILOR (PERSONE FISICHE)

USE %IPF

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

JOIN %UCS TO 213@ ALIAS 34 INTO CODTAB=CENSER
JOIN 13 TO 34@ ALIAS 513 INTO COM=S6

END

SECTION BODY 0 66 0 0

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

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

STRINGA
BEGIN
 KEY "PROVINCIA Dipendenza"
 PROMPT 72 9 ""
 FIELD 413@->PROVCOM
END

GRUPPO
BEGIN
  KEY "DATI DICHIARANTE"
END

STRINGA
BEGIN
 KEY "COGNOME"
 PROMPT 5 12 ""
 FIELD 16->RAGSOC[1,30]
END

STRINGA
BEGIN
 KEY "NOME"
 PROMPT 33 12 ""
 FIELD 16->RAGSOC[31,0]
END

DATA
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 54 12 ""
 PICTURE "# #^# #^^ # # #"
 FIELD 18->DATANASC
END

STRINGA
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 68 12 ""
 FIELD 18->SESSO
END

STRINGA
BEGIN
 KEY "STATO CIVILE"
 PROMPT 72 12 ""
 FIELD 18->STATCIV
END

STRINGA
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 5 14 ""
 FIELD 113@->DENCOM
END

STRINGA
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 33 14 ""
 FIELD 113@->PROVCOM
END

STRINGA
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 43 14 ""
 FIELD 16->COFI
 PICTURE "# # # # # # # # # # # # # # #"
END

STRINGA
BEGIN
 KEY "RESIDENTE IN: COMUNE"
 PROMPT 5 16 ""
 FIELD 213@->DENCOM
END

STRINGA
BEGIN
 KEY "RESIDENTE IN: PROV. (sigla)"
 PROMPT 33 16 ""
 FIELD 213@->PROVCOM
END

STRINGA
BEGIN
 KEY "RESIDENTE IN: VIA"
 PROMPT 41 18 ""
 FIELD 16->INDRES
END

STRINGA
BEGIN
 KEY "RESIDENTE IN: NUMERO CIVICO"
 PROMPT 70 18 ""
 FIELD 16->CIVRES
END   

GRUPPO
BEGIN
  KEY "DATI CONIUGE"
END

STRINGA
BEGIN
 KEY "COGNOME"
 PROMPT 5 19 ""
 FIELD 26->RAGSOC[1,30]
END

STRINGA
BEGIN
 KEY "NOME"
 PROMPT 33 19 ""
 FIELD 26->RAGSOC[31,0]
END

DATA
BEGIN
 KEY "DATA DI NASCITA"
 PROMPT 58 19 ""
 PICTURE "# #^# #^^ # # #"
 FIELD 28->DATANASC
END

STRINGA
BEGIN
 KEY "SESSO (M o F)"
 PROMPT 72 19 ""
 FIELD 28->SESSO
END

STRINGA
BEGIN
 KEY "COMUNE (o Stato estero) DI NASCITA"
 PROMPT 5 21 ""
 FIELD 313@->DENCOM
END

STRINGA
BEGIN
 KEY "PROV. DI NASCITA (sigla)"
 PROMPT 33 21 ""
 FIELD 313@->PROVCOM
END

STRINGA
BEGIN
 KEY "CODICE FISCALE"
 PROMPT 43 21 ""
 FIELD 26->COFI
 PICTURE "# # # # # # # # # # # # # # #"
END

NUMERO
BEGIN
 KEY "IRPEF: Saldo anno"
 PROMPT 28 28 ""
 FIELD I0
 PICTURE "^^# #"
END

NUMERO
BEGIN
 KEY "IRPEF: Saldo in lettere"
 PROMPT 10 30 ""
 PICTURE "LETTERE"
 FIELD R0
END

NUMERO
BEGIN
 KEY "IRPEF: Saldo in cifre"
 PROMPT 58 30 ""
 FIELD R0
END

NUMERO
BEGIN
 KEY "IRPEF: Acconto anno"
 PROMPT 28 32 ""
 FIELD I1
 PICTURE "^^# #"
END

NUMERO
BEGIN
 KEY "IRPEF: Acconto in lettere"
 PROMPT 10 34 ""
 PICTURE "LETTERE"
 FIELD R1
END

NUMERO
BEGIN
 KEY "IRPEF: Acconto in cifre"
 PROMPT 58 34 ""
 FIELD R1
END

NUMERO
BEGIN
 KEY "ILOR: Saldo anno"
 PROMPT 28 39 ""
 FIELD I2
 PICTURE "^^# #"
END

NUMERO
BEGIN
 KEY "ILOR: Saldo dichiarante"
 PROMPT 50 41 ""
 FIELD R2        
 MESSAGGE COPY,10@
END

NUMERO
BEGIN
 KEY "ILOR: Saldo coniuge"
 PROMPT 50 43 ""
 FIELD R3
 MESSAGGE ADD,10@
END

NUMERO
BEGIN
 KEY "ILOR: Saldo in lettere"
 PROMPT 10 46 ""
 GROUP 10
END

NUMERO
BEGIN
 KEY "ILOR: Saldo in cifre"
 PROMPT 58 46 ""
 GROUP 10
END


NUMERO
BEGIN
 KEY "ILOR: Acconto anno"
 PROMPT 28 48 ""
 FIELD I3
 PICTURE "^^# #"
END

NUMERO
BEGIN
 KEY "ILOR: Acconto dichiarante"
 PROMPT 50 50 ""
 FIELD R4        
 MESSAGGE COPY,11@
END

NUMERO
BEGIN
 KEY "ILOR: Acconto coniuge"
 PROMPT 50 52 ""
 FIELD R5
 MESSAGGE ADD,11@
END

NUMERO
BEGIN
 KEY "ILOR: Acconto in lettere"
 PROMPT 10 54 ""
 GROUP 11
END

NUMERO
BEGIN
 KEY "ILOR: Acconto in cifre"
 PROMPT 58 54 ""
 GROUP 11
END

STRINGA
BEGIN
  KEY "CENTRO SERVIZI: Provincia"
  PROMPT 60 3 ""
  FIELD 513@->PROVCOM
END

STRINGA
BEGIN
  KEY "CENTRO SERVIZI"
  PROMPT 60 10 ""
  FIELD 34@->S0
END

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

STRINGA
BEGIN
 KEY "CODICE AZIENDA"
 PROMPT 52 60 ""
 FIELD S7
END

STRINGA
BEGIN
 KEY "CODICE DIPENDENZA"
 PROMPT 65 60 ""
 FIELD S8
END

END

END