From cff6e70a0659626d7af0b1c3cb14a18245fc7001 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Sun, 5 Dec 2021 22:40:12 +0100 Subject: [PATCH] SL::Dev: Lieferschein typen --- SL/Dev/Record.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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, -- 2.20.1