Aggiunti profili per stampa deleghe e distinte irpef/irpeg

git-svn-id: svn://10.65.10.50/trunk@1060 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1995-03-01 16:17:44 +00:00
parent e558e7de67
commit 5d8d3bc105
6 changed files with 3054 additions and 0 deletions

792
ba/delsdi.frm Executable file
View File

@ -0,0 +1,792 @@
// Delega di pagamento: IRPEF, IRPEG e altri codici tributo
USE %SDI
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
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 13 ""
FIELD S9
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 15 13 ""
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
LISTA
BEGIN
KEY "Righe da compilare "
FIELD S6
ITEM "F| " MESSAGE ENABLE,6@|DISABLE,7@|DISABLE,8@
ITEM "G| " MESSAGE ENABLE,7@|DISABLE,6@|DISABLE,8@
ITEM "S| " MESSAGE ENABLE,8@|DISABLE,6@|DISABLE,7@
END
GRUPPO
BEGIN
KEY "Righe Persone Fisiche"
PROMPT 0 0 ""
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: PERIODO AA (1)"
PROMPT 20 26 ""
FIELD I0
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: PERIODO AA (2)"
PROMPT 23 26 ""
FIELD I1
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: IMPOSTA"
PROMPT 28 26 ""
MESSAGE COPY,10@
PICTURE "###.###.###~~~"
FIELD R0
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: INTERESSI"
PROMPT 46 26 ""
MESSAGE ADD,10@
PICTURE "###.###.###~~~"
FIELD R7
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: TOTALE"
PROMPT 60 26 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 6 10
END
NUMERO
BEGIN
KEY "IRPEF 4001: PERIODO AA (1)"
PROMPT 20 28 ""
FIELD I2
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4001: PERIODO AA (2)"
PROMPT 23 28 ""
FIELD I3
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4001: IMPOSTA"
PROMPT 28 28 ""
MESSAGE COPY,11@
PICTURE "###.###.###~~~"
FIELD R1
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4001: INTERESSI"
PROMPT 46 28 ""
MESSAGE ADD,11@
PICTURE "###.###.###~~~"
FIELD R8
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4001: TOTALE"
PROMPT 60 28 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 6 11
END
NUMERO
BEGIN
KEY "ILOR 3353: PERIODO AA (1)"
PROMPT 20 30 ""
FIELD I2
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3353: PERIODO AA (2)"
PROMPT 23 30 ""
FIELD I3
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3353: IMPOSTA"
PROMPT 28 30 ""
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
FIELD R2
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3353: INTERESSI"
PROMPT 46 30 ""
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
FIELD R9
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 3353: TOTALE"
PROMPT 60 30 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 6 12
END
NUMERO
BEGIN
KEY "ILOR 3350: PERIODO AA (1)"
PROMPT 20 32 ""
FIELD I6
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3350: PERIODO AA (2)"
PROMPT 23 32 ""
FIELD I7
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3350: IMPOSTA"
PROMPT 28 32 ""
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
FIELD R3
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3350: INTERESSI"
PROMPT 46 32 ""
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
FIELD R10
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3350: TOTALE"
PROMPT 60 32 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 6 13
END
GRUPPO
BEGIN
KEY "Righe Persone Giuridiche"
PROMPT 0 0 ""
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: PERIODO AA (1)"
PROMPT 20 34 ""
FIELD I0
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: PERIODO AA (2)"
PROMPT 23 34 ""
FIELD I1
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: IMPOSTA"
PROMPT 28 34 ""
MESSAGE COPY,10@
PICTURE "###.###.###~~~"
FIELD R0
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: INTERESSI"
PROMPT 46 34 ""
MESSAGE ADD,10@
PICTURE "###.###.###~~~"
FIELD R7
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: TOTALE"
PROMPT 60 34 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 7 10
END
NUMERO
BEGIN
KEY "IRPEG 2100: PERIODO AA (1)"
PROMPT 20 36 ""
FIELD I2
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2100: PERIODO AA (2)"
PROMPT 23 36 ""
FIELD I3
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2100: IMPOSTA"
PROMPT 28 36 ""
MESSAGE COPY,11@
PICTURE "###.###.###~~~"
FIELD R1
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2100: INTERESSI"
PROMPT 46 36 ""
MESSAGE ADD,11@
PICTURE "###.###.###~~~"
FIELD R8
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2100: TOTALE"
PROMPT 60 36 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 7 11
END
NUMERO
BEGIN
KEY "ILOR 3110: PERIODO AA (1)"
PROMPT 20 38 ""
FIELD I2
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3110: PERIODO AA (2)"
PROMPT 23 38 ""
FIELD I3
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3110: IMPOSTA"
PROMPT 28 38 ""
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
FIELD R2
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3110: INTERESSI"
PROMPT 46 38 ""
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
FIELD R9
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEF 3110: TOTALE"
PROMPT 60 38 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 7 12
END
NUMERO
BEGIN
KEY "ILOR 3000: PERIODO AA (1)"
PROMPT 20 40 ""
FIELD I6
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3000: PERIODO AA (2)"
PROMPT 23 40 ""
FIELD I7
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3000: IMPOSTA"
PROMPT 28 40 ""
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
FIELD R3
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3000: INTERESSI"
PROMPT 46 40 ""
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
FIELD R10
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3000: TOTALE"
PROMPT 60 40 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 7 13
END
GRUPPO
BEGIN
KEY "Righe Societa' di Persone"
PROMPT 0 0 ""
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: PERIODO AA (1)"
PROMPT 20 42 ""
FIELD I4
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: PERIODO AA (2)"
PROMPT 23 42 ""
FIELD I5
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: IMPOSTA"
PROMPT 28 42 ""
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
FIELD R2
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: INTERESSI"
PROMPT 46 42 ""
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
FIELD R9
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: TOTALE"
PROMPT 60 42 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 8 12
END
NUMERO
BEGIN
KEY "ILOR 3300: PERIODO AA (1)"
PROMPT 20 44 ""
FIELD I6
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3300: PERIODO AA (2)"
PROMPT 23 44 ""
FIELD I7
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3300: IMPOSTA"
PROMPT 28 44 ""
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
FIELD R3
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3300: INTERESSI"
PROMPT 46 44 ""
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
FIELD R10
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3300: TOTALE"
PROMPT 60 44 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 8 13
END
GRUPPO
BEGIN
KEY "IMPOSTE SOSTITUTIVE E ALTRI CODICI TRIBUTO"
PROMPT 0 0 ""
END
NUMERO
BEGIN
KEY "TRIBUTO 1: PERIODO AA (1)"
PROMPT 20 50 ""
FIELD I8
END
NUMERO
BEGIN
KEY "TRIBUTO 1: PERIODO AA (2)"
PROMPT 23 50 ""
FIELD I9
END
NUMERO
BEGIN
KEY "TRIBUTO 1: IMPORTO"
PROMPT 28 50 ""
MESSAGE COPY,14@
PICTURE "###.###.###~~~"
FIELD R4
END
NUMERO
BEGIN
KEY "TRIBUTO 1: INTERESSI"
PROMPT 46 50 ""
MESSAGE ADD,14@
PICTURE "###.###.###~~~"
FIELD R11
END
NUMERO
BEGIN
KEY "TRIBUTO 1: TOTALE"
PROMPT 60 50 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 14
END
NUMERO
BEGIN
KEY "TRIBUTO 2: PERIODO AA (1)"
PROMPT 20 52 ""
FIELD I10
END
NUMERO
BEGIN
KEY "TRIBUTO 2: PERIODO AA (2)"
PROMPT 23 52 ""
FIELD I11
END
NUMERO
BEGIN
KEY "TRIBUTO 2: IMPORTO"
PROMPT 28 52 ""
MESSAGE COPY,15@
PICTURE "###.###.###~~~"
FIELD R5
END
NUMERO
BEGIN
KEY "TRIBUTO 2: INTERESSI"
PROMPT 46 52 ""
MESSAGE ADD,15@
PICTURE "###.###.###~~~"
FIELD R12
END
NUMERO
BEGIN
KEY "TRIBUTO 2: TOTALE"
PROMPT 60 52 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 15
END
NUMERO
BEGIN
KEY "TRIBUTO 3: PERIODO AA (1)"
PROMPT 20 54 ""
FIELD I12
END
NUMERO
BEGIN
KEY "TRIBUTO 3: PERIODO AA (2)"
PROMPT 23 54 ""
FIELD I13
END
NUMERO
BEGIN
KEY "TRIBUTO 3: IMPORTO"
PROMPT 28 54 ""
MESSAGE COPY,16@
PICTURE "###.###.###~~~"
FIELD R6
END
NUMERO
BEGIN
KEY "TRIBUTO 3: INTERESSI"
PROMPT 46 54 ""
MESSAGE ADD,16@
PICTURE "###.###.###~~~"
FIELD R13
END
NUMERO
BEGIN
KEY "TRIBUTO 3: TOTALE"
PROMPT 60 54 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 16
END
NUMERO
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 5 58 ""
GROUP 9
PICTURE "LETTERE"
END
NUMERO
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 60 58 ""
GROUP 9
PICTURE "###.###.###~~~"
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 50 62 ""
PICTURE "@@ ~ @@~~~@@"
FIELD D0
END
STRING
BEGIN
KEY "CODICE AZIENDA"
PROMPT 64 62 ""
FIELD S7
END
STRING
BEGIN
KEY "CODICE DIPENDENZA"
PROMPT 74 62 ""
FIELD S8
END
END
END

