Revision 5d7aadc1
Von Sven Schöling vor etwa 4 Jahren hinzugefügt
| SL/Helper/Inventory.pm | ||
|---|---|---|
| 330 | 330 |
my @transfers; |
| 331 | 331 |
for my $allocation (@$allocations) {
|
| 332 | 332 |
my $oe_id = delete $allocation->{for_object_id};
|
| 333 |
push @transfers, SL::DB::Inventory->new(
|
|
| 333 |
push @transfers, $allocation->transfer_object(
|
|
| 334 | 334 |
trans_id => $trans_id, |
| 335 |
%$allocation, |
|
| 336 | 335 |
qty => -$allocation->qty, |
| 337 | 336 |
trans_type => $trans_type_out, |
| 338 | 337 |
shippingdate => $shippingdate, |
| 339 | 338 |
employee => SL::DB::Manager::Employee->current, |
| 340 |
oe_id => $allocation->for_object_id, |
|
| 341 | 339 |
); |
| 342 | 340 |
} |
| 343 | 341 |
|
| ... | ... | |
| 375 | 373 |
package SL::Helper::Inventory::Allocation {
|
| 376 | 374 |
my @attributes = qw(parts_id qty bin_id warehouse_id chargenumber bestbefore comment for_object_id); |
| 377 | 375 |
my %attributes = map { $_ => 1 } @attributes;
|
| 376 |
my %mapped_attributes = ( |
|
| 377 |
for_object_id => 'oe_id', |
|
| 378 |
); |
|
| 378 | 379 |
|
| 379 | 380 |
for my $name (@attributes) {
|
| 380 | 381 |
no strict 'refs'; |
| ... | ... | |
| 391 | 392 |
|
| 392 | 393 |
bless { %params }, $class;
|
| 393 | 394 |
} |
| 395 |
|
|
| 396 |
sub transfer_object {
|
|
| 397 |
my ($self, %params) = @_; |
|
| 398 |
|
|
| 399 |
SL::DB::Inventory->new( |
|
| 400 |
(map {
|
|
| 401 |
my $attr = $mapped_attributes{$_} // $_;
|
|
| 402 |
$attr => $self->{$attr}
|
|
| 403 |
} @attributes), |
|
| 404 |
%params, |
|
| 405 |
); |
|
| 406 |
} |
|
| 394 | 407 |
} |
| 395 | 408 |
|
| 396 | 409 |
1; |
| ... | ... | |
| 725 | 738 |
|
| 726 | 739 |
=back |
| 727 | 740 |
|
| 728 |
C<chargenumber>, C<bestbefore> and C<for_object_id> may be C<undef> (but must |
|
| 729 |
still be present at creation time). Instances are considered immutable. |
|
| 741 |
C<chargenumber>, C<bestbefore> and C<for_object_id> and C<comment> may be |
|
| 742 |
C<undef> (but must still be present at creation time). Instances are considered |
|
| 743 |
immutable. |
|
| 730 | 744 |
|
| 745 |
Allocations also provide the method C<transfer_object> which will create a new |
|
| 746 |
C<SL::DB::Inventory> bject with all the playload. |
|
| 731 | 747 |
|
| 732 | 748 |
=head1 CONSTRAINTS |
| 733 | 749 |
|
Auch abrufbar als: Unified diff
Inventory::Allocation: transfer_object