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

Patch level : 12.0 384

Browse Source 
Files correlati     : cg4.exe
Commento            : Corretto in funzionamento per fatture per cassa pagate in anticipo e calcolo pro-rata per le fatture per cassa.

git-svn-id: svn://10.65.10.50/branches/R_10_00@23795 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-05-08 15:52:29 +00:00
parent ebe9b43673
commit 0295c4868b
1 changed files with 28 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/cg/cg4304.cpp
View File

@ -2514,21 +2514,35 @@ void TLiquidazione_app::set_grand_2000(_DescrItem& d, int &rw)
real xcasinc_iva = d._ra6;
real xcasinc_iva_acq = d._ra8;
if (has_module(ICAUT) && (!diffinc_iva.is_zero() || !diffinc_iva_acq.is_zero()))
{
real dimp, diva, ximp, xiva;
real perc_prorata;
// if (!diffinc_iva.is_zero() && calc_inc_diff(1, dimp, diva, ximp, xiva))
// {
// diffinc_iva = _imposta_inc_diff_ven;
// xcasinc_iva = _imposta_inc_cassa_ven;
// }
// if (!diffinc_iva_acq.is_zero() && calc_inc_diff(2, dimp, diva, ximp, xiva))
// {
// diffinc_iva_acq = _imposta_inc_diff_acq;
// xcasinc_iva_acq = _imposta_inc_cassa_acq;
// }
}
TString query = "USE PLM";
query << "\nFROM CODTAB=" << _year << "\nTO CODTAB=" << _year;
TISAM_recordset ip(query);
const TRectype& recp = ip.cursor()->curr();
for (bool ok = ip.move_first(); ok && perc_prorata == ZERO; ok = ip.move_next())
{
int m = atoi(ip.get("CODTAB").as_string().mid(10));
real p = ip.get("R12").as_real();
if (m == _month && (p > ZERO && p <= CENTO))
perc_prorata = p;
}
if (perc_prorata > ZERO)
{
if (diffinc_iva_acq != ZERO)
{
real ind = diffinc_iva_acq * perc_prorata / CENTO;
ind.round(TCurrency::get_firm_dec());
diffinc_iva_acq -= ind;
}
if (xcasinc_iva_acq != ZERO)
{
real ind = xcasinc_iva_acq * perc_prorata / CENTO;
ind.round(TCurrency::get_firm_dec());
xcasinc_iva_acq -= ind;
}
}
TToken_string tt(d._s0);
real iva_vend(tt.get(0));