DISGEN : disabilitata la stampa dei campi relativi al coniuge in caso

di persona giuridica;  corretta la stampa del domicilio fiscale
		 se presente.
BOLIIRCF: corretta la JOIN dal file 7 al file 6.
DELIIRCF,
DISIIRCF: Inserito un campo fittizio che permetta di azzerare ogni volta
          il totalizzatore; modificata la JOIN sul comune di nascita/
		  costituzione: resa la ricerca ==.


git-svn-id: svn://10.65.10.50/trunk@2050 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-10-31 08:53:17 +00:00
parent 8dff4736ef
commit 40d873436d
4 changed files with 31 additions and 6 deletions

View File

@ -1,7 +1,7 @@
USE %IIR USE %IIR
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6] JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
JOIN 8 TO 6 INTO CODANAGR=CODANAGR JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 7 TO 9 INTO CODANAGR=CODANAGR JOIN 7 TO 6 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

View File

@ -2,12 +2,12 @@ USE %IIR
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6] JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
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 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 %BAN ALIAS 14 INTO CODTAB=S7 JOIN %BAN ALIAS 14 INTO CODTAB=S7
JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8 JOIN %BAN ALIAS 24 INTO CODTAB=S7+S8
JOIN 13 TO 24@ ALIAS 313 INTO COM=S5 JOIN 13 TO 24@ ALIAS 313 INTO COM=S5
JOIN 13 TO 7 ALIAS 413 INTO COM=COMCOST JOIN 13 TO 7 ALIAS 413 INTO COM==COMCOST
END END
DESCRIPTION DESCRIPTION
@ -214,6 +214,12 @@ BEGIN
GROUP 6 GROUP 6
END END
NUMERO -1
BEGIN
KEY "Campo fittizio per azzerare il totalizzatore, non rimuovere"
MESSAGE RESET,9@
END
NUMERO 20 NUMERO 20
BEGIN BEGIN
KEY "IRPEF 4007: PERIODO AA (1)" KEY "IRPEF 4007: PERIODO AA (1)"

View File

@ -3,7 +3,7 @@ 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
@ -174,6 +174,7 @@ STRINGA 13
BEGIN BEGIN
KEY "RESIDENTE IN: VIA" KEY "RESIDENTE IN: VIA"
PROMPT 81 13 "" PROMPT 81 13 ""
FIELD 16@->INDRF
FIELD 16@->INDRES FIELD 16@->INDRES
END END
@ -181,6 +182,7 @@ STRINGA 14
BEGIN BEGIN
KEY "RESIDENTE IN: NUMERO CIVICO" KEY "RESIDENTE IN: NUMERO CIVICO"
PROMPT 127 13 "" PROMPT 127 13 ""
FIELD 16@->CIVRF
FIELD 16@->CIVRES FIELD 16@->CIVRES
END END
@ -193,6 +195,7 @@ STRINGA 16
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 12 16 "" PROMPT 12 16 ""
GROUP 3
FIELD 26@->RAGSOC[1,30] FIELD 26@->RAGSOC[1,30]
END END
@ -200,6 +203,7 @@ STRINGA 17
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 64 16 "" PROMPT 64 16 ""
GROUP 3
FIELD 26@->RAGSOC[31,0] FIELD 26@->RAGSOC[31,0]
END END
@ -207,6 +211,7 @@ DATA 18
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 105 16 "" PROMPT 105 16 ""
GROUP 3
PICTURE "# #^ # #^^ # # #" PICTURE "# #^ # #^^ # # #"
FIELD 28@->DATANASC FIELD 28@->DATANASC
FORMAT "1444-" FORMAT "1444-"
@ -216,6 +221,7 @@ STRINGA 19
BEGIN BEGIN
KEY "SESSO (M o F)" KEY "SESSO (M o F)"
PROMPT 131 16 "" PROMPT 131 16 ""
GROUP 3
FIELD 28@->SESSO FIELD 28@->SESSO
END END
@ -223,6 +229,7 @@ STRINGA 21
BEGIN BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA" KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 12 18 "" PROMPT 12 18 ""
GROUP 3
FIELD 313@->DENCOM FIELD 313@->DENCOM
END END
@ -230,6 +237,7 @@ STRINGA 22
BEGIN BEGIN
KEY "PROV. DI NASCITA (sigla)" KEY "PROV. DI NASCITA (sigla)"
PROMPT 72 18 "" PROMPT 72 18 ""
GROUP 3
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
END END
@ -237,6 +245,7 @@ STRINGA 23
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 81 18 "" PROMPT 81 18 ""
GROUP 3
PICTURE "# # # # # # # # # # # # # # # #" PICTURE "# # # # # # # # # # # # # # # #"
FIELD 26@->COFI FIELD 26@->COFI
END END
@ -361,6 +370,7 @@ STRINGA 36
BEGIN BEGIN
KEY "COD. CONTR. Coniuge (Esattoria Prov.)" KEY "COD. CONTR. Coniuge (Esattoria Prov.)"
PROMPT 6 55 "" PROMPT 6 55 ""
GROUP 3
FIELD 26@->CODCONTR[1,2] FIELD 26@->CODCONTR[1,2]
END END
@ -368,6 +378,7 @@ STRINGA 42
BEGIN BEGIN
KEY "COD. CONTR. Coniuge (Esattoria Com.)" KEY "COD. CONTR. Coniuge (Esattoria Com.)"
PROMPT 14 55 "" PROMPT 14 55 ""
GROUP 3
FIELD 26@->CODCONTR[3,5] FIELD 26@->CODCONTR[3,5]
END END
@ -375,6 +386,7 @@ STRINGA 43
BEGIN BEGIN
KEY "COD. CONTR. Coniuge" KEY "COD. CONTR. Coniuge"
PROMPT 30 55 "" PROMPT 30 55 ""
GROUP 3
FIELD 26@->CODCONTR[6,13] FIELD 26@->CODCONTR[6,13]
END END
@ -382,6 +394,7 @@ STRINGA 44
BEGIN BEGIN
KEY "COD. CONTR. Coniuge (C.c.)" KEY "COD. CONTR. Coniuge (C.c.)"
PROMPT 50 55 "" PROMPT 50 55 ""
GROUP 3
FIELD 26@->CODCONTR[14,15] FIELD 26@->CODCONTR[14,15]
END END

View File

@ -3,9 +3,9 @@ JOIN %UCC ALIAS 14 INTO CODTAB=S9
JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6] JOIN 6 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6]
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 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 13 TO 7 ALIAS 413 INTO COM=COMCOST JOIN 13 TO 7 ALIAS 413 INTO COM==COMCOST
END END
DESCRIPTION DESCRIPTION
@ -195,6 +195,12 @@ BEGIN
GROUP 6 GROUP 6
END END
NUMERO -1
BEGIN
KEY "Campo fittizio per azzerare il totalizzatore, non rimuovere"
MESSAGE RESET,9@
END
NUMERO 20 NUMERO 20
BEGIN BEGIN
KEY "IRPEF 4007: PERIODO AA (1)" KEY "IRPEF 4007: PERIODO AA (1)"