Revision c9cace86
Von Jan Büren vor mehr als 3 Jahren hinzugefügt
| SL/WH.pm | ||
|---|---|---|
| 35 | 35 |
|
| 36 | 36 |
package WH; |
| 37 | 37 |
|
| 38 |
use Carp qw(croak); |
|
| 39 |
|
|
| 38 | 40 |
use SL::AM; |
| 39 | 41 |
use SL::DBUtils; |
| 42 |
use SL::DB::Inventory; |
|
| 40 | 43 |
use SL::Form; |
| 44 |
use SL::Locale::String qw(t8); |
|
| 41 | 45 |
use SL::Util qw(trim); |
| 42 | 46 |
|
| 43 | 47 |
use warnings; |
| ... | ... | |
| 56 | 60 |
require SL::DB::TransferType; |
| 57 | 61 |
require SL::DB::Part; |
| 58 | 62 |
require SL::DB::Employee; |
| 59 |
require SL::DB::Inventory; |
|
| 60 | 63 |
|
| 61 | 64 |
my $employee = SL::DB::Manager::Employee->find_by(login => $::myconfig{login});
|
| 62 | 65 |
my ($now) = selectrow_query($::form, $::form->get_standard_dbh, qq|SELECT current_date|); |
| ... | ... | |
| 1127 | 1130 |
return ($max_qty_parts, $error); |
| 1128 | 1131 |
} |
| 1129 | 1132 |
|
| 1133 |
sub get_wh_and_bin_for_charge {
|
|
| 1134 |
$main::lxdebug->enter_sub(); |
|
| 1135 |
|
|
| 1136 |
my $self = shift; |
|
| 1137 |
my %params = @_; |
|
| 1138 |
|
|
| 1139 |
croak t8('Need charge number!') unless $params{chargenumber};
|
|
| 1140 |
|
|
| 1141 |
my $inv_item= SL::DB::Manager::Inventory->get_first(where => [chargenumber => $params{chargenumber} ]);
|
|
| 1142 |
|
|
| 1143 |
croak t8("Invalid charge number: #1", $params{chargenumber}) unless (ref $inv_item eq 'SL::DB::Inventory');
|
|
| 1144 |
|
|
| 1145 |
$main::lxdebug->leave_sub(); |
|
| 1146 |
return ($inv_item->warehouse_id, $inv_item->bin_id, $inv_item->chargenumber); |
|
| 1147 |
} |
|
| 1130 | 1148 |
1; |
| 1131 | 1149 |
|
| 1132 | 1150 |
__END__ |
| ... | ... | |
| 1280 | 1298 |
'comment' => $form->{comment}
|
| 1281 | 1299 |
); |
| 1282 | 1300 |
|
| 1301 |
|
|
| 1302 |
=head2 get_wh_and_bin_for_charge C<$params{chargenumber}>
|
|
| 1303 |
|
|
| 1304 |
Gets the first inventory entry with the mandatory chargenumber: C<$params{chargenumber}>.
|
|
| 1305 |
Croaks if the chargenumber is missing or no entry currently exists. |
|
| 1306 |
From the found inventory entry the following values and in this order are returned: |
|
| 1307 |
C<warehouse_id>, C<bin_id>, C<chargenumber>. |
|
| 1308 |
|
|
| 1309 |
|
|
| 1283 | 1310 |
=head3 Prerequisites |
| 1284 | 1311 |
|
| 1285 | 1312 |
All of these prerequisites have to be trueish, otherwise the function will exit |
Auch abrufbar als: Unified diff
Feature: Auslagern über Rechnung inkl. Seriennummer == Chargennummer
Prüft, ob die kommaseparierte Liste in serialnumber mit
der Stückzahl in der Position übereinstimmt
Prüft, ob die Seriennummer als Chargennummer vorhanden sind.
Bei Erfolg werden diese Chargen dann ausgelagert.