Patch level : 10.0 patch ???

Files correlati     : lv1
Ricompilazione Demo : [ ]
Commento            :
Velocizzata la stampa degli inventari nella fase di eliminazione dei pacchi non pistolati


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

lv/lv1300.cpp

@@ -116,8 +116,8 @@ protected:
 void TStampa_inv_app::sistema_magazzino_pacchi(TAssoc_array& documenti)
 {
   TSystemisamfile pacchi(LF_PACCHI);
-  pacchi.open();
-  pacchi.lock();
+  pacchi.open(_excllock);
+  
   TAssoc_array arpacchi;
 
   //Scorro tutti i documenti che sto stampando; per ognuno recupero l'elenco dei pacchi
@@ -173,15 +173,15 @@ void TStampa_inv_app::sistema_magazzino_pacchi(TAssoc_array& documenti)
       TRiga_pacco rp(paxcodart.cursor()->curr());
       if(!pa.is_key(rp.codpacco()))
       {
-        rp.remove(pacchi);
+        pacchi.put("CODPACCO", rp.codpacco());
+        pacchi.read();
+        pacchi.remove();
         trovato = true;
       }
     }    
   }
   if(trovato)
     pacchi.rewrite();
-  
-  pacchi.unlock();
   pacchi.close();
 }