Revision e3329d46
Von G. Richardson vor mehr als 12 Jahren hinzugefügt
| SL/VK.pm | ||
|---|---|---|
| 51 | 51 |
my @values; |
| 52 | 52 |
|
| 53 | 53 |
my $query = |
| 54 |
qq|SELECT cus.name,cus.customernumber,ar.invnumber,ar.id,ar.transdate,p.partnumber,i.parts_id,i.qty,i.price_factor,i.discount,i.description,i.lastcost,i.sellprice,i.marge_total,i.marge_percent,i.unit | . |
|
| 54 |
qq|SELECT cus.name,cus.customernumber,ar.invnumber,ar.id,ar.transdate,p.partnumber,i.parts_id,i.qty,i.price_factor,i.discount,i.description,i.lastcost,i.sellprice,i.fxsellprice,i.marge_total,i.marge_percent,i.unit | .
|
|
| 55 | 55 |
qq|FROM invoice i | . |
| 56 | 56 |
qq|join ar on (i.trans_id = ar.id) | . |
| 57 | 57 |
qq|join parts p on (i.parts_id = p.id) | . |
| bin/mozilla/vk.pl | ||
|---|---|---|
| 241 | 241 |
# discount was already accounted for in db sellprice |
| 242 | 242 |
$ar->{sellprice} = $ar->{sellprice} / $ar->{price_factor};
|
| 243 | 243 |
$ar->{lastcost} = $ar->{lastcost} / $ar->{price_factor};
|
| 244 |
$ar->{sellprice_total} = $ar->{qty} * $ar->{sellprice};
|
|
| 244 |
$ar->{sellprice_total} = $ar->{qty} * ( $ar->{fxsellprice} * ( 1 - $ar->{discount} ) ) ;
|
|
| 245 | 245 |
$ar->{lastcost_total} = $ar->{qty} * $ar->{lastcost};
|
| 246 | 246 |
# marge_percent wird neu berechnet, da Wert in invoice leer ist (Bug) |
| 247 | 247 |
$ar->{marge_percent} = $ar->{sellprice_total} ? (($ar->{sellprice_total}-$ar->{lastcost_total}) / $ar->{sellprice_total}) : 0;
|
Auch abrufbar als: Unified diff
Verkaufsbericht: genauere Berechnung von sellprice_total
Gleiche Berechnung wie in Rechnung.
Summe aus Verkaufsbericht sollte mit Summe aus Verkauf->Berichte->Rechnungen übereinstimmen.