X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/612e3ebee1757bdc62db37fa348f028c36157ed4..04caff2d7309da75f53424675795addff173f32c:/SL/AP.pm diff --git a/SL/AP.pm b/SL/AP.pm index 92dc733ad..e8dd4958a 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -482,7 +482,7 @@ sub ap_transactions { } if ($form->{project_id}) { $where .= - qq|AND ((a.globalproject_id = ?) OR EXISTS | . + qq| AND ((a.globalproject_id = ?) OR EXISTS | . qq| (SELECT * FROM invoice i | . qq| WHERE i.project_id = ? AND i.trans_id = a.id) | . qq| OR EXISTS | . @@ -509,7 +509,7 @@ sub ap_transactions { if ($form->{parts_partnumber}) { $where .= <{parts_description}) { $where .= <{acc_trans}{$key}->[$i - 1]->{index}; - $form->{"tax_$index"} = $form->{acc_trans}{$key}->[$i - 1]->{amount} * -1; + $form->{"tax_$index"} = $form->round_amount($form->{acc_trans}{$key}->[$i - 1]->{amount} * -1 / $exchangerate, 2); $totaltax += $form->{"tax_$index"}; } else {