Patch level : 10.0 NO PATCH

Files correlati     : lv3
Ricompilazione Demo : [ ]
Commento            :
Programma di riepilogo magazzino - manca la parte di giacenza presso il cliente


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

lv/lv3500.cpp

@@ -8,6 +8,7 @@
 
 #include "lvlib.h"
 #include "../mg/clifogiac.h"
+#include "../mg/mglib.h"
 #include "../ve/velib.h"
 
 #include "clifo.h"
@@ -24,17 +25,127 @@
 //classe TSitmag_msk
 class TSitmag_msk: public TAutomask
 {
+  static const int _ndep = 4;
 protected:
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
 
+  void calcola_qta_magazzino() const;
+
 public:
   TSitmag_msk();
 };
 
+void TSitmag_msk::calcola_qta_magazzino() const
+{
+  const TString80 codart = field(F_CODART).get();
+  TString4 codmag  = field(F_CODMAG).get();
+  codmag.trim();
+
+  const int anno = field(F_ANNO).get_long();
+
+  const TArticolo_giacenza art(codart);
+
+  TSheet_field& sheet = sfield(F_RIGHE);
+
+  const int posgiac = sheet.cid2index(S_GIAC);
+  const int posordf = sheet.cid2index(S_ORDFOR);
+  const int posordc = sheet.cid2index(S_ORDCLI);
+  const int posdisp = sheet.cid2index(S_DISP);
+
+  for(int i = 0; i < _ndep; i++)
+  {
+    TToken_string& row = sheet.row(i);
+    TString4 coddep = row.get(sheet.cid2index(S_CODDEP));
+    coddep.trim();
+
+    TString8 deposito;
+    deposito << codmag << coddep;
+
+    const long giac = art.giacenza_anno(deposito, "", anno).integer();
+    long ordf = 0L;
+    long ordc = 0L;
+    long disp = 0L;
+
+    TRecord_array& rmag = art.mag(anno);
+    int j = art.find_mag(anno, deposito, "");
+
+    if(j >= 0)
+    {
+      const TRectype& rec = rmag.row(j);
+
+      ordf = rec.get_long(MAG_ORDF);
+      ordc = rec.get_long(MAG_ORDC);
+
+      disp = giac + ordf - ordc;      
+    }
+    row.add(giac, posgiac);
+    row.add(ordf, posordf);
+    row.add(ordc, posordc);
+    row.add(disp, posdisp);
+  }
+
+  long totgiac = 0L;
+  long totordf = 0L;
+  long totordc = 0L;
+  long totdisp = 0L;
+
+  for(int i = 1; i < _ndep; i++)
+  {
+    TToken_string& row = sheet.row(i);    
+    
+    totgiac += row.get_long(posgiac);
+    totordf += row.get_long(posordf);
+    totordc += row.get_long(posordc);
+    totdisp += row.get_long(posdisp);
+  }
+
+  TToken_string& row = sheet.row(_ndep);
+
+  row.add(totgiac, posgiac);
+  row.add(totordf, posordf);
+  row.add(totordc, posordc);
+  row.add(totdisp, posdisp);
+
+  sheet.force_update();
+}
+
 
 //ON_FIELD_EVENT: metodo che gestisce gli eventi sui campi della maschera
 bool TSitmag_msk::on_field_event(TOperable_field& f, TField_event e, long jolly)
 {
+  switch (f.dlg())
+  {
+  case DLG_CANCEL:
+    if(e == fe_button)
+    {
+      reset(F_CODART);
+      reset(F_DESART);
+
+      TSheet_field& sheet = sfield(F_RIGHE);
+      for (int i = 1; i <= _ndep; i++)
+      {
+        TToken_string& row = sheet.row(i);
+        row.add(0L, sheet.cid2index(S_GIAC));
+        row.add(0L, sheet.cid2index(S_ORDFOR));
+        row.add(0L, sheet.cid2index(S_ORDCLI));
+        row.add(0L, sheet.cid2index(S_DISP));
+      }
+      sheet.force_update();
+
+      field(F_CODART).set_focus();
+      return false;
+    }
+    break;
+  case F_CODART:
+    if (e == fe_modify && !f.empty())
+      calcola_qta_magazzino();
+    break;
+  case F_ANNO:
+    if (e == fe_modify)
+      calcola_qta_magazzino();
+    break;
+  default: break;
+  }
   return true;
 }
 
@@ -46,7 +157,28 @@ TSitmag_msk::TSitmag_msk():TAutomask("lv3500a")
   set(F_ANNO, esercizi().date2esc(oggi));
   set(F_CODMAG, ini_get_string(CONFIG_DITTA, "lv", "CODMAG"));
 
-  hide(F_RIGHE);
+  TSheet_field& sheet = sfield(F_RIGHE);
+
+  for(int i = 0; i <= _ndep; i++)
+  {
+    TString4 coddep;
+
+    TToken_string& row = sheet.row(-1);
+    switch(i)
+    {
+    case 0:  coddep = ini_get_string(CONFIG_DITTA, "lv", "CODMAGN");  break;  //Deposito nuovo
+    case 1:  coddep = ini_get_string(CONFIG_DITTA, "lv", "CODMAGP");  break;  //Deposito pulito
+    case 2:  coddep = ini_get_string(CONFIG_DITTA, "lv", "CODMAGC");  break;  //Deposito circolante
+    case 3:  coddep = ini_get_string(CONFIG_DITTA, "lv", "CODMAGCL"); break;  //Deposito presso cliente
+    default: row.add(TR("TOTALI"), sheet.cid2index(S_DESDEP));        break;
+    }
+    row.add(coddep, sheet.cid2index(S_CODDEP));
+
+    if(i < _ndep)
+      sheet.check_row(i);
+  }
+
+  sheet.force_update();
 }
 
                                  /////////////////////////////

lv/lv3500a.uml

@@ -68,7 +68,6 @@ END
 NUMBER F_ANNO 4
 BEGIN
   PROMPT 2 3 "Esercizio "
-  FLAGS "D"
 END
 
 STRING F_CODMAG 4
@@ -92,12 +91,12 @@ END
 SPREADSHEET F_RIGHE
 BEGIN
   PROMPT 2 6 "Righe"
-  ITEM "Cod.\nDep."
+  ITEM "Cod.\nDep.@3"
-  ITEM "Deposito"
+  ITEM "Deposito@50"
-  ITEM "Giacenza"
+  ITEM "Giacenza@6"
-  ITEM "Ord.\nFor."
+  ITEM "Ord.\nFor.@6"
-  ITEM "Ord.\nCli."
+  ITEM "Ord.\nCli.@6"
-  ITEM "Disponibilità"
+  ITEM "Disp.@6"
   FLAGS "D"
 END
 
@@ -123,7 +122,12 @@ PAGE "Riga" -1 -1 80 10
 STRING S_CODDEP 3
 BEGIN
   PROMPT 1 1 "Cod. dep.  "
-  FLAGS "D"
+  USE MAG 
+	INPUT CODTAB[1,3] -F_CODMAG
+  INPUT CODTAB[4,5] S_CODDEP
+  OUTPUT S_DESDEP S0
+  CHECKTYPE REQUIRED
+  FLAGS "DG"
 END
 
 STRING S_DESDEP 50