X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FPriceSource%2FMasterData.pm;h=bf22c99eac07dda0fce3952a11d65d9b08a32f4a;hb=958b82d600cebec78ff208257b1fd348ee0439bf;hp=e7ca2a3cc9f65025fa51d1c1c83600cde0152f9d;hpb=89b2668811eac6023ad58322e2f9970ddb6a27c9;p=kivitendo-erp.git

diff --git a/SL/PriceSource/MasterData.pm b/SL/PriceSource/MasterData.pm
index e7ca2a3cc..bf22c99ea 100644
--- a/SL/PriceSource/MasterData.pm
+++ b/SL/PriceSource/MasterData.pm
@@ -31,6 +31,8 @@ sub price_from_source {
   : do { die "unknown spec '$spec'" };
 }
 
+sub discount_from_source { }
+
 sub best_price {
   $_[0]->record->is_sales
   ? $_[0]->make_sellprice
@@ -39,11 +41,15 @@ sub best_price {
 
 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,
@@ -54,7 +60,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,
@@ -65,10 +71,11 @@ 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,
+    priority     => 2,
   );
 }