X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/10348b514ddb450a0ee23df36f7f4c4242989b3e..7bbdbf2bd966e6317cff568ac6f60936b51d8df7:/SL/DB/Assembly.pm?ds=inline

diff --git a/SL/DB/Assembly.pm b/SL/DB/Assembly.pm
index 767ba411b..a77e34b54 100644
--- a/SL/DB/Assembly.pm
+++ b/SL/DB/Assembly.pm
@@ -12,4 +12,18 @@ __PACKAGE__->meta->make_manager_class;
 
 __PACKAGE__->meta->initialize;
 
+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 );
+}
+
 1;