X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/fc890e1040a469ee62b3661c5da2f3d2efb4cce9..a01fc4760bb669b7b05d2e45c6a321d0913cfd59:/SL/DB/Order.pm

diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm
index 4d0a2fa07..b7bdae070 100644
--- a/SL/DB/Order.pm
+++ b/SL/DB/Order.pm
@@ -210,6 +210,16 @@ sub date {
   goto &transdate;
 }
 
+sub digest {
+  my ($self) = @_;
+
+  sprintf "%s %s %s (%s)",
+    $self->number,
+    $self->customervendor->name,
+    $self->amount_as_number,
+    $self->date->to_kivitendo;
+}
+
 1;
 
 __END__