projekt kivitendo

  my $customer = SL::DB::Manager::Customer->find_by(id => $::form->{customer});

  die "Can't find customer" unless $customer;

  my $employee = SL::DB::Manager::Employee->current;

  die "Can't load shop_order form form->import_id" unless $self->shop_order;

  my $order = $self->shop_order->convert_to_sales_order(customer => $customer, employee => $employee);

  $order->calculate_prices_and_taxes;

      $self->shop_order->transferred(1);

      $self->shop_order->transfer_date(DateTime->now_local);

      $self->shop_order->save;

      $self->shop_order->link_to_record($order);

    }) || die $order->db->error;

  }

}