Aggiunto programma per calcolo ed invio storico consumi a terminalini

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

ha/ha0100.cpp

@@ -36,6 +36,8 @@ bool THA_table_mask::on_field_event(TOperable_field &o, TField_event e, long jol
 // applicazione per la gestione delle tabelle di lavanderia
 class THA_table_app : public TTable_module_application
 {
+  bool _trans_done;
+
 private:
   int update_gcg(const TRectype& att);
 
@@ -50,6 +52,9 @@ protected:  // TRelation_application
   virtual int rewrite(const TMask& m);
 
   virtual bool get_next_key(TToken_string& key);
+
+public:
+  THA_table_app() : _trans_done(false) {}
 };
 
 
@@ -98,7 +103,8 @@ bool THA_table_app::protected_record(TRectype& record)
     const long items = attr_recset.items();
     return items > 0;
   }
-  return true;
+  
+  return false;
 }
 
 void THA_table_app::init_insert_mode(TMask& m)
@@ -128,12 +134,33 @@ void THA_table_app::init_query_mode(TMask& m)
   {
 		m.hide(F_CODCLI1);
 		m.show(F_CODCLI);
-	}
+	} else
   if (name == "ATT")  //inizialmente vedo il gruppo 2 di SEARCH e non quello 1 di NEW
   {
     m.hide(-1);
     m.show(-2);
   }
+
+  if (!_trans_done && argc() > 3)
+  {
+    _trans_done = true;
+    const TFixed_string a = argv(3);
+    if (a.starts_with("CODTAB="))
+    {
+      const TString& codtab = a.after("=");
+      get_relation()->curr().put("CODTAB", codtab);
+      FOR_EACH_MASK_FIELD(m, i, f) if (f->active() && f->field() != NULL && f->in_key(1))
+      {
+        const TFieldref* fref = f->field();
+        if (fref->name() == "CODTAB")
+        {
+          const TString& val = fref->read(*get_relation());
+          f->set(val);
+        }
+      }
+      m.send_key(K_AUTO_ENTER, 0);
+    }
+  }
 }
 
 void THA_table_app::init_query_insert_mode(TMask& m)
@@ -198,6 +225,6 @@ int THA_table_app::rewrite(const TMask& m)
 int ha0100(int argc, char* argv[])
 {
   THA_table_app a;
-  a.run(argc, argv, TR("Tabella Caffé Hardy"));
+  a.run(argc, argv, TR("Tabella Hardy"));
   return 0;
 }

ha/ha1.cpp

@@ -9,6 +9,7 @@ int main(int argc,char** argv)
   case 0: ha1100(argc, argv); break; // generazione .txt da files .ini del postino (file tipo XXXvar.txt)
   case 1: ha1200(argc, argv); break; // generazione .txt da anagrafica campo (file tipo XXX.txt)
   case 2: ha1300(argc, argv); break; // importazione file da terminalini (file tipo upload.d)
+  case 3: ha1400(argc, argv); break; // generazione tabella STC storico consumi
   default: break;
   }
   return 0;

ha/ha1.h

@@ -1,3 +1,4 @@
 int ha1100(int argc, char* argv[]);
 int ha1200(int argc, char* argv[]);
 int ha1300(int argc, char* argv[]);
+int ha1400(int argc, char* argv[]);

ha/ha1200.cpp

@@ -87,6 +87,7 @@ protected:
   bool genera_tabpag_txt();
   bool genera_carico_txt(const TMask& mask);
   bool genera_ripristino_txt(const TMask& mask);
+  bool genera_consumi_txt(const TMask& mask);
 
   void fill_anagrafica_cliente(const TISAM_recordset& archivio_clienti, 
                                TEsporta_clienti_recordset& clienti, const bool is_fatt = false);
@@ -786,6 +787,45 @@ bool TFile2Txt::genera_attrezzature_txt()
   return salva_recordset(storico, "storico");
 }
 
