projekt kivitendo

sub linetotal {

  my ($self) = @_;

  return 0 unless $self->qty > 0 and $self->part->sellprice > 0;

  return $self->qty * $self->part->sellprice / ( $self->part->price_factor_id ? $self->part->price_factor->factor : 1 );

}

sub linetotal_lastcost {

  my ($self) = @_;

  return 0 unless $self->qty > 0 and $self->part->lastcost > 0;

  return $self->qty * $self->part->lastcost / ( $self->part->price_factor_id ? $self->part->price_factor->factor : 1 );

}