diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-09 23:09:45 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-09 23:09:45 +0000 |
commit | 8b040e5df9af9de3d01e3451b56ae37c90df1a4d (patch) | |
tree | 9e39ca28325ff4a195ad174585d61562169fcede /LedgerSMB/IS.pm | |
parent | 4de76bf567a88296a96401168516f6fc2e90996e (diff) |
Fixing bug 1748255
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1361 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/IS.pm')
-rwxr-xr-x | LedgerSMB/IS.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 8368c986..820024b9 100755 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -808,6 +808,8 @@ sub post_invoice { my ( $self, $myconfig, $form ) = @_; my $dbh = $form->{dbh}; + $form->{invnumber} = $form->update_defaults( $myconfig, "sinumber", $dbh ) + unless $form->{invnumber}; my $query; my $sth; @@ -1368,8 +1370,6 @@ sub post_invoice { $form->{terms} *= 1; $form->{taxincluded} *= 1; - $form->{invnumber} = $form->update_defaults( $myconfig, "sinumber", $dbh ) - unless $form->{invnumber}; # save AR record $query = qq| |