Revision 27bba4dc
Von Werner Hahn vor mehr als 2 Jahren hinzugefügt
| SL/Controller/DeliveryOrder.pm | ||
|---|---|---|
|
# You need a custom shipto object to call cvars_by_config to get the cvars.
|
||
|
$self->order->custom_shipto(SL::DB::Shipto->new(module => 'OE', custom_variables => [])) if !$self->order->custom_shipto;
|
||
|
|
||
|
$self->prepare_stock_info($_) for $self->order->items;
|
||
|
$self->order->prepare_stock_info($_) for $self->order->items;
|
||
|
|
||
|
return $self->order;
|
||
|
}
|
||
| ... | ... | |
|
$pos++;
|
||
|
}
|
||
|
|
||
|
$self->prepare_stock_info($_) for $order->items, @items;
|
||
|
|
||
|
$order->add_items(grep {!$_->id} @items);
|
||
|
|
||
|
return $order;
|
||
| ... | ... | |
|
return $item;
|
||
|
}
|
||
|
|
||
|
sub prepare_stock_info {
|
||
|
my ($self, $item) = @_;
|
||
|
|
||
|
$item->{stock_info} = SL::YAML::Dump([
|
||
|
map +{
|
||
|
delivery_order_items_stock_id => $_->id,
|
||
|
qty => $_->qty,
|
||
|
warehouse_id => $_->warehouse_id,
|
||
|
bin_id => $_->bin_id,
|
||
|
chargenumber => $_->chargenumber,
|
||
|
unit => $_->unit,
|
||
|
}, $item->delivery_order_stock_entries
|
||
|
]);
|
||
|
}
|
||
|
|
||
|
sub setup_order_from_cv {
|
||
|
my ($order) = @_;
|
||
|
|
||
| SL/DB/Helper/FlattenToForm.pm | ||
|---|---|---|
|
use strict;
|
||
|
|
||
|
use parent qw(Exporter);
|
||
|
our @EXPORT = qw(flatten_to_form);
|
||
|
our @EXPORT = qw(flatten_to_form prepare_stock_info);
|
||
|
|
||
|
use List::MoreUtils qw(uniq any);
|
||
|
|
||
| ... | ... | |
|
$form->{"deliverydate_oe_${idx}"} = $date;
|
||
|
$form->{"reqdate_${idx}"} = $date;
|
||
|
}
|
||
|
if (ref($self) eq 'SL::DB::DeliveryOrder'){
|
||
|
my $in_out = $form->{type} =~ /^sales|^supplier/ ? 'out' : 'in';
|
||
|
$form->{"stock_" . $in_out . "_" . ${idx}} = prepare_stock_info($self,$item);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
_copy_custom_variables($self, $form, 'vc_cvar_', '', $cvar_validity{vc});
|
||
| ... | ... | |
|
return $self;
|
||
|
}
|
||
|
|
||
|
sub prepare_stock_info {
|
||
|
my ($self, $item) = @_;
|
||
|
|
||
|
$item->{stock_info} = SL::YAML::Dump([
|
||
|
map +{
|
||
|
delivery_order_items_stock_id => $_->id,
|
||
|
qty => $_->qty,
|
||
|
warehouse_id => $_->warehouse_id,
|
||
|
bin_id => $_->bin_id,
|
||
|
chargenumber => $_->chargenumber,
|
||
|
unit => $_->unit,
|
||
|
}, $item->delivery_order_stock_entries
|
||
|
]);
|
||
|
}
|
||
|
|
||
|
sub _has {
|
||
|
my ($obj, $column) = @_;
|
||
|
return $obj->can($column) && $obj->$column;
|
||
| SL/DO.pm | ||
|---|---|---|
|
(SELECT description FROM warehouse WHERE id = ?) AS warehouse|;
|
||
|
my $h_bin_wh = prepare_query($form, $dbh, $q_bin_wh);
|
||
|
|
||
|
my $in_out = $form->{type} =~ /^sales/ ? 'out' : 'in';
|
||
|
my $in_out = $form->{type} =~ /^sales|^supplier/ ? 'out' : 'in';
|
||
|
|
||
|
my $num_si = 0;
|
||
|
|
||
Auch abrufbar als: Unified diff
Beistelllieferschein/DeliveryOrder Lagerbuchungen mit in die Druckvariablen aufgenommen