X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0b36b2259c1300ee5360a9c8d5aee1f321abd364..8b5bed7fe5:/SL/IC.pm

diff --git a/SL/IC.pm b/SL/IC.pm
index 46f0f542c..ca03e5144 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -744,7 +744,9 @@ sub retrieve_accounts {
     # also use deliverydate for credit notes
     $transdate = $form->{tax_point} || $form->{deliverydate} || $form->{invdate};
   } else {
-    $transdate = $form->{tax_point} || $form->{transdate};
+    my $deliverydate;
+    $deliverydate = $form->{reqdate} if any { $_ eq $form->{type} } qw(sales_order request_quotation purchase_order);
+    $transdate = $form->{tax_point} || $deliverydate || $form->{transdate};
   }
 
   if ($transdate eq "") {