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

Patch level : 10.0 940

Browse Source 
Files correlati     : tc2.exe
Ricompilazione Demo : [ ]
Commento            :

Corretto il sego delle righe iva sui movimenti


git-svn-id: svn://10.65.10.50/branches/R_10_00@21682 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2011-02-17 19:04:13 +00:00
parent f93632a43c
commit b0170c9f1b
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tc/tc2700.cpp
View File

@ -1168,7 +1168,7 @@ void TIP_sender::add_mov_iva(TISAM_recordset & mov, TIP_movimenti_textset & ipmo
add_mov_cg(mov, ipmov, reg_regol, prot_regol, 'T');
const int anno = mov.get(MOV_ANNOIVA).as_int();
const TCausale & caus = _causali->causale(mov.get(MOV_CODCAUS).as_string(), anno);
const real fattore = test_swap(mov) ? -UNO : UNO;
const char sezione = caus.sezione(2);
char tipocf = mov.get(MOV_TIPO).as_string()[0];
long codcf = mov.get(MOV_CODCF).as_int();
TToken_string key;
@ -1216,10 +1216,12 @@ void TIP_sender::add_mov_iva(TISAM_recordset & mov, TIP_movimenti_textset & ipmo
analizza_IVA(imponibile, imposta, perc, false, true, rivamov.get(RMI_CODIVA).as_string(),
impdet, ivadet, impind, ivaind); // attenzione ai corrispettivi
ipmov.set("Importo_Lire", (impdet + impind) * fattore);
ipmov.set("Imponibile_IVA", imponibile * fattore);
const real totimp = impdet + impind;
const real fattore = (sezione == 'D' ? UNO : -UNO) * totimp.sign();
ipmov.set("Importo_Lire", totimp * fattore);
ipmov.set("Imponibile_IVA", abs(imponibile));
ipmov.set("ID_IVA", scod2ricl(IVA, rivamov.get(RMI_CODIVA)));
ipmov.set("Importo_IVA", imposta * fattore);
ipmov.set("Importo_IVA", abs(imposta));
ipmov.set("Indetraibilità", ind2perc(rivamov.get(RMI_TIPODET)));
ipmov.set("ID_CauRiga", "" ); // finire
ipmov.set("ID_RegIVA_Vendite", reg_regol);