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
This commit is contained in:
parent
0dc2f675df
commit
12796bcc57
@ -5,6 +5,7 @@
|
||||
#include <real.h>
|
||||
#include <recarray.h>
|
||||
#include <recset.h>
|
||||
#include <relation.h>
|
||||
|
||||
#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;
|
||||
}
|
||||
|
@ -1,7 +1,7 @@
|
||||
#include "lv2200a.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
#include <elabar.h>
|
||||
#include <printbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Visualizzazione e modifica planning" -1 -1 76 20
|
||||
|
Loading…
x
Reference in New Issue
Block a user