Corretti forms deleghe

git-svn-id: svn://10.65.10.50/trunk@1304 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-04-26 08:04:27 +00:00
parent d256cab0f6
commit 313fbade7d
8 changed files with 3592 additions and 3590 deletions

File diff suppressed because it is too large Load Diff

View File

@ -1,385 +1,385 @@
// 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
// 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

View File

@ -1,354 +1,354 @@
// 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
// 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

View File

@ -1,268 +1,270 @@
// Distinta di versamento: IRPEG/ILOR (PERSONE GIURIDICHE)
USE %SDI
USE %SD6
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 6 INTO COM=COMRF(COMRES)
END
SECTION BODY 0 66 0 0
END
SECTION BODY 0 66 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 28 4 ""
FIELD 14@->S0
END
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 28 4 ""
FIELD 14@->S0
END
STRINGA
BEGIN
KEY "DENOMINAZIONE"
PROMPT 2 10 ""
FIELD 6->RAGSOC
END
STRINGA
BEGIN
KEY "DENOMINAZIONE"
PROMPT 2 10 ""
FIELD 6->RAGSOC
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 55 10 ""
FIELD 6->COFI
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 55 10 ""
FIELD 6->COFI
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 16 12 ""
FIELD 213@->DENCOM
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 16 12 ""
FIELD 13->DENCOM
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 36 12 ""
FIELD 213@->PROVCOM
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 36 12 ""
FIELD 13->PROVCOM
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 41 21 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 41 12 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 70 21 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
STRINGA
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 70 12 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
GRUPPO
BEGIN
KEY "DISTINTA VERSAMENTO IRPEG"
PROMPT 0 0 ""
END
GRUPPO
BEGIN
KEY "DISTINTA VERSAMENTO IRPEG"
PROMPT 0 0 ""
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
PROMPT 20 18 ""
FIELD I0
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: DA ANNO"
PROMPT 20 18 ""
FIELD I0
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
PROMPT 27 18 ""
FIELD I1
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: AD ANNO"
PROMPT 27 18 ""
FIELD I1
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
PROMPT 32 18 ""
MESSAGE COPY,1@
PICTURE "###.###.###~~~"
FIELD R0
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: IMPOSTA"
PROMPT 32 18 ""
MESSAGE COPY,1@
PICTURE "###.###.###~~~"
FIELD R0
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
PROMPT 48 18 ""
MESSAGE ADD,1@
PICTURE "###.###.###~~~"
FIELD R4
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: INTERESSI"
PROMPT 48 18 ""
MESSAGE ADD,1@
PICTURE "###.###.###~~~"
FIELD R4
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: TOTALE"
PROMPT 62 18 ""
GROUP 1
MESSAGE COPY,5@
PICTURE "###.###.###~~~"
END
NUMERO
BEGIN
KEY "IRPEG 2100 GRUPPO 4: TOTALE"
PROMPT 62 18 ""
PICTURE "###.###.###~~~"
GROUP 1
MESSAGE COPY,5@
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
PROMPT 20 23 ""
FIELD I2
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: DA ANNO"
PROMPT 20 23 ""
FIELD I2
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
PROMPT 27 23 ""
FIELD I3
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: AD ANNO"
PROMPT 27 23 ""
FIELD I3
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
PROMPT 32 23 ""
MESSAGE COPY,2@
PICTURE "###.###.###~~~"
FIELD R1
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: IMPOSTA"
PROMPT 32 23 ""
MESSAGE COPY,2@
PICTURE "###.###.###~~~"
FIELD R1
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
PROMPT 48 23 ""
MESSAGE ADD,2@
PICTURE "###.###.###~~~"
FIELD R5
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: INTERESSI"
PROMPT 48 23 ""
MESSAGE ADD,2@
PICTURE "###.###.###~~~"
FIELD R5
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: TOTALE"
PROMPT 62 23 ""
GROUP 2
MESSAGE ADD,5@
PICTURE "###.###.###~~~"
END
NUMERO
BEGIN
KEY "IRPEG 2110 GRUPPO 10: TOTALE"
PROMPT 62 23 ""
PICTURE "###.###.###~~~"
GROUP 2
MESSAGE ADD,5@
END
GRUPPO
BEGIN
KEY "DISTINTA VERSAMENTO ILOR"
PROMPT 0 0 ""
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: DA ANNO"
PROMPT 20 33 ""
FIELD I4
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: DA ANNO"
PROMPT 20 33 ""
FIELD I4
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: AD ANNO"
PROMPT 27 33 ""
FIELD I5
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: AD ANNO"
PROMPT 27 33 ""
FIELD I5
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
PROMPT 32 33 ""
MESSAGE COPY,3@
PICTURE "###.###.###~~~"
FIELD R2
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: IMPOSTA"
PROMPT 32 33 ""
MESSAGE COPY,3@
PICTURE "###.###.###~~~"
FIELD R2
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: INTERESSI"
PROMPT 48 33 ""
MESSAGE ADD,3@
PICTURE "###.###.###~~~"
FIELD R6
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: INTERESSI"
PROMPT 48 33 ""
MESSAGE ADD,3@
PICTURE "###.###.###~~~"
FIELD R6
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: TOTALE"
PROMPT 62 33 ""
PICTURE "###.###.###~~~"
GROUP 3
MESSAGE ADD,5@
END
NUMERO
BEGIN
KEY "ILOR 3000 GRUPPO 06: TOTALE"
PROMPT 62 33 ""
GROUP 3
MESSAGE ADD,5@
PICTURE "###.###.###~~~"
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: DA ANNO"
PROMPT 20 38 ""
FIELD I6
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: DA ANNO"
PROMPT 20 38 ""
FIELD I6
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: AD ANNO"
PROMPT 27 38 ""
FIELD I7
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: AD ANNO"
PROMPT 27 38 ""
FIELD I7
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
PROMPT 32 38 ""
MESSAGE COPY,4@
PICTURE "###.###.###~~~"
FIELD R3
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: IMPOSTA"
PROMPT 32 38 ""
MESSAGE COPY,4@
PICTURE "###.###.###~~~"
FIELD R3
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: INTERESSI"
PROMPT 48 38 ""
MESSAGE ADD,4@
PICTURE "###.###.###~~~"
FIELD R7
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: INTERESSI"
PROMPT 48 38 ""
MESSAGE ADD,4@
PICTURE "###.###.###~~~"
FIELD R7
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: TOTALE"
PROMPT 62 38 ""
PICTURE "###.###.###~~~"
GROUP 4
MESSAGE ADD,5@
END
NUMERO
BEGIN
KEY "ILOR 3110 GRUPPO 11: TOTALE"
PROMPT 62 38 ""
GROUP 4
MESSAGE ADD,5@
PICTURE "###.###.###~~~"
END
NUMERO
BEGIN
KEY "TOTALE DA VERSARE"
PROMPT 62 44 ""
PICTURE "###.###.###~~~"
GROUP 5
END
NUMERO
BEGIN
KEY "TOTALE DA VERSARE"
PROMPT 62 44 ""
GROUP 5
PICTURE "###.###.###~~~"
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE"
PROMPT 2 51 "# # # # # # # # # # # # # # #"
FIELD 6@->CODCONTR
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE"
PROMPT 2 51 ""
PICTURE "# # # # # # # # # # # # # # #"
FIELD 6->CODCONTR
END
STRINGA
BEGIN
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 42 52 ""
MESSAGE _CENSERoUFFIMP,6@,13@
END
STRINGA
BEGIN
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 42 52 ""
MESSAGE _CENSERoUFFIMP,6,13
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 56 ""
PICTURE "@@ ~ @@~~~@@"
FIELD D0
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 56 ""
PICTURE "@@ ~ @@~~~@@"
FIELD D0
END
END
END
END
END

