8c1d56f1a4
prima e dopo la stampa degli importi (sia in cifre che in lettere, vedi modifica 95/42), corretti i troncamenti di ragione sociale. Aggiunta stampa della data e luogo di costituzione nel caso di persona giuridica. disivacf: aggiunto il campo per il codice tributo. Corrette alcune posizioni di stampa disgen, disirg: completata la stampa per il codice contribuente e coniuge. In disgen aggiunta la stampa del codice centro di servizio (modificato anche ba2400.cpp) deliircf, disiircf: aggiunta la stampa dei 3 codici tributo imposte sostitutive. In tutti i profili conto fiscale + disgen e' stata aggiunta la stampa del luogo e la data di costituzione in caso di persona giuridica git-svn-id: svn://10.65.10.50/trunk@1976 c028cbd2-c16b-5b4b-a496-9718f37d4682
579 lines
7.4 KiB
Plaintext
Executable File
579 lines
7.4 KiB
Plaintext
Executable File
USE %DEL
|
|
JOIN 9 INTO CODDITTA=CODTAB[1,5]
|
|
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
|
|
JOIN 7 TO 9 INTO CODANAGR=CODANAGR
|
|
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
|
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB==UFFCONC
|
|
JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST
|
|
|
|
END
|
|
DESCRIPTION
|
|
BEGIN
|
|
%DEL->* "DEL"
|
|
9->* "Ditte"
|
|
6->* "Anagrafica persone fisiche e giuridiche"
|
|
8->* "Anagrafica persone fisiche"
|
|
113@->* "Comuni"
|
|
213@->* "Comuni"
|
|
14@->* "UCC"
|
|
END
|
|
|
|
GENERAL
|
|
BEGIN
|
|
OFFSET 0 0
|
|
FONT "Courier New"
|
|
SIZE 7
|
|
END
|
|
|
|
SECTION BODY ODD 24
|
|
|
|
GRUPPO 1
|
|
BEGIN
|
|
KEY "Prima sezione"
|
|
END
|
|
|
|
NUMERO 2
|
|
BEGIN
|
|
KEY "IMPORTO TRIBUTO"
|
|
PROMPT 2 13 ""
|
|
MESSAGE COPY,10@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R0
|
|
END
|
|
|
|
NUMERO 3
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 14 13 ""
|
|
MESSAGE ADD,10@
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R1
|
|
END
|
|
|
|
NUMERO 4
|
|
BEGIN
|
|
KEY "TOTALE (in basso)"
|
|
PROMPT 33 13 ""
|
|
GROUP 10
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 5
|
|
BEGIN
|
|
KEY "TOTALE (in alto)"
|
|
PROMPT 34 2 ""
|
|
GROUP 10
|
|
PICTURE "(*)###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 6 44 1
|
|
BEGIN
|
|
KEY "TOTALE (in lettere)"
|
|
PROMPT 5 3 ""
|
|
GROUP 10
|
|
PICTURE "(*,*)LETTERE"
|
|
END
|
|
|
|
STRINGA 7
|
|
BEGIN
|
|
KEY "sul C/C n."
|
|
PROMPT 9 4 ""
|
|
FIELD 14@->S5
|
|
END
|
|
|
|
STRINGA 8
|
|
BEGIN
|
|
KEY "Concessione di"
|
|
PROMPT 13 5 ""
|
|
FIELD 14@->S0
|
|
END
|
|
|
|
LISTA 34
|
|
BEGIN
|
|
KEY "Tipo anagrafica"
|
|
FIELD 6->TIPOA
|
|
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
|
END
|
|
|
|
STRINGA 9
|
|
BEGIN
|
|
KEY "Eseguito da (PG)"
|
|
PROMPT 9 6 ""
|
|
GROUP 2
|
|
FIELD 6->RAGSOC[1,38]
|
|
END
|
|
|
|
STRINGA 10
|
|
BEGIN
|
|
KEY "Eseguito da (PF PRIMA PARTE)"
|
|
GROUP 1
|
|
MESSAGE COPY,527
|
|
FIELD 6->RAGSOC[1,22]
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "Eseguito da (PF SECONDA PARTE)"
|
|
GROUP 1
|
|
MESSAGE APPEND,527
|
|
FIELD 6->RAGSOC[31,50]
|
|
END
|
|
|
|
STRINGA 527
|
|
BEGIN
|
|
KEY "Eseguito da (PF COMPLETO)"
|
|
PROMPT 9 6 ""
|
|
GROUP 1
|
|
END
|
|
|
|
NUMERO 10
|
|
BEGIN
|
|
KEY "Codice Concessione"
|
|
PROMPT 14 9 ""
|
|
FIELD 6->UFFCONC
|
|
FIELD 14@->CODTAB
|
|
END
|
|
|
|
STRINGA 11
|
|
BEGIN
|
|
KEY "Codice fiscale"
|
|
PROMPT 19 9 ""
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA 12
|
|
BEGIN
|
|
KEY "CODICE TRIBUTO"
|
|
PROMPT 16 11 ""
|
|
FIELD S6
|
|
END
|
|
|
|
STRINGA 13
|
|
BEGIN
|
|
KEY "PERIODO DI RIFERIMENTO"
|
|
PROMPT 35 11 ""
|
|
FIELD CODTAB[6,9]
|
|
END
|
|
|
|
DATA 17
|
|
BEGIN
|
|
KEY "Data del versamento"
|
|
PROMPT 8 19 ""
|
|
FIELD D0
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 18
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: COMUNE"
|
|
PROMPT 5 20 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA 19
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: Provincia"
|
|
PROMPT 44 20 ""
|
|
FIELD 213@->PROVCOM
|
|
END
|
|
|
|
STRINGA 20
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: VIA"
|
|
PROMPT 5 22 ""
|
|
FIELD 6->INDRF
|
|
FIELD 6->INDRES
|
|
END
|
|
|
|
STRINGA 21
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
|
PROMPT 44 22 ""
|
|
FIELD 6->CIVRF
|
|
FIELD 6->CIVRES
|
|
END
|
|
|
|
GRUPPO 14
|
|
BEGIN
|
|
KEY "Seconda sezione"
|
|
END
|
|
|
|
NUMERO 15
|
|
BEGIN
|
|
KEY "IMPORTO TRIBUTO"
|
|
PROMPT 57 13 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R0
|
|
END
|
|
|
|
NUMERO 16
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 70 13 ""
|
|
PICTURE "###.###.###^^^"
|
|
FIELD R1
|
|
END
|
|
|
|
NUMERO 17
|
|
BEGIN
|
|
KEY "TOTALE (in basso)"
|
|
PROMPT 88 13 ""
|
|
GROUP 10
|
|
PICTURE "###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 18
|
|
BEGIN
|
|
KEY "TOTALE (in alto)"
|
|
PROMPT 89 2 ""
|
|
GROUP 10
|
|
PICTURE "(*)###.###.###^^^"
|
|
END
|
|
|
|
NUMERO 19 44 1
|
|
BEGIN
|
|
KEY "TOTALE (in lettere)"
|
|
PROMPT 60 3 ""
|
|
GROUP 10
|
|
PICTURE "(*,*)LETTERE"
|
|
END
|
|
|
|
STRINGA 20
|
|
BEGIN
|
|
KEY "sul C/C n."
|
|
PROMPT 65 4 ""
|
|
FIELD 14@->S5
|
|
END
|
|
|
|
STRINGA 21
|
|
BEGIN
|
|
KEY "Concessione di"
|
|
PROMPT 69 5 ""
|
|
FIELD 14@->S0
|
|
END
|
|
|
|
STRINGA 22
|
|
BEGIN
|
|
KEY "Eseguito da (PG)"
|
|
PROMPT 64 6 ""
|
|
GROUP 2
|
|
FIELD 6->RAGSOC[1,38]
|
|
END
|
|
|
|
STRINGA 31
|
|
BEGIN
|
|
KEY "Eseguito da (PF PRIMA PARTE)"
|
|
GROUP 1
|
|
MESSAGE COPY,528
|
|
FIELD 6->RAGSOC[1,22]
|
|
END
|
|
|
|
STRINGA 32
|
|
BEGIN
|
|
KEY "Eseguito da (PF SECONDA PARTE)"
|
|
GROUP 1
|
|
MESSAGE APPEND,528
|
|
FIELD 6->RAGSOC[31,50]
|
|
END
|
|
|
|
STRINGA 528
|
|
BEGIN
|
|
KEY "Eseguito da (PF COMPLETO)"
|
|
PROMPT 64 6 ""
|
|
GROUP 1
|
|
END
|
|
|
|
NUMERO 23
|
|
BEGIN
|
|
KEY "Codice Concessione"
|
|
PROMPT 68 9 ""
|
|
FIELD 6->UFFCONC
|
|
FIELD 14@->CODTAB
|
|
END
|
|
|
|
STRINGA 24
|
|
BEGIN
|
|
KEY "Codice fiscale"
|
|
PROMPT 76 9 ""
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA 25
|
|
BEGIN
|
|
KEY "CODICE TRIBUTO"
|
|
PROMPT 71 11 ""
|
|
FIELD S6
|
|
END
|
|
|
|
STRINGA 26
|
|
BEGIN
|
|
KEY "PERIODO DI RIFERIMENTO"
|
|
PROMPT 92 11 ""
|
|
PICTURE "^^@@"
|
|
FIELD CODTAB[6,9]
|
|
END
|
|
|
|
DATA 38
|
|
BEGIN
|
|
KEY "Data del versamento"
|
|
PROMPT 64 19 ""
|
|
FIELD D0
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 39
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: COMUNE"
|
|
PROMPT 61 20 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA 40
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: Provincia"
|
|
PROMPT 99 20 ""
|
|
FIELD 213@->PROVCOM
|
|
END
|
|
|
|
STRINGA 41
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: VIA"
|
|
PROMPT 61 22 ""
|
|
FIELD 6->INDRF
|
|
FIELD 6->INDRES
|
|
END
|
|
|
|
STRINGA 42
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
|
PROMPT 99 22 ""
|
|
FIELD 6->CIVRF
|
|
FIELD 6->CIVRES
|
|
END
|
|
|
|
GRUPPO 27
|
|
BEGIN
|
|
KEY "Terza sezione"
|
|
END
|
|
|
|
NUMERO 28 58 1
|
|
BEGIN
|
|
KEY "TOTALE (in lettere)"
|
|
PROMPT 117 3 ""
|
|
GROUP 10
|
|
PICTURE "(*,*)LETTERE"
|
|
END
|
|
|
|
NUMERO 29
|
|
BEGIN
|
|
KEY "TOTALE (in alto)"
|
|
PROMPT 181 3 ""
|
|
GROUP 10
|
|
PICTURE "(* )# # # # # # # #^^^"
|
|
END
|
|
|
|
STRINGA 30
|
|
BEGIN
|
|
KEY "sul C/C n."
|
|
PROMPT 120 4 ""
|
|
FIELD 14@->S5
|
|
END
|
|
|
|
STRINGA 31
|
|
BEGIN
|
|
KEY "Concessione di"
|
|
PROMPT 127 5 ""
|
|
FIELD 14@->S0
|
|
END
|
|
|
|
STRINGA 53
|
|
BEGIN
|
|
KEY "Eseguito da (PG)"
|
|
PROMPT 127 6 ""
|
|
GROUP 2
|
|
FIELD 6->RAGSOC
|
|
END
|
|
|
|
STRINGA 32
|
|
BEGIN
|
|
KEY "Eseguito da (PF Prima parte)"
|
|
PROMPT 127 6 ""
|
|
GROUP 1
|
|
FIELD 6->RAGSOC[1,30]
|
|
END
|
|
|
|
STRINGA 33
|
|
BEGIN
|
|
KEY "Eseguito da (PF Seconda parte)"
|
|
PROMPT 180 6 ""
|
|
GROUP 1
|
|
FIELD 6->RAGSOC[31,50]
|
|
END
|
|
|
|
DATA 35
|
|
BEGIN
|
|
KEY "DATA DI NASCITA"
|
|
PROMPT 111 8 ""
|
|
GROUP 1
|
|
FLAGS "D"
|
|
PICTURE "# #^ # #^ ^ # # #"
|
|
FIELD 8->DATANASC
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
DATA 50
|
|
BEGIN
|
|
KEY "DATA DI COSTITUZIONE (PG)"
|
|
PROMPT 112 8 ""
|
|
GROUP 2
|
|
FLAGS "D"
|
|
PICTURE "# #^ # #^ ^ # # #"
|
|
FIELD 7->DATACOST
|
|
FORMAT "1444-"
|
|
END
|
|
|
|
STRINGA 36
|
|
BEGIN
|
|
KEY "COMUNE (o Stato estero) DI NASCITA"
|
|
PROMPT 148 8 ""
|
|
GROUP 1
|
|
FLAGS "D"
|
|
FIELD 113@->DENCOM
|
|
END
|
|
|
|
STRINGA 51
|
|
BEGIN
|
|
KEY "COMUNE (o Stato estero) DI COSTITUZIONE (PG)"
|
|
PROMPT 148 8 ""
|
|
GROUP 2
|
|
FLAGS "D"
|
|
FIELD 413@->DENCOM
|
|
END
|
|
|
|
STRINGA 37
|
|
BEGIN
|
|
KEY "PROV. DI NASCITA (sigla)"
|
|
PROMPT 205 8 ""
|
|
GROUP 1
|
|
FLAGS "D"
|
|
PICTURE "# #"
|
|
FIELD 113@->PROVCOM
|
|
END
|
|
|
|
STRINGA 52
|
|
BEGIN
|
|
KEY "PROV. DI COSTITUZIONE (sigla)"
|
|
PROMPT 205 8 ""
|
|
GROUP 2
|
|
FLAGS "D"
|
|
PICTURE "# #"
|
|
FIELD 413@->PROVCOM
|
|
END
|
|
|
|
STRINGA 38
|
|
BEGIN
|
|
KEY "SESSO (M o F)"
|
|
PROMPT 214 8 ""
|
|
GROUP 1
|
|
FLAGS "D"
|
|
FIELD 8->SESSO
|
|
END
|
|
|
|
STRINGA 39
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: COMUNE"
|
|
PROMPT 118 10 ""
|
|
FIELD 213@->DENCOM
|
|
END
|
|
|
|
STRINGA 40
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: VIA"
|
|
PROMPT 150 10 ""
|
|
FIELD 6->INDRF
|
|
FIELD 6->INDRES
|
|
END
|
|
|
|
STRINGA 41
|
|
BEGIN
|
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
|
PROMPT 213 10 ""
|
|
FIELD 6->CIVRF
|
|
FIELD 6->CIVRES
|
|
END
|
|
|
|
STRINGA 42
|
|
BEGIN
|
|
KEY "CODICE TRIBUTO"
|
|
PROMPT 112 13 ""
|
|
PICTURE "# # # #"
|
|
FIELD S6
|
|
END
|
|
|
|
STRINGA 43
|
|
BEGIN
|
|
KEY "PERIODO DI RIFERIMENTO"
|
|
PROMPT 140 13 ""
|
|
PICTURE "^^# @"
|
|
FIELD CODTAB[6,9]
|
|
END
|
|
|
|
NUMERO 44
|
|
BEGIN
|
|
KEY "Codice Concessione"
|
|
PROMPT 154 13 ""
|
|
PICTURE "@ @ @"
|
|
FIELD 6->UFFCONC
|
|
FIELD 14@->CODTAB
|
|
END
|
|
|
|
STRINGA 45
|
|
BEGIN
|
|
KEY "Codice fiscale"
|
|
PROMPT 164 13 ""
|
|
GROUP 1
|
|
PICTURE "# # # # # # # # # # # # # # # #"
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA 62
|
|
BEGIN
|
|
KEY "Codice fiscale (Persone GIURIDICHE)"
|
|
PROMPT 164 13 ""
|
|
GROUP 2
|
|
FLAGS "D"
|
|
PICTURE "# # # # # # # # # # #"
|
|
FIELD 6->COFI
|
|
END
|
|
|
|
STRINGA 46
|
|
BEGIN
|
|
KEY "Partita IVA"
|
|
PROMPT 181 15 ""
|
|
PICTURE "# # # # # # # # # # #"
|
|
FIELD 6->PAIV
|
|
END
|
|
|
|
NUMERO 47
|
|
BEGIN
|
|
KEY "IMPORTO TRIBUTO"
|
|
PROMPT 181 17 ""
|
|
PICTURE "(* )# # # # # # # #^^^"
|
|
FIELD R0
|
|
END
|
|
|
|
NUMERO 48
|
|
BEGIN
|
|
KEY "INTERESSI"
|
|
PROMPT 181 19 ""
|
|
PICTURE "(* )# # # # # # # #^^^"
|
|
FIELD R1
|
|
END
|
|
|
|
END
|
|
|
|
END
|