Revision 7d8de6d3
Von Jan Büren vor etwa 10 Jahren hinzugefügt
| SL/DB/OrderItem.pm | ||
|---|---|---|
| 38 | 38 |
my ($self) = @_; |
| 39 | 39 |
|
| 40 | 40 |
my $d_orders = $self->order->linked_records(direction => 'to', to => 'SL::DB::DeliveryOrder'); |
| 41 |
my @d_orders_delivered; |
|
| 42 | 41 |
|
| 43 |
foreach (@$d_orders) {
|
|
| 44 |
push (@d_orders_delivered, $_) if $_->delivered; |
|
| 45 |
} |
|
| 42 |
my @d_orders_delivered = grep { $_->delivered } @$d_orders;
|
|
| 46 | 43 |
|
| 47 | 44 |
my @doi_delivered = grep { $_->parts_id == $self->parts_id } map { $_->orderitems } @d_orders_delivered;
|
| 48 | 45 |
|
| ... | ... | |
| 53 | 50 |
sub value_of_goods {
|
| 54 | 51 |
my ($self) = @_; |
| 55 | 52 |
|
| 56 |
my $price_factor = $self->price_factor ? $self->price_factor : 1;
|
|
| 53 |
my $price_factor = $self->price_factor || 1;
|
|
| 57 | 54 |
|
| 58 | 55 |
return ($self->qty * $self->sellprice * (1 - $self->discount ) / $price_factor); |
| 59 | 56 |
} |
Auch abrufbar als: Unified diff
Verbesserungen Einkaufs-Lieferplan
a) keinen Fallunterschied für $vc im Template, sondern ein einfaches hidden flag vc
b) kein copy & paste von action_list(_ap), sondern parameter in erp.ini
c) performanteres grep, statt foreach in OrderItem (Details s.a. devel-liste)
d) my $vc nicht als statische Klassenvariable gesetzt
e) CSV-Export für beide Fälle richtig (filter vc übergeben)