Patch level : 12.0 546

Files correlati     : lv
Commento            : 
- Aggiornati files nuovo compilatore
- Risolto crash in chiusura fatturazione

git-svn-id: svn://10.65.10.50/branches/R_10_00@24408 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2018-03-02 10:01:08 +00:00
parent 9605a3323c
commit acf48eb463
3 changed files with 13 additions and 8 deletions

View File

@ -2219,7 +2219,8 @@ void TFatturazione_lav_app::main_loop()
TISAM_recordset recset(query);
recset.set_var("#DAL", dal);
recset.set_var("#AL", al);
TProgress_monitor pi(recset.items(), TR("Fatturazione"), true);
// In alcuni casi questo oggetto non viene distrutto correttamente, lo creo come puntatore così da eliminarlo successivamente con una delete
TProgress_monitor* pi = new TProgress_monitor(recset.items(), TR("Fatturazione"), true);
long last_clifo = 0;
int numdocgen = 0;
int numdocscart = 0;
@ -2242,11 +2243,11 @@ void TFatturazione_lav_app::main_loop()
key.format("C|%ld", clifo);
TString str;
str << TR("Cliente") << ' ' << clifo << ' ' << cache().get(LF_CLIFO, key, CLI_RAGSOC);
pi.set_text(str);
pi->set_text(str);
last_clifo=clifo;
}
if (!pi.add_status())
if (!pi->add_status())
break;
//se non è l'ultimo cliente, allora:
@ -2509,6 +2510,10 @@ void TFatturazione_lav_app::main_loop()
}
}
// Forzo l'eliminazione
if(pi != NULL)
delete pi;
//se ho dei documenti in lista li elaboro e poi svuoto le TList_file
if (docsin.items() != 0)
{

View File

@ -541,7 +541,7 @@ const real TRecmag_lavanderie::consmese(const TDate& dadata, const TDate& adata)
{
const real qta = ((TArticolo &)artrec).convert_to_um(recrmag.get(RMOVMAG_QUANT).as_real(), NULL, recrmag.get(RMOVMAG_UM).as_string());
consmese += real(qta * sgn_consmese);
consmese += qta * (real)sgn_consmese;
}
}
}