From 12796bcc57e3e11e26c3b9da27dfc68c42b7a6cb Mon Sep 17 00:00:00 2001 From: luca83 Date: Wed, 10 Sep 2008 09:01:34 +0000 Subject: [PATCH] Patch level : 10.0 Files correlati : Ricompilazione Demo : [ ] Commento : Correzione errore sulla pack() su lv2100 e cambio tollbar sul lv2200 git-svn-id: svn://10.65.10.50/trunk@17204 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- lv/lv2100.cpp | 28 ++++++++-------------------- lv/lv2200a.uml | 2 +- 2 files changed, 9 insertions(+), 21 deletions(-) diff --git a/lv/lv2100.cpp b/lv/lv2100.cpp index 3c33c6831..46737c1c1 100755 --- a/lv/lv2100.cpp +++ b/lv/lv2100.cpp @@ -5,6 +5,7 @@ #include #include #include +#include #include "lvlib.h" @@ -149,27 +150,14 @@ bool TGenera_planning_app::kill_planning (TISAM_recordset& selrighe) const const TRecnotype righe = selrighe.items(); if (righe > 0) { - TSystemisamfile rplan(LF_LVRCONSPLAN); //instanzio il file LF_LVRCONSPLAN - TRectype& rec = rplan.curr(); - if (rplan.open(_excllock) == NOERR) + TProgind pi(righe, TR("Eliminazione planning precedenti in corso..."), true, true); + TLocalisamfile& rplan = selrighe.cursor()->file(); + for (bool ok = selrighe.move_last(); ok; ok = selrighe.move_prev()) { - TProgind pi(righe, TR("Eliminazione planning precedenti in corso..."), true, true); - for (bool ok = selrighe.move_last(); ok; ok = selrighe.move_prev()) - { - if (!pi.addstatus(1)) - break; - - rec.zero(); - rec.put(LVRCONSPLAN_CODPLAN,selrighe.get(LVRCONSPLAN_CODPLAN).as_int()); - rec.put(LVRCONSPLAN_CODRIGA,selrighe.get(LVRCONSPLAN_CODRIGA).as_int()); - rec.remove(rplan); - } - rplan.close(); // Chiude file principale - selrighe.requery(); // Chiude file secondario - rplan.pack(false, false); - } - else - return error_box(TR("Impossibile eliminare i planning richiesti")); + if (!pi.addstatus(1)) + break; + rplan.remove(); + } } return true; } diff --git a/lv/lv2200a.uml b/lv/lv2200a.uml index 7ea6d9cb6..2a009486c 100755 --- a/lv/lv2200a.uml +++ b/lv/lv2200a.uml @@ -1,7 +1,7 @@ #include "lv2200a.h" TOOLBAR "" 0 0 0 2 -#include +#include ENDPAGE PAGE "Visualizzazione e modifica planning" -1 -1 76 20