diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-14 17:34:00 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-14 17:34:00 +0000 |
| commit | 833df96b76993f173b0b82146719584e74307aed (patch) | |
| tree | 723e0b8bb179979ab8bcb25ba1d00ef647ac87ac /LedgerSMB/IS.pm | |
| parent | 60a8122d1593206e6588e61d260f19b96c0e573f (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
Diffstat (limited to 'LedgerSMB/IS.pm')
| -rwxr-xr-x | LedgerSMB/IS.pm | 6 |
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) |