Lieferdatum in Rechnungen.

[mfinanz.git] / SL / OE.pm

diff --git a/SL/OE.pm b/SL/OE.pm
index 04c7c499d31a2cb43e63dd68ab47b14b308549b3..093e77033cdf070e258bc6ea8adf4b460743aa55 100644 (file)
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -633,6 +633,10 @@ sub retrieve {
 
   ($form->{currency}) = split /:/, $form->{currencies};
 
+  # set reqdate if this is an invoice->order conversion. If someone knows a better check to ensure 
+  # we come from invoices, feel free.
+  $form->{reqdate} = $form->{deliverydate} if ($form->{deliverydate} and $form->{callback} =~ /action=ar_transactions/);
+
   if ($form->{id} or @ids) {
 
     # retrieve order for single id