Aggiunta gestione tabella deleghe

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

ba/ba3100.cpp

@@ -5,9 +5,7 @@
 
 #include "batbreg.h" 
 #include "batbcam.h" 
-
+#include "batbdel.h"
-#define F_TIPODEL 133     // attenzione estratto da batbdel.h . Tenerlo aggiornato !!!!
-#define F_IMPORTO 140     // attenzione estratto da batbdel.h . Tenerlo aggiornato !!!!
 
 #define REG_JOURNAL 5
 
@@ -23,10 +21,12 @@ protected:  // TRelation_application
   virtual bool protected_record(TRectype& rec) ;
   virtual void init_insert_mode(TMask& m) ;
   virtual void init_modify_mode(TMask& m);
+  virtual void init_query_mode (TMask&);
   virtual int rewrite(const TMask& m);
 
 public:
   bool exist_journal() {return _exist_journal;}
+  char frequenza_versamenti(long firm, int year) const;
   
   TGeneric_table_app() : _exist_journal(FALSE), _stampa_intest(FALSE) {}
   virtual ~TGeneric_table_app() {}
@@ -77,6 +77,17 @@ void TGeneric_table_app::init_modify_mode(TMask& m)
   }
 }  
 
+void TGeneric_table_app::init_query_mode(TMask& m)
+{
+  Tab_application::init_query_mode(m);
+  if (get_tabname() == "%DEL")
+  {
+    m.show(F_BANCA1);
+    m.show(F_BANCA2);
+    m.show(F_CONCESSIONE);
+  }
+}
+
 bool TGeneric_table_app::protected_record(TRectype& rec) 
 { 
   bool prot = rec.get_bool(FPC);
@@ -132,24 +143,124 @@ HIDDEN bool printer_handler(TMask_field& f, KEY k)
     else 
       return error_box("Nessun registro selezionato"); 
   }
+  return TRUE;  
+}
 
