Patch level : 10.0 patch 528

Files correlati     : lv3 lv3400a.msk
Ricompilazione Demo : [ ]
Commento            :
Correzioni Evasione Terminalino


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

lv/lv3400.cpp

@@ -649,6 +649,14 @@ void TEvasione_ter_msk::evadi_da_terminale()
     const TString80 codart = rp.articolo();
     const long qtapacco = rp.quantita().integer();
 
+    if (qtapacco <= 0)
+    {
+      warning_box(TR("Il pacco non esiste a magazzino"));
+      warning_box(TR("Non è stato possibile sommare il pacco a nessuna riga del buono"));
+    }
+    else
+    {
+      TDoc_key kdoc(get_date(F_TDATADOC).year(), ini_get_string(CONFIG_DITTA, "lv", "NUM_PRE", NULL, 0), get_int(F_TNDOC));
       //se il pacco è già stato pistolettato lo tolgo dai pacchi da evadere, altrimenti cerco di sommarlo
       //a una riga documento esistente
       if (_pacchi.is_key(codpacco))
@@ -667,12 +675,15 @@ void TEvasione_ter_msk::evadi_da_terminale()
 
           if (qr.get_evaso())
             qr.set_evaso(false);
+
+          set(F_TPACCHI, qr.get_pacchi());
+          set(F_TQTAPACCO, qtapacco);
+          set(F_TQTACON, qr.get_qta_con());
+          set(F_TQTADACON, qr.get_qta_da_con());
         }
       }
       else
       {
-      TDoc_key kdoc(get_date(F_TDATADOC).year(), ini_get_string(CONFIG_DITTA, "lv", "NUM_PRE", NULL, 0), get_int(F_TNDOC));
-
         TToken_string key;
         key.add(codart);
         key.add(oggi);
@@ -701,11 +712,17 @@ void TEvasione_ter_msk::evadi_da_terminale()
             }
           }
           _pacchi.add(codpacco, kdoc);
+          set(F_TPACCHI, qr.get_pacchi());
+          set(F_TQTAPACCO, qtapacco);
+          set(F_TQTACON, qr.get_qta_con());
+          set(F_TQTADACON, qr.get_qta_da_con());
         }
+
         else
           warning_box(TR("Non è stato possibile sommare il pacco a nessuna riga del buono"));
       }
     }
+  }
 }
 
 //ON_FIELD_EVENT: metodo che gestisce gli eventi sui campi della maschera
@@ -773,6 +790,8 @@ bool TEvasione_ter_msk::on_field_event(TOperable_field& f, TField_event e, long
 
       hide(F_TRIGHE);
 
+      field(F_TBARCODE).set_focus();
+
       _autoselect = 1;
       return false;
     }
@@ -795,8 +814,6 @@ bool TEvasione_ter_msk::on_field_event(TOperable_field& f, TField_event e, long
           hide(F_TANNO);
           hide(F_TDATAPRCO);
 
-          update();
-
           show(F_TCODCF);
           show(F_TRAGSOC);
           show(F_TBARCODE);
@@ -806,6 +823,9 @@ bool TEvasione_ter_msk::on_field_event(TOperable_field& f, TField_event e, long
           show(F_TQTADACON);
 
           precarica_righe();
+
+          _autoselect = 1;
+          field(F_TDATADOC).set_focus();          
         }
         else
         {

lv/lv3400a.h

@@ -8,13 +8,12 @@
 #define F_TDATAPRCO     407
 #define F_TCODCF        408
 #define F_TRAGSOC       409
-#define F_TDATADOC1     411
+#define F_TBARCODE      410
-#define F_TBARCODE      412
+#define F_TPACCHI       411
-#define F_TPACCHI       413
+#define F_TQTAPACCO     412
-#define F_TQTAPACCO     414
+#define F_TQTACON       413
-#define F_TQTACON       415
+#define F_TQTADACON     414
-#define F_TQTADACON     416
+#define F_TRIGHE        415
-#define F_TRIGHE        417
 
 #define S_TCODART       101
 #define S_TDACONS       102

lv/lv3400a.uml

@@ -125,21 +125,25 @@ END
 NUMBER F_TPACCHI 6
 BEGIN
   PROMPT 1 5 "Pacchi        "
+  FLAGS "D"
 END
 
 NUMBER F_TQTAPACCO 6
 BEGIN
   PROMPT 1 6 "Quantità pacco"
+  FLAGS "D"
 END
 
 NUMBER F_TQTACON 6
 BEGIN
   PROMPT 1 7 "Quantità Cons."
+  FLAGS "D"
 END
 
 NUMBER F_TQTADACON 6
 BEGIN
   PROMPT 1 8 "Da Consegnare "
+  FLAGS "D"
 END
 
 SPREADSHEET F_TRIGHE
@@ -172,6 +176,7 @@ END
 NUMBER S_TCONS 6
 BEGIN
   PROMPT 1 3 "Quantità Cons."
+  FLAGS "D"
 END
 
 ENDPAGE