Revision f01ed5d1
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
| SL/DB/Assembly.pm | ||
|---|---|---|
| 23 | 23 |
return $self->qty * $self->part->lastcost / ( $self->part->price_factor_id ? $self->part->price_factor->factor : 1 ); |
| 24 | 24 |
} |
| 25 | 25 |
|
| 26 |
sub linetotal_weight {
|
|
| 27 |
my ($self) = @_; |
|
| 28 |
|
|
| 29 |
return 0 unless $self->qty > 0 and ($self->part->weight||0) > 0; |
|
| 30 |
return $self->qty * $self->part->weight; |
|
| 31 |
} |
|
| 32 |
|
|
| 26 | 33 |
1; |
Auch abrufbar als: Unified diff
Erzeugnisse: Gewicht aus einzelnen Bestandteilen ermitteln und speichern.