diff --git a/cg/cg4200.cpp b/cg/cg4200.cpp index 2c879c950..8e1f9e6fe 100755 --- a/cg/cg4200.cpp +++ b/cg/cg4200.cpp @@ -29,7 +29,7 @@ public: bool TCopia_archivi::copyfile(int logicnum, long from, long to) { if (from > 0) set_firm(from); - else prefix().set("com"); + else prefhndl->set("com"); TSystemisamfile file(logicnum); TFilename t; t.tempdir(); t << "/tr" << logicnum; @@ -82,7 +82,7 @@ void TCopia_archivi::clearivd(long to) void TCopia_archivi::copyivd(long from, long to) { if (from > 0) set_firm(from); - else prefix().set("com"); + else prefhndl->set("com"); TLocalisamfile pcon(LF_PCON); TAssoc_array riclass; @@ -170,7 +170,7 @@ bool TCopia_archivi::menu(MENU_TAG) const bool copy_ivd = _msk->get_bool(F_IVD); if (copy_pcon || copy_causali || copy_clifo || copy_ivd) { - if (prefix().exist(to_firm)) + if (prefhndl->exist(to_firm)) { set_firm(to_firm); TLocalisamfile mov(LF_MOV); diff --git a/cg/cg4300.cpp b/cg/cg4300.cpp index 297ca96b4..74dc9f7c4 100755 --- a/cg/cg4300.cpp +++ b/cg/cg4300.cpp @@ -436,7 +436,7 @@ void TLiquidazione_app::build_nomiditte(TProgind* pnd) for (dt.first(); !dt.eof(); dt.next()) { // check no archivi - bool good = prefix().exist(dt.get_long("CODDITTA")); + bool good = prefhndl->exist(dt.get_long("CODDITTA")); if (good) { diff --git a/cg/cg4301.cpp b/cg/cg4301.cpp index f12edfae4..b99167b29 100755 --- a/cg/cg4301.cpp +++ b/cg/cg4301.cpp @@ -347,6 +347,19 @@ void TLiquidazione_app::zero_att(int month, const char* codatt) _pim->put("R0",""); _pim->put("R1",""); _pim->put("R2",""); + _pim->put("R3",""); + _pim->put("R4",""); + _pim->put("R5",""); + _pim->put("R6",""); + _pim->put("R7",""); + _pim->put("R8",""); + _pim->put("R9",""); + _pim->put("R10",""); + _pim->put("R11",""); + _pim->put("R12",""); + _pim->put("R13",""); + _pim->put("R14",""); + _pim->put("S1",""); _pim->rewrite(); } } @@ -845,14 +858,15 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) real perc = _iva->get_real("R0")/CENTO; lor += imponibile + imposta; real tot = imponibile+imposta; - if (liq) - add_corrisp(month, reg, tot, perc, tipodet, codiva); + if (liq) add_corrisp(month, reg, tot, perc, tipodet, codiva); } } else if (tipodoc == "FS") { // queste sono fatture che seguono scontrino, il lordo va detratto - // perche' si e' gia' registrato lo scontrino medesimo + // perche' si e' gia' registrato lo scontrino medesimo + true_corrisp = TRUE; // non e' vero ma non devono essere sommate ai falsi + // corrispettivi if (tipoiva == "VE") { real rr = imponibile + imposta; @@ -861,32 +875,29 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt) vendite += rr; add_vendite(month, reg, tipodet, rr); } - else + if (liq) { - if (liq) - { - vendite += imponibile; - vendite_iva += imposta; - } - imp += imponibile; - ivp += imposta; +// vendite -= imponibile; +// vendite_iva -= imposta; } - lor -= imponibile + imposta; - ifs += imponibile; - vfs += imposta; + imp -= imponibile; + ivp -= imposta; + lor -= imponibile + imposta; + ifs += imponibile; + vfs += imposta; } - else // vendite normali a tutti gli effetti - { - if (liq) - { - vendite += imponibile; - vendite_iva += imposta; - } - imp += imponibile; - ivp += imposta; - ifs += imponibile; - vfs += imposta; - _pim_r->put("I0",NETTO); + else // vendite normali a tutti gli effetti + { + if (liq) + { + vendite += imponibile; + vendite_iva += imposta; + } + imp += imponibile; + ivp += imposta; + fci += imponibile; + fcv += imposta; + _pim_r->put("I0",NETTO); } } // if corrisp else // non corrisp diff --git a/cg/cg4304.cpp b/cg/cg4304.cpp index 0319cb8e7..aa04ef725 100755 --- a/cg/cg4304.cpp +++ b/cg/cg4304.cpp @@ -36,21 +36,49 @@ void TLiquidazione_app::set_page(int file, int cnt) switch(d._flags) { - case CHG_PARMS: set_att(d); break; - case SET_FIRM: set_firm(d); break; - case PIM_ROW: set_pim(d); break; - case MISC_LIQ: set_pumpam(d); break; - case TOT_ROW: set_plm(d); break; - case PLAFOND: set_plafond(d); break; - case VENTILA: set_ventila(d); break; - case REGAGR: set_regagr(d); break; - case REGVIA: set_viaggio(d); break; - case THE_END: set_grand(d); break; - case ACCONTO: set_acconto_p(d); break; - case ACCHEAD: set_acchead_p(d); break; - case DELDEB: set_deltab(d, FALSE); break; - case DELCRED: set_deltab(d, TRUE); break; - } + case CHG_PARMS: + set_att(d); + break; + case SET_FIRM: + set_firm(d); + break; + case PIM_ROW: + set_pim(d); + break; + case MISC_LIQ: + set_pumpam(d); + break; + case TOT_ROW: + set_plm(d); + break; + case PLAFOND: + set_plafond(d); + break; + case VENTILA: + set_ventila(d); + break; + case REGAGR: + set_regagr(d); + break; + case REGVIA: + set_viaggio(d); + break; + case THE_END: + set_grand(d); + break; + case ACCONTO: + set_acconto_p(d); + break; + case ACCHEAD: + set_acchead_p(d); + break; + case DELDEB: + set_deltab(d, FALSE); + break; + case DELCRED: + set_deltab(d, TRUE); + break; + } } print_action TLiquidazione_app::postprocess_page(int file, int cnt) @@ -415,8 +443,8 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt) // vedi corrispettivi veri e falsi real cvi = _pim->get_real("R0"); // imp. totale real cvv = _pim->get_real("R1"); // iva totale - real cfi = _pim->get_real("R13"); // imp. falsi corrisp - real cfv = _pim->get_real("R13"); // iva falsi corrisp + real cfi = _pim->get_real("R13"); // imp. falsi corrispettivi + real cfv = _pim->get_real("R14"); // iva falsi corrispettivi if (corrisp) { @@ -428,13 +456,15 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt) { // usa R0 e R1 visto che la ventilazione e' gia' // stata calcolata - real ifs(_pim->get_real("R5")); - real vfs(_pim->get_real("R6")); + real ifs(_pim->get_real("R5")); // imp. fatture con scontrino + real vfs(_pim->get_real("R6")); // iva fatture con scontrino - d->_r2 += cvi - ifs; - d->_r3 += cvv - vfs; - t2 += cvi - ifs; - t3 += cvv - vfs; + d->_r2 += (cvi /* - ifs */); // tolgo FS dai corrispettivi + d->_r3 += (cvv /* - vfs */); + d->_r0 += ifs; // aggiungo FS alle vendite + d->_r1 += vfs; + t2 += (cvi /* - ifs */); // idem per i totali + t3 += (cvv /* - vfs */); t0 += ifs; t1 += vfs; } diff --git a/cg/cg4400.cpp b/cg/cg4400.cpp index 2c647e5cf..bab709a77 100755 --- a/cg/cg4400.cpp +++ b/cg/cg4400.cpp @@ -288,7 +288,7 @@ bool CG4400_application::mask_libun (TMask_field& f, KEY k) for (int i = 0; i < app()._ditte->items(); i++) { long ditta = app()._ditte->row(i).get_long(1); - if (prefix().exist(ditta)) + if (prefhndl->exist(ditta)) { app().set_firm(ditta); if (cod.not_empty()) @@ -625,7 +625,7 @@ void CG4400_application::build_nomiditte(TProgind* pnd) for (dt.first(); !dt.eof(); dt.next()) { // check no archivi - bool good = prefix().exist(dt.get_long("CODDITTA")); + bool good = prefhndl->exist(dt.get_long("CODDITTA")); if (good) { // check no parametri liquidazione