Patch level : 10.0 patch 6??

Files correlati     : lv3 lv3600
Ricompilazione Demo : [ ]
Commento            :
non salva il percorso dell'ultimo lancio

il peso deve essere fillato di zero e senza punti


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

lv/lv3600.cpp

@@ -18,44 +18,34 @@
 //classe TInvcon_rec
 class TInvcon_rec: public TAS400_recordset
 {
-  TString4   _umkg;
+  TString4 _umkg;  // Unità di misura dei Kg 
+  TString4 _umgr;  // Unità di misura dei gr 
+
 private:
-  const int convert_to_kg(const TString& codart, const TString& umkg);  
+  long peso_in_grammi(const TArticolo& art) const;  
+
 public:  
   void aggiungi_riga(const long codcf, const TString& codart);
   TInvcon_rec();
 };
 
-//CONVERT_TO_KG: metodo che converte il peso di un articolo
+//peso_in_grammi: metodo che converte il peso di un articolo in grammi
-const int TInvcon_rec::convert_to_kg(const TString& codart, const TString& umkg)
+long TInvcon_rec::peso_in_grammi(const TArticolo& art) const
 {
-  TArticolo& art = cached_article(codart);
-
   const TString4 ump  = art.get(ANAMAG_UMP);
 	const real     peso = art.get_real(ANAMAG_PESO);
+  if (ump == _umgr)
+    return peso.integer();
 
-  real qtaconv = ZERO;
+  real peso_gr = ZERO;
-		
+	if (ump.full() && !peso.is_zero())
-	if (ump.full() && peso != ZERO)
+  {
-	{
+    peso_gr = ((TArticolo&)art).convert_to_um(peso, _umkg, ump, false); // Converto in Kg
-		//preparo una cache sulla tabella delle unità di misura
+    peso_gr *= 1000.0;                                                  // Converto in gr    
-		const TRectype& unita = cache().get("%UMS", ump);     
+    peso_gr.round();                                                    // Arrotondo al grammo 
-		//leggo e controllo se esiste l'unità di misura di riferimento
-		const TString4 umrif = unita.get("S7");
-		real fatconv = UNO;
-
-		if (umrif == umkg)
-		{
-			//leggo e controllo il fattore di conversione
-			fatconv = unita.get_real("R10");
-		}
-
-		//se tutti i controlli sono andati a buon fine, converto la quantità e la restituisco
-    if(fatconv != ZERO)
-      qtaconv = fatconv * peso;
   }
-  TString8 tmp = qtaconv.string();  tmp.replace('.', ' ');  tmp.strip_spaces();
+
-  return atoi(tmp);
+  return peso_gr.integer();
 }
 
 //metodo per aggiungere righe al recordset da stampare
@@ -81,11 +71,11 @@ void TInvcon_rec::aggiungi_riga(const long codcf, const TString& codart)
   citta.cut(39);
 
   //preparo la cache su anamag 
-  const TRectype& anamag = cache().get(LF_ANAMAG, codart);
+  const TArticolo& anamag = cached_article(codart);
 
   //recupero i dati di interesse da anamag  
   TString80 desart = anamag.get(ANAMAG_DESCR);
-  long      peso   = convert_to_kg(codart, _umkg);
+  long      peso   = peso_in_grammi(anamag);
   long      lavco1 = atoi(anamag.get(ANAMAG_ARTLAVCONT).left(2));
   long      lavco2 = 0;  //non serve
   long      linde1 = anamag.get_int(ANAMAG_LINDEST1);
@@ -104,7 +94,7 @@ void TInvcon_rec::aggiungi_riga(const long codcf, const TString& codart)
   set("CITTA",     citta);
   set("CODART",    codart);
   set("DESART",    desart);
-  set("PESO",      (TVariant)peso);
+  set("PESO_GR",   (TVariant)peso);
   set("LAVCON1",   (TVariant)lavco1);
   set("LINDES1",   (TVariant)linde1);
   set("LINDES2",   (TVariant)linde2);
@@ -127,7 +117,7 @@ TInvcon_rec::TInvcon_rec()
   create_field("CODART",    -1,   8,  _alfafld,     true);  //codice articolo
   create_field("DESART",    -1,  30,  _alfafld,     true);  //descrizione articolo
   create_field("FILLER3",   -1,   9,  _alfafld,     false); //riempimento
-  create_field("PESO",      -1,   6,  _intzerofld,  true);  //peso
+  create_field("PESO_GR",   -1,   6,  _longzerofld,  true); //peso in grammi
   create_field("LAVCON1",   -1,   2,  _intzerofld,  true);  //lavacontinua 1
   create_field("LAVCON2",   -1,   2,  _intzerofld,  false); //lavacontinua 2
   create_field("LINDES1",   -1,   2,  _intzerofld,  true);  //linea di destinazione 1
@@ -139,7 +129,13 @@ TInvcon_rec::TInvcon_rec()
   create_field("CONF",      -1,   3,  _intzerofld,  true);  //numero di pezzi per confezione
   create_field("ACAPO",     -1,   2,  _alfafld,     true, TVariant("\r\n"));  //caratteri di a capo
 
-   _umkg = ini_get_string(CONFIG_DITTA, "lv", "UmKg");
+  _umkg = ini_get_string(CONFIG_DITTA, "lv", "UmKg", "KG");
+  TISAM_recordset ums("USE %UMS SELECT (NUM(S7==#KG))&&(STR(R10==0.001))");
+  ums.set_var("#KG", _umkg);
+  if (ums.move_first())
+    _umgr = ums.get("CODTAB").as_string();
+  else
+    _umgr = _umkg == "KG" ? "GR" : "";
 }
 
 
