summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-14 17:34:00 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2006-11-14 17:34:00 +0000
commit833df96b76993f173b0b82146719584e74307aed (patch)
tree723e0b8bb179979ab8bcb25ba1d00ef647ac87ac
parent60a8122d1593206e6588e61d260f19b96c0e573f (diff)
Some fixes for posting sales invoices
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@595 4979c152-3d1c-0410-bac9-87ea11338e46
-rwxr-xr-xLedgerSMB/IS.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 39bcfe7c..e7e22cd8 100755
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -1269,7 +1269,7 @@ sub post_invoice {
VALUES (?, (SELECT id FROM chart
WHERE accno = ?),
?, ?)|;
- $sth = $dbh->prpare($query);
+ $sth = $dbh->prepare($query);
$sth->execute(
$form->{id}, $form->{AR}, $amount,
$form->{"datepaid_$i"})
@@ -1286,12 +1286,12 @@ sub post_invoice {
INSERT INTO acc_trans
(trans_id, chart_id, amount,
transdate, source, memo, cleared)
- VALUES ($?, (SELECT id FROM chart
+ VALUES (?, (SELECT id FROM chart
WHERE accno = ?),
?, ?, ?, ?, ?)|;
$sth = $dbh->prepare($query);
- $sth->prepare(
+ $sth->execute(
$form->{id}, $accno, $amount,
$form->{"datepaid_$i"}, $form->{"source_$i"},
$form->{"memo_$i"}, $cleared)