From: Sven Schöling <s.schoeling@googlemail.com>
Date: Sun, 5 Dec 2021 21:40:12 +0000 (+0100)
Subject: SL::Dev: Lieferschein typen
X-Git-Tag: kivitendo-mebil_0.1-0~10^2~2^2~216^2~42
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=cff6e70a0659626d7af0b1c3cb14a18245fc7001;p=kivitendo-erp.git

SL::Dev: Lieferschein typen
---

diff --git a/SL/Dev/Record.pm b/SL/Dev/Record.pm
index 2f289d0b4..73f06d0f5 100644
--- a/SL/Dev/Record.pm
+++ b/SL/Dev/Record.pm
@@ -20,6 +20,7 @@ our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
 
 use SL::DB::Invoice;
 use SL::DB::InvoiceItem;
+use SL::DB::DeliveryOrder::TypeData qw(:types);
 use SL::DB::Employee;
 use SL::Dev::Part qw(new_part);
 use SL::Dev::CustomerVendor qw(new_vendor new_customer);
@@ -116,7 +117,7 @@ sub create_sales_delivery_order {
   die "illegal customer" unless ref($customer) eq 'SL::DB::Customer';
 
   my $delivery_order = SL::DB::DeliveryOrder->new(
-    'is_sales'   => 'true',
+    order_type   => SALES_DELIVERY_ORDER_TYPE,
     'closed'     => undef,
     customer_id  => $customer->id,
     taxzone_id   => $customer->taxzone_id,
@@ -144,7 +145,7 @@ sub create_purchase_delivery_order {
   die "illegal customer" unless ref($vendor) eq 'SL::DB::Vendor';
 
   my $delivery_order = SL::DB::DeliveryOrder->new(
-    'is_sales'   => 'false',
+    order_type   => PURCHASE_DELIVERY_ORDER_TYPE,
     'closed'     => undef,
     vendor_id    => $vendor->id,
     taxzone_id   => $vendor->taxzone_id,