@@ -154,9 +150,8 @@ class TInvcon_msk: public TAutomask
 protected:
   virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
 
-  void esporta() const;
-
 public:
+  void esporta() const;
   TInvcon_msk();
 };
 
@@ -241,20 +236,11 @@ void TInvcon_msk::esporta() const
 //ON_FIELD_EVENT: metodo che gestisce gli eventi sui campi della maschera
 bool TInvcon_msk::on_field_event(TOperable_field& f, TField_event e, long jolly)
 {
-  switch (f.dlg())
-  {
-  case DLG_ELABORA:
-    //alla pressione del bottone elabora eseguo il metodo elabora
-    if(e == fe_button)    
-      esporta();
-    break;  
-  default: break;
-  }
   return true;
 }
 
 //metodo costruttore che precarica i campi di interesse sulla maschera
-TInvcon_msk::TInvcon_msk():TAutomask("lv3600a") {}
+TInvcon_msk::TInvcon_msk() : TAutomask("lv3600a") {}
 
                                  ///////////////////////////
                                  ////    TINVCON_APP    ////
@@ -263,46 +249,20 @@ TInvcon_msk::TInvcon_msk():TAutomask("lv3600a") {}
 //classe TInvcon_app
 class TInvcon_app : public TSkeleton_application
 {
-  TInvcon_msk* _msk;
-protected:
-  virtual bool create();
-  virtual bool destroy();
-
 public:
-  bool transfer();
   virtual void main_loop();  
 };
 
-//CREATE: metodo costruttore
-bool TInvcon_app::create()
-{
-  _msk = new TInvcon_msk; 
-  return TSkeleton_application::create();
-}
-
-//DESTROY: metodo distruttore
-bool TInvcon_app::destroy()
-{	
-  delete _msk;
-  return TApplication::destroy();
-}
-
-//TRANSFER: metodo principale dell'elaborazione, che non deve fare niente
-//perchè viene tutto gestito nella maschera
-bool TInvcon_app::transfer()
-{   
-  return true;
-}
-
 void TInvcon_app::main_loop()
 {
-  while (_msk->run() == K_ENTER)
+  TInvcon_msk msk; 
-	  transfer();
+  while (msk.run() != K_QUIT)
- }
+	  msk.esporta();
+}
 
 int lv3600(int argc, char *argv[])
 {
   TInvcon_app a;
-  a.run (argc, argv, "Invio a contapezzi");
+  a.run (argc, argv, TR("Invio a contapezzi"));
   return TRUE;
 }

lv/lv3600a.uml

@@ -2,7 +2,7 @@
 
 TOOLBAR "" 0 0 0 2
 
-BUTTON DLG_ELABORA 2 2
+BUTTON DLG_OK 2 2
 BEGIN
   PROMPT 3 1 "Esporta"  
   PICTURE TOOL_ELABORA