root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

DELIIG: Disabilitata la stampa del coniuge nel caso si tratti di persona

Browse Source 
giuridica.
DELRITCF,
DELIIRCF: Modificata la JOIN sulla %BAN: ora la ricerca e' esatta,
		  ovvero se in S7+S8 non c'e' nulla non stampa nulla, anziche'
		  la prima banca che trova.


git-svn-id: svn://10.65.10.50/trunk@2058 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1995-10-31 14:06:12 +00:00
parent 187fdac4fc
commit 4e290c8d76
3 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ba/deliig.frm
View File

@ -7,8 +7,8 @@ JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6]
JOIN 8 TO 26@ ALIAS 28 INTO CODANAGR=CODANAGR JOIN 8 TO 26@ ALIAS 28 INTO CODANAGR=CODANAGR
JOIN 13 TO 28@ ALIAS 313 INTO COM=COMNASC JOIN 13 TO 28@ ALIAS 313 INTO COM=COMNASC
JOIN 7 TO 16@ ALIAS 17 INTO CODANAGR=CODANAGR JOIN 7 TO 16@ ALIAS 17 INTO CODANAGR=CODANAGR
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 17@ ALIAS 413 INTO COM=COMCOST JOIN 13 TO 17@ ALIAS 413 INTO COM=COMCOST
END END
DESCRIPTION DESCRIPTION
@ -206,6 +206,7 @@ STRINGA 23
BEGIN BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 11 14 "" PROMPT 11 14 ""
GROUP 1
FIELD 26@->RAGSOC[1,30] FIELD 26@->RAGSOC[1,30]
END END
@ -213,6 +214,7 @@ STRINGA 24
BEGIN BEGIN
KEY "NOME" KEY "NOME"
PROMPT 65 14 "" PROMPT 65 14 ""
GROUP 1
FIELD 26@->RAGSOC[31,0] FIELD 26@->RAGSOC[31,0]
END END
@ -220,6 +222,7 @@ DATA 25
BEGIN BEGIN
KEY "DATA DI NASCITA" KEY "DATA DI NASCITA"
PROMPT 108 14 "" PROMPT 108 14 ""
GROUP 1
PICTURE "##^ ##^ ^###" PICTURE "##^ ##^ ^###"
FIELD 28@->DATANASC FIELD 28@->DATANASC
FORMAT "1444-" FORMAT "1444-"
@ -229,6 +232,7 @@ STRINGA 26
BEGIN BEGIN
KEY "SESSO (M o F)" KEY "SESSO (M o F)"
PROMPT 130 14 "" PROMPT 130 14 ""
GROUP 1
FIELD 28@->SESSO FIELD 28@->SESSO
END END
@ -236,6 +240,7 @@ STRINGA 27
BEGIN BEGIN
KEY "COMUNE (o Stato estero) DI NASCITA" KEY "COMUNE (o Stato estero) DI NASCITA"
PROMPT 11 16 "" PROMPT 11 16 ""
GROUP 1
FIELD 313@->DENCOM FIELD 313@->DENCOM
END END
@ -243,6 +248,7 @@ STRINGA 28
BEGIN BEGIN
KEY "PROV. DI NASCITA (sigla)" KEY "PROV. DI NASCITA (sigla)"
PROMPT 74 16 "" PROMPT 74 16 ""
GROUP 1
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
END END
@ -250,10 +256,17 @@ STRINGA 29
BEGIN BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 83 16 "" PROMPT 83 16 ""
GROUP 1
PICTURE "# # # # # # # # # # # # # # # #" PICTURE "# # # # # # # # # # # # # # # #"
FIELD 26@->COFI FIELD 26@->COFI
END END
NUMERO -1
BEGIN
KEY "Campo fittizio per azzerare il totalizzatore. Non rimuovere"
MESSAGE RESET,5@
END
NUMERO 30 NUMERO 30
BEGIN BEGIN
KEY "Anno di riferimento (saldo IRPEF)" KEY "Anno di riferimento (saldo IRPEF)"

4
ba/deliircf.frm
View File

@ -4,8 +4,8 @@ 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

4
ba/delritcf.frm
View File

@ -4,8 +4,8 @@ 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