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 1995-11-09 13:34:57 +00:00
parent 6fb97e1b61
commit bce96f977c
2 changed files with 28 additions and 28 deletions

View File

@ -2,12 +2,12 @@ USE %GEN
JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6] JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR
JOIN 7 TO 16@ ALIAS 17 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 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 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
JOIN 8 TO 16@ ALIAS 28 INTO CODANAGR=CODANAGR 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 JOIN %UCC ALIAS 14 INTO CODTAB=S9
END END

View File

@ -41,7 +41,7 @@ END
STRINGA 2 STRINGA 2
BEGIN BEGIN
KEY "COD. CONCESS." KEY "COD. CONCESS."
PROMPT 16 11 "" PROMPT 16 10 ""
FIELD 6->UFFCONC FIELD 6->UFFCONC
FIELD 14@->CODTAB FIELD 14@->CODTAB
END END
@ -57,7 +57,7 @@ END
STRINGA 3 STRINGA 3
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 26 11 "" PROMPT 26 10 ""
PICTURE "# # # # # # # # # # # # # # # #" PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI FIELD 6->COFI
END END
@ -65,7 +65,7 @@ END
STRINGA 4 STRINGA 4
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 3 15 "" PROMPT 3 14 ""
GROUP 1 GROUP 1
FIELD 6->RAGSOC[1,30] FIELD 6->RAGSOC[1,30]
END END
@ -73,7 +73,7 @@ END
STRINGA 5 STRINGA 5
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 91 15 "" PROMPT 91 14 ""
GROUP 1 GROUP 1
FIELD 6->RAGSOC[31,-1] FIELD 6->RAGSOC[31,-1]
END END
@ -81,7 +81,7 @@ END
STRINGA 25 STRINGA 25
BEGIN BEGIN
KEY "DENOMINAZIONE O RAGIONE SOCIALE" KEY "DENOMINAZIONE O RAGIONE SOCIALE"
PROMPT 3 15 "" PROMPT 3 14 ""
GROUP 2 GROUP 2
FIELD 6->RAGSOC FIELD 6->RAGSOC
END END
@ -97,7 +97,7 @@ END
DATA 8 DATA 8
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 3 17 "" PROMPT 3 16 ""
GROUP 1 GROUP 1
FLAGS "DH" FLAGS "DH"
PICTURE "# # ^ # # ^^ # # #" PICTURE "# # ^ # # ^^ # # #"
@ -108,7 +108,7 @@ END
DATA DATA
BEGIN BEGIN
KEY "DATA DI COSTITUZIONE" KEY "DATA DI COSTITUZIONE"
PROMPT 3 17 "" PROMPT 3 16 ""
GROUP 2 GROUP 2
FLAGS "DH" FLAGS "DH"
PICTURE "# # ^ # # ^^ # # #" PICTURE "# # ^ # # ^^ # # #"
@ -119,7 +119,7 @@ END
STRINGA 9 STRINGA 9
BEGIN BEGIN
KEY "SESSO (M o F)" KEY "SESSO (M o F)"
PROMPT 33 17 "" PROMPT 33 16 ""
GROUP 1 GROUP 1
FLAGS "DH" FLAGS "DH"
FIELD 8->SESSO FIELD 8->SESSO
@ -128,7 +128,7 @@ END
STRINGA 10 STRINGA 10
BEGIN BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA" KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 41 17 "" PROMPT 41 16 ""
GROUP 1 GROUP 1
FLAGS "DH" FLAGS "DH"
FIELD 113@->DENCOM FIELD 113@->DENCOM
@ -137,7 +137,7 @@ END
STRINGA STRINGA
BEGIN BEGIN
KEY "COMUNE (o Stato estero) DI COSTITUZIONE" KEY "COMUNE (o Stato estero) DI COSTITUZIONE"
PROMPT 41 17 "" PROMPT 41 16 ""
GROUP 2 GROUP 2
FLAGS "DH" FLAGS "DH"
FIELD 413@->DENCOM FIELD 413@->DENCOM
@ -146,7 +146,7 @@ END
STRINGA 11 STRINGA 11
BEGIN BEGIN
KEY "PROV. DI NASCITA (sigla)" KEY "PROV. DI NASCITA (sigla)"
PROMPT 120 17 "" PROMPT 120 16 ""
GROUP 1 GROUP 1
FLAGS "DH" FLAGS "DH"
FIELD 113@->PROVCOM FIELD 113@->PROVCOM
@ -155,7 +155,7 @@ END
STRINGA STRINGA
BEGIN BEGIN
KEY "PROV. DI COSTITUZIONE (sigla)" KEY "PROV. DI COSTITUZIONE (sigla)"
PROMPT 120 17 "" PROMPT 120 16 ""
GROUP 2 GROUP 2
FLAGS "DH" FLAGS "DH"
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
@ -164,21 +164,21 @@ END
STRINGA 12 STRINGA 12
BEGIN BEGIN
KEY "DOMICILIO FISCALE: COMUNE" KEY "DOMICILIO FISCALE: COMUNE"
PROMPT 13 19 "" PROMPT 13 18 ""
FIELD 213@->DENCOM FIELD 213@->DENCOM
END END
STRINGA 13 STRINGA 13
BEGIN BEGIN
KEY "DOMICILIO FISCALE: PROV. (sigla)" KEY "DOMICILIO FISCALE: PROV. (sigla)"
PROMPT 64 19 "" PROMPT 64 18 ""
FIELD 213@->PROVCOM FIELD 213@->PROVCOM
END END
STRINGA 14 STRINGA 14
BEGIN BEGIN
KEY "DOMICILIO FISCALE: VIA" KEY "DOMICILIO FISCALE: VIA"
PROMPT 70 19 "" PROMPT 70 18 ""
FIELD 6->INDRF FIELD 6->INDRF
FIELD 6->INDRES FIELD 6->INDRES
END END
@ -186,7 +186,7 @@ END
STRINGA 15 STRINGA 15
BEGIN BEGIN
KEY "DOMICILIO FISCALE: NUMERO CIVICO" KEY "DOMICILIO FISCALE: NUMERO CIVICO"
PROMPT 124 19 "" PROMPT 124 18 ""
FIELD 6->CIVRF FIELD 6->CIVRF
FIELD 6->CIVRES FIELD 6->CIVRES
END END
@ -194,7 +194,7 @@ END
STRINGA 16 STRINGA 16
BEGIN BEGIN
KEY "PARTITA IVA" KEY "PARTITA IVA"
PROMPT 25 46 "" PROMPT 25 45 ""
PICTURE "# # # # # # # # # # #" PICTURE "# # # # # # # # # # #"
FIELD 6->PAIV FIELD 6->PAIV
END END
@ -202,14 +202,14 @@ END
STRINGA 24 STRINGA 24
BEGIN BEGIN
KEY "CODICE TRIBUTO" KEY "CODICE TRIBUTO"
PROMPT 10 51 "" PROMPT 10 50 ""
FIELD S6 FIELD S6
END END
STRINGA 17 STRINGA 17
BEGIN BEGIN
KEY "ANNO" KEY "ANNO"
PROMPT 26 51 "" PROMPT 26 50 ""
PICTURE "^^@@" PICTURE "^^@@"
FIELD CODTAB[6,9] FIELD CODTAB[6,9]
END END
@ -217,7 +217,7 @@ END
NUMERO 18 NUMERO 18
BEGIN BEGIN
KEY "IMPORTO TRIBUTO" KEY "IMPORTO TRIBUTO"
PROMPT 48 51 "" PROMPT 48 50 ""
MESSAGE COPY,10@ MESSAGE COPY,10@
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
FIELD R0 FIELD R0
@ -226,7 +226,7 @@ END
NUMERO 19 NUMERO 19
BEGIN BEGIN
KEY "INTERESSI" KEY "INTERESSI"
PROMPT 74 51 "" PROMPT 74 50 ""
MESSAGE ADD,10@ MESSAGE ADD,10@
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -234,7 +234,7 @@ END
NUMERO 20 NUMERO 20
BEGIN BEGIN
KEY "TOTALE" KEY "TOTALE"
PROMPT 111 51 "" PROMPT 111 50 ""
GROUP 10 GROUP 10
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -242,7 +242,7 @@ END
NUMERO 21 NUMERO 21
BEGIN BEGIN
KEY "TOTALE (in lettere)" KEY "TOTALE (in lettere)"
PROMPT 7 55 "" PROMPT 7 54 ""
GROUP 10 GROUP 10
PICTURE "LETTERE" PICTURE "LETTERE"
END END
@ -250,7 +250,7 @@ END
NUMERO 22 NUMERO 22
BEGIN BEGIN
KEY "TOTALE (in cifre)" KEY "TOTALE (in cifre)"
PROMPT 111 55 "" PROMPT 111 54 ""
GROUP 10 GROUP 10
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
END END
@ -258,7 +258,7 @@ END
DATA 23 DATA 23
BEGIN BEGIN
KEY "DATA: giorno - mese - anno" KEY "DATA: giorno - mese - anno"
PROMPT 21 59 "" PROMPT 21 58 ""
PICTURE "@@ ^ @@^ ^^@@" PICTURE "@@ ^ @@^ ^^@@"
FIELD D0 FIELD D0
FORMAT "1444-" FORMAT "1444-"