Corrette alcune posizioni di stampa in DELIIG, DISIRG, DISGEN.

Modificata l'istruzione di get di "UFFIVA" in "UFFIIDD" in ba2400.cpp.


git-svn-id: svn://10.65.10.50/trunk@2135 c028cbd2-c16b-5b4b-a496-9718f37d4682

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"); 

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

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

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