summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-07-27 16:57:28 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-07-27 16:57:28 +0000
commit2f671ee0ba5e46d6f9ccea30406dac29deb8835d (patch)
tree86851c3d1fe6e70d9aeaa7d8f9de0a4e66b1c434 /LedgerSMB
parent1e85fc89e1a41d52f3f4bc1df032e85b06c2516d (diff)
Correcting SQL errors on inventory transfer
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1448 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/OE.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm
index 015d404c..fdb383ec 100755
--- a/LedgerSMB/OE.pm
+++ b/LedgerSMB/OE.pm
@@ -2108,7 +2108,7 @@ sub transfer {
my $query = qq|
INSERT INTO inventory
(warehouse_id, parts_id, qty, shippingdate, employee_id)
- VALUES (?, ?, ?, '$shippingdate', $form->{employee_id})|;
+ VALUES (?, ?, ?, ?, ?)|;
$sth = $dbh->prepare($query) || $form->dberror($query);
my $qty;
@@ -2131,7 +2131,8 @@ sub transfer {
# from warehouse
if ( $form->{"warehouse_id_$i"} ) {
$sth->execute( $form->{"warehouse_id_$i"},
- $form->{"id_$i"}, $qty * -1 )
+ $form->{"id_$i"}, $qty * -1, $shippingdate,
+ $form->{employee_id})
|| $form->dberror;
$sth->finish;
}