X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/82515b2d93dc5632f24d6e0b6f8f05f3fd19fbb0..4180aaea33e9ff3bb35f3fa6cf91651a6225f7ad:/SL/DB/DeliveryOrderItem.pm

diff --git a/SL/DB/DeliveryOrderItem.pm b/SL/DB/DeliveryOrderItem.pm
index 8b836ee15..d50a63ff4 100644
--- a/SL/DB/DeliveryOrderItem.pm
+++ b/SL/DB/DeliveryOrderItem.pm
@@ -3,18 +3,25 @@ package SL::DB::DeliveryOrderItem;
 use strict;
 
 use SL::DB::MetaSetup::DeliveryOrderItem;
-
-for my $field (qw(qty sellprice discount base_qty lastcost price_factor marge_price_factor)) {
-  __PACKAGE__->attr_number($field, places => -2);
-}
+use SL::DB::Helper::CustomVariables (
+  sub_module  => 'delivery_order_item',
+  cvars_alias => 1,
+  overloads   => {
+    parts_id => 'SL::DB::Part',
+  },
+);
 
 __PACKAGE__->meta->make_manager_class;
+__PACKAGE__->meta->add_relationship(
+  unit_obj       => {
+    type         => 'many to one',
+    class        => 'SL::DB::Unit',
+    column_map   => { unit => 'name' },
+  },
+);
 
-# methods
+__PACKAGE__->meta->initialize;
 
-sub part {
-  # canonial alias for parts.
-  return shift->parts;
-}
+# methods
 
 1;