db5acc1fba
DISTITCF => DISIVACF DISSKX => DISGEN DISSD6 => DISIRG DELSII => DELIRF DELSDI => DELIIRCF DISSDI => DISIIRCF DELSDR => DELRITCF DISSDR => DISRITCF BOLTITCF => BOLIVACF git-svn-id: svn://10.65.10.50/trunk@1639 c028cbd2-c16b-5b4b-a496-9718f37d4682
355 lines
4.3 KiB
Plaintext
Executable File
355 lines
4.3 KiB
Plaintext
Executable File
// 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
|