diff options
Diffstat (limited to 'LedgerSMB/IR.pm')
| -rw-r--r-- | LedgerSMB/IR.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm index 4812b9f8..d651a520 100644 --- a/LedgerSMB/IR.pm +++ b/LedgerSMB/IR.pm @@ -300,6 +300,16 @@ sub post_invoice { $query = qq| UPDATE ap SET approved = ? WHERE id = ?|; $dbh->prepare($query)->execute($form->{approved}, $form->{id}) || $form->dberror($query); + if (!$form->{approved}){ + if (not defined $form->{batch_id}){ + $form->error($locale->text('Batch ID Missing')); + } + $query = qq| + INSERT INTO voucher (batch_id, trans_id) VALUES (?, ?)|; + $sth = $dbh->prepare($query); + $sth->execute($form->{batch_id}, $form->{id}) || + $form->dberror($query); + } } if ( $form->{"inventory_accno_id_$i"} ) { |