X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FDB%2FPurchaseInvoice.pm;h=dd49433c6adb518e9638437439b64509ec7b69d8;hb=bcdc9f7040d4bc0c0b4d7ce77f1afc29543b04a4;hp=08be07f3323de9979a2d037f3bb31124cf8954bd;hpb=b186a8eb0ff43ca1d67e7416f1eef2d11bf4501a;p=kivitendo-erp.git diff --git a/SL/DB/PurchaseInvoice.pm b/SL/DB/PurchaseInvoice.pm index 08be07f33..dd49433c6 100644 --- a/SL/DB/PurchaseInvoice.pm +++ b/SL/DB/PurchaseInvoice.pm @@ -88,12 +88,19 @@ sub abbreviation { }; +sub oneline_summary { + my $self = shift; + + return sprintf("%s: %s %s %s (%s)", $self->abbreviation, $self->invnumber, $self->vendor->name, + $::form->format_amount(\%::myconfig, $self->amount,2), $self->transdate->to_kivitendo); +} + sub link { my ($self) = @_; my $html; - $html = SL::Presenter->get->purchase_invoice($self, display => 'inline') if $self->invoice; - $html = SL::Presenter->get->ap_transaction($self, display => 'inline') if !$self->invoice; + $html = $self->presenter->purchase_invoice(display => 'inline') if $self->invoice; + $html = $self->presenter->ap_transaction(display => 'inline') if !$self->invoice; return $html; } @@ -175,6 +182,7 @@ sub add_ap_amount_row { chart_id => $params{chart}->id, chart_link => $params{chart}->link, transdate => $self->transdate, + gldate => $self->gldate, taxkey => $tax->taxkey, tax_id => $tax->id, project_id => $params{project_id}, @@ -189,6 +197,7 @@ sub add_ap_amount_row { chart_id => $tax->chart_id, chart_link => $tax->chart->link, transdate => $self->transdate, + gldate => $self->gldate, taxkey => $tax->taxkey, tax_id => $tax->id, project_id => $params{project_id}, @@ -205,6 +214,12 @@ sub mark_as_paid { $self->update_attributes(paid => $self->amount); } +sub effective_tax_point { + my ($self) = @_; + + return $self->tax_point || $self->deliverydate || $self->transdate; +} + 1;