Revision 0d5564ee
Von Kivitendo Admin vor mehr als 8 Jahren hinzugefügt
| SL/DB/Part.pm | ||
|---|---|---|
|
module => 'IC',
|
||
|
cvars_alias => 1,
|
||
|
);
|
||
|
use List::Util qw(sum);
|
||
|
|
||
|
__PACKAGE__->meta->add_relationships(
|
||
|
assemblies => {
|
||
| ... | ... | |
|
return $clone;
|
||
|
}
|
||
|
|
||
|
sub assembly_sellprice_sum {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return unless $self->is_assembly;
|
||
|
sum map { $_->linetotal } @{$self->part->assemblies};
|
||
|
};
|
||
|
|
||
|
sub assembly_lastcost_sum {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return unless $self->is_assembly;
|
||
|
sum map { $_->linetotal } @{$self->part->assemblies};
|
||
|
};
|
||
|
|
||
|
sub assortment_sellprice_sum {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return unless $self->is_assortment;
|
||
|
sum map { $_->linetotal } @{$self->part->assortment_items};
|
||
|
};
|
||
|
|
||
|
sub assortment_lastcost_sum {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
return unless $self->is_assortment;
|
||
|
sum map { $_->linetotal } @{$self->part->assortment_items};
|
||
|
};
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
| ... | ... | |
|
Please note, that this is a write only accessor, the original Buchungsgruppe can
|
||
|
not be retrieved from an article once set.
|
||
|
|
||
|
=item C<assembly_sellprice_sum>
|
||
|
|
||
|
Non-recursive sellprice sum of all the assembly item sellprices.
|
||
|
|
||
|
=item C<assortment_sellprice_sum>
|
||
|
|
||
|
Non-recursive sellprice sum of all the assortment item sellprices.
|
||
|
|
||
|
=item C<assembly_lastcost_sum>
|
||
|
|
||
|
Non-recursive lastcost sum of all the assembly item lastcosts.
|
||
|
|
||
|
=item C<assortment_lastcost_sum>
|
||
|
|
||
|
Non-recursive lastcost sum of all the assortment item lastcosts.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 AUTHORS
|
||
Auch abrufbar als: Unified diff
Neue Part-Methoden für Erzeugnis- und Sortimentssummen
derzeit noch nicht rekursiv (wenn ein Sortiment wiederum aus anderen
Sortimenten besteht).