X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/18567de558741ddb195c8731b12c2e70f14c51fc..043050cb6d383b9dd9cbbc61f08de80a5d933660:/SL/IR.pm diff --git a/SL/IR.pm b/SL/IR.pm index 12add2af1..22c1a2866 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -725,11 +725,11 @@ sub retrieve_invoice { my ($query, $sth, $ref, $q_invdate); if (!$form->{id}) { - $q_invdate = qq|, COALESCE((SELECT MAX(transdate) FROM ar), current_date) AS invdate|; + $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 MAX(transdate) FROM ar), current_date) + + 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)