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