From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 25 Jun 2008 11:20:10 +0000 (+0000)
Subject: Bei Aufträgen, Angeboten, Preisanfragen das Lieferdatum mit dem nächsten Werktag... 
X-Git-Tag: release-2.6.0beta1~116
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=34ca68b5bd568ca93a89224d779e749fcba8cdd8;p=kivitendo-erp.git

Bei Aufträgen, Angeboten, Preisanfragen das Lieferdatum mit dem nächsten Werktag und nicht dem heutigen Datum vorbelegen.
---

diff --git a/SL/OE.pm b/SL/OE.pm
index 72c11ed32..e279e4a65 100644
--- a/SL/OE.pm
+++ b/SL/OE.pm
@@ -606,7 +606,12 @@ sub retrieve {
     undef @ids;
   }
 
-  $query_add = qq|, current_date AS transdate, current_date AS reqdate| if (!$form->{id});
+  my $query_add = '';
+  if (!$form->{id}) {
+    my $wday         = (localtime(time))[6];
+    my $next_workday = $wday == 5 ? 3 : $wday == 6 ? 2 : 1;
+    $query_add       = qq|, current_date AS transdate, date(current_date + interval '${next_workday} days') AS reqdate|;
+  }
 
   # get default accounts
   $query = qq|SELECT (SELECT c.accno FROM chart c WHERE d.inventory_accno_id = c.id) AS inventory_accno,