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/OP.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/OP.pm')
-rwxr-xr-x | LedgerSMB/OP.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/LedgerSMB/OP.pm b/LedgerSMB/OP.pm index 3a07f036..f5592086 100755 --- a/LedgerSMB/OP.pm +++ b/LedgerSMB/OP.pm @@ -37,6 +37,11 @@ package OP; sub overpayment { my ( $self, $myconfig, $form, $dbh, $amount, $ml ) = @_; + $invnumber = + $form->update_defaults( $myconfig, ( $form->{arap} eq 'ar' ) + ? "sinumber" + : "vinumber", $dbh ) + unless $invnumber; my $fxamount = $form->round_amount( $amount * $form->{exchangerate}, 2 ); my ($paymentaccno) = split /--/, $form->{account}; @@ -58,11 +63,6 @@ sub overpayment { ($uid) = $dbh->selectrow_array($query); my $invnumber = $form->{invnumber}; - $invnumber = - $form->update_defaults( $myconfig, ( $form->{arap} eq 'ar' ) - ? "sinumber" - : "vinumber", $dbh ) - unless $invnumber; $query = qq| UPDATE $form->{arap} |