use SL::DB::Invoice;
use SL::DB::Order;
use SL::DB::DeliveryOrder;
+use SL::DB::DeliveryOrder::TypeData qw(:types);
use SL::DB::Part;
use SL::DB::Unit;
use SL::DB::TaxZone;
employee_id => $employee->id,
salesman_id => $employee->id,
taxzone_id => $taxzone->id,
+ order_type => SALES_DELIVERY_ORDER_TYPE,
%params,
)->save;
}
is $links->{$o1->id}[0]->id, $i1->id, "batch recursive by_id direction both 4";
is $links->{$o2->id}[0]->id, $i2->id, "batch recursive by_id direction both 5";
+clear_up();
+
1;