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

Patch level : 12.0 386

Browse Source 
Files correlati     : tf
Commento            : Ripulito il codice, adesso ha i calcoli separati dalla valorizzazione dei campi della maschera.

git-svn-id: svn://10.65.10.50/branches/R_10_00@23796 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-05-09 08:38:34 +00:00
parent 0295c4868b
commit f4c571b032
1 changed files with 34 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/tf/tf0200.cpp
View File

@ -30,14 +30,12 @@ const TCursor getPRM(int anno)
return cprm;
}
// Ritorna il record richiesto di tabcom.LIM
const TRectype getLIM(int anno, int mese)
{
TString key; key << anno;
if(mese < 10)
key << "0" << mese;
else
key << mese;
key << "0";
keyLim << mese;
return cache().get("LIM", key);
}
@ -53,9 +51,8 @@ const TRectype getLAM(int anno, int mese)
{
TString key; key << anno;
if(mese < 10)
key << "0" << mese;
else
key << mese;
key << "0";
key << mese;
return cache().get("LAM", key);
}
@ -561,6 +558,32 @@ void ComLiqPerIva_mask::extractinator() // Per gli amici GTFO
if(debprec > rowVer.get_real("R5")) // Se è maggiore di 25.82€ va azzerato
debprec = ZERO;
}
// Calcolo ivadov/ivadovc
ivadov = ivaes - ivadet;
ivadovc = ivadet - ivaes;
if(ivadov > ZERO)
{
ivadovc = ZERO;
}
else
{
ivadov = ZERO;
}
// Calcolo l'IVA da versare o a Credito
ivaver = (ivadov + debprec + intliqtri) - (ivadovc + creprec + creaprec + get_real(F_VEAUE) + get_real(F_CREIMP) + accdov);
ivaverc = (ivadovc + creprec + creaprec + get_real(F_VEAUE) + get_real(F_CREIMP) + accdov) - (ivadov + debprec + intliqtri);
// Controllo quale va sotto zero e la tolgo
if(ivaver >= ZERO)
{
ivaverc = ZERO;
}
else
{
ivaver = ZERO;
}
// Imposto tutti i campi
set(F_TOTOPATT, totopatt);
@ -573,21 +596,8 @@ void ComLiqPerIva_mask::extractinator() // Per gli amici GTFO
set(F_IVADET, ivadet);
set(F_IVADETXC, ivadetxc);
set(F_IVADETDIFF, ivadetdiff);
// Iva dovuta o a credito
if(ivaes - ivadet > ZERO)
{
ivadov = ivaes - ivadet;
set(F_IVADOV, ivadov);
set(F_IVADOVC, ZERO);
}
else
{
ivadovc = ivadet - ivaes;
set(F_IVADOV, ZERO);
set(F_IVADOVC, ivadovc);
}
set(F_IVADOV, ivadov);
set(F_IVADOVC, ivadovc);
set(F_DEBPREC, debprec);
set(F_CREPREC, creprec);
set(F_CREAPREC, creaprec);
@ -595,22 +605,8 @@ void ComLiqPerIva_mask::extractinator() // Per gli amici GTFO
//set(F_CREIMP, creimp);
set(F_INTLIQTRI, intliqtri);
set(F_ACCDOV, accdov);
// Calcolo l'IVA da versare o a Credito
ivaver = (ivadov + debprec + intliqtri) - (ivadovc + creprec + creaprec + get_real(F_VEAUE) + get_real(F_CREIMP) + accdov);
ivaverc = (ivadovc + creprec + creaprec + get_real(F_VEAUE) + get_real(F_CREIMP) + accdov) - (ivadov + debprec + intliqtri);
if(ivaver >= ZERO)
{
set(F_IVAVER, ivaver);
set(F_IVAVERC, ZERO);
}
else
{
set(F_IVAVER, ZERO);
set(F_IVAVERC, ivaverc);
}
set(F_IVAVER, ivaver);
set(F_IVAVERC, ivaverc);
set(F_RETTIFICHE, rettifiche);
set(F_VARIMP, varimp);
set(F_RIMBORSI, rimborsi);