projekt kivitendo

use SL::DB::DeliveryOrder::TypeData qw(:types);

sub action_to_delivery_order {

  my ($self) = @_;

  my $order = $self->order;

  my $delivery_order = SL::Model::Record->new_from_workflow(

    $order,

    SALES_DELIVERY_ORDER_TYPE(),

    {

      no_linked_records => 1, # order is not saved

    }

  );

  # $main::lxdebug->dump(0, "TST: ", $delivery_order);

  # $main::lxdebug->dump(0, "TST: ", $delivery_order->items());

}