X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/6339df04b0fb8b65e3ad193ec26b4f7c29a5da84..2a4ad354455f28cba2e42fe71ea1d1e93a0c69d0:/SL/IR.pm diff --git a/SL/IR.pm b/SL/IR.pm index 3982b267e..fe10a299b 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}')|; $dbh->do($query) || $form->dberror($query); $query = qq|SELECT a.id FROM ap a