Aggiunta tabella tipo IVA cee da collegare a tabella codici IVA

git-svn-id: svn://10.65.10.50/branches/R_10_00@22819 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba1500.cpp

@@ -20,7 +20,7 @@ TInformazione_moduli::TInformazione_moduli()
                     : _unassigned_modules(0)
 {
   const TDongle& d = dongle();
-  for (word mod = CTAUT; mod < ENDAUT; mod++)
+  for (word mod = BAAUT+1; mod < ENDAUT; mod++)
   {
     TToken_string t = d.module_code2desc(mod);
     if (t.len() > 2 && !t.starts_with("Modulo vario", true)) // Scarta moduli ignoti

ba/ba2800.cpp

@@ -689,7 +689,8 @@ void Tdninst_mask::merge_sheet()
   int changed = 0;
   FOR_EACH_SHEET_ROW(sheet, r, row)
   {
-    const int key = row->get_int(_c_key);
+    const int key = row->get_int(_c_key); 
+
     c1 = row->get(_c_owner);
     c2 = row->get(_c_dbowner);
     c3 = row->get(_c_xmlowner);
@@ -711,8 +712,8 @@ void Tdninst_mask::merge_sheet()
         row->add(c1, _c_owner);
         changed++;
 
-        msg = TR("Inserito cliente ");
+        msg.cut(0) << key << " : ";
-        msg << c1;
+        msg << TR("Inserito cliente ") << c1;
         log.log(0, msg); 
       }
     } 
@@ -727,8 +728,8 @@ void Tdninst_mask::merge_sheet()
           row->add(o2, _c_oem);
           changed++;
 
-          msg = TR("Aggiornato agente del cliente ");
+          msg.cut(0) << key << " : ";
-          msg << c1;
+          msg << TR("Aggiornato agente del cliente ") << c1;
           log.log(0, msg); 
         }
       }
@@ -741,8 +742,9 @@ void Tdninst_mask::merge_sheet()
 
         if (xvt_str_fuzzy_compare_ignoring_case(c1, c2) < 0.7)
         {
-          msg = TR("Aggiornata ragione sociale da '");
+          msg.cut(0) << key << " : ";
-          msg << c1 << "' a '" << c2 << "'";
+          msg << TR("Aggiornata ragione sociale da '")
+              << c1 << "' a '" << c2 << "'";
           log.log(0, msg); 
         }
       }
@@ -754,8 +756,9 @@ void Tdninst_mask::merge_sheet()
     {
       row->add(d2, _c_suspend);
       changed++;
-      msg = TR("Sospensione del cliente ");
+      msg.cut(0) << key << " : ";
-      msg << c1 << TR(" dal ") << d2;
+      msg << TR("Sospensione del cliente ")
+          << c1 << TR(" dal ") << d2;
       log.log(1, msg); 
     }
 
@@ -765,8 +768,9 @@ void Tdninst_mask::merge_sheet()
     {
       row->add(d2, _c_killed);
       changed++;
-      msg = TR("Disattivazione del cliente ");
+      msg.cut(0) << key << " : ";
-      msg << c1 << TR(" dal ") << d2;
+      msg << TR("Disattivazione del cliente ")
+          << c1 << TR(" dal ") << d2;
       log.log(2, msg); 
     }
   }
@@ -915,29 +919,8 @@ bool Tdninst_mask::on_field_event(TOperable_field& o, TField_event e, long jolly
     }
     break;
   case DLG_ELABORA:
-    if (e == fe_button)
+    if (e == fe_button && yesno_box(TR("Aggiornare il DNINST in base al DB")))
-    {
+       merge_sheet();
-      TMask q(TR("Elaborazione"), 1, 50, 10);
-      TToken_string options = TR("Aggiornare il DNINST in base al DB|Aggiornare il DB in base al DNINST");
-      q.add_radio(101, 0, TR("Operazione di aggiornamento"), 1, 1, 48, "0|1", options);
-      q.add_button(DLG_OK,     0, "", -12, -1, 10, 2);
-      q.add_button(DLG_CANCEL, 0, "", -22, -1, 10, 2);
-      if (q.run() == K_ENTER)
-      {
-        const int i = q.get_int(101);
-        if (yesno_box(options.get(i)))
-        {
-          switch (i)
-          {
-          case 1:
-            break;
-          default:
-            merge_sheet();
-            break;
-          }
-        }
-      }
-    }
     break;
   case DLG_SAVEREC:
     if (e == fe_button)