383
ba/delsdr.frm Executable file
View File

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

354
ba/delsii.frm Executable file
View File

@ -0,0 +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
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

763
ba/dissdi.frm Executable file
View File

@ -0,0 +1,763 @@
// Distinta di versamento: IRPEF, IRPEG e altri codici tributo
USE %SDI
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 8 ALIAS 113 INTO COM=COMNASC
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
SECTION BODY 0 66 0 0
STRINGA
BEGIN
KEY "CONCESSIONE DI"
PROMPT 28 7 ""
FIELD 14@->S0
END
STRINGA
BEGIN
KEY "COD. CONCESS."
PROMPT 9 13 ""
FIELD S9
END
STRINGA
BEGIN
KEY "CODICE FISCALE"
PROMPT 15 13 ""
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
LISTA
BEGIN
KEY "Righe da compilare "
FIELD S6
ITEM "F| " MESSAGE ENABLE,6@|DISABLE,7@|DISABLE,8@
ITEM "G| " MESSAGE ENABLE,7@|DISABLE,6@|DISABLE,8@
ITEM "S| " MESSAGE ENABLE,8@|DISABLE,6@|DISABLE,7@
END
GRUPPO
BEGIN
KEY "Righe Persone Fisiche"
PROMPT 0 0 ""
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: PERIODO AA (1)"
PROMPT 20 26 ""
FIELD I0
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: PERIODO AA (2)"
PROMPT 23 26 ""
FIELD I1
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: IMPOSTA"
PROMPT 28 26 ""
MESSAGE COPY,10@
PICTURE "###.###.###~~~"
FIELD R0
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: INTERESSI"
PROMPT 46 26 ""
MESSAGE ADD,10@
PICTURE "###.###.###~~~"
FIELD R7
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4007: TOTALE"
PROMPT 60 26 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 6 10
END
NUMERO
BEGIN
KEY "IRPEF 4001: PERIODO AA (1)"
PROMPT 20 28 ""
FIELD I2
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4001: PERIODO AA (2)"
PROMPT 23 28 ""
FIELD I3
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4001: IMPOSTA"
PROMPT 28 28 ""
MESSAGE COPY,11@
PICTURE "###.###.###~~~"
FIELD R1
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4001: INTERESSI"
PROMPT 46 28 ""
MESSAGE ADD,11@
PICTURE "###.###.###~~~"
FIELD R8
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 4001: TOTALE"
PROMPT 60 28 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 6 11
END
NUMERO
BEGIN
KEY "ILOR 3353: PERIODO AA (1)"
PROMPT 20 30 ""
FIELD I2
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3353: PERIODO AA (2)"
PROMPT 23 30 ""
FIELD I3
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3353: IMPOSTA"
PROMPT 28 30 ""
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
FIELD R2
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3353: INTERESSI"
PROMPT 46 30 ""
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
FIELD R9
GROUP 6
END
NUMERO
BEGIN
KEY "IRPEF 3353: TOTALE"
PROMPT 60 30 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 6 12
END
NUMERO
BEGIN
KEY "ILOR 3350: PERIODO AA (1)"
PROMPT 20 32 ""
FIELD I6
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3350: PERIODO AA (2)"
PROMPT 23 32 ""
FIELD I7
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3350: IMPOSTA"
PROMPT 28 32 ""
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
FIELD R3
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3350: INTERESSI"
PROMPT 46 32 ""
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
FIELD R10
GROUP 6
END
NUMERO
BEGIN
KEY "ILOR 3350: TOTALE"
PROMPT 60 32 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 6 13
END
GRUPPO
BEGIN
KEY "Righe Persone Giuridiche"
PROMPT 0 0 ""
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: PERIODO AA (1)"
PROMPT 20 34 ""
FIELD I0
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: PERIODO AA (2)"
PROMPT 23 34 ""
FIELD I1
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: IMPOSTA"
PROMPT 28 34 ""
MESSAGE COPY,10@
PICTURE "###.###.###~~~"
FIELD R0
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: INTERESSI"
PROMPT 46 34 ""
MESSAGE ADD,10@
PICTURE "###.###.###~~~"
FIELD R7
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2110: TOTALE"
PROMPT 60 34 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 7 10
END
NUMERO
BEGIN
KEY "IRPEG 2100: PERIODO AA (1)"
PROMPT 20 36 ""
FIELD I2
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2100: PERIODO AA (2)"
PROMPT 23 36 ""
FIELD I3
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2100: IMPOSTA"
PROMPT 28 36 ""
MESSAGE COPY,11@
PICTURE "###.###.###~~~"
FIELD R1
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2100: INTERESSI"
PROMPT 46 36 ""
MESSAGE ADD,11@
PICTURE "###.###.###~~~"
FIELD R8
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEG 2100: TOTALE"
PROMPT 60 36 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 7 11
END
NUMERO
BEGIN
KEY "ILOR 3110: PERIODO AA (1)"
PROMPT 20 38 ""
FIELD I2
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3110: PERIODO AA (2)"
PROMPT 23 38 ""
FIELD I3
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3110: IMPOSTA"
PROMPT 28 38 ""
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
FIELD R2
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3110: INTERESSI"
PROMPT 46 38 ""
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
FIELD R9
GROUP 7
END
NUMERO
BEGIN
KEY "IRPEF 3110: TOTALE"
PROMPT 60 38 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 7 12
END
NUMERO
BEGIN
KEY "ILOR 3000: PERIODO AA (1)"
PROMPT 20 40 ""
FIELD I6
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3000: PERIODO AA (2)"
PROMPT 23 40 ""
FIELD I7
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3000: IMPOSTA"
PROMPT 28 40 ""
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
FIELD R3
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3000: INTERESSI"
PROMPT 46 40 ""
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
FIELD R10
GROUP 7
END
NUMERO
BEGIN
KEY "ILOR 3000: TOTALE"
PROMPT 60 40 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 7 13
END
GRUPPO
BEGIN
KEY "Righe Societa' di Persone"
PROMPT 0 0 ""
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: PERIODO AA (1)"
PROMPT 20 42 ""
FIELD I4
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: PERIODO AA (2)"
PROMPT 23 42 ""
FIELD I5
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: IMPOSTA"
PROMPT 28 42 ""
MESSAGE COPY,12@
PICTURE "###.###.###~~~"
FIELD R2
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: INTERESSI"
PROMPT 46 42 ""
MESSAGE ADD,12@
PICTURE "###.###.###~~~"
FIELD R9
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3303: TOTALE"
PROMPT 60 42 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 8 12
END
NUMERO
BEGIN
KEY "ILOR 3300: PERIODO AA (1)"
PROMPT 20 44 ""
FIELD I6
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3300: PERIODO AA (2)"
PROMPT 23 44 ""
FIELD I7
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3300: IMPOSTA"
PROMPT 28 44 ""
MESSAGE COPY,13@
PICTURE "###.###.###~~~"
FIELD R3
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3300: INTERESSI"
PROMPT 46 44 ""
MESSAGE ADD,13@
PICTURE "###.###.###~~~"
FIELD R10
GROUP 8
END
NUMERO
BEGIN
KEY "ILOR 3300: TOTALE"
PROMPT 60 44 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 8 13
END
GRUPPO
BEGIN
KEY "IMPOSTE SOSTITUTIVE E ALTRI CODICI TRIBUTO"
PROMPT 0 0 ""
END
NUMERO
BEGIN
KEY "TRIBUTO 1: PERIODO AA (1)"
PROMPT 20 50 ""
FIELD I8
END
NUMERO
BEGIN
KEY "TRIBUTO 1: PERIODO AA (2)"
PROMPT 23 50 ""
FIELD I9
END
NUMERO
BEGIN
KEY "TRIBUTO 1: IMPORTO"
PROMPT 28 50 ""
MESSAGE COPY,14@
PICTURE "###.###.###~~~"
FIELD R4
END
NUMERO
BEGIN
KEY "TRIBUTO 1: INTERESSI"
PROMPT 46 50 ""
MESSAGE ADD,14@
PICTURE "###.###.###~~~"
FIELD R11
END
NUMERO
BEGIN
KEY "TRIBUTO 1: TOTALE"
PROMPT 60 50 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 14
END
NUMERO
BEGIN
KEY "TRIBUTO 2: PERIODO AA (1)"
PROMPT 20 52 ""
FIELD I10
END
NUMERO
BEGIN
KEY "TRIBUTO 2: PERIODO AA (2)"
PROMPT 23 52 ""
FIELD I11
END
NUMERO
BEGIN
KEY "TRIBUTO 2: IMPORTO"
PROMPT 28 52 ""
MESSAGE COPY,15@
PICTURE "###.###.###~~~"
FIELD R5
END
NUMERO
BEGIN
KEY "TRIBUTO 2: INTERESSI"
PROMPT 46 52 ""
MESSAGE ADD,15@
PICTURE "###.###.###~~~"
FIELD R12
END
NUMERO
BEGIN
KEY "TRIBUTO 2: TOTALE"
PROMPT 60 52 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 15
END
NUMERO
BEGIN
KEY "TRIBUTO 3: PERIODO AA (1)"
PROMPT 20 54 ""
FIELD I12
END
NUMERO
BEGIN
KEY "TRIBUTO 3: PERIODO AA (2)"
PROMPT 23 54 ""
FIELD I13
END
NUMERO
BEGIN
KEY "TRIBUTO 3: IMPORTO"
PROMPT 28 54 ""
MESSAGE COPY,16@
PICTURE "###.###.###~~~"
FIELD R6
END
NUMERO
BEGIN
KEY "TRIBUTO 3: INTERESSI"
PROMPT 46 54 ""
MESSAGE ADD,16@
PICTURE "###.###.###~~~"
FIELD R13
END
NUMERO
BEGIN
KEY "TRIBUTO 3: TOTALE"
PROMPT 60 54 ""
PICTURE "###.###.###~~~"
MESSAGE ADD,9@
GROUP 16
END
NUMERO
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 5 58 ""
GROUP 9
PICTURE "LETTERE"
END
NUMERO
BEGIN
KEY "TOTALE (in cifre)"
PROMPT 60 58 ""
GROUP 9
PICTURE "###.###.###~~~"
END
DATA
BEGIN
KEY "DATA: giorno - mese - anno"
PROMPT 12 62 ""
PICTURE "@@ ~ @@~~~@@"
FIELD D0
END
END
END

367
ba/dissdr.frm Executable file
View File

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

395
ba/dissii.frm Executable file
View File

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