campo-sirio/ba/bolivacf.frm
angelo e09977d834 Correzione MI6183.
git-svn-id: svn://10.65.10.50/trunk@4188 c028cbd2-c16b-5b4b-a496-9718f37d4682
1997-03-10 14:07:58 +00:00

576 lines
7.3 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 "Roman 17cpi"
SIZE 12
CARATTERE "X"
INIZIALE 1 1
FINALE 223 1
END
SECTION BODY ODD 24
GRUPPO 1
BEGIN
KEY "Prima sezione"
END
NUMERO 2
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 5 13 ""
MESSAGE COPY,10@
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 3
BEGIN
KEY "INTERESSI"
PROMPT 17 13 ""
MESSAGE ADD,10@
PICTURE "###.###.###^^^"
END
NUMERO 4
BEGIN
KEY "TOTALE (in basso)"
PROMPT 36 13 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 5
BEGIN
KEY "TOTALE (in alto)"
PROMPT 37 2 ""
GROUP 10
PICTURE "(*)###.###.###^^^"
END
NUMERO 6
BEGIN
KEY "TOTALE (in lettere)"
PROMPT 8 3 ""
GROUP 10
PICTURE "(*,*)LETTERE@44"
END
STRINGA 7
BEGIN
KEY "sul C/C n."
PROMPT 12 4 ""
FIELD 14@->S5
END
STRINGA 8
BEGIN
KEY "Concessione di"
PROMPT 16 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 12 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 12 6 ""
GROUP 1
END
STRINGA 12
BEGIN
KEY "Codice Concessione"
PROMPT 17 9 ""
FIELD 14@->CODTAB
END
STRINGA 13
BEGIN
KEY "Codice fiscale"
PROMPT 22 9 ""
FIELD 6->COFI
END
STRINGA 14
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 19 11 ""
FIELD S6
END
STRINGA 15
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 38 11 ""
FIELD CODTAB[6,9]
END
DATA 16
BEGIN
KEY "Data del versamento"
PROMPT 11 19 ""
FIELD D0
FORMAT "1444-"
END
STRINGA 17
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 8 20 ""
FIELD 213@->DENCOM
END
STRINGA 18
BEGIN
KEY "DOMICILIO FISCALE: Provincia"
PROMPT 46 20 ""
FIELD 213@->PROVCOM
END
STRINGA 19
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 8 22 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 20
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 47 22 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
GRUPPO 21
BEGIN
KEY "Seconda sezione"
END
NUMERO 22
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 60 13 ""
PICTURE "###.###.###^^^"
FIELD R0
END
NUMERO 23
BEGIN
KEY "INTERESSI"
PROMPT 73 13 ""
PICTURE "###.###.###^^^"
END
NUMERO 24
BEGIN
KEY "TOTALE (in basso)"
PROMPT 91 13 ""
GROUP 10
PICTURE "###.###.###^^^"
END
NUMERO 25
BEGIN
KEY "TOTALE (in alto)"
PROMPT 92 2 ""
GROUP 10
PICTURE "(*)###.###.###^^^"
END
NUMERO 26
BEGIN
KEY "TOTALE (in lettere)"
GROUP 10
PROMPT 63 3 ""
PICTURE "(*,*)LETTERE@44"
END
STRINGA 27
BEGIN
KEY "sul C/C n."
PROMPT 68 4 ""
FIELD 14@->S5
END
STRINGA 28
BEGIN
KEY "Concessione di"
PROMPT 72 5 ""
FIELD 14@->S0
END
STRINGA 29
BEGIN
KEY "Eseguito da (PG)"
PROMPT 67 6 ""
GROUP 2
FIELD 6->RAGSOC[1,38]
END
STRINGA 30
BEGIN
KEY "Eseguito da (PF PRIMA PARTE)"
GROUP 1
MESSAGE COPY,528
FIELD 6->RAGSOC[1,22]
END
STRINGA 31
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 67 6 ""
GROUP 1
END
STRINGA 32
BEGIN
KEY "Codice Concessione"
PROMPT 71 9 ""
FIELD 14@->CODTAB
END
STRINGA 33
BEGIN
KEY "Codice fiscale"
PROMPT 79 9 ""
FIELD 6->COFI
END
STRINGA 34
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 74 11 ""
FIELD S6
END
STRINGA 35
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 95 11 ""
PICTURE "^^@@"
FIELD CODTAB[6,9]
END
DATA 36
BEGIN
KEY "Data del versamento"
PROMPT 67 19 ""
FIELD D0
FORMAT "1444-"
END
STRINGA 37
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 64 20 ""
FIELD 213@->DENCOM
END
STRINGA 38
BEGIN
KEY "DOMICILIO FISCALE: Provincia"
PROMPT 102 20 ""
FIELD 213@->PROVCOM
END
STRINGA 39
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 64 22 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 40
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 102 22 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
GRUPPO 41
BEGIN
KEY "Terza sezione"
END
NUMERO 42
BEGIN
KEY "TOTALE (in lettere)"
GROUP 10
PROMPT 120 3 ""
PICTURE "(*,*)LETTERE@52"
END
NUMERO 43
BEGIN
KEY "TOTALE (in alto)"
PROMPT 184 3 ""
GROUP 10
PICTURE "(* )# # # # # # # #^^^"
END
STRINGA 44
BEGIN
KEY "sul C/C n."
PROMPT 123 4 ""
FIELD 14@->S5
END
STRINGA 45
BEGIN
KEY "Concessione di"
PROMPT 130 5 ""
FIELD 14@->S0
END
STRINGA 46
BEGIN
KEY "Eseguito da (PG)"
PROMPT 130 6 ""
GROUP 2
FIELD 6->RAGSOC
END
STRINGA 47
BEGIN
KEY "Eseguito da (PF Prima parte)"
PROMPT 130 6 ""
GROUP 1
FIELD 6->RAGSOC[1,30]
END
STRINGA 48
BEGIN
KEY "Eseguito da (PF Seconda parte)"
PROMPT 183 6 ""
GROUP 1
FIELD 6->RAGSOC[31,50]
END
DATA 49
BEGIN
KEY "DATA DI NASCITA"
PROMPT 114 8 ""
GROUP 1
FLAGS "D"
PICTURE "# #^ # #^ ^ # # #"
FIELD 8->DATANASC
FORMAT "1444-"
END
DATA 50
BEGIN
KEY "DATA DI COSTITUZIONE (PG)"
PROMPT 114 8 ""
GROUP 2
FLAGS "D"
PICTURE "# #^ # #^ ^ # # #"
FIELD 7->DATACOST
FORMAT "1444-"
END
STRINGA 51
BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 151 8 ""
GROUP 1
FLAGS "D"
FIELD 113@->DENCOM
END
STRINGA 52
BEGIN
KEY "COMUNE DI COSTITUZIONE"
PROMPT 151 8 ""
GROUP 2
FLAGS "D"
FIELD 413@->DENCOM
END
STRINGA 53
BEGIN
KEY "PROV. DI NASCITA (sigla)"
PROMPT 208 8 ""
GROUP 1
FLAGS "D"
PICTURE "# #"
FIELD 113@->PROVCOM
END
STRINGA 54
BEGIN
KEY "PROV. DI COSTITUZIONE (sigla)"
PROMPT 208 8 ""
GROUP 2
FLAGS "D"
PICTURE "# #"
FIELD 413@->PROVCOM
END
STRINGA 55
BEGIN
KEY "SESSO (M o F)"
PROMPT 217 8 ""
GROUP 1
FLAGS "D"
FIELD 8->SESSO
END
STRINGA 56
BEGIN
KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 121 10 ""
FIELD 213@->DENCOM
END
STRINGA 57
BEGIN
KEY "DOMICILIO FISCALE: VIA"
PROMPT 153 10 ""
FIELD 6->INDRF
FIELD 6->INDRES
END
STRINGA 58
BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 216 10 ""
FIELD 6->CIVRF
FIELD 6->CIVRES
END
STRINGA 59
BEGIN
KEY "CODICE TRIBUTO"
PROMPT 115 13 ""
PICTURE "# # # #"
FIELD S6
END
STRINGA 60
BEGIN
KEY "PERIODO DI RIFERIMENTO"
PROMPT 143 13 ""
PICTURE "^^# @"
FIELD CODTAB[6,9]
END
STRINGA 61
BEGIN
KEY "Codice Concessione"
PROMPT 157 13 ""
PICTURE "@ @ @"
FIELD 14@->CODTAB
END
STRINGA 62
BEGIN
KEY "Codice fiscale"
PROMPT 167 13 ""
GROUP 1
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI
END
STRINGA 63
BEGIN
KEY "Codice fiscale (Persone GIURIDICHE)"
PROMPT 167 13 ""
GROUP 2
FLAGS "D"
PICTURE "# # # # # # # # # # #"
FIELD 6->COFI
END
STRINGA 64
BEGIN
KEY "Partita IVA"
PROMPT 184 15 ""
PICTURE "# # # # # # # # # # #"
FIELD 6->PAIV
END
NUMERO 65
BEGIN
KEY "IMPORTO TRIBUTO"
PROMPT 184 17 ""
PICTURE "# # # # # # # #^^^"
FIELD R0
END
NUMERO 66
BEGIN
KEY "INTERESSI"
PROMPT 184 19 ""
PICTURE "# # # # # # # #^^^"
END
END
END