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

Corretti errori liquidazione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1600 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-07-17 09:31:47 +00:00
parent 6911723db1
commit b47e760e42
3 changed files with 2997 additions and 3001 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cg/cg4300.cpp
View File

@ -42,7 +42,7 @@ bool TLiquidazione_app::user_create()
TMessage* msg = mail.next_s("RCL"); TMessage* msg = mail.next_s("RCL");
TToken_string subj(36); TToken_string subj(36);
_is_interactive = msg == NULL; _is_interactive = msg == NULL;
bool recalc_only = FALSE; _recalc_only = FALSE;
bool is_header = TRUE; bool is_header = TRUE;
int headerlen; int headerlen;
TDate printdate; TDate printdate;
@ -206,7 +206,7 @@ bool TLiquidazione_app::user_create()
if (!_is_interactive) if (!_is_interactive)
{ {
TTemp_window w(TASK_WIN); TTemp_window w(TASK_WIN);
if (recalc_only) if (_recalc_only)
_isprint = FALSE; _isprint = FALSE;
//else printer().set_export_file(filename, is_header, headerlen); //else printer().set_export_file(filename, is_header, headerlen);
else printer().set_export_file(filename, is_header); else printer().set_export_file(filename, is_header);
@ -250,7 +250,7 @@ bool TLiquidazione_app::user_create()
if (is_month_plain(mese) || _recalc == ever) if (is_month_plain(mese) || _recalc == ever)
update_firm(mese); update_firm(mese);
if (is_month_ok_strict(_month) || _month == 13) if (is_month_plain(_month) || _month == 13)
update_firm(_month); update_firm(_month);
if (_isprint && _descr_arr.items() > 0) if (_isprint && _descr_arr.items() > 0)

12
cg/cg4301.cpp
View File

@ -106,7 +106,6 @@ bool TLiquidazione_app::recalc_all()
_recalc = ever; _recalc = ever;
} }
for (int m = 1; m <= _month; m++) // fino a 13 compreso for (int m = 1; m <= _month; m++) // fino a 13 compreso
if (is_month_plain(m) || _recalc == ever) if (is_month_plain(m) || _recalc == ever)
{ {
@ -259,7 +258,7 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
for (_reg->first(); _reg->good(); _reg->next()) for (_reg->first(); _reg->good(); _reg->next())
{ {
if (codatt == _reg->get("S8") || quater) // TBC quater: e' una pezza ma andra' cambiato if (codatt == _reg->get("S8") || quater)
{ {
if (!riepliq) riepliq = _reg->get_bool("B6"); if (!riepliq) riepliq = _reg->get_bool("B6");
if (!stliq) stliq = _reg->get_bool("B7"); if (!stliq) stliq = _reg->get_bool("B7");
@ -370,7 +369,7 @@ void TLiquidazione_app::zero_att(int month, const char* codatt)
{ {
int m = atoi(*_pim_mese); int m = atoi(*_pim_mese);
TString att = (const char*)*_pim_codatt; TString att = (const char*)*_pim_codatt;
if (m == month && att == codatt) if (m == month && att == codatt && (_year == *_pim_anno))
{ {
_pim->put("R0",""); _pim->put("R0","");
_pim->put("R1",""); _pim->put("R1","");
@ -495,9 +494,6 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
const TRectype& rcs = _cur->curr(LF_CAUSALI); const TRectype& rcs = _cur->curr(LF_CAUSALI);
const bool fattrit = rcs.get_bool("RITFATT"); const bool fattrit = rcs.get_bool("RITFATT");
// for degiubbing only
int numreg = _rmoviva->get_int("NUMREG");
if (dok || sreg || rs8 || cmt) continue; if (dok || sreg || rs8 || cmt) continue;
/* /*
@ -836,7 +832,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
// Fine casi particolari // Fine casi particolari
// Non che i casi normali siano tanto meglio // Non che i casi normali siano tanto meglio
// ***************************************** // *****************************************
} // non sosp_imp } // non sosp_imp ne' altre casistiche che escludono la liq.
/* /*
* Calcolo e aggiornamento * Calcolo e aggiornamento
* cerca o crea progressivo IVA * cerca o crea progressivo IVA
@ -1645,7 +1641,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
} }
// questo serve anche per la visualizzazione e per l'estrazione deleghe // questo serve anche per la visualizzazione e per l'estrazione deleghe
if (_freqviva == "T" && month != 13 && !_isbenzinaro) if (_isintr && month < 13)
_lim->put("R10",interesse_trimestrale(_month)); _lim->put("R10",interesse_trimestrale(_month));
// totale conguaglio su tutte le attivita' // totale conguaglio su tutte le attivita'