+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;
+}
+
+sub invoice_type {
+ my ($self) = @_;
+
+ return 'ap_transaction' if !$self->invoice;
+ return 'purchase_invoice';
+}
+
+sub displayable_type {
+ my ($self) = @_;
+
+ return t8('AP Transaction') if $self->invoice_type eq 'ap_transaction';
+ return t8('Purchase Invoice');
+}
+
+sub displayable_name {
+ join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number);
+};
+