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

Patch level : 10.0

Browse Source 
Files correlati     : lv2
Ricompilazione Demo : [ ]
Commento            :
Migliorata gestione compattamento planning


git-svn-id: svn://10.65.10.50/trunk@17199 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2008-09-09 14:58:51 +00:00
parent 602827b7ea
commit bde6a135a1
2 changed files with 31 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
lv/lv2100.cpp
View File

@ -146,28 +146,31 @@ bool TGenera_planning_app::elimina_planning_cliente(const TDate& dadata, const T
//KILL_PLANNING: funzione che elimina un recordset generato precedentemente
bool TGenera_planning_app::kill_planning (TISAM_recordset& selrighe) const
{
TSystemisamfile rplan(LF_LVRCONSPLAN); //instanzio una relazione sul file LF_LVRCONSPLAN
if (rplan.open(_excllock) == NOERR)
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);
for (bool ok = selrighe.move_last(); ok; ok = selrighe.move_prev())
{
if (!pi.addstatus(1))
break;
TProgind pi(selrighe.items(), 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());
rplan.remove();
}
rplan.close();
rplan.pack();
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"));
}
else
return error_box(TR("Impossibile eliminare i planning richiesti"));
return true;
}
@ -187,7 +190,7 @@ int TGenera_planning_app::prossimo_codriga(const TDate& data)
ptriga = new real;
_codriga.add(strcodplan,ptriga);
//se esiste almeno una riga, memorizzo il codriga dell'ultima
TISAM_recordset rplan("USE LVRCONSPLAN KEY 1\nFROM CODPLAN=#CODPLAN\nTO CODPLAN=#CODPLAN");
TISAM_recordset rplan("USE LVRCONSPLAN\nFROM CODPLAN=#CODPLAN\nTO CODPLAN=#CODPLAN");
rplan.set_var("#CODPLAN",TVariant(strcodplan));
if (rplan.move_last())
*ptriga = rplan.get(LVRCONSPLAN_CODRIGA).as_real();

14
lv/lv2100a.uml
View File

@ -13,7 +13,7 @@ END
DATE F_DADATA
BEGIN
PROMPT 2 2 "Genera il planning dal "
PROMPT 2 2 "Generazione planning dal "
FIELD DADATA
CHECKTYPE REQUIRED
END
@ -31,10 +31,11 @@ BEGIN
FLAGS "UZ"
USE &ITI
INPUT CODTAB F_CODITI
DISPLAY "Codice " CODTAB
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODITI CODTAB
OUTPUT F_DESCRITI S0
CHECKTYPE NORMAL
END
STRING F_DESCRITI 50
@ -43,21 +44,23 @@ BEGIN
USE &ITI KEY 2
INPUT S0 F_DESCRITI
DISPLAY "Descrizione@50" S0
DISPLAY "Codice " CODTAB
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODITI
CHECKTYPE NORMAL
END
NUMBER F_CODCF 6
BEGIN
PROMPT 2 4 "Cliente "
FLAGS "U"
USE LF_CLIFO KEY 1
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODCF
DISPLAY "Codice " CODCF
DISPLAY "Ragione sociale@50" RAGSOC
OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOCCLI RAGSOC
CHECKTYPE NORMAL
END
STRING F_RAGSOCCLI 50
@ -67,8 +70,9 @@ BEGIN
INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOCCLI
DISPLAY "Ragione sociale@50" RAGSOC
DISPLAY "Codice " CODCF
DISPLAY "Codice" CODCF
COPY OUTPUT F_CODCF
CHECKTYPE NORMAL
END
ENDPAGE