ba/batbiva.h

@@ -21,3 +21,4 @@
 #define FLD_TABIVA_I1  122
 #define FLD_DETRAZIONE 123
 #define CHK_SERVIZI		 124
+#define FLD_DESCR_I1   125

ba/batbiva.uml

@@ -103,15 +103,41 @@ BEGIN
   HELP "Inserire la percentuale teorica dell'imposta"
 END
 
+NUMBER FLD_TABIVA_I1 4
+BEGIN
+  PROMPT 2 4 "Tipo CEE "
+  FIELD I1
+  FLAGS "UZ"
+  USE %TIC
+  INPUT CODTAB FLD_TABIVA_I1
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Sospeso@C" B2
+  OUTPUT FLD_TABIVA_I1 CODTAB
+  OUTPUT FLD_DESCR_I1 S0
+  CHECKTYPE NORMAL
+END
+
+STRING FLD_DESCR_I1 50
+BEGIN
+  PROMPT 26 4 ""
+  USE %TIC KEY 2
+  INPUT S0 FLD_DESCR_I1
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Sospeso@C" B2
+  COPY OUTPUT FLD_TABIVA_I1 
+  CHECKTYPE NORMAL
+END
 
 GROUPBOX DLG_NULL 78 4
 BEGIN
-  PROMPT 1 5 "@bComunicazione operazioni rilevanti ai fini dell'IVA"
+  PROMPT 1 6 "@bComunicazione operazioni rilevanti ai fini dell'IVA (Spesometro)"
 END
 
 LIST FLD_TABIVA_S7 1 35
 BEGIN
-  PROMPT 2 6 "Cessioni "
+  PROMPT 2 7 "Cessioni "
   FIELD S7
   ITEM " |Non rilevante"
   ITEM "1|1 - Imponibile"
@@ -123,7 +149,7 @@ END
 
 LIST FLD_TABIVA_S8 1 35
 BEGIN
-  PROMPT 2 7 "Acquisti "
+  PROMPT 2 8 "Acquisti "
   FIELD S8
   ITEM " |Non rilevante"
   ITEM "1|1 - Imponibile"
@@ -133,17 +159,6 @@ BEGIN
   ITEM "5|5 - Imponibile con IVA a Margine"
 END
 
-/* Reso obsoleto da ultime specifiche Spesometro di Settembre 2011
-RADIOBUTTON CHK_SERVIZI 20
-BEGIN
-  PROMPT 59 6 "Cessione / Acquisto"
-  ITEM " |Beni"
-  ITEM "X|Servizi"
-  FLAGS "Z"
-  FIELD B5
-END
-*/
-
 STRING FLD_TABIVA_I3 3
 BEGIN
   PROMPT 3 10 "Riga vendite IVA11 per op.esenti e non imp.       "

ba/batbtic.uml

@@ -0,0 +1,49 @@
+#include "batbiva.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Tipo IVA CEE" -1 -1 78 19
+
+NUMBER FLD_TABIVA_CODTAB 4
+BEGIN
+  PROMPT 1 1 "Codice      "
+  KEY 1
+  USE %TIC
+  FLAGS "UZ"
+  INPUT CODTAB FLD_TABIVA_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Sospeso@C" B2
+  OUTPUT FLD_TABIVA_CODTAB CODTAB
+  OUTPUT FLD_TABIVA_S0 S0
+  CHECKTYPE REQUIRED
+  FIELD CODTAB
+END
+
+STRING FLD_TABIVA_S0 50
+BEGIN
+  PROMPT 1 2 "Descrizione "
+  FIELD S0
+  KEY 2
+  USE %TIC KEY 2
+  INPUT S0 102
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Sospeso@C" B2
+  COPY OUTPUT FLD_TABIVA_CODTAB
+  CHECKTYPE REQUIRED
+END
+
+BOOLEAN FLD_SOSPESO_B2
+BEGIN
+  PROMPT 1 -2 "Codice sospeso non più utilizzabile"
+  FIELD B2
+END
+
+
+ENDPAGE
+
+ENDMASK
+