diff --git a/m770/77base1.frm b/m770/77base1.frm index 035a3f1a9..77b1bad89 100755 --- a/m770/77base1.frm +++ b/m770/77base1.frm @@ -1,3 +1,7 @@ +// Nota: +// Gli alias 213, 613, 813 sono separati per ovvii motivi di stampa +// di valori diversi + USE 36 JOIN 37 TO 36 INTO TIPOQUA=TIPOQUA CODDITTA=CODDITTA JOIN 9 TO 36 INTO CODDITTA=CODDITTA @@ -7,6 +11,7 @@ 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(COMRES) JOIN 13 TO 6 ALIAS 613 INTO COM==COMRES +JOIN 13 TO 6 ALIAS 813 INTO COM==COMRF 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 @@ -371,7 +376,7 @@ STRING 36 BEGIN KEY "COMUNE DI RESIDENZA FISCALE" PROMPT 41 19 "" - FIELD 213@->DENCOM + FIELD 813@->DENCOM GROUP 2 END @@ -379,7 +384,7 @@ STRING 37 BEGIN KEY "PROV. RESIDENZA FISCALE" PROMPT 122 19 "" - FIELD 213@->PROVCOM + FIELD 813@->PROVCOM GROUP 2 END