From 165c60399922e476a075f4c8aedef6055f7c2799 Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Wed, 13 Jun 2012 16:51:06 +0200 Subject: [PATCH] Verkaufsbericht: genauere Berechnung von sellprice_total (2. Mal) MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit War schon in Commit e3329d46a4c2ed19172f9c9ed8251af03cbc1905 drin, ist aber bei Überarbeitung verlogen gegangen. Gleiche Berechnung wie in Rechnung unter Berücksichtigung von fxsellprice und discount. Summe aus Verkaufsbericht sollte mit Summe aus Verkauf->Berichte->Rechnungen übereinstimmen. --- SL/VK.pm | 2 +- bin/mozilla/vk.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/VK.pm b/SL/VK.pm index 413574611..9cf8bed8b 100644 --- a/SL/VK.pm +++ b/SL/VK.pm @@ -51,7 +51,7 @@ sub invoice_transactions { my @values; my $query = - qq|SELECT ct.id as customerid, ct.name as customername,ct.customernumber,ct.country,ar.invnumber,ar.id,ar.transdate,p.partnumber,pg.partsgroup,i.parts_id,i.qty,i.price_factor,i.discount,i.description as description,i.lastcost,i.sellprice,i.marge_total,i.marge_percent,i.unit,b.description as business,e.name as employee,e2.name as salesman, to_char(ar.transdate,'Month') as month, to_char(ar.transdate, 'YYYYMM') as nummonth | . + qq|SELECT ct.id as customerid, ct.name as customername,ct.customernumber,ct.country,ar.invnumber,ar.id,ar.transdate,p.partnumber,pg.partsgroup,i.parts_id,i.qty,i.price_factor,i.discount,i.description as description,i.lastcost,i.sellprice,i.fxsellprice,i.marge_total,i.marge_percent,i.unit,b.description as business,e.name as employee,e2.name as salesman, to_char(ar.transdate,'Month') as month, to_char(ar.transdate, 'YYYYMM') as nummonth | . qq|FROM invoice i | . qq|JOIN ar on (i.trans_id = ar.id) | . qq|JOIN parts p on (i.parts_id = p.id) | . diff --git a/bin/mozilla/vk.pl b/bin/mozilla/vk.pl index ef99388e2..9e9116e42 100644 --- a/bin/mozilla/vk.pl +++ b/bin/mozilla/vk.pl @@ -329,7 +329,7 @@ sub invoice_transactions { # discount was already accounted for in db sellprice $ar->{sellprice} = $ar->{sellprice} / $ar->{price_factor}; $ar->{lastcost} = $ar->{lastcost} / $ar->{price_factor}; - $ar->{sellprice_total} = $ar->{qty} * $ar->{sellprice}; + $ar->{sellprice_total} = $ar->{qty} * ( $ar->{fxsellprice} * ( 1 - $ar->{discount} ) ) ; $ar->{lastcost_total} = $ar->{qty} * $ar->{lastcost}; # marge_percent wird neu berechnet, da Wert in invoice leer ist (Bug) $ar->{marge_percent} = $ar->{sellprice_total} ? (($ar->{sellprice_total}-$ar->{lastcost_total}) / $ar->{sellprice_total} * 100) : 0; -- 2.20.1