+char TGeneric_table_app::frequenza_versamenti(long firm, int year) const
+{        
+  char freq = 'M';
+  
+  TString16 key; key.format("%05ld%d", firm, year);
+  TTable lia("%LIA");
+  lia.put("CODTAB", key);
+  if (lia.read() != NOERR)
+  { 
+    TLocalisamfile nditte(LF_NDITTE);
+    nditte.put("CODDITTA", firm);
+    nditte.read();
+    freq = nditte.get_char("FREQVIVA");
+  }
+  else 
+    freq = lia.get_char("S7");
+  CHECK(freq == 'M' || freq == 'T', "Frequenza versamenti IVA assurda");
+  
+  return freq;
+}  
+
+HIDDEN bool coddel_handler(TMask_field& f, KEY k)
+{
+  const TMask& m = f.mask();
+  
+  if (!m.query_mode() && k == K_TAB)
+  {
+    const short id = f.dlg();
+    long cod;
+    if (id == F_BANCA1)
+      cod = m.get_long(F_BANCA1);
+    if (id == F_CONCESSIONE)
+      cod = m.get_long(F_CONCESSIONE);  
+    
+    if (id == F_BANCA1)
+      if (cod != 0)
+        f.mask().hide(F_CONCESSIONE);
+    
+    if (id == F_CONCESSIONE)
+      if (cod != 0)
+      {
+        const long firm = m.get_long(F_DITTA);
+        TLocalisamfile nditte(LF_NDITTE);
+        nditte.put("CODDITTA", firm);
+        if (nditte.read() == NOERR)
+        { 
+          const char tipoa = nditte.get_char("TIPOA");
+          const long codan = nditte.get_long("CODANAGR");
+          TLocalisamfile anag(LF_ANAG);
+          anag.put("TIPOA", tipoa);
+          anag.put("CODANAGR", codan);
+          if (anag.read() == NOERR)
+          {
+            const bool titcf = anag.get_bool("TITCF");
+            if (!titcf)
+            {
+              f.mask().hide(F_CONCESSIONE);
+              return error_box("Concessione non ammessa senza conto fiscale");
+            }
+            f.mask().hide(F_BANCA1);
+            f.mask().hide(F_BANCA2);
+          }
+        }  
+      }
+  }
+  return TRUE;
+}
+
+HIDDEN bool intdel_handler(TMask_field& f, KEY k)
+{
+  const TMask& m = f.mask();
+  
+  if (!m.query_mode() && k == K_ENTER)
+  {                                            
+    const long firm = m.get_long(F_DITTA);
+    const int anno = m.get_int(F_ANNODEL); 
+    const real imp(m.get(F_IMPORTO));
+    const real intr(f.get());
+    if (!intr.is_zero())
+      if (app().frequenza_versamenti(firm, anno) == 'T')
+      {
+        TConfig cnf(CONFIG_DITTA, "cg");
+        bool isintr = cnf.get_bool("InTrTr");
+        if (isintr)
+          return error_box("Interessi non ammessi: ditta con NO calcolo interessi");
+      } 
+      else return error_box("Interessi non ammessi: ditta con versamenti mensili");
+    
+    if (imp < intr)
+      return error_box("Incoerenza importo versato e interessi");
+    else if (!imp.is_zero() && imp == intr)
+      return error_box("Incoerenza importo versato e interessi");
+  }
   return TRUE;
 }                       
 
 HIDDEN bool impdel_handler(TMask_field& f, KEY k)
 {
-  const TMask & m = f.mask();
+  const TMask& m = f.mask();
   
   if (!m.query_mode() && k == K_ENTER)
   {                                            
     const int tipo_del = m.get_int(F_TIPODEL); 
-
     if (tipo_del == 1 || tipo_del == 7)
     { 
-      const double lim[2] = { 50000.0, 200000.0};
+      const double lim[3] = { 500.0, 50500.0, 200000.0};
-      const int t = tipo_del == 1 ? 0 : 1;
+      const int mese_del = m.get_int(F_MESEDEL);
+      int t;
+      if (tipo_del == 1)
+      {
+        if (mese_del == 12) t = 0;
+        else t = 1;
+      }
+      else t = 2;
       const real imp(m.get(F_IMPORTO));
-
       if (imp < lim[t]) 
         return yesno_box("Importo inferiore a Lit. %s. Registrare ugualmente?", real(lim[t]).string("."));
     }
@@ -157,6 +268,59 @@ HIDDEN bool impdel_handler(TMask_field& f, KEY k)
   return TRUE;
 }                       
 
+HIDDEN bool mese_handler(TMask_field& f, KEY k)
+{
+  if (!f.mask().query_mode() && k == K_SPACE)
+  {
+    TMask& m = f.mask();
+    const int vers = m.get_int(F_TIPODEL);
+    if (vers == 1)
+    {
+      const int mese = m.get_int(F_MESEDEL);
+      const long firm = m.get_long(F_DITTA);
+      const int anno = m.get_int(F_ANNODEL);             
+      if (app().frequenza_versamenti(firm, anno) == 'T')
+      {
+        TLocalisamfile nditte(LF_NDITTE);
+        nditte.zero();
+        nditte.put("CODDITTA",firm);
+        if (nditte.read() == NOERR)
+        {
+          TString16 attprev = nditte.get("CODATTPREV");
+          TLocalisamfile attiv(LF_ATTIV);
+          attiv.zero();
+          attiv.put("CODDITTA",firm); 
+          attiv.put("CODATT",attprev);
+          if (attiv.read() != NOERR) attiv.zero();
+          bool benzinaio = attiv.get_bool("ART74_4");
+          bool gest4 = FALSE;
+          if (benzinaio) 
+          {
+            TConfig cnf(CONFIG_DITTA, "cg");
+            gest4 = cnf.get_bool("GesT74");
+          } 
+          if (benzinaio && gest4)
+          {
+            if (mese != 3 && mese != 6 && mese != 9 && mese != 12 && mese != 13)       
+            {
+              TMask* mask = &m;
+              mask->reset();
+              return error_box("Ditta trimestrale: indicare trimestre");
+            } 
+          }
+          else if (mese != 3 && mese != 6 && mese != 9 && mese != 13)   
+          {
+            TMask* mask = &m;
+            mask->reset();
+            return error_box("Ditta trimestrale: indicare trimestre");              
+          }
+        }
+      }
+    }   
+  } 
+  return TRUE;
+}
+
 bool TGeneric_table_app::user_create()
 {
   Tab_application::user_create();
@@ -172,7 +336,13 @@ bool TGeneric_table_app::user_create()
     _stampa_intest = st.get_bool("StiReg");
   }
   if (name == "%DEL") 
+  {
+    mask.set_handler(F_MESEDEL, mese_handler);    
     mask.set_handler(F_IMPORTO, impdel_handler);
+    mask.set_handler(F_INTERESSI, intdel_handler);    
+    mask.set_handler(F_BANCA1, coddel_handler);    
+    mask.set_handler(F_CONCESSIONE, coddel_handler);
+  }
   if (name == "CAM")
     set_search_field(FLD_TABCAM_D0);