Revision 8010b559
Von Tamino Steinert vor mehr als 2 Jahren hinzugefügt
SL/DB/ReclamationItem.pm | ||
---|---|---|
}
|
||
},
|
||
);
|
||
use SL::Helper::ShippedQty;
|
||
|
||
__PACKAGE__->meta->initialize;
|
||
|
||
__PACKAGE__->configure_acts_as_list(group_by => [qw(reclamation_id)]);
|
||
|
||
sub shipped_qty {
|
||
my ($self, %params) = @_;
|
||
|
||
my $force = delete $params{force};
|
||
|
||
SL::Helper::ShippedQty->new(%params)->calculate($self)->write_to_objects if $force || !defined $self->{shipped_qty};
|
||
|
||
$self->{shipped_qty};
|
||
}
|
||
|
||
sub is_linked_to_record {
|
||
my ($self) = @_;
|
||
|
||
... | ... | |
return $self->reclamation->customervendor;
|
||
}
|
||
|
||
sub delivered_qty { goto &shipped_qty }
|
||
sub record { goto &reclamation }
|
||
sub record_id { goto &reclamation_id }
|
||
sub trans_id { goto &reclamation_id }
|
||
... | ... | |
|
||
=head1 FUNCTIONS
|
||
|
||
=over 4
|
||
|
||
=item C<shipped_qty PARAMS>
|
||
|
||
Calculates the shipped qty for this reclamationitem (measured in the current unit)
|
||
and returns it.
|
||
|
||
Note that the shipped qty is expected not to change within the request and is
|
||
cached in C<shipped_qty> once calculated. If C<< force => 1 >> is passed, the
|
||
existibng cache is ignored.
|
||
|
||
Given parameters will be passed to L<SL::Helper::ShippedQty>, so you can force
|
||
the shipped/delivered distinction like this:
|
||
|
||
$_->shipped_qty(require_stock_out => 0);
|
||
|
||
Note however that calculating shipped_qty on individual Reclamationitems is generally
|
||
a bad idea. See L<SL::Helper::ShippedQty> for way to compute these all at once.
|
||
|
||
=item C<delivered_qty>
|
||
|
||
Alias for L</shipped_qty>.
|
||
|
||
=back
|
||
|
||
=head1 AUTHORS
|
||
|
||
G. Richardson E<lt>grichardson@kivitendo-premium.deE<gt>
|
Auch abrufbar als: Unified diff
Reclamation: don't need shipped_qty