use SL::DB::Helper::AttrSorted;
use SL::DB::Helper::LinkedRecords;
use SL::DB::Helper::Payment qw(:ALL);
+use SL::DB::Helper::SalesPurchaseInvoice;
use SL::Locale::String qw(t8);
use Rose::DB::Object::Helpers qw(has_loaded_related forget_related);
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;
}
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},
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},
$self->update_attributes(paid => $self->amount);
}
+sub effective_tax_point {
+ my ($self) = @_;
+
+ return $self->tax_point || $self->deliverydate || $self->transdate;
+}
+
1;