X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FIR.pm;h=22c1a286631e55cf3da5dc97d5e92c6431aa1918;hb=740a0719dcc7d9dbe1001664a23e5791e4c859e7;hp=177a287f0e32e6d16103790fdb79f097504b316e;hpb=fb37acdc4c87cf9bc4ef6abb54e486c1b3829d6c;p=kivitendo-erp.git

diff --git a/SL/IR.pm b/SL/IR.pm
index 177a287f0..22c1a2866 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -724,7 +724,19 @@ sub retrieve_invoice {
 
   my ($query, $sth, $ref, $q_invdate);
 
-  $q_invdate = ", current_date AS invdate" unless $form->{id};
+  if (!$form->{id}) {
+    $q_invdate = qq|, COALESCE((SELECT transdate FROM ar WHERE id = (SELECT MAX(id) FROM ar)), current_date) AS invdate|;
+    if ($form->{vendor_id}) {
+      my $vendor_id = $dbh->quote($form->{vendor_id} * 1);
+      $q_invdate .=
+        qq|, COALESCE((SELECT transdate FROM ar WHERE id = (SELECT MAX(id) FROM ar)), current_date) +
+             COALESCE((SELECT pt.terms_netto
+                       FROM vendor v
+                       LEFT JOIN payment_terms pt ON (v.payment_id = pt.id)
+                       WHERE v.id = $vendor_id),
+                      0) AS duedate|;
+    }
+  }
 
   # get default accounts and last invoice number