X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/df1b03d578280d71fb839b437505dd283f6dd749..9596d4a4c336419ea3259932847d980bf391af2f:/SL/PriceSource/MasterData.pm

diff --git a/SL/PriceSource/MasterData.pm b/SL/PriceSource/MasterData.pm
index 3f7c11d5d..14fe88f34 100644
--- a/SL/PriceSource/MasterData.pm
+++ b/SL/PriceSource/MasterData.pm
@@ -20,6 +20,8 @@ sub available_prices {
     : ($self->make_lastcost,  $self->make_listprice);
 }
 
+sub available_discounts { }
+
 sub price_from_source {
   my ($self, $source, $spec) = @_;
 
@@ -35,11 +37,17 @@ sub best_price {
   : $_[0]->make_lastcost
 }
 
+sub best_discount { }
+
+sub unit_mul {
+  $_[0]->record_item ? $_[0]->record_item->unit_multiplier : 1
+}
+
 sub make_sellprice {
   my ($self) = @_;
 
   return SL::PriceSource::Price->new(
-    price        => $self->part->sellprice,
+    price        => $self->part->sellprice * $self->unit_mul,
     spec         => 'sellprice',
     description  => t8('Sellprice'),
     price_source => $self,
@@ -50,7 +58,7 @@ sub make_listprice {
   my ($self) = @_;
 
   return SL::PriceSource::Price->new(
-    price        => $self->part->listprice,
+    price        => $self->part->listprice * $self->unit_mul,
     spec         => 'listprice',
     description  => t8('List Price'),
     price_source => $self,
@@ -61,7 +69,7 @@ sub make_lastcost {
   my ($self) = @_;
 
   return SL::PriceSource::Price->new(
-    price        => $self->part->lastcost,
+    price        => $self->part->lastcost * $self->unit_mul,
     spec         => 'lastcost',
     description  => t8('Lastcost'),
     price_source => $self,