Rif. mod. 95/24. Impostati i forms in 17".
git-svn-id: svn://10.65.10.50/trunk@1768 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
747f0d9657
commit
bf76c36172
282
cg/deliva.frm
282
cg/deliva.frm
@ -1,37 +1,60 @@
|
|||||||
USE %DEL
|
USE %DEL
|
||||||
|
JOIN %BAN ALIAS 2 INTO CODTAB=S7
|
||||||
JOIN %BAN ALIAS 1 INTO CODTAB=S7+S8
|
JOIN %BAN ALIAS 1 INTO CODTAB=S7+S8
|
||||||
JOIN 13 TO 1@ ALIAS 11 INTO COM=S5
|
JOIN 13 TO 1@ ALIAS 11 INTO COM=S5
|
||||||
JOIN 9 INTO CODDITTA=CODTAB[1,5]
|
JOIN 9 INTO CODDITTA=CODTAB[1,5]
|
||||||
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
||||||
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
|
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
|
||||||
JOIN 13 TO 6 ALIAS 12 INTO COM=COMRF
|
JOIN 13 TO 6 ALIAS 12 INTO COM==COMRF
|
||||||
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
|
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
|
||||||
|
|
||||||
|
END
|
||||||
|
DESCRIPTION
|
||||||
|
BEGIN
|
||||||
|
%DEL->* "DEL"
|
||||||
|
2@->* "BAN"
|
||||||
|
1@->* "BAN"
|
||||||
|
11@->* "Comuni"
|
||||||
|
9->* "Ditte"
|
||||||
|
6->* "Anagrafica persone fisiche e giuridiche"
|
||||||
|
8->* "Anagrafica persone fisiche"
|
||||||
|
7->* "Anagrafica persone giuridiche"
|
||||||
|
12@->* "Comuni"
|
||||||
|
13@->* "Comuni"
|
||||||
END
|
END
|
||||||
|
|
||||||
SECTION BODY 0 66
|
GENERAL
|
||||||
STRINGA
|
BEGIN
|
||||||
|
OFFSET 0 0
|
||||||
|
FONT "Courier New"
|
||||||
|
SIZE 7
|
||||||
|
END
|
||||||
|
|
||||||
|
SECTION BODY ODD 66
|
||||||
|
|
||||||
|
STRINGA 1
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sede Azienda"
|
KEY "Sede Azienda"
|
||||||
PROMPT 34 10 ""
|
PROMPT 50 10 ""
|
||||||
|
FIELD 2@->S0
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 2
|
||||||
|
BEGIN
|
||||||
|
KEY "Sede Filiale"
|
||||||
|
PROMPT 50 12 ""
|
||||||
FIELD 1@->S0
|
FIELD 1@->S0
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 3
|
||||||
BEGIN
|
|
||||||
KEY "Sede Filiale"
|
|
||||||
PROMPT 34 12 ""
|
|
||||||
FIELD 1@->S1
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGA
|
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Provincia Banca"
|
KEY "Provincia Banca"
|
||||||
PROMPT 73 12 ""
|
PROMPT 129 12 ""
|
||||||
FIELD 11@->PROVCOM
|
FIELD 11@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Tipo anagrafica"
|
KEY "Tipo anagrafica"
|
||||||
FIELD 6->TIPOA
|
FIELD 6->TIPOA
|
||||||
@ -39,52 +62,52 @@ BEGIN
|
|||||||
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO 5
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Persone fisiche"
|
KEY "Persone fisiche"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA 6
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sesso"
|
KEY "Sesso"
|
||||||
PROMPT 19 20 "X X"
|
PROMPT 34 19 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 8->SESSO
|
FIELD 8->SESSO
|
||||||
ITEM "M| " MESSAGE SHOW,3|HIDE,4
|
ITEM "M|X " MESSAGE SHOW,3@|HIDE,4@
|
||||||
ITEM "F| " MESSAGE SHOW,4|HIDE,3
|
ITEM "F| X" MESSAGE SHOW,4@|HIDE,3@
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO 7
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sesso maschile"
|
KEY "Sesso maschile"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 3
|
GROUP 3
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 8
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Il sottoscritto"
|
KEY "Il sottoscritto"
|
||||||
PROMPT 2 14 "I o"
|
PROMPT 6 14 "I o"
|
||||||
GROUP 1 3
|
GROUP 1 3
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO 9
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Sesso Femminile"
|
KEY "Sesso Femminile"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 4
|
GROUP 4
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 10
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "La sottoscritta"
|
KEY "La sottoscritta"
|
||||||
PROMPT 2 14 " a a"
|
PROMPT 6 14 " a a"
|
||||||
GROUP 1 4
|
GROUP 1 4
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 11
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Cognome"
|
KEY "Cognome"
|
||||||
PROMPT 5 17 ""
|
PROMPT 5 17 ""
|
||||||
@ -92,81 +115,83 @@ BEGIN
|
|||||||
FIELD 6->RAGSOC[1,30]
|
FIELD 6->RAGSOC[1,30]
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 12
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Nome"
|
KEY "Nome"
|
||||||
PROMPT 35 17 ""
|
PROMPT 73 17 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 6->RAGSOC[31,-1]
|
FIELD 6->RAGSOC[31,-1]
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 13
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Giorno di nascita"
|
KEY "Giorno di nascita"
|
||||||
PROMPT 1 20 ""
|
PROMPT 5 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PICTURE "@ @"
|
PICTURE "@ @"
|
||||||
FIELD 8->DATANASC[1,2]
|
FIELD 8->DATANASC[1,2]
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 14
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Mese di nascita"
|
KEY "Mese di nascita"
|
||||||
PROMPT 5 20 ""
|
PROMPT 12 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PICTURE "@ @"
|
PICTURE "@ @"
|
||||||
FIELD 8->DATANASC[4,5]
|
FIELD 8->DATANASC[4,5]
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 15
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Anno di nascita"
|
KEY "Anno di nascita"
|
||||||
PROMPT 9 20 ""
|
PROMPT 19 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PICTURE "@ @"
|
PICTURE "@ @"
|
||||||
FIELD 8->DATANASC[9,10]
|
FIELD 8->DATANASC[9,10]
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 16
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Comune di nascita"
|
KEY "Comune di nascita"
|
||||||
PROMPT 30 20 ""
|
PROMPT 53 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 13@->DENCOM
|
FIELD 13@->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 17
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Provincia di nascita"
|
KEY "Provincia di nascita"
|
||||||
PROMPT 78 20 ""
|
PROMPT 130 20 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
|
PICTURE "# #"
|
||||||
FIELD 13@->PROVCOM
|
FIELD 13@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO 18
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Persone giuridiche"
|
KEY "Persone giuridiche"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 19
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Ragione Sociale"
|
KEY "Ragione Sociale"
|
||||||
PROMPT 3 24 ""
|
PROMPT 5 24 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
FIELD 6->RAGSOC
|
FIELD 6->RAGSOC
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 20
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Natura Giuridica"
|
KEY "Natura Giuridica"
|
||||||
PROMPT 77 24 ""
|
PROMPT 130 24 ""
|
||||||
GROUP 2
|
GROUP 2
|
||||||
|
PICTURE "# #"
|
||||||
FIELD 7->NATGIU
|
FIELD 7->NATGIU
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 21
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Via Indirizzo Fiscale"
|
KEY "Via Indirizzo Fiscale"
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
@ -174,69 +199,81 @@ BEGIN
|
|||||||
FIELD 6->INDRF
|
FIELD 6->INDRF
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 22
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Numero Civico Indirizzo Fiscale"
|
KEY "Numero Civico Indirizzo Fiscale"
|
||||||
FLAGS "H"
|
FLAGS "H"
|
||||||
MESSAGE APPEND,527
|
MESSAGE APPEND,527
|
||||||
FIELD 6->INDRF
|
FIELD 6->CIVRF
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA 527 35
|
STRINGA 527 35
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Indirizzo Fiscale"
|
KEY "Indirizzo Fiscale"
|
||||||
PROMPT 5 27 ""
|
PROMPT 5 28 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 24
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CAP fiscale"
|
KEY "CAP fiscale"
|
||||||
PROMPT 45 27 ""
|
PROMPT 74 28 ""
|
||||||
|
PICTURE "# # # # #"
|
||||||
FIELD 6->CAPRF
|
FIELD 6->CAPRF
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 25
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Comune di residenza fiscale"
|
KEY "Comune di residenza fiscale"
|
||||||
PROMPT 56 27 ""
|
PROMPT 92 28 ""
|
||||||
FIELD 12@->DENCOM
|
FIELD 12@->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 26
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Provincia di residenza fiscale"
|
KEY "Provincia di residenza fiscale"
|
||||||
PROMPT 75 27 ""
|
PROMPT 130 28 ""
|
||||||
|
PICTURE "# #"
|
||||||
FIELD 12@->PROVCOM
|
FIELD 12@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 27
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Partita IVA"
|
KEY "Partita IVA"
|
||||||
PROMPT 12 30 ""
|
PROMPT 24 33 ""
|
||||||
PICTURE "# # # # # # # ^ ^ ^ #"
|
PICTURE "# # # # # # # ^ ^ ^ #"
|
||||||
FIELD 6->PAIV
|
FIELD 6->PAIV
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 28
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Codice fiscale"
|
KEY "Codice fiscale (P.IVA Persone giuridiche)"
|
||||||
PROMPT 42 30 ""
|
PROMPT 79 33 ""
|
||||||
PICTURE "# # # # # # # # # # # # # # # #"
|
GROUP 2
|
||||||
|
PICTURE "# # # # # # # # # # #"
|
||||||
FIELD 6->COFI
|
FIELD 6->COFI
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
STRINGA 29
|
||||||
|
BEGIN
|
||||||
|
KEY "Codice fiscale (Persone fisiche)"
|
||||||
|
PROMPT 79 33 ""
|
||||||
|
GROUP 1
|
||||||
|
PICTURE "# # # # # # # # # # # # # # # #"
|
||||||
|
FIELD 6->COFI
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMERO 29
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Anno di versamento"
|
KEY "Anno di versamento"
|
||||||
PROMPT 40 35 ""
|
PROMPT 79 40 ""
|
||||||
PICTURE "^ ^ @ @"
|
PICTURE "^ ^ @ @"
|
||||||
FIELD CODTAB[6,9]
|
FIELD CODTAB[6,9]
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA 30
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Periodo di versamento"
|
KEY "Periodo di versamento"
|
||||||
PROMPT 50 35 ""
|
PROMPT 110 40 ""
|
||||||
FIELD CODTAB[10,11]
|
FIELD CODTAB[10,11]
|
||||||
ITEM "01|Gennaio"
|
ITEM "01|Gennaio"
|
||||||
ITEM "02|Febbraio"
|
ITEM "02|Febbraio"
|
||||||
@ -253,104 +290,89 @@ BEGIN
|
|||||||
ITEM "13|Annuale"
|
ITEM "13|Annuale"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA 31
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "X sul mese"
|
KEY "X sul mese"
|
||||||
PROMPT 40 40 ""
|
PROMPT 64 46 ""
|
||||||
GROUP 6
|
GROUP 6
|
||||||
FIELD CODTAB[10,11]
|
FIELD CODTAB[10,11]
|
||||||
ITEM "01|X"
|
ITEM "01|X"
|
||||||
ITEM "02| X"
|
ITEM "02| X"
|
||||||
ITEM "03| X"
|
ITEM "03| X"
|
||||||
ITEM "04| X"
|
ITEM "04| X"
|
||||||
ITEM "05| X"
|
ITEM "05| X"
|
||||||
ITEM "06| X"
|
ITEM "06| X"
|
||||||
ITEM "07| X"
|
ITEM "07| X"
|
||||||
ITEM "08| X"
|
ITEM "08| X"
|
||||||
ITEM "09| X"
|
ITEM "09| X"
|
||||||
ITEM "10| X"
|
ITEM "10| X"
|
||||||
ITEM "11| X"
|
ITEM "11| X"
|
||||||
ITEM "12| X"
|
ITEM "12| X"
|
||||||
ITEM "13| X"
|
ITEM "13| X"
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA 32
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "X sul trimestre"
|
KEY "X sul trimestre"
|
||||||
PROMPT 4 33 ""
|
PROMPT 9 46 ""
|
||||||
GROUP 6
|
GROUP 6
|
||||||
FIELD CODTAB[10,11]
|
FIELD CODTAB[10,11]
|
||||||
ITEM "01|X"
|
ITEM "01|X"
|
||||||
ITEM "02|X"
|
ITEM "02|X"
|
||||||
ITEM "03|X"
|
ITEM "03|X"
|
||||||
ITEM "04| X"
|
ITEM "04| X"
|
||||||
ITEM "05| X"
|
ITEM "05| X"
|
||||||
ITEM "06| X"
|
ITEM "06| X"
|
||||||
ITEM "07| X"
|
ITEM "07| X"
|
||||||
ITEM "08| X"
|
ITEM "08| X"
|
||||||
ITEM "09| X"
|
ITEM "09| X"
|
||||||
ITEM "10| X"
|
ITEM "10| X"
|
||||||
ITEM "11| X"
|
ITEM "11| X"
|
||||||
ITEM "12| X"
|
ITEM "12| X"
|
||||||
ITEM "13| X"
|
ITEM "13| X"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 33
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Importo in cifre"
|
KEY "Importo in cifre"
|
||||||
PROMPT 20 52 ""
|
PROMPT 31 51 ""
|
||||||
PICTURE "###.###.###^^^"
|
PICTURE "###.###.###^^^"
|
||||||
FIELD R0
|
FIELD R0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 34
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Importo in lettere"
|
KEY "Importo in lettere"
|
||||||
PROMPT 40 52 ""
|
PROMPT 60 51 ""
|
||||||
PICTURE "LETTERE"
|
PICTURE "LETTERE"
|
||||||
FIELD R0
|
FIELD R0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
DATA 36
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Giorno del versamento"
|
KEY "Data del versamento"
|
||||||
PROMPT 30 60 ""
|
PROMPT 87 58 ""
|
||||||
PICTURE "# #"
|
PICTURE "@ @^ @ @^ @ @"
|
||||||
FIELD D0
|
FIELD D0
|
||||||
|
FORMAT "1442-"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
STRINGA 38
|
||||||
BEGIN
|
|
||||||
KEY "Mese del versamento"
|
|
||||||
PROMPT 34 60 ""
|
|
||||||
PICTURE "# #"
|
|
||||||
FIELD D0
|
|
||||||
END
|
|
||||||
|
|
||||||
NUMERO
|
|
||||||
BEGIN
|
|
||||||
KEY "Anno del versamento"
|
|
||||||
PROMPT 38 60 ""
|
|
||||||
PICTURE "# #"
|
|
||||||
FIELD D0
|
|
||||||
END
|
|
||||||
|
|
||||||
STRINGA
|
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Codice Azienda"
|
KEY "Codice Azienda"
|
||||||
PROMPT 60 62 ""
|
PROMPT 110 58 ""
|
||||||
|
PICTURE "@ @ @ @"
|
||||||
|
FIELD S7
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 39
|
||||||
|
BEGIN
|
||||||
|
KEY "Codice Filiale"
|
||||||
|
PROMPT 124 58 ""
|
||||||
PICTURE "@ @ @ @"
|
PICTURE "@ @ @ @"
|
||||||
FIELD S8
|
FIELD S8
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
|
||||||
BEGIN
|
|
||||||
KEY "Codice Filiale"
|
|
||||||
PROMPT 70 62 ""
|
|
||||||
PICTURE "^ ^ @ @"
|
|
||||||
FIELD S8
|
|
||||||
END
|
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|||||||
166
cg/delivacf.frm
166
cg/delivacf.frm
@ -4,45 +4,85 @@ JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
|||||||
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
|
JOIN 8 TO 9 INTO CODANAGR=CODANAGR
|
||||||
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC
|
||||||
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF(COMRES)
|
||||||
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB=UFFCONC
|
JOIN %UCC TO 213@ ALIAS 14 INTO CODTAB==UFFCONC
|
||||||
|
JOIN %BAN ALIAS 24 INTO CODTAB=S7
|
||||||
|
JOIN %BAN ALIAS 34 INTO CODTAB=S7+S8
|
||||||
|
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
|
||||||
|
|
||||||
SECTION BODY 0 66 0 0
|
END
|
||||||
STRINGA
|
DESCRIPTION
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CONCESSIONE DI"
|
%DEL->* "DEL"
|
||||||
PROMPT 36 5 ""
|
9->* "Ditte"
|
||||||
FIELD 14@->S0
|
6->* "Anagrafica persone fisiche e giuridiche"
|
||||||
|
8->* "Anagrafica persone fisiche"
|
||||||
|
113@->* "Comuni"
|
||||||
|
213@->* "Comuni"
|
||||||
|
14@->* "UCC"
|
||||||
|
24@->* "BAN"
|
||||||
|
34@->* "BAN"
|
||||||
|
313@->* "Comuni"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
GENERAL
|
||||||
|
BEGIN
|
||||||
|
OFFSET 0 0
|
||||||
|
FONT "Courier New"
|
||||||
|
SIZE 7
|
||||||
|
END
|
||||||
|
|
||||||
|
SECTION BODY ODD 66
|
||||||
|
|
||||||
|
STRINGA 1
|
||||||
|
BEGIN
|
||||||
|
KEY "Azienda di credito"
|
||||||
|
PROMPT 73 6 ""
|
||||||
|
FIELD 24@->S0
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 2
|
||||||
|
BEGIN
|
||||||
|
KEY "Dipendenza"
|
||||||
|
PROMPT 73 8 ""
|
||||||
|
FIELD 34@->S0
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 3
|
||||||
|
BEGIN
|
||||||
|
KEY "PROVINCIA dipendenza"
|
||||||
|
PROMPT 127 8 ""
|
||||||
|
FIELD 313@->PROVCOM
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 2
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COD. CONCESS."
|
KEY "COD. CONCESS."
|
||||||
PROMPT 9 11 ""
|
PROMPT 16 11 ""
|
||||||
FIELD 14@->CODTAB
|
FIELD 14@->CODTAB
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 3
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "CODICE FISCALE"
|
KEY "CODICE FISCALE"
|
||||||
PROMPT 15 11 ""
|
PROMPT 26 11 ""
|
||||||
FIELD 6->COFI
|
FIELD 6->COFI
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 4
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
|
KEY "COGNOME, DENOMINAZIONE O RAGIONE SOCIALE"
|
||||||
PROMPT 2 15 ""
|
PROMPT 4 15 ""
|
||||||
FIELD 6->RAGSOC[1,30]
|
FIELD 6->RAGSOC[1,30]
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 5
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "NOME"
|
KEY "NOME"
|
||||||
PROMPT 54 15 ""
|
PROMPT 95 15 ""
|
||||||
FIELD 6->RAGSOC[31,-1]
|
FIELD 6->RAGSOC[31,-1]
|
||||||
END
|
END
|
||||||
|
|
||||||
LISTA
|
LISTA 6
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Tipo anagrafica"
|
KEY "Tipo anagrafica"
|
||||||
FIELD 6->TIPOA
|
FIELD 6->TIPOA
|
||||||
@ -50,139 +90,155 @@ BEGIN
|
|||||||
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
||||||
END
|
END
|
||||||
|
|
||||||
GRUPPO
|
GRUPPO 7
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "Persone fisiche"
|
KEY "Persone fisiche"
|
||||||
PROMPT 0 0 ""
|
PROMPT 0 0 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA
|
DATA 8
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DATA DI NASCITA"
|
KEY "DATA DI NASCITA"
|
||||||
PROMPT 2 17 ""
|
PROMPT 4 17 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
PICTURE "# # ~ # # ~ ~ # # #"
|
PICTURE "# # ^ # # ^ ^ # # #"
|
||||||
FIELD 8->DATANASC
|
FIELD 8->DATANASC
|
||||||
|
FORMAT "1444-"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 9
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "SESSO (M o F)"
|
KEY "SESSO (M o F)"
|
||||||
PROMPT 19 17 ""
|
PROMPT 34 17 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 8->SESSO
|
FIELD 8->SESSO
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 10
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "COMUNE (o Stato estero) DI NASCITA"
|
KEY "COMUNE (o Stato estero) DI NASCITA"
|
||||||
PROMPT 24 17 ""
|
PROMPT 42 17 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 113@->DENCOM
|
FIELD 113@->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 11
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "PROV. DI NASCITA (sigla)"
|
KEY "PROV. DI NASCITA (sigla)"
|
||||||
PROMPT 68 17 ""
|
PROMPT 120 17 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FIELD 113@->PROVCOM
|
FIELD 113@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 12
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DOMICILIO FISCALE: COMUNE"
|
KEY "DOMICILIO FISCALE: COMUNE"
|
||||||
PROMPT 8 19 ""
|
PROMPT 14 19 ""
|
||||||
FIELD 213@->DENCOM
|
FIELD 213@->DENCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 13
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
||||||
PROMPT 36 19 ""
|
PROMPT 64 19 ""
|
||||||
FIELD 213@->PROVCOM
|
FIELD 213@->PROVCOM
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 14
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DOMICILIO FISCALE: VIA"
|
KEY "DOMICILIO FISCALE: VIA"
|
||||||
PROMPT 41 19 ""
|
PROMPT 72 19 ""
|
||||||
FIELD 6->INDRF
|
FIELD 6->INDRF
|
||||||
FIELD 6->INDRES
|
FIELD 6->INDRES
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 15
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
||||||
PROMPT 70 19 ""
|
PROMPT 124 19 ""
|
||||||
FIELD 6->CIVRF
|
FIELD 6->CIVRF
|
||||||
FIELD 6->CIVRES
|
FIELD 6->CIVRES
|
||||||
END
|
END
|
||||||
|
|
||||||
STRINGA
|
STRINGA 16
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "PARTITA IVA"
|
KEY "PARTITA IVA"
|
||||||
PROMPT 12 47 ""
|
PROMPT 24 47 ""
|
||||||
FIELD 6->PAIV
|
FIELD 6->PAIV
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 17
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "ANNO"
|
KEY "ANNO"
|
||||||
PROMPT 14 51 ""
|
PROMPT 25 51 ""
|
||||||
PICTURE "~~@@"
|
PICTURE "^^@@"
|
||||||
FIELD CODTAB[6,9]
|
FIELD CODTAB[6,9]
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 18
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "IMPORTO TRIBUTO"
|
KEY "IMPORTO TRIBUTO"
|
||||||
PROMPT 20 51 ""
|
PROMPT 49 51 ""
|
||||||
MESSAGE COPY,10@
|
MESSAGE COPY,10@
|
||||||
PICTURE "###.###.###~~~"
|
PICTURE "###.###.###^^^"
|
||||||
FIELD R0
|
FIELD R0
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 19
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "INTERESSI"
|
KEY "INTERESSI"
|
||||||
PROMPT 40 51 ""
|
PROMPT 75 51 ""
|
||||||
MESSAGE ADD,10@
|
MESSAGE ADD,10@
|
||||||
PICTURE "###.###.###~~~"
|
PICTURE "###.###.###^^^"
|
||||||
FIELD R1
|
FIELD R1
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 20
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "TOTALE"
|
KEY "TOTALE"
|
||||||
PROMPT 54 51 ""
|
PROMPT 114 51 ""
|
||||||
GROUP 10
|
GROUP 10
|
||||||
PICTURE "###.###.###~~~"
|
PICTURE "###.###.###^^^"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 21
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "TOTALE (in lettere)"
|
KEY "TOTALE (in lettere)"
|
||||||
PROMPT 5 55 ""
|
PROMPT 9 55 ""
|
||||||
GROUP 10
|
GROUP 10
|
||||||
PICTURE "LETTERE"
|
PICTURE "LETTERE"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMERO
|
NUMERO 22
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "TOTALE (in cifre)"
|
KEY "TOTALE (in cifre)"
|
||||||
PROMPT 54 55 ""
|
PROMPT 114 55 ""
|
||||||
GROUP 10
|
GROUP 10
|
||||||
PICTURE "###.###.###~~~"
|
PICTURE "###.###.###^^^"
|
||||||
END
|
END
|
||||||
|
|
||||||
DATA
|
DATA 23
|
||||||
BEGIN
|
BEGIN
|
||||||
KEY "DATA: giorno - mese - anno"
|
KEY "DATA: giorno - mese - anno"
|
||||||
PROMPT 12 60 ""
|
PROMPT 80 60 ""
|
||||||
PICTURE "@@ ~ @@~~~@@"
|
PICTURE "@ @^ @ @^ ^^@ @"
|
||||||
FIELD D0
|
FIELD D0
|
||||||
|
FORMAT "1444-"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 26
|
||||||
|
BEGIN
|
||||||
|
KEY "CODICE AZIENDA"
|
||||||
|
PROMPT 102 60 ""
|
||||||
|
FIELD S7
|
||||||
|
END
|
||||||
|
|
||||||
|
STRINGA 27
|
||||||
|
BEGIN
|
||||||
|
KEY "CODICE DIPENDENZA"
|
||||||
|
PROMPT 120 60 ""
|
||||||
|
FIELD S8
|
||||||
END
|
END
|
||||||
|
|
||||||
END
|
END
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user