+sub reqdate {
+ goto &duedate;
+}
+
+sub customervendor {
+ goto &vendor;
+}
+
+sub abbreviation {
+ my $self = shift;
+
+ return t8('AP Transaction (abbreviation)') if !$self->invoice && !$self->storno;
+ return t8('AP Transaction (abbreviation)') . '(' . t8('Storno (one letter abbreviation)') . ')' if !$self->invoice && $self->storno;
+ return t8('Invoice (one letter abbreviation)'). '(' . t8('Storno (one letter abbreviation)') . ')' if $self->storno;
+ return t8('Invoice (one letter abbreviation)');
+
+};
+
+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;
+
+ return $html;
+}
+