RecordItem: unit_muiltiplier Methode

diff --git a/SL/DB/DeliveryOrderItem.pm b/SL/DB/DeliveryOrderItem.pm
index de7587cfd9b721d90af4956b684c3d020eb4dcb7..ba2c2e09923e6d5495cdea3108f172c73cce9ccf 100644 (file)
--- a/SL/DB/DeliveryOrderItem.pm
+++ b/SL/DB/DeliveryOrderItem.pm
@@ -5,6 +5,7 @@ use strict;
 use SL::DB::MetaSetup::DeliveryOrderItem;
 use SL::DB::Helper::ActsAsList;
 use SL::DB::Helper::LinkedRecords;
+use SL::DB::Helper::RecordItem;
 use SL::DB::Helper::CustomVariables (
   sub_module  => 'delivery_order_items',
   cvars_alias => 1,

diff --git a/SL/DB/Helper/RecordItem.pm b/SL/DB/Helper/RecordItem.pm
new file mode 100644 (file)
index 0000000..020128d
--- /dev/null
+++ b/SL/DB/Helper/RecordItem.pm
@@ -0,0 +1,17 @@
+package SL::DB::Helper::RecordItem;
+
+use strict;
+use parent qw(Exporter);
+
+our @EXPORT = qw(base_sellprice unit_multiplier);
+
+sub base_sellprice {
+  $_[0]->sellprice / $_[0]->unit_multiplier;
+}
+
+sub unit_multiplier {
+  $_[0]->unit_obj->convert_to(1, $_[0]->part->unit_obj)
+}
+
+
+1;

diff --git a/SL/DB/InvoiceItem.pm b/SL/DB/InvoiceItem.pm
index a20f56fc9991beb92cc6c86f7b7a96bf5a6b972a..80c406b772b11afe5bacd6f95b0e2eab7ccd101a 100644 (file)
--- a/SL/DB/InvoiceItem.pm
+++ b/SL/DB/InvoiceItem.pm
@@ -5,6 +5,7 @@ use strict;
 use SL::DB::MetaSetup::InvoiceItem;
 use SL::DB::Helper::ActsAsList;
 use SL::DB::Helper::LinkedRecords;
+use SL::DB::Helper::RecordItem;
 use SL::DB::Helper::CustomVariables (
   sub_module  => 'invoice',
   cvars_alias => 1,

diff --git a/SL/DB/OrderItem.pm b/SL/DB/OrderItem.pm
index 6ab16ac2a92c72cf74ed9c2c519be2b1e075fc5a..8ae5e0bddc97fd06e36bdde908cf9d1ab0bb6c8c 100644 (file)
--- a/SL/DB/OrderItem.pm
+++ b/SL/DB/OrderItem.pm
@@ -9,6 +9,7 @@ use SL::DB::Manager::OrderItem;
 use SL::DB::DeliveryOrderItemsStock;
 use SL::DB::Helper::ActsAsList;
 use SL::DB::Helper::LinkedRecords;
+use SL::DB::Helper::RecordItem;
 use SL::DB::Helper::CustomVariables (
   sub_module  => 'orderitems',
   cvars_alias => 1,