From f4c571b0323456366f1305e2aae4d940145165b1 Mon Sep 17 00:00:00 2001 From: mtollari Date: Tue, 9 May 2017 08:38:34 +0000 Subject: [PATCH] Patch level : 12.0 386 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 --- src/tf/tf0200.cpp | 72 ++++++++++++++++++++++------------------------- 1 file changed, 34 insertions(+), 38 deletions(-) diff --git a/src/tf/tf0200.cpp b/src/tf/tf0200.cpp index 559dcc665..af20bbabc 100644 --- a/src/tf/tf0200.cpp +++ b/src/tf/tf0200.cpp @@ -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);