DISIVACF.FRM : Corrette posizioni sull'asse verticale (-1 a tutti)
DISGEN.FRM : Corretta la JOIN sulla ricerca comuni di nascita e residenza. git-svn-id: svn://10.65.10.50/trunk@2119 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo
parent
6fb97e1b61
commit
bce96f977c
@ -2,12 +2,12 @@ USE %GEN
|
||||
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
|
||||
JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR
|
||||
JOIN 7 TO 16@ ALIAS 17 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 18@ ALIAS 113 INTO COM=COMNASC
|
||||
JOIN 13 TO 18@ ALIAS 113 INTO COM==COMNASC
|
||||
JOIN 13 TO 16@ ALIAS 213 INTO COM==COMRF(COMRES)
|
||||
JOIN 13 TO 17@ ALIAS 413 INTO COM=COMCOST
|
||||
JOIN 13 TO 17@ ALIAS 413 INTO COM==COMCOST
|
||||
JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
|
||||
JOIN 8 TO 16@ ALIAS 28 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 18@ ALIAS 313 INTO COM=COMNASC
|
||||
JOIN 13 TO 18@ ALIAS 313 INTO COM==COMNASC
|
||||
JOIN %UCC ALIAS 14 INTO CODTAB=S9
|
||||
|
||||
END
|
||||
|
||||
@ -41,7 +41,7 @@ END
|
||||
STRINGA 2
|
||||
BEGIN
|
||||
KEY "COD. CONCESS."
|
||||
PROMPT 16 11 ""
|
||||
PROMPT 16 10 ""
|
||||
FIELD 6->UFFCONC
|
||||
FIELD 14@->CODTAB
|
||||
END
|
||||
@ -57,7 +57,7 @@ END
|
||||
STRINGA 3
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 26 11 ""
|
||||
PROMPT 26 10 ""
|
||||
PICTURE "# # # # # # # # # # # # # # # #"
|
||||
FIELD 6->COFI
|
||||
END
|
||||
@ -65,7 +65,7 @@ END
|
||||
STRINGA 4
|
||||
BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 3 15 ""
|
||||
PROMPT 3 14 ""
|
||||
GROUP 1
|
||||
FIELD 6->RAGSOC[1,30]
|
||||
END
|
||||
@ -73,7 +73,7 @@ END
|
||||
STRINGA 5
|
||||
BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 91 15 ""
|
||||
PROMPT 91 14 ""
|
||||
GROUP 1
|
||||
FIELD 6->RAGSOC[31,-1]
|
||||
END
|
||||
@ -81,7 +81,7 @@ END
|
||||
STRINGA 25
|
||||
BEGIN
|
||||
KEY "DENOMINAZIONE O RAGIONE SOCIALE"
|
||||
PROMPT 3 15 ""
|
||||
PROMPT 3 14 ""
|
||||
GROUP 2
|
||||
FIELD 6->RAGSOC
|
||||
END
|
||||
@ -97,7 +97,7 @@ END
|
||||
DATA 8
|
||||
BEGIN
|
||||
KEY "DATA DI NASCITA"
|
||||
PROMPT 3 17 ""
|
||||
PROMPT 3 16 ""
|
||||
GROUP 1
|
||||
FLAGS "DH"
|
||||
PICTURE "# # ^ # # ^^ # # #"
|
||||
@ -108,7 +108,7 @@ END
|
||||
DATA
|
||||
BEGIN
|
||||
KEY "DATA DI COSTITUZIONE"
|
||||
PROMPT 3 17 ""
|
||||
PROMPT 3 16 ""
|
||||
GROUP 2
|
||||
FLAGS "DH"
|
||||
PICTURE "# # ^ # # ^^ # # #"
|
||||
@ -119,7 +119,7 @@ END
|
||||
STRINGA 9
|
||||
BEGIN
|
||||
KEY "SESSO (M o F)"
|
||||
PROMPT 33 17 ""
|
||||
PROMPT 33 16 ""
|
||||
GROUP 1
|
||||
FLAGS "DH"
|
||||
FIELD 8->SESSO
|
||||
@ -128,7 +128,7 @@ END
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "COMUNE (o Stato estero) DI NASCITA"
|
||||
PROMPT 41 17 ""
|
||||
PROMPT 41 16 ""
|
||||
GROUP 1
|
||||
FLAGS "DH"
|
||||
FIELD 113@->DENCOM
|
||||
@ -137,7 +137,7 @@ END
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
|
||||
PROMPT 41 17 ""
|
||||
PROMPT 41 16 ""
|
||||
GROUP 2
|
||||
FLAGS "DH"
|
||||
FIELD 413@->DENCOM
|
||||
@ -146,7 +146,7 @@ END
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "PROV. DI NASCITA (sigla)"
|
||||
PROMPT 120 17 ""
|
||||
PROMPT 120 16 ""
|
||||
GROUP 1
|
||||
FLAGS "DH"
|
||||
FIELD 113@->PROVCOM
|
||||
@ -155,7 +155,7 @@ END
|
||||
STRINGA
|
||||
BEGIN
|
||||
KEY "PROV. DI COSTITUZIONE (sigla)"
|
||||
PROMPT 120 17 ""
|
||||
PROMPT 120 16 ""
|
||||
GROUP 2
|
||||
FLAGS "DH"
|
||||
FIELD 413@->PROVCOM
|
||||
@ -164,21 +164,21 @@ END
|
||||
STRINGA 12
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: COMUNE"
|
||||
PROMPT 13 19 ""
|
||||
PROMPT 13 18 ""
|
||||
FIELD 213@->DENCOM
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: PROV. (sigla)"
|
||||
PROMPT 64 19 ""
|
||||
PROMPT 64 18 ""
|
||||
FIELD 213@->PROVCOM
|
||||
END
|
||||
|
||||
STRINGA 14
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: VIA"
|
||||
PROMPT 70 19 ""
|
||||
PROMPT 70 18 ""
|
||||
FIELD 6->INDRF
|
||||
FIELD 6->INDRES
|
||||
END
|
||||
@ -186,7 +186,7 @@ END
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "DOMICILIO FISCALE: NUMERO CIVICO"
|
||||
PROMPT 124 19 ""
|
||||
PROMPT 124 18 ""
|
||||
FIELD 6->CIVRF
|
||||
FIELD 6->CIVRES
|
||||
END
|
||||
@ -194,7 +194,7 @@ END
|
||||
STRINGA 16
|
||||
BEGIN
|
||||
KEY "PARTITA IVA"
|
||||
PROMPT 25 46 ""
|
||||
PROMPT 25 45 ""
|
||||
PICTURE "# # # # # # # # # # #"
|
||||
FIELD 6->PAIV
|
||||
END
|
||||
@ -202,14 +202,14 @@ END
|
||||
STRINGA 24
|
||||
BEGIN
|
||||
KEY "CODICE TRIBUTO"
|
||||
PROMPT 10 51 ""
|
||||
PROMPT 10 50 ""
|
||||
FIELD S6
|
||||
END
|
||||
|
||||
STRINGA 17
|
||||
BEGIN
|
||||
KEY "ANNO"
|
||||
PROMPT 26 51 ""
|
||||
PROMPT 26 50 ""
|
||||
PICTURE "^^@@"
|
||||
FIELD CODTAB[6,9]
|
||||
END
|
||||
@ -217,7 +217,7 @@ END
|
||||
NUMERO 18
|
||||
BEGIN
|
||||
KEY "IMPORTO TRIBUTO"
|
||||
PROMPT 48 51 ""
|
||||
PROMPT 48 50 ""
|
||||
MESSAGE COPY,10@
|
||||
PICTURE "###.###.###^^^"
|
||||
FIELD R0
|
||||
@ -226,7 +226,7 @@ END
|
||||
NUMERO 19
|
||||
BEGIN
|
||||
KEY "INTERESSI"
|
||||
PROMPT 74 51 ""
|
||||
PROMPT 74 50 ""
|
||||
MESSAGE ADD,10@
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
@ -234,7 +234,7 @@ END
|
||||
NUMERO 20
|
||||
BEGIN
|
||||
KEY "TOTALE"
|
||||
PROMPT 111 51 ""
|
||||
PROMPT 111 50 ""
|
||||
GROUP 10
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
@ -242,7 +242,7 @@ END
|
||||
NUMERO 21
|
||||
BEGIN
|
||||
KEY "TOTALE (in lettere)"
|
||||
PROMPT 7 55 ""
|
||||
PROMPT 7 54 ""
|
||||
GROUP 10
|
||||
PICTURE "LETTERE"
|
||||
END
|
||||
@ -250,7 +250,7 @@ END
|
||||
NUMERO 22
|
||||
BEGIN
|
||||
KEY "TOTALE (in cifre)"
|
||||
PROMPT 111 55 ""
|
||||
PROMPT 111 54 ""
|
||||
GROUP 10
|
||||
PICTURE "###.###.###^^^"
|
||||
END
|
||||
@ -258,7 +258,7 @@ END
|
||||
DATA 23
|
||||
BEGIN
|
||||
KEY "DATA: giorno - mese - anno"
|
||||
PROMPT 21 59 ""
|
||||
PROMPT 21 58 ""
|
||||
PICTURE "@@ ^ @@^ ^^@@"
|
||||
FIELD D0
|
||||
FORMAT "1444-"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user