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

Patch level : 12.0 1064

Browse Source 
Files correlati     : ce4.exe

Commento        :

La contabilizzazione dei cespiti non impostava semre l'ultimo esercizio
This commit is contained in:
Alessandro Bonazzi 2021-06-22 10:58:56 +02:00
parent d3817d77f9
commit 640b203f1b
2 changed files with 9 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce/ce4200.cpp
View File

@ -17,24 +17,14 @@
//=============================================================================================== //===============================================================================================
//maschera //maschera
class TCalc_cesp_cms_mask: public TAutomask class TCalc_cesp_cms_mask: public TSimpleAutomask
{ {
public: public:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
TCalc_cesp_cms_mask():TAutomask("ce4200a") {} TCalc_cesp_cms_mask():TSimpleAutomask("ce4200a") {}
}; };
bool TCalc_cesp_cms_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
/* switch (o.dlg())
{
default: break;
}*/
return true;
}
//=============================================================================================== //===============================================================================================
//form //form
class TCalc_cesp_cms_form : public TForm class TCalc_cesp_cms_form : public TForm

10
src/ce/ce4400.cpp
View File

@ -1303,7 +1303,7 @@ void TContabilizza_ce::elabora()
// 0) Acquisizione parametri generali, eliminazione movimenti provvisori // 0) Acquisizione parametri generali, eliminazione movimenti provvisori
//-------------------------------------------------------------------------------- //--------------------------------------------------------------------------------
//gettiamo un po' di parametri dalla maschera //gettiamo un po' di parametri dalla maschera
const long codes = _mask->get_long(F_ESERCIZIO); const int codes = _mask->get_int(F_ESERCIZIO);
const TDate ini_es = _mask->get_date(F_INIZIO_ES); const TDate ini_es = _mask->get_date(F_INIZIO_ES);
const TDate fine_es = _mask->get_date(F_FINE_ES); const TDate fine_es = _mask->get_date(F_FINE_ES);
//se il trasferimento e' definitivo la data di calcolo e' quella finale dell'esercizio selezionato, senno'... //se il trasferimento e' definitivo la data di calcolo e' quella finale dell'esercizio selezionato, senno'...
@ -1332,6 +1332,10 @@ void TContabilizza_ce::elabora()
delete_old_movs(ini_es); delete_old_movs(ini_es);
} }
const int gruppo = _mask->get_int(F_GRUPPO);
const TString specie = _mask->get(F_SPECIE);
ditta_cespiti().set_attivita(codes, gruppo, specie);
//report con log errori //report con log errori
TLog_report cont_cesp_log(TR("Contabilizzazione cespiti")); TLog_report cont_cesp_log(TR("Contabilizzazione cespiti"));
cont_cesp_log.kill_duplicates(); cont_cesp_log.kill_duplicates();
@ -1383,7 +1387,7 @@ void TContabilizza_ce::elabora()
TSaldo_per_codice* sc = (TSaldo_per_codice*)quote_per_codice.objptr(gsc); TSaldo_per_codice* sc = (TSaldo_per_codice*)quote_per_codice.objptr(gsc);
//se non trova il codice (categoria o cespite) lo aggiunge... //se non trova il codice (categoria o cespite) lo aggiunge...
if (sc == NULL) if (sc == nullptr)
{ {
sc = new TSaldo_per_codice(gruppo, specie, codcat, idcespite); sc = new TSaldo_per_codice(gruppo, specie, codcat, idcespite);
quote_per_codice.add(gsc, sc); quote_per_codice.add(gsc, sc);
@ -1455,7 +1459,7 @@ void TContabilizza_ce::elabora()
key.add(curr_salcecms_line.get(SALCECMS_CODFASE)); key.add(curr_salcecms_line.get(SALCECMS_CODFASE));
TSaldo_per_codice* anal_sc = (TSaldo_per_codice*)anal_quote_per_codice.objptr(key); TSaldo_per_codice* anal_sc = (TSaldo_per_codice*)anal_quote_per_codice.objptr(key);
if (anal_sc == NULL) if (anal_sc == nullptr)
{ {
anal_sc = new TSaldo_per_codice(gruppo, specie, codcat, idcespite); anal_sc = new TSaldo_per_codice(gruppo, specie, codcat, idcespite);