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;

      }

-- @tag: df_shoporder

-- @description: Feld Auftragssperre in der shoporder Tabelle

-- @depends: release_3_4_0

ALTER TABLE shop_orders ADD COLUMN df_kivi_customer_order_lock boolean DEFAULT FALSE NOT NULL;

-- @tag: df_shoporder3

-- @description: Feld df_kivi_customer_order_lock in der shoporder Tabelle wieder gelösch da order_lock direkt aus den Kundendaten genommen wird. Tabellen customer und shop_order sind Verknüpft. Spalte obsolete hinzgefügt

-- @depends: release_3_4_0

ALTER TABLE shop_orders DROP COLUMN df_kivi_customer_order_lock;

ALTER TABLE shop_orders ADD COLUMN obsolete boolean DEFAULT FALSE NOT NULL;

-- @tag: df_shoporder_2

-- @description: Feld Positionen in der shoporder Tabelle

-- @depends: release_3_4_0

ALTER TABLE shop_orders ADD COLUMN positions integer;

-- @depends: release_3_3_0

  transferred boolean DEFAULT FALSE,    -- übernommen 

  oe_transid integer,  -- id to 

  shop_id       INTEGER,  --kann als Sortorder benutzt werden

-- @tag: shop_orders_2

-- @description: Hinzufügen der Spalte Position in der Tabelle shop_order_items

-- @depends: release_3_3_0

ALTER TABLE shop_order_items ADD COLUMN position integer;

-- @depends: release_3_3_0 shops

  shop_category    TEXT,

  meta_tags        TEXT,

-- CREATE TABLE shop_meta_tags (

-- id integer NOT NULL DEFAULT nextval('shop_parts_id'),

 --  description

-- );

-- CREATE TABLE shop_categories (

-- );

-- @tag: shop_parts_2

-- @description: Add tables for part information for shop

-- @charset: UTF-8

-- @depends: release_3_3_0 shops

-- @ignore: 0

ALTER TABLE shop_parts ALTER COLUMN shop_category TYPE TEXT[] USING array[shop_category];

-- @tag: shop_parts_4

-- @description: Add tables for part information for shop

-- @charset: UTF-8

-- @depends: release_3_3_0 shops

-- @ignore: 0

ALTER TABLE shop_parts ADD COLUMN active_price_source text;

ALTER TABLE shop_parts ADD COLUMN metatag_keywords text;

ALTER TABLE shop_parts ADD COLUMN metatag_description text;

ALTER TABLE shop_parts ADD COLUMN metatag_title text;

ALTER TABLE shop_parts DROP COLUMN meta_tags;

-- @depends: release_3_3_0

-- @tag: shops2

-- @description: Alter table shops more columns for configuration

-- @charset: UTF-8

-- @depends: release_3_4_0 shops

-- @ignore: 0

ALTER TABLE shops ADD COLUMN last_order_number integer;

ALTER TABLE shops ADD COLUMN orders_to_fetch integer;

-- @tag: shops3

-- @description: Alter table shops more columns for configuration

-- @charset: UTF-8

-- @depends: release_3_4_0 shops

-- @ignore: 0

ALTER TABLE shops ADD COLUMN taxzone_id integer;