Revision dbd7c6a9
Von G. Richardson vor mehr als 5 Jahren hinzugefügt
| SL/Dev/Inventory.pm | ||
|---|---|---|
|
sub set_stock {
|
||
|
my (%params) = @_;
|
||
|
|
||
|
die "param part is missing or not an SL::DB::Part object" unless ref($params{part}) eq 'SL::DB::Part';
|
||
|
die "param part is missing or not an SL::DB::Part object"
|
||
|
unless ref($params{part}) eq 'SL::DB::Part';
|
||
|
|
||
|
my $part = delete $params{part};
|
||
|
die "qty is missing" unless $params{qty} or $params{abs_qty};
|
||
|
die "need a bin or default bin" unless $part->warehouse_id or $part->bin_id or $params{bin} or $params{bin_id};
|
||
| ... | ... | |
|
|
||
|
my $transfer_type = delete $params{transfer_type};
|
||
|
|
||
|
die "param transfer_type is not a SL::DB::TransferType object: " . Dumper($transfer_type) unless ref($transfer_type) eq 'SL::DB::TransferType';
|
||
|
die "param transfer_type is not a SL::DB::TransferType object: " . Dumper($transfer_type)
|
||
|
unless ref($transfer_type) eq 'SL::DB::TransferType';
|
||
|
|
||
|
my $shippingdate = delete $params{shippingdate} // DateTime->today;
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $transfer_type = delete $params{transfer_type} // 'stock';
|
||
|
|
||
|
my $transfer_type_obj = SL::DB::Manager::TransferType->find_by( direction => 'in', description => $transfer_type ) or die "Can't find transfer_type with direction in and descriptin " . $params{transfer_type};
|
||
|
my $transfer_type_obj = SL::DB::Manager::TransferType->find_by(
|
||
|
direction => 'in',
|
||
|
description => $transfer_type,
|
||
|
) or die "Can't find transfer_type with direction in and description " . $params{transfer_type};
|
||
|
|
||
|
$params{transfer_type} = $transfer_type_obj;
|
||
|
|
||
| ... | ... | |
|
|
||
|
my $transfer_type = delete $params{transfer_type} // 'shipped';
|
||
|
|
||
|
my $transfer_type_obj = SL::DB::Manager::TransferType->find_by( direction => 'out', description => $transfer_type ) or die "Can't find transfer_type with direction in and descriptin " . $params{transfer_type};
|
||
|
my $transfer_type_obj = SL::DB::Manager::TransferType->find_by(
|
||
|
direction => 'out',
|
||
|
description => $transfer_type,
|
||
|
) or die "Can't find transfer_type with direction in and description " . $params{transfer_type};
|
||
|
|
||
|
$params{transfer_type} = $transfer_type_obj;
|
||
|
|
||
| ... | ... | |
|
|
||
|
sub transfer_sales_delivery_order {
|
||
|
my ($sales_delivery_order) = @_;
|
||
|
die "first argument must be a sales delivery order Rose DB object" unless ref($sales_delivery_order) eq 'SL::DB::DeliveryOrder' and $sales_delivery_order->is_sales;
|
||
|
die "first argument must be a sales delivery order Rose DB object"
|
||
|
unless ref($sales_delivery_order) eq 'SL::DB::DeliveryOrder'
|
||
|
and $sales_delivery_order->is_sales;
|
||
|
|
||
|
die "the delivery order has already been delivered" if $sales_delivery_order->delivered;
|
||
|
|
||
| ... | ... | |
|
|
||
|
sub transfer_purchase_delivery_order {
|
||
|
my ($purchase_delivery_order) = @_;
|
||
|
die "first argument must be a purchase delivery order Rose DB object" unless ref($purchase_delivery_order) eq 'SL::DB::DeliveryOrder' and not $purchase_delivery_order->is_sales;
|
||
|
die "first argument must be a purchase delivery order Rose DB object"
|
||
|
unless ref($purchase_delivery_order) eq 'SL::DB::DeliveryOrder'
|
||
|
and not $purchase_delivery_order->is_sales;
|
||
|
|
||
|
my ($wh, $bin, $trans_type);
|
||
|
|
||
Auch abrufbar als: Unified diff
SL::Dev::Inventory - Typo und Formatierung
descriptin -> description
lange Zeilen in mehrere Zeilen umformatiert