projekt kivitendo

    # die "can't find shoporder with id $shop_order_id" unless $shop_order;

    #TODO Kundenabfrage so ändern, dass es nicht abricht

    # check inventory onhand > 0 and active = 1

    my $transferable = 0;

    foreach my $item (@$items) {

      my $part = SL::DB::Manager::Part->find_by(partnumber => $item->{partnumber});

      # TODO: qty direkt aus dem Lager holen und nicht von onhand

      $transferable = $part->{onhand} >= $item->{quantity} ? 1 : 0;

      $transferable = $part->{active} = 1 ? 1 : 0;

      last if $transferable == 0;

    }

    if ($transferable == 1 && $customer->{order_lock} == 0) {

      my $delivery_order = $order->convert_to_delivery_order(customer => $customer, employee => $employee);

      $delivery_order->save;

      my $snumbers = "deliveryordernumber_" . $delivery_order->donumber;

      SL::DB::History->new(

                        trans_id    => $delivery_order->id,

                        snumbers    => $snumbers,

                        employee_id => SL::DB::Manager::Employee->current->id,

                        addition    => 'SAVED',

                        what_done   => 'Shopimport->Order->Deliveryorder(MassTransfer)',

                      )->save();

      $order->link_to_record($delivery_order);

      my $delivery_order_items = $delivery_order->{orderitems};

      # Lagerentnahme

      # entsprechende defaults holen, falls standardlagerplatz verwendet werden soll

      my $test = $::instance_conf->get_transfer_default_use_master_default_bin;

      require SL::DB::Inventory;

      my $rose_db = SL::DB::Inventory->new->db;

      my $dbh = $db->dbh;

      my $default_warehouse_id;

      my $default_bin_id;

      my @parts_ids;

      my @transfers;

      my @errors;

      my $qty;

      my $stock_out;

      require SL::WH;

      require SL::IS;

      require SL::DB::DeliveryOrderItemsStock;

      foreach my $item (@{$delivery_order_items}) {

        my ($err, $wh_id, $bin_id) = IS->_determine_wh_and_bin($dbh, $::instance_conf,

                                                           $item->{parts_id},

                                                           $item->{qty},

                                                           $item->{unit}

                                                           );

        if (!@{ $err } && $wh_id && $bin_id) {

          my $delivery_order_items_stock = SL::DB::DeliveryOrderItemsStock->new;

          $delivery_order_items_stock->assign_attributes (

            'delivery_order_item_id'  => $item->{id},

            'qty'                     => $item->{qty},

            'unit'                    => $item->{unit},

            'warehouse_id'            => $wh_id,

            'bin_id'                  => $bin_id,

          );

          $delivery_order_items_stock->save;

          my ($trans_id) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT nextval('id')|);

          my $wh_transfer = SL::DB::Inventory->new;

          $wh_transfer->assign_attributes (

            'trans_id'                      => $trans_id,

            'employee'                      => $employee->{id},

            'bestbefore'                    => undef,

            'chargenumber'                  => '',

            'shippingdate'                  => DateTime->today,

            'delivery_order_items_stock_id' => $delivery_order_items_stock->id,

            'project_id'                    => '',

            'parts_id'                      => $item->{parts_id},

            'qty'                           => $item->{qty} * -1,

            'trans_type_id'              => 889,#hardcodiert

            'warehouse_id'                  => $wh_id,

            'bin_id'                        => $bin_id,

            'comment'                       => $main::locale->text("Default transfer delivery order"),

            'oe_id'                         => $delivery_order->{id},

          );

          $wh_transfer->save;

        }

        push @errors, @{ $err };

      }

      if (!@errors) {

          $delivery_order->delivered(1);

          $delivery_order->save;

      }