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 //KILL_PLANNING: funzione che elimina un recordset generato precedentemente
bool TGenera_planning_app::kill_planning (TISAM_recordset& selrighe) const bool TGenera_planning_app::kill_planning (TISAM_recordset& selrighe) const
{ {
TSystemisamfile rplan(LF_LVRCONSPLAN); //instanzio una relazione sul file LF_LVRCONSPLAN const TRecnotype righe = selrighe.items();
if (rplan.open(_excllock) == NOERR) if (righe > 0)
{ {
TSystemisamfile rplan(LF_LVRCONSPLAN); //instanzio il file LF_LVRCONSPLAN
TRectype& rec = rplan.curr(); 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); rec.zero();
rec.put(LVRCONSPLAN_CODPLAN,selrighe.get(LVRCONSPLAN_CODPLAN).as_int());
for (bool ok = selrighe.move_last(); ok; ok = selrighe.move_prev()) rec.put(LVRCONSPLAN_CODRIGA,selrighe.get(LVRCONSPLAN_CODRIGA).as_int());
{ rec.remove(rplan);
if (!pi.addstatus(1)) }
break; rplan.close(); // Chiude file principale
selrighe.requery(); // Chiude file secondario
rec.zero(); rplan.pack(false, false);
rec.put(LVRCONSPLAN_CODPLAN,selrighe.get(LVRCONSPLAN_CODPLAN).as_int()); }
rec.put(LVRCONSPLAN_CODRIGA,selrighe.get(LVRCONSPLAN_CODRIGA).as_int()); else
rplan.remove(); return error_box(TR("Impossibile eliminare i planning richiesti"));
}
rplan.close();
rplan.pack();
} }
else
return error_box(TR("Impossibile eliminare i planning richiesti"));
return true; return true;
} }
@ -187,7 +190,7 @@ int TGenera_planning_app::prossimo_codriga(const TDate& data)
ptriga = new real; ptriga = new real;
_codriga.add(strcodplan,ptriga); _codriga.add(strcodplan,ptriga);
//se esiste almeno una riga, memorizzo il codriga dell'ultima //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)); rplan.set_var("#CODPLAN",TVariant(strcodplan));
if (rplan.move_last()) if (rplan.move_last())
*ptriga = rplan.get(LVRCONSPLAN_CODRIGA).as_real(); *ptriga = rplan.get(LVRCONSPLAN_CODRIGA).as_real();

14
lv/lv2100a.uml
View File

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