File diff suppressed because it is too large Load Diff

View File

@ -1,369 +1,369 @@
// Distinta 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 %UCC ALIAS 14 INTO CODTAB=S9
END
SECTION BODY 0 66 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 47 7 ""
FIELD 14@->S0
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 10 60 ""
PICTURE "@@ ~ @@~~~@@"
FIELD D0
END
END
END
// Distinta 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 %UCC ALIAS 14 INTO CODTAB=S9
END
SECTION BODY 0 66 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 47 7 ""
FIELD 14@->S0
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 10 60 ""
PICTURE "@@ ~ @@~~~@@"
FIELD D0
END
END
END

View File

@ -1,396 +1,396 @@
// Distinte di versamento IRPEF/ILOR (PERSONE FISICHE)
USE %SII
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=COMRF(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 %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
END
SECTION BODY 0 66 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 40 5 ""
FIELD 14@->S0
END
GRUPPO
BEGIN
KEY "DATI DICHIARANTE"
END
STRINGA
BEGIN
KEY "COGNOME"
PROMPT 5 10 ""
FIELD 16->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 36 10 ""
FIELD 16->RAGSOC[31,0]
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 10 ""
PICTURE "# #~# #~~ # # #"
FIELD 18->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 12 ""
FIELD 18->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 12 ""
FIELD 18->STATCIV
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 12 ""
FIELD 113@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 41 12 ""
FIELD 113@->PROVCOM
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 12 ""
FIELD 16->COFI
PICTURE "# # # # # # # # # # # # # # #"
END
STRINGA
BEGIN
KEY "RESIDENTE IN: COMUNE"
PROMPT 14 14 ""
FIELD 213@->DENCOM
END
STRINGA
BEGIN
KEY "RESIDENTE IN: PROV. (sigla)"
PROMPT 41 14 ""
FIELD 213@->PROVCOM
END
STRINGA
BEGIN
KEY "RESIDENTE IN: VIA"
PROMPT 46 14 ""
FIELD 16->INDRES
END
STRINGA
BEGIN
KEY "RESIDENTE IN: NUMERO CIVICO"
PROMPT 72 14 ""
FIELD 16->CIVRES
END
GRUPPO
BEGIN
KEY "DATI CONIUGE"
END
STRINGA
BEGIN
KEY "COGNOME"
PROMPT 5 17 ""
FIELD 26->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 36 17 ""
FIELD 26->RAGSOC[31,0]
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 17 ""
PICTURE "# #~# #~~ # # #"
FIELD 28->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 17 ""
FIELD 28->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 17 ""
FIELD 28->STATCIV
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 19 ""
FIELD 313@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 42 19 ""
FIELD 313@->PROVCOM
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 19 ""
FIELD 26->COFI
PICTURE "# # # # # # # # # # # # # # #"
END
NUMERO
BEGIN
KEY "IRPEF Saldo: anno"
PROMPT 25 24 ""
FIELD I0
PICTURE "~~# #"
END
NUMERO
BEGIN
KEY "IRPEF Saldo: Imposta"
PROMPT 32 24 ""
FIELD R0
MESSAGE COPY,10@
END
NUMERO
BEGIN
KEY "IRPEF Saldo: Interessi"
PROMPT 47 24 ""
FIELD R7
MESSAGE ADD,10@
END
NUMERO
BEGIN
KEY "IRPEF Saldo: Totale"
PROMPT 62 24 ""
GROUP 10
MESSAGE COPY,20@
END
NUMERO
BEGIN
KEY "IRPEF Acconto: anno"
PROMPT 25 28 ""
FIELD I1
PICTURE "~~# #"
END
NUMERO
BEGIN
KEY "IRPEF Acconto: Imposta"
PROMPT 32 28 ""
FIELD R1
MESSAGE COPY,11@
END
NUMERO
BEGIN
KEY "IRPEF Acconto: Interessi"
PROMPT 47 28 ""
FIELD R8
MESSAGE ADD,11@
END
NUMERO
BEGIN
KEY "IRPEF Acconto: Totale"
PROMPT 62 28 ""
GROUP 11
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR Saldo: anno"
PROMPT 25 35 ""
FIELD I2
PICTURE "~~# #"
END
NUMERO
BEGIN
KEY "ILOR Saldo dichiarante: Imposta"
PROMPT 32 37 ""
FIELD R2
MESSAGE COPY,12@
END
NUMERO
BEGIN
KEY "ILOR Saldo dichiarante: Interessi"
PROMPT 47 37 ""
FIELD R9
MESSAGE ADD,12@
END
NUMERO
BEGIN
KEY "ILOR Saldo dichiarante: Totale"
PROMPT 62 37 ""
GROUP 12
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR Saldo coniuge: Imposta"
PROMPT 32 39 ""
FIELD R3
MESSAGE COPY,13@
END
NUMERO
BEGIN
KEY "ILOR Saldo coniuge: Interessi"
PROMPT 47 39 ""
FIELD R10
MESSAGE ADD,13@
END
NUMERO
BEGIN
KEY "ILOR Saldo coniuge: Totale"
PROMPT 62 39 ""
GROUP 13
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR Acconto: anno"
PROMPT 25 43 ""
FIELD I3
PICTURE "~~# #"
END
NUMERO
BEGIN
KEY "ILOR Acconto dichiarante: Imposta"
PROMPT 32 45 ""
FIELD R4
MESSAGE COPY,14@
END
NUMERO
BEGIN
KEY "ILOR Acconto dichiarante: Interessi"
PROMPT 47 45 ""
FIELD R11
MESSAGE ADD,14@
END
NUMERO
BEGIN
KEY "ILOR Acconto dichiarante: Totale"
PROMPT 62 45 ""
GROUP 14
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR Acconto coniuge: Imposta"
PROMPT 32 47 ""
FIELD R5
MESSAGE COPY,15@
END
NUMERO
BEGIN
KEY "ILOR Acconto coniuge: Interessi"
PROMPT 47 47 ""
FIELD R12
MESSAGE ADD,15@
END
NUMERO
BEGIN
KEY "ILOR Acconto coniuge: Totale"
PROMPT 62 47 ""
GROUP 15
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR: TOTALE DA VERSARE"
PROMPT 62 50 ""
GROUP 20
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE Dichiarante"
PROMPT 2 54 "# # # # # # # # # # # # # # #"
FIELD 16@->CODCONTR
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE Coniuge"
PROMPT 2 57 "# # # # # # # # # # # # # # #"
FIELD 26@->CODCONTR
END
STRINGA
BEGIN
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 42 57 ""
MESSAGE _CENSERoUFFIMP,16@,213@
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 60 ""
PICTURE "@ @~@ @~~~@ @"
FIELD D0
END
END
END
// Distinte di versamento IRPEF/ILOR (PERSONE FISICHE)
USE %SII
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=COMRF(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 %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
END
SECTION BODY 0 66 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 40 5 ""
FIELD 14@->S0
END
GRUPPO
BEGIN
KEY "DATI DICHIARANTE"
END
STRINGA
BEGIN
KEY "COGNOME"
PROMPT 5 10 ""
FIELD 16->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 36 10 ""
FIELD 16->RAGSOC[31,0]
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 10 ""
PICTURE "# #~# #~~ # # #"
FIELD 18->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 12 ""
FIELD 18->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 12 ""
FIELD 18->STATCIV
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 12 ""
FIELD 113@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 41 12 ""
FIELD 113@->PROVCOM
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 12 ""
FIELD 16->COFI
PICTURE "# # # # # # # # # # # # # # #"
END
STRINGA
BEGIN
KEY "RESIDENTE IN: COMUNE"
PROMPT 14 14 ""
FIELD 213@->DENCOM
END
STRINGA
BEGIN
KEY "RESIDENTE IN: PROV. (sigla)"
PROMPT 41 14 ""
FIELD 213@->PROVCOM
END
STRINGA
BEGIN
KEY "RESIDENTE IN: VIA"
PROMPT 46 14 ""
FIELD 16->INDRES
END
STRINGA
BEGIN
KEY "RESIDENTE IN: NUMERO CIVICO"
PROMPT 72 14 ""
FIELD 16->CIVRES
END
GRUPPO
BEGIN
KEY "DATI CONIUGE"
END
STRINGA
BEGIN
KEY "COGNOME"
PROMPT 5 17 ""
FIELD 26->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 36 17 ""
FIELD 26->RAGSOC[31,0]
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 17 ""
PICTURE "# #~# #~~ # # #"
FIELD 28->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 17 ""
FIELD 28->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 17 ""
FIELD 28->STATCIV
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 19 ""
FIELD 313@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 42 19 ""
FIELD 313@->PROVCOM
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 19 ""
FIELD 26->COFI
PICTURE "# # # # # # # # # # # # # # #"
END
NUMERO
BEGIN
KEY "IRPEF Saldo: anno"
PROMPT 25 24 ""
FIELD I0
PICTURE "~~# #"
END
NUMERO
BEGIN
KEY "IRPEF Saldo: Imposta"
PROMPT 32 24 ""
FIELD R0
MESSAGE COPY,10@
END
NUMERO
BEGIN
KEY "IRPEF Saldo: Interessi"
PROMPT 47 24 ""
FIELD R7
MESSAGE ADD,10@
END
NUMERO
BEGIN
KEY "IRPEF Saldo: Totale"
PROMPT 62 24 ""
GROUP 10
MESSAGE COPY,20@
END
NUMERO
BEGIN
KEY "IRPEF Acconto: anno"
PROMPT 25 28 ""
FIELD I1
PICTURE "~~# #"
END
NUMERO
BEGIN
KEY "IRPEF Acconto: Imposta"
PROMPT 32 28 ""
FIELD R1
MESSAGE COPY,11@
END
NUMERO
BEGIN
KEY "IRPEF Acconto: Interessi"
PROMPT 47 28 ""
FIELD R8
MESSAGE ADD,11@
END
NUMERO
BEGIN
KEY "IRPEF Acconto: Totale"
PROMPT 62 28 ""
GROUP 11
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR Saldo: anno"
PROMPT 25 35 ""
FIELD I2
PICTURE "~~# #"
END
NUMERO
BEGIN
KEY "ILOR Saldo dichiarante: Imposta"
PROMPT 32 37 ""
FIELD R2
MESSAGE COPY,12@
END
NUMERO
BEGIN
KEY "ILOR Saldo dichiarante: Interessi"
PROMPT 47 37 ""
FIELD R9
MESSAGE ADD,12@
END
NUMERO
BEGIN
KEY "ILOR Saldo dichiarante: Totale"
PROMPT 62 37 ""
GROUP 12
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR Saldo coniuge: Imposta"
PROMPT 32 39 ""
FIELD R3
MESSAGE COPY,13@
END
NUMERO
BEGIN
KEY "ILOR Saldo coniuge: Interessi"
PROMPT 47 39 ""
FIELD R10
MESSAGE ADD,13@
END
NUMERO
BEGIN
KEY "ILOR Saldo coniuge: Totale"
PROMPT 62 39 ""
GROUP 13
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR Acconto: anno"
PROMPT 25 43 ""
FIELD I3
PICTURE "~~# #"
END
NUMERO
BEGIN
KEY "ILOR Acconto dichiarante: Imposta"
PROMPT 32 45 ""
FIELD R4
MESSAGE COPY,14@
END
NUMERO
BEGIN
KEY "ILOR Acconto dichiarante: Interessi"
PROMPT 47 45 ""
FIELD R11
MESSAGE ADD,14@
END
NUMERO
BEGIN
KEY "ILOR Acconto dichiarante: Totale"
PROMPT 62 45 ""
GROUP 14
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR Acconto coniuge: Imposta"
PROMPT 32 47 ""
FIELD R5
MESSAGE COPY,15@
END
NUMERO
BEGIN
KEY "ILOR Acconto coniuge: Interessi"
PROMPT 47 47 ""
FIELD R12
MESSAGE ADD,15@
END
NUMERO
BEGIN
KEY "ILOR Acconto coniuge: Totale"
PROMPT 62 47 ""
GROUP 15
MESSAGE ADD,20@
END
NUMERO
BEGIN
KEY "ILOR: TOTALE DA VERSARE"
PROMPT 62 50 ""
GROUP 20
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE Dichiarante"
PROMPT 2 54 "# # # # # # # # # # # # # # #"
FIELD 16@->CODCONTR
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE Coniuge"
PROMPT 2 57 "# # # # # # # # # # # # # # #"
FIELD 26@->CODCONTR
END
STRINGA
BEGIN
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 42 57 ""
MESSAGE _CENSERoUFFIMP,16@,213@
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 60 ""
PICTURE "@ @~@ @~~~@ @"
FIELD D0
END
END
END

View File

@ -1,300 +1,300 @@
// Distinte di versamento Quadro K 7xx
USE %SII
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=COMRF(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 %UCC ALIAS 14 INTO CODTAB=S9
END
SECTION BODY 0 66 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 40 5 ""
FIELD 14->S0
END
GRUPPO
BEGIN
KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
END
STRINGA
BEGIN
KEY "COGNOME"
PROMPT 5 10 ""
FIELD 16->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 36 10 ""
FIELD 16->RAGSOC[31,0]
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 10 ""
PICTURE "# #~# #~~ # # #"
FIELD 18->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 12 ""
FIELD 18->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 12 ""
FIELD 18->STATCIV
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 12 ""
FIELD 113@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 41 12 ""
FIELD 113@->PROVCOM
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 12 ""
FIELD 16->COFI
PICTURE "# # # # # # # # # # # # # # #"
END
STRINGA
BEGIN
KEY "RESIDENTE IN: COMUNE"
PROMPT 14 14 ""
FIELD 213@->DENCOM
END
STRINGA
BEGIN
KEY "RESIDENTE IN: PROV. (sigla)"
PROMPT 41 14 ""
FIELD 213@->PROVCOM
END
STRINGA
BEGIN
KEY "RESIDENTE IN: VIA"
PROMPT 46 14 ""
FIELD 16->INDRES
END
STRINGA
BEGIN
KEY "RESIDENTE IN: NUMERO CIVICO"
PROMPT 72 14 ""
FIELD 16->CIVRES
END
GRUPPO
BEGIN
KEY "DATI CONIUGE (ALIAS 26 e 28)"
END
STRINGA
BEGIN
KEY "COGNOME"
PROMPT 5 17 ""
FIELD 26->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 36 17 ""
FIELD 26->RAGSOC[31,0]
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 17 ""
PICTURE "# #~# #~~ # # #"
FIELD 28->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 17 ""
FIELD 28->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 17 ""
FIELD 28->STATCIV
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 19 ""
FIELD 313@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 42 19 ""
FIELD 313@->PROVCOM
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 19 ""
FIELD 26->COFI
PICTURE "# # # # # # # # # # # # # # #"
END
NUMERO
BEGIN
KEY "PERIODO DI RIFERIMENTO 1"
PROMPT 43 25 ""
FIELD I0
PICTURE "# #"
END
NUMERO
BEGIN
KEY "PERIODO DI RIFERIMENTO 2"
PROMPT 53 25 ""
FIELD I1
PICTURE "# #"
END
STRINGA
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 5 29 ""
FIELD S2
END
NUMERO
BEGIN
KEY "GRUPPO"
PROMPT 16 29 ""
FIELD I2
END
NUMERO
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 27 29 ""
FIELD R0
PICTURE "###.###.###.###~~~"
MESSAGE COPY,1@
END
NUMERO
BEGIN
KEY "INTERESSI"
PROMPT 44 29 ""
FIELD R1
PICTURE "###.###.###.###~~~"
MESSAGE ADD,1@
END
NUMERO
BEGIN
KEY "TOTALE (a)"
PROMPT 62 29 ""
PICTURE "###.###.###.###~~~"
MESSAGE COPY,2@
GROUP 1
END
STRINGA
BEGIN
KEY "CODICE TRIBUTO SOPRATASSA"
PROMPT 5 35 ""
FIELD S3
END
NUMERO
BEGIN
KEY "GRUPPO SOPRATASSA"
PROMPT 12 35 ""
FIELD I3
END
NUMERO
BEGIN
KEY "IMPORTO (b)"
PROMPT 22 35 ""
FIELD R2
PICTURE "###.###.###.###~~~"
MESSAGE ADD,2@
END
NUMERO
BEGIN
KEY "TOTALE DA VERSARE (a+b)"
PROMPT 62 40 ""
PICTURE "###.###.###.###~~~"
GROUP 2
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE Dichiarante"
PROMPT 2 53 "# # # # # # # # # # # # # # #"
FIELD 16@->CODCONTR
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE Coniuge"
PROMPT 2 56 "# # # # # # # # # # # # # # #"
FIELD 26@->CODCONTR
END
STRINGA
BEGIN
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 42 56 ""
MESSAGE _CENSERoUFFIMP,16@,213@
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 60 ""
PICTURE "@ @~@ @~~~@ @"
FIELD D0
END
END
END
// Distinte di versamento Quadro K 7xx
USE %SKX
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=COMRF(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 %UCC ALIAS 14 INTO CODTAB=S9
END
SECTION BODY 0 66 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 40 5 ""
FIELD 14->S0
END
GRUPPO
BEGIN
KEY "DATI DICHIARANTE (ALIAS 16 e 18)"
END
STRINGA
BEGIN
KEY "COGNOME"
PROMPT 5 10 ""
FIELD 16->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 36 10 ""
FIELD 16->RAGSOC[31,0]
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 10 ""
PICTURE "# #~# #~~ # # #"
FIELD 18->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 12 ""
FIELD 18->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 12 ""
FIELD 18->STATCIV
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 12 ""
FIELD 113@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 41 12 ""
FIELD 113@->PROVCOM
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 12 ""
FIELD 16->COFI
PICTURE "# # # # # # # # # # # # # # #"
END
STRINGA
BEGIN
KEY "RESIDENTE IN: COMUNE"
PROMPT 14 14 ""
FIELD 213@->DENCOM
END
STRINGA
BEGIN
KEY "RESIDENTE IN: PROV. (sigla)"
PROMPT 41 14 ""
FIELD 213@->PROVCOM
END
STRINGA
BEGIN
KEY "RESIDENTE IN: VIA"
PROMPT 46 14 ""
FIELD 16->INDRES
END
STRINGA
BEGIN
KEY "RESIDENTE IN: NUMERO CIVICO"
PROMPT 72 14 ""
FIELD 16->CIVRES
END
GRUPPO
BEGIN
KEY "DATI CONIUGE (ALIAS 26 e 28)"
END
STRINGA
BEGIN
KEY "COGNOME"
PROMPT 5 17 ""
FIELD 26->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "NOME"
PROMPT 36 17 ""
FIELD 26->RAGSOC[31,0]
END
DATA
BEGIN
KEY "DATA DI NASCITA"
PROMPT 56 17 ""
PICTURE "# #~# #~~ # # #"
FIELD 28->DATANASC
END
STRINGA
BEGIN
KEY "SESSO (M o F)"
PROMPT 69 17 ""
FIELD 28->SESSO
END
STRINGA
BEGIN
KEY "STATO CIVILE"
PROMPT 74 17 ""
FIELD 28->STATCIV
END
STRINGA
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 5 19 ""
FIELD 313@->DENCOM
END
STRINGA
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 42 19 ""
FIELD 313@->PROVCOM
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 46 19 ""
FIELD 26->COFI
PICTURE "# # # # # # # # # # # # # # #"
END
NUMERO
BEGIN
KEY "PERIODO DI RIFERIMENTO 1"
PROMPT 43 25 ""
FIELD I0
PICTURE "# #"
END
NUMERO
BEGIN
KEY "PERIODO DI RIFERIMENTO 2"
PROMPT 53 25 ""
FIELD I1
PICTURE "# #"
END
STRINGA
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 5 29 ""
FIELD S2
END
NUMERO
BEGIN
KEY "GRUPPO"
PROMPT 16 29 ""
FIELD I2
END
NUMERO
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 27 29 ""
FIELD R0
PICTURE "###.###.###.###~~~"
MESSAGE COPY,1@
END
NUMERO
BEGIN
KEY "INTERESSI"
PROMPT 44 29 ""
FIELD R1
PICTURE "###.###.###.###~~~"
MESSAGE ADD,1@
END
NUMERO
BEGIN
KEY "TOTALE (a)"
PROMPT 62 29 ""
PICTURE "###.###.###.###~~~"
MESSAGE COPY,2@
GROUP 1
END
STRINGA
BEGIN
KEY "CODICE TRIBUTO SOPRATASSA"
PROMPT 5 35 ""
FIELD S3
END
NUMERO
BEGIN
KEY "GRUPPO SOPRATASSA"
PROMPT 12 35 ""
FIELD I3
END
NUMERO
BEGIN
KEY "IMPORTO (b)"
PROMPT 22 35 ""
FIELD R2
PICTURE "###.###.###.###~~~"
MESSAGE ADD,2@
END
NUMERO
BEGIN
KEY "TOTALE DA VERSARE (a+b)"
PROMPT 62 40 ""
PICTURE "###.###.###.###~~~"
GROUP 2
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE Dichiarante"
PROMPT 2 53 "# # # # # # # # # # # # # # #"
FIELD 16@->CODCONTR
END
STRINGA
BEGIN
KEY "CODICE CONTRIBUENTE Coniuge"
PROMPT 2 56 "# # # # # # # # # # # # # # #"
FIELD 26@->CODCONTR
END
STRINGA
BEGIN
KEY "CENTRO SERVIZI: Provincia e Denominazione"
PROMPT 42 56 ""
MESSAGE _CENSERoUFFIMP,16@,213@
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 60 ""
PICTURE "@ @~@ @~~~@ @"
FIELD D0
END
END
END