More voucher-related commits

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1285 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 10 insertions, 0 deletions

diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index dfbb465d..6d3cc7cc 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -1101,6 +1101,16 @@ sub post_invoice {
                 $query = qq| UPDATE ar 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);
+               }
             }
 
             # add invoice_id