From d81ad850e65d069fc055da954a71e9f30e254b9b Mon Sep 17 00:00:00 2001 From: nik <nik@c028cbd2-c16b-5b4b-a496-9718f37d4682> Date: Thu, 17 Oct 1996 13:41:10 +0000 Subject: [PATCH] Corretto quadro BASER git-svn-id: svn://10.65.10.50/trunk@3787 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- m770/77base1.frm | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/m770/77base1.frm b/m770/77base1.frm index bf1d36c4c..a74c62277 100755 --- a/m770/77base1.frm +++ b/m770/77base1.frm @@ -4,16 +4,17 @@ JOIN 9 TO 36 INTO CODDITTA=CODDITTA JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN 7 TO 9 INTO CODANAGR=CODANAGR JOIN 8 TO 6 ALIAS 118 INTO CODANAGR=CODANAGR -JOIN 13 TO 8 ALIAS 113 INTO COM=COMNASC -JOIN 13 TO 6 ALIAS 213 INTO COM=COMRF -JOIN 13 TO 6 ALIAS 613 INTO COM=COMRES +JOIN 13 TO 8 ALIAS 113 INTO COM==COMNASC +JOIN 13 TO 6 ALIAS 213 INTO COM==COMRF +JOIN 13 TO 6 ALIAS 613 INTO COM==COMRES JOIN 6 TO 36 ALIAS 216 INTO TIPOA=="F" CODANAGR==RAPPR JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR==CODANAGR JOIN 13 TO 218@ ALIAS 313 INTO COM==COMNASC JOIN 13 TO 216@ ALIAS 413 INTO COM==COMRF(COMRES) -JOIN 10 TO 9 INTO CODDITTA==CODDITTA CODATT==CODATTPREV -JOIN 6 TO 10 ALIAS 316 INTO TIPOA==TIPOADS CODANAGR==CODANGRDS -JOIN 13 TO 10 ALIAS 513 INTO COM==COMCS +JOIN 10 TO 9 INTO CODDITTA==CODDITTA CODATT==CODATTPREV +JOIN 6 TO 10 ALIAS 316 INTO TIPOA==TIPOADS CODANAGR==CODANGRDS +JOIN 13 TO 10 ALIAS 513 INTO COM==COMCS +JOIN 13 TO 316@ ALIAS 713 INTO COM==COMRF(COMRES) END DESCRIPTION @@ -197,7 +198,8 @@ STRINGA 17 BEGIN KEY "CAP" PROMPT 122 7 "" - FIELD 116@->CAPRF + FIELD 116@->CAPRF + FIELD 116@->CAPRES GROUP 1 END @@ -708,16 +710,16 @@ STRINGA 79 BEGIN KEY "LUOGO CONSERVAZIONE S.C. - COM" PROMPT 25 39 "" - FIELD 613@->DENCOM - FIELD 513@->DENCOM + FIELD 513@->DENCOM + FIELD 713@->DENCOM END STRINGA 80 BEGIN KEY "LUOGO CONSERVAZIONE S.C. - PROV" PROMPT 92 39 "" - FIELD 613@->PROVCOM FIELD 513@->PROVCOM + FIELD 713@->PROVCOM END STRINGA 81