root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0

Browse Source 
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:
luca83 2008-09-10 09:01:34 +00:00
parent 0dc2f675df
commit 12796bcc57
2 changed files with 9 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lv/lv2100.cpp
View File

@ -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;
}

2
lv/lv2200a.uml
View File

@ -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