+sub create_sales_delivery_order {
+ my (%params) = @_;
+
+ my $record_type = 'sales_delivery_order';
+ my $orderitems = delete $params{orderitems} // _create_two_items($record_type);
+ _check_items($orderitems, $record_type);
+
+ my $customer = $params{customer} // SL::Dev::CustomerVendor::create_customer(name => 'Testcustomer')->save;
+ die "illegal customer" unless ref($customer) eq 'SL::DB::Customer';
+
+ my $delivery_order = SL::DB::DeliveryOrder->new(
+ 'is_sales' => 'true',
+ 'closed' => undef,
+ customer_id => $customer->id,
+ taxzone_id => $customer->taxzone_id,
+ donumber => $params{donumber} // undef,
+ currency_id => $params{currency_id} // $::instance_conf->get_currency_id,
+ taxincluded => $params{taxincluded} // 0,
+ employee_id => $params{employee_id} // SL::DB::Manager::Employee->current->id,
+ salesman_id => $params{employee_id} // SL::DB::Manager::Employee->current->id,
+ transdate => $params{transdate} // DateTime->today_local->to_kivitendo,
+ orderitems => $orderitems,
+ %params
+ );
+ $delivery_order->save;
+ return $delivery_order;
+}
+
+sub create_sales_order {
+ my (%params) = @_;
+
+ my $record_type = 'sales_order';
+ my $orderitems = delete $params{orderitems} // _create_two_items($record_type);
+ _check_items($orderitems, $record_type);
+
+ my $save = delete $params{save} // 0;
+
+ my $customer = $params{customer} // SL::Dev::CustomerVendor::create_customer(name => 'Testcustomer')->save;
+ die "illegal customer" unless ref($customer) eq 'SL::DB::Customer';
+
+ my $order = SL::DB::Order->new(
+ customer_id => delete $params{customer_id} // $customer->id,
+ taxzone_id => delete $params{taxzone_id} // $customer->taxzone->id,
+ currency_id => delete $params{currency_id} // $::instance_conf->get_currency_id,
+ taxincluded => delete $params{taxincluded} // 0,
+ # employee_id => delete $params{employee_id} // SL::DB::Manager::Employee->current->id,
+ # salesman_id => delete $params{employee_id} // SL::DB::Manager::Employee->current->id,
+ transdate => delete $params{transdate} // DateTime->today_local->to_kivitendo,
+ orderitems => $orderitems,
+ %params
+ );
+
+ if ( $save ) {
+ $order->calculate_prices_and_taxes;
+ $order->save;
+ }
+ return $order;
+}
+
+sub create_purchase_order {
+ my (%params) = @_;
+
+ my $record_type = 'purchase_order';
+ my $orderitems = delete $params{orderitems} // _create_two_items($record_type);
+ _check_items($orderitems, $record_type);
+
+ my $save = delete $params{save} // 0;
+
+ my $vendor = $params{vendor} // SL::Dev::CustomerVendor::create_vendor(name => 'Testvendor')->save;
+ die "illegal vendor" unless ref($vendor) eq 'SL::DB::Vendor';
+
+ my $order = SL::DB::Order->new(
+ vendor_id => delete $params{vendor_id} // $vendor->id,
+ taxzone_id => delete $params{taxzone_id} // $vendor->taxzone->id,
+ currency_id => delete $params{currency_id} // $::instance_conf->get_currency_id,
+ taxincluded => delete $params{taxincluded} // 0,
+ transdate => delete $params{transdate} // DateTime->today_local->to_kivitendo,
+ 'closed' => undef,
+ orderitems => $orderitems,
+ %params
+ );
+
+ if ( $save ) {
+ $order->calculate_prices_and_taxes; # not tested for purchase orders
+ $order->save;
+ }
+ return $order;
+};
+
+sub _check_items {
+ my ($items, $record_type) = @_;
+
+ if ( scalar @{$items} == 0 or grep { ref($_) ne $record_type_to_item_type{"$record_type"} } @{$items} ) {
+ die "Error: items must be an arrayref of " . $record_type_to_item_type{"$record_type"} . "objects.";
+ }
+}
+