diff --git a/ba/ba2400.cpp b/ba/ba2400.cpp index 67c52569c..063060bc0 100755 --- a/ba/ba2400.cpp +++ b/ba/ba2400.cpp @@ -79,7 +79,7 @@ bool TTab_form::validate(TForm_item& fld, TToken_string& s) else { // ... se no usa l'ufficio imposte in anagrafica const TLocalisamfile& anag = relation()->lfile(-a_anagr); - cod = anag.get("UFFIVA"); + cod = anag.get("UFFIIDD"); if (cod.empty()) // ... se no usa il primo ufficio imposte del comune { TString16 uff("UFFIIDD1"); diff --git a/ba/deliig.frm b/ba/deliig.frm index b7d476477..a15fe883f 100755 --- a/ba/deliig.frm +++ b/ba/deliig.frm @@ -3,8 +3,8 @@ JOIN 6 ALIAS 16 INTO TIPOA=S0[1,1] CODANAGR=S0[2,6] JOIN 8 TO 16@ ALIAS 18 INTO CODANAGR=CODANAGR JOIN 13 TO 18@ ALIAS 113 INTO COM==COMNASC JOIN 13 TO 16@ ALIAS 213 INTO COM=COMRF(COMRES) -JOIN 6 ALIAS 26 INTO TIPOA=S1[1,1] CODANAGR=S1[2,6] -JOIN 8 TO 26@ ALIAS 28 INTO CODANAGR=CODANAGR +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 @@ -30,8 +30,8 @@ BEGIN FONT "Roman 17cpi" SIZE 12 CARTATTERE "X" - INIZIALE 2 2 - FINALE 131 + INIZIALE 5 2 + FINALE 133 END SECTION BODY ODD 71 @@ -189,6 +189,7 @@ STRINGA 20 BEGIN KEY "RESIDENTE IN: VIA" PROMPT 83 13 "" + FIELD 16@->INDRF FIELD 16@->INDRES END @@ -196,6 +197,7 @@ STRINGA 21 BEGIN KEY "RESIDENTE IN: NUMERO CIVICO" PROMPT 131 13 "" + FIELD 16@->CIVRF FIELD 16@->CIVRES END @@ -263,6 +265,12 @@ BEGIN FIELD 26@->COFI END +NUMERO -1 +BEGIN + KEY "Campo per azzerare il gruppo delle X" + MESSAGE SHOW,9@ +END + NUMERO -1 BEGIN KEY "Campo per azzerare il totalizzatore" @@ -291,6 +299,7 @@ STRINGA 79 BEGIN KEY "X su SALDO-IRPEF" PROMPT 41 22 "X" + GROUP 9 END NUMERO 32 @@ -315,6 +324,7 @@ STRINGA 80 BEGIN KEY "X su ACCONTO-IRPEF" PROMPT 41 24 "X" + GROUP 9 END NUMBER 34 @@ -339,6 +349,7 @@ STRINGA 81 BEGIN KEY "X su SALDO-ILOR" PROMPT 41 26 "X" + GROUP 9 END NUMERO 36 @@ -363,6 +374,7 @@ STRINGA 82 BEGIN KEY "X su ACCONTO-ILOR" PROMPT 41 28 "X" + GROUP 9 END NUMERO 38 @@ -387,6 +399,7 @@ STRINGA 83 BEGIN KEY "X su SALDO-SSN" PROMPT 41 30 "X" + GROUP 9 END NUMERO 40 @@ -411,6 +424,7 @@ STRINGA 84 BEGIN KEY "X su ACCONTO-SSN" PROMPT 41 32 "X" + GROUP 9 END STRING 42 @@ -443,6 +457,7 @@ STRINGA 85 BEGIN KEY "X su SALDO-ILOR (coniuge)" PROMPT 41 34 "X" + GROUP 9 END NUMERO 45 @@ -467,6 +482,7 @@ STRINGA 86 BEGIN KEY "X su ACCONTO-ILOR (coniuge)" PROMPT 41 36 "X" + GROUP 9 END NUMERO 47 @@ -491,6 +507,7 @@ STRINGA 87 BEGIN KEY "X su SALDO-SSN (coniuge)" PROMPT 41 38 "X" + GROUP 9 END NUMERO 49 @@ -515,6 +532,7 @@ STRINGA 88 BEGIN KEY "X su ACCONTO-SSN (coniuge)" PROMPT 41 40 "X" + GROUP 9 END STRING 51 @@ -531,7 +549,6 @@ BEGIN PROMPT 61 42 "" PICTURE "# # #" FIELD 213@->UFFCSERV - FIELD 213@->UFFIIDD1 END STRING 53 diff --git a/ba/disgen.frm b/ba/disgen.frm index a20084422..37aa0c364 100755 --- a/ba/disgen.frm +++ b/ba/disgen.frm @@ -31,7 +31,7 @@ BEGIN SIZE 12 CARTATTERE "X" INIZIALE 6 5 - FINALE 133 5 + FINALE 130 5 END SECTION BODY ODD 72 @@ -407,7 +407,7 @@ END STRINGA 501 BEGIN KEY "CENTRO SERVIZI: Provincia e Denominazione" - PROMPT 77 56 "" + PROMPT 75 56 "" END STRINGA 502 diff --git a/ba/disirg.frm b/ba/disirg.frm index 39b233d23..1452d1206 100755 --- a/ba/disirg.frm +++ b/ba/disirg.frm @@ -306,7 +306,7 @@ END STRINGA 501 BEGIN KEY "CENTRO SERVIZI: Provincia e Denominazione" - PROMPT 74 51 "" + PROMPT 71 51 "" END DATA 33