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;