summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-01 18:29:22 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-09-01 18:29:22 +0000
commitf6762a3469fbce0e233c958990ba6a5096540e0a (patch)
treefdb0520e3a8cfe696667db8ee5d7f892fe22d462
parentfc6a287538a9a9490b6b775db5c94fd8228830a6 (diff)
Fixing sales invoice posting.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1490 4979c152-3d1c-0410-bac9-87ea11338e46
-rw-r--r--LedgerSMB/IS.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index 0877b215..489f16d4 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -1492,7 +1492,7 @@ sub post_invoice {
ordnumber = ?,
quonumber = ?,
transdate = ?,
- customer_id = ?,
+ entity_id = ?,
amount = ?,
netamount = ?,
paid = ?,
@@ -1513,14 +1513,13 @@ sub post_invoice {
ponumber = ?
WHERE id = ?
|;
-
$sth = $dbh->prepare($query);
$sth->execute(
$form->{invnumber}, $form->{ordnumber},
- $form->{quonumber}, $form->{transdate},
+ $form->{quonumber}, $form->{transdate} || 'now',
$form->{customer_id}, $invamount,
$invnetamount, $form->{paid},
- $form->{datepaid}, $form->{duedate},
+ $form->{datepaid} || 'now', $form->{duedate} || 'now',
$form->{shippingpoint}, $form->{shipvia},
$form->{terms}, $form->{notes},
$form->{intnotes}, $form->{taxincluded},