+bool TFile2Txt::genera_consumi_txt(const TMask& mask)
+{
+  // esporta i consumi per cliente
+  TEsporta_consumi_recordset consumi;
+
+  TISAM_recordset archivio_stc("USE &STC SELECT CODTAB[7,9]=='001'");
+  const TRecnotype archivio_stc_items = archivio_stc.items();
+
+  TProgind progind_att(archivio_stc_items, TR("Consumi..."), false, true);
+  for (bool ok = archivio_stc.move_first(); ok; ok = archivio_stc.move_next())
+  {
+    if (!progind_att.addstatus(1))
+      break;
+
+    const TString& codtab = archivio_stc.get("CODTAB").as_string();
+    const TString4 grmerc = codtab.mid(6, 3);
+    if (grmerc != "001")
+      continue; // You never know!
+
+    consumi.new_rec("");
+
+    //in base al codice cliente stabilisce quale è il codice agente
+    const long codcf = atol(codtab.left(6));
+    consumi.set("CodiceTerminale", hd_find_codag(codcf));
+    consumi.set("CodiceCliente", codcf);
+    consumi.set("Anno", codtab.right(4));
+    consumi.set("GruppoMerc", grmerc);
+    for (int i = 1; i <= 12; i++)
+    {
+      TString8 inpfld; inpfld.format("I%d", i);
+      TString8 outfld; outfld.format("Qta%d", i);
+      consumi.set(outfld, archivio_stc.get(inpfld));
+    }
+    consumi.set("QtaOmaggi", archivio_stc.get("I0"));
+  }
+
+  return salva_recordset(consumi, "consumi");
+}
+
 bool TFile2Txt::genera_tabpag_txt()
 {
   TEsporta_pagamenti_recordset tabpag;
@@ -993,6 +1033,9 @@ void TFile2Txt::elabora(const TMask& mask, TLog_report& log)
   if (mask.get_bool(F_INIMAG) && go_on)
     go_on = genera_ripristino_txt(mask);
 
+  if (mask.get_bool(F_CONSUMI) && go_on)
+    go_on = genera_consumi_txt(mask);
+
   /* Per il momento preferiscono agire manualmente
   //c) lancia il concentratore in modalità di carico
   carica_concentratore();

ha/ha1200a.h

@@ -15,6 +15,7 @@
 #define F_TABPAG      223
 #define F_CARICO      224
 #define F_INIMAG      225
+#define F_CONSUMI     226
 
 #define F_DA_CODCLI       230
 #define F_DA_SOSP_CODCLI  231

ha/ha1200a.uml

@@ -111,6 +111,12 @@ BEGIN
   FIELD Barcode
 END
 
+BOOLEAN F_CONSUMI
+BEGIN
+  PROMPT 32 7 "Storico Consumi"
+  FIELD Consumi
+END
+
 BOOLEAN F_ATTREZZA
 BEGIN
   PROMPT 53 4 "Attrezzature"
@@ -224,6 +230,14 @@ BEGIN
   FIELD Annomag
 END
 
+
+STRING 30 70 50
+BEGIN
+  PROMPT 10 -3 "Profilo "
+  PSELECT
+  FLAGS "G"
+END
+
 ENDPAGE
 
 TOOLBAR "topbar" 0 0 0 2

ha/ha1250.cpp

@@ -565,10 +565,35 @@ TEsporta_storico_attrezzature_recordset::TEsporta_storico_attrezzature_recordset
 //Pagamenti
 //---------------
 TEsporta_pagamenti_recordset::TEsporta_pagamenti_recordset()
-: THardy_recordset(27)
+                            : THardy_recordset(27)
 {
   add_field("CodicePagamento",  T_X,   1,  2);    //x
   add_field("DescrPagamento",   T_X,   3,  20);   //x
   add_field("GiorniScadenza",   T_N,   23, 3);    //x
   add_eol_field();
 }
+
+//Consumi
+//---------------
+TEsporta_consumi_recordset::TEsporta_consumi_recordset()
+                          : THardy_recordset(137)
+{
+  add_field("CodiceTerminale", T_N,  1, 3);
+  add_field("CodiceCliente",   T_X,  4, 6);
+  add_field("Anno",            T_N, 10, 4);
+  add_field("GruppoMerc",      T_X, 14, 5);
+  add_field("Qta1",            T_N, 19, 9);
+  add_field("Qta2",            T_N, 28, 9);
+  add_field("Qta3",            T_N, 37, 9);
+  add_field("Qta4",            T_N, 46, 9);
+  add_field("Qta5",            T_N, 55, 9);
+  add_field("Qta6",            T_N, 64, 9);
+  add_field("Qta7",            T_N, 73, 9);
+  add_field("Qta8",            T_N, 82, 9);
+  add_field("Qta9",            T_N, 91, 9);
+  add_field("Qta10",           T_N,100, 9);
+  add_field("Qta11",           T_N,109, 9);
+  add_field("Qta12",           T_N,118, 9);
+  add_field("QtaOmaggi",       T_N,127, 9);
+  add_eol_field();
+}

ha/ha1250.h

@@ -212,6 +212,13 @@ public:
   TEsporta_pagamenti_recordset();
 };
 
+// Storico Consumi ()
+//-----------------
+class TEsporta_consumi_recordset : public THardy_recordset
+{
+public:
+  TEsporta_consumi_recordset();
+};
 
 
 #endif

ha/ha1400.cpp

@@ -0,0 +1,182 @@
+#include <applicat.h>
+#include <mask.h>
+#include <progind.h>
+#include <recarray.h>
+#include <recset.h>
+
+#include <../mg/anamag.h>
+#include <doc.h>
+#include <rdoc.h>
+
+class TStorico_consumi : public TSkeleton_application
+{
+protected:
+  TRecnotype kill_records(int anno, TAssoc_array& clifo_grmerc) const;
+  TRecnotype build_records(int anno, TAssoc_array& clifo_grmerc) const;
+  void elabora(int anno) const;
+
+public:
+  virtual void main_loop();
+};
+
+TRecnotype TStorico_consumi::kill_records(int anno, TAssoc_array& clifo_grmerc) const
+{
+  TISAM_recordset stc("&STC");
+  TProgind pi(stc.items(), TR("Analisi storico consumi"));
+  for (bool ok = stc.move_first(); ok; ok = stc.move_next())
+  {
+    if (!pi.addstatus(1))
+      break;
+    const TString& key = stc.get("CODTAB").as_string();
+    if (atoi(key.right(4)) == anno || key.find('@') > 0)
+      clifo_grmerc.add(key);
+  }
+  return clifo_grmerc.items();
+}
+
+TRecnotype TStorico_consumi::build_records(int anno, TAssoc_array& clifo_grmerc) const
+{
+  TString query, limit;
+  limit << "PROVV=D ANNO=" << anno;
+  query << "USE RDOC KEY 3"
+        << "\nFROM " << limit
+        << "\nTO " << limit;
+
+  TISAM_recordset rdoc(query);
+  TProgind pi(rdoc.items(), TR("Scansione documenti"));
+
+  TToken_string key;
+  for (bool ok = rdoc.move_first(); ok; ok = rdoc.move_next())
+  {
+    if (!pi.addstatus(1))
+      break;
+
+    const TString4 tiporiga = rdoc.get(RDOC_TIPORIGA).as_string();
+    if (tiporiga != "01" && tiporiga != "09")
+      continue;
+
+    key = rdoc.get(RDOC_PROVV).as_string();
+    key.add(rdoc.get(RDOC_ANNO).as_string());
+    key.add(rdoc.get(RDOC_CODNUM).as_string());
+    key.add(rdoc.get(RDOC_NDOC).as_string());
+
+    const TRectype& doc = cache().get(LF_DOC, key);
+    const long codcf = doc.get_long(DOC_CODCF);
+    const TDate datadoc = doc.get(DOC_DATADOC);
+    const TString4 tipo = doc.get(DOC_TIPODOC);
+
+    const TString& b2 = cache().get("%TIP", tipo, "B2");
+    if (b2.blank())
+      continue;
+
+    const TRectype& anamag = cache().get(LF_ANAMAG, rdoc.get(RDOC_CODARTMAG).as_string());
+    TString4 grmerc = anamag.get(ANAMAG_GRMERC).left(3);
+    grmerc.left_just(3);
+
+    key.format("%06ld%s%4d", codcf, (const char*)grmerc, anno);
+    TRectype* rec = (TRectype*)clifo_grmerc.objptr(key);
+    if (rec == NULL)
+    {
+      rec = new TRectype(LF_TABMOD);
+      rec->put("MOD", "HA");
+      rec->put("COD", "STC");
+      rec->put("CODTAB", key);
+
+      TString16 s0; 
+      s0.format("%s%06ld%4d", (const char*)grmerc, codcf, anno);
+      rec->put("S0", s0);
+
+      clifo_grmerc.add(key, rec);
+    }
+
+    real qta = rdoc.get(RDOC_QTA).as_real();
+    qta *= CENTO; qta.round(); // Salvo la quantità moltiplicata per 100 ed arrotondata
+
+    const real valore = rdoc.get("RG1:IMPNS").as_real();
+    
+    TString8 qta_field, val_field;
+    if (tiporiga == "01")
+    {
+      qta_field.format("I%d", datadoc.month());
+      val_field.format("R%d", datadoc.month());
+    }
+    else
+    {
+      qta_field = "I0";
+      val_field = "R0";
+    }
+    rec->add(qta_field, qta);
+    rec->add(val_field, valore);
+  }
+
+  return clifo_grmerc.items();
+}
+
+void TStorico_consumi::elabora(int anno) const
+{
+  TAssoc_array old_recs, new_recs;
+
+  TRecnotype old_tot = kill_records(anno, old_recs);
+  const TRecnotype new_tot = build_records(anno, new_recs);
+
+  TFast_isamfile stc(LF_TABMOD);
+  if (new_tot)
+  {
+    TProgind pi(new_tot, TR("Salvataggio storico"));
+    FOR_EACH_ASSOC_OBJECT(new_recs, obj, key, rec)
+    {
+      if (!pi.addstatus(1))
+        break;
+      const TRectype& r = *(TRectype*)rec;
+      int err = r.rewrite_write(stc);
+      if (err == NOERR)
+      {
+        const TString& key = r.get("CODTAB");
+        old_recs.remove(key); // Tolgo il record dalla lista di quelli da cancellare
+      }
+      else
+      {
+        error_box(FR("Errore %d di scrittura sulla tabella STC"), err);
+        break;
+      }
+    }
+  }
+
+  old_tot = old_recs.items();
+  if (old_tot)  // Cancello i record dell'anno che non esistono più
+  {
+    TProgind pi(old_tot, TR("Allineamento storico"));
+    TRectype& rec = stc.curr();
+    FOR_EACH_ASSOC_OBJECT(old_recs, obj, key, itm)
+    {
+      if (!pi.addstatus(1))
+        break;
+      rec.put("MOD", "HA");
+      rec.put("COD", "STC");
+      rec.put("CODTAB", key);
+      const int err = rec.remove(stc);
+      if (err != NOERR)
+      {
+        error_box(FR("Errore %d di cancellazione sulla tabella STC"), err);
+        break;
+      }
+    }
+  }
+}
+
+void TStorico_consumi::main_loop()
+{
+  TMask m(main_app().title(), 1, 24, 5);
+  m.add_number(101, 0, "Anno ", 1, 1, 4, "U").check_type(CHECK_REQUIRED);
+  m.add_button(DLG_OK, 0, "", -12, -1, 8, 2);
+  m.add_button(DLG_CANCEL, 0, "", -22, -1, 8, 2);
+  while (m.run() == K_ENTER)
+    elabora(m.get_int(101));
+}
+
+int ha1400(int argc, char* argv[])
+{
+  TStorico_consumi a;
+  a.run(argc, argv, TR("Storico Consumi"));
+  return 0;
+}