Revision 415437ab
Von Werner Hahn vor mehr als 8 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 47 | 47 |
|
| 48 | 48 |
my ($self, @args) = @_; |
| 49 | 49 |
|
| 50 |
$main::lxdebug->dump(0, 'WH: TRANSFER @_',\@_); |
|
| 51 |
$main::lxdebug->dump(0, 'WH: TRANSFER SELF',\$self); |
|
| 50 | 52 |
if (!@args) {
|
| 51 | 53 |
$::lxdebug->leave_sub; |
| 52 | 54 |
return; |
| ... | ... | |
| 63 | 65 |
|
| 64 | 66 |
my $objectify = sub {
|
| 65 | 67 |
my ($transfer, $field, $class, @find_by) = @_; |
| 68 |
$main::lxdebug->dump(0, 'WH: TRANSFER II @_',\@_); |
|
| 69 |
$main::lxdebug->dump(0, 'WH: TRANSFER II TRANSFER',\$transfer); |
|
| 66 | 70 |
|
| 67 | 71 |
@find_by = (description => $transfer->{$field}) unless @find_by;
|
| 68 | 72 |
|
| ... | ... | |
| 79 | 83 |
my $db = SL::DB::Inventory->new->db; |
| 80 | 84 |
$db->with_transaction(sub{
|
| 81 | 85 |
while (my $transfer = shift @args) {
|
| 86 |
$main::lxdebug->dump(0, 'WH: WAREHOUSE TRANSFER ',\$transfer); |
|
| 82 | 87 |
my ($trans_id) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT nextval('id')|);
|
| 83 | 88 |
|
| 84 | 89 |
my $part = $objectify->($transfer, 'parts', 'SL::DB::Part'); |
| ... | ... | |
| 110 | 115 |
? $now : $transfer->{shippingdate},
|
| 111 | 116 |
map { $_ => $transfer->{$_} } qw(chargenumber bestbefore oe_id delivery_order_items_stock_id invoice_id comment),
|
| 112 | 117 |
); |
| 113 |
|
|
| 118 |
my $unit_obj = $part->unit_obj;## |
|
| 119 |
$main::lxdebug->dump(0, 'WH: WAREHOUSE PART:', \$part); |
|
| 120 |
$main::lxdebug->dump(0, "WH: WAREHOUSE I QTY: $qty --", \$unit); |
|
| 114 | 121 |
if ($unit) {
|
| 122 |
$main::lxdebug->message(0, "WH: WAREHOUSE $qty -- $unit -- $part->unit_obj"); |
|
| 115 | 123 |
$qty = $unit->convert_to($qty, $part->unit_obj); |
| 116 | 124 |
} |
| 117 | 125 |
|
Auch abrufbar als: Unified diff
Backgroundjob Shoporder->Auftrag->Lieferschein (auslagern) mit debugmeldungen
Positionen werden beim Shopimport schon nach Artikelnummern geordnet - neue Spalte Position.
Conflicts:
SL/Controller/ShopOrder.pm
SL/ShopConnector/Shopware.pm