Oneline summary for GLTransaction/Invoice/PurchaseInvoice

to be used e.g. in Fibu Quicksearch

diff --git a/SL/DB/GLTransaction.pm b/SL/DB/GLTransaction.pm
index 67a4d3a..3b9612e 100644 (file)
--- a/SL/DB/GLTransaction.pm
+++ b/SL/DB/GLTransaction.pm
@@ -30,6 +30,11 @@ sub abbreviation {
   return $abbreviation;
 }
 
+sub oneline_summary {
+  my ($self) = @_;
+  return sprintf("%s: %s %s (%s)", $self->abbreviation, $self->description, $self->reference, $_->transdate->to_kivitendo);
+}
+
 sub link {
   my ($self) = @_;
 

diff --git a/SL/DB/Invoice.pm b/SL/DB/Invoice.pm
index 0ef8d61..4caafc0 100644 (file)
--- a/SL/DB/Invoice.pm
+++ b/SL/DB/Invoice.pm
@@ -555,6 +555,12 @@ sub abbreviation {
   return t8('Invoice (one letter abbreviation)');
 }
 
+sub oneline_summary {
+  my $self = shift;
+
+  return sprintf("%s: %s %s (%s)", $self->abbreviation, $self->invnumber, $self->customer->name, $self->transdate->to_kivitendo);
+}
+
 sub date {
   goto &transdate;
 }

diff --git a/SL/DB/PurchaseInvoice.pm b/SL/DB/PurchaseInvoice.pm
index 08be07f..102cd8a 100644 (file)
--- a/SL/DB/PurchaseInvoice.pm
+++ b/SL/DB/PurchaseInvoice.pm
@@ -88,6 +88,12 @@ sub abbreviation {
 
 };
 
+sub oneline_summary {
+  my $self = shift;
+
+  return sprintf("%s: %s %s (%s)", $self->abbreviation, $self->invnumber, $self->vendor->name, $self->transdate->to_kivitendo);
+}
+
 sub link {
   my ($self) = @_;