X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6339df04b0fb8b65e3ad193ec26b4f7c29a5da84..69822fd215cb15e1bb017f1af6f0a185f62a31e2:/SL/IR.pm diff --git a/SL/IR.pm b/SL/IR.pm index 3982b267e..81c5fe75e 100644 --- a/SL/IR.pm +++ b/SL/IR.pm @@ -69,8 +69,7 @@ sub post_invoice { $uid = substr($uid, 2, 75); $query = qq|INSERT INTO ap (invnumber, employee_id) - VALUES ('$uid', (SELECT e.id FROM employee e - WHERE e.login = '$form->{login}'))|; + VALUES ('$uid', '$form->{employee_id}')|; $dbh->do($query) || $form->dberror($query); $query = qq|SELECT a.id FROM ap a