Corretti forms deleghe
git-svn-id: svn://10.65.10.50/trunk@1304 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
d256cab0f6
commit
313fbade7d
1588
ba/delsdi.frm
1588
ba/delsdi.frm
File diff suppressed because it is too large
Load Diff
770
ba/delsdr.frm
770
ba/delsdr.frm
@ -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
|
||||
|
708
ba/delsii.frm
708
ba/delsii.frm
@ -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
|
||||
|
458
ba/dissd6.frm
458
ba/dissd6.frm
@ -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
|
||||
|
1528
ba/dissdi.frm
1528
ba/dissdi.frm
File diff suppressed because it is too large
Load Diff
738
ba/dissdr.frm
738
ba/dissdr.frm
@ -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
|
||||
|
792
ba/dissii.frm
792
ba/dissii.frm
@ -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
|
||||
|
600
ba/disskx.frm
600
ba/disskx.frm
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user