X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f99423f0ba0ec475f919305842b60d1435c901a8..7447778283539ba5f36a43c97fcea3bc4f551729:/SL/Controller/Inventory.pm diff --git a/SL/Controller/Inventory.pm b/SL/Controller/Inventory.pm index 2afd911b9..2a5b8de4a 100644 --- a/SL/Controller/Inventory.pm +++ b/SL/Controller/Inventory.pm @@ -28,6 +28,7 @@ __PACKAGE__->run_before('load_unit_from_form', only => [ qw(stock_in part_chan __PACKAGE__->run_before('load_wh_from_form', only => [ qw(stock_in warehouse_changed stock) ]); __PACKAGE__->run_before('load_bin_from_form', only => [ qw(stock_in stock) ]); __PACKAGE__->run_before('set_target_from_part', only => [ qw(part_changed) ]); +__PACKAGE__->run_before('mini_stock', only => [ qw(stock_in mini_stock) ]); __PACKAGE__->run_before('sanitize_target', only => [ qw(stock_in warehouse_changed part_changed) ]); __PACKAGE__->run_before('set_layout'); @@ -57,6 +58,7 @@ sub action_stock { }); if ($::form->{write_default_bin}) { + $self->part->load; # onhand is calculated in between. don't mess that up $self->part->bin($self->bin); $self->part->warehouse($self->warehouse); $self->part->save; @@ -70,6 +72,7 @@ sub action_stock { part_id => $self->part->id, bin_id => $self->bin->id, warehouse_id => $self->warehouse->id, + unit_id => $self->unit->id, ); } @@ -104,22 +107,11 @@ sub action_warehouse_changed { sub action_mini_stock { my ($self) = @_; - my $stock = $self->part->get_simple_stock; - my $stock_by_bin = { map { $_->{bin_id} => $_ } @$stock }; - my $stock_empty = ! grep { $_->{sum} * 1 } @$stock; - $self->js - ->html('#stock', $self->render('inventory/_stock', { output => 0 }, stock => $stock_by_bin, stock_empty => $stock_empty )) + ->html('#stock', $self->render('inventory/_stock', { output => 0 })) ->render($self); } -sub action_last_journal { - my ($self) = @_; - -# my $jounal = $self->journal; - -} - #================================================================ sub _check_auth { @@ -231,7 +223,15 @@ sub mini_journal { return \@sorted; } -sub show_no_warehouse_error { +sub mini_stock { + my ($self) = @_; + + my $stock = $self->part->get_simple_stock; + $self->{stock_by_bin} = { map { $_->{bin_id} => $_ } @$stock }; + $self->{stock_empty} = ! grep { $_->{sum} * 1 } @$stock; +} + +sub show_no_warehouses_error { my ($self) = @_; my $msg = t8('No warehouse has been created yet or the quantity of the bins is not configured yet.') . ' ';