Batch printing works for checks. One odd bug remains however in that when you

print and post it sends a blank/invalid postscript or pdf to the screen.  The 
item is properly queued however.  There may be a difference as to how print and 
post works on the newer versions.  Will have to continue to look into this.


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

3 files changed, 25 insertions, 2 deletions

diff --git a/LedgerSMB/BP.pm b/LedgerSMB/BP.pm
index 1d863389..011a70d6 100755
--- a/LedgerSMB/BP.pm
+++ b/LedgerSMB/BP.pm
@@ -50,7 +50,7 @@ sub get_vc {
 				 sales_quotation => ['oe'],
 				 request_quotation => ['oe'],
 				 timecard => ['jcitems'],
-				 check => ['ar'],
+				 check => ['ap'],
 		);
 
 	my $query = "";
@@ -126,7 +126,7 @@ sub get_spoolfiles {
 				 sales_quotation => ['oe'],
 				 request_quotation => ['oe'],
 				 timecard => ['jc'],
-				 check => ['ar'],
+				 check => ['ap'],
 		);
 
 	($form->{transdatefrom}, $form->{transdateto}) = $form->from_to($form->{year}, $form->{month}, $form->{interval}) if $form->{year} && $form->{month};
diff --git a/bin/mozilla/arapprn.pl b/bin/mozilla/arapprn.pl
index 6bb808cf..26831b1d 100755
--- a/bin/mozilla/arapprn.pl
+++ b/bin/mozilla/arapprn.pl
@@ -114,6 +114,17 @@ sub print {
     $filename .= $$;
   }
 
+  $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
+  $form->{OUT} = ">$spool/$filename";
+
+  $form->{queued} .= " $form->{formname} $filename";
+  $form->{queued} =~ s/^ //;
+  $printform = new Form;
+  for (keys %$form){
+    $printform->{$_} = $form->{$_};
+  }
+
+
   if ($form->{printandpost}){
     &post;
   } else {
@@ -204,6 +215,11 @@ sub print_check {
                    id          => $form->{id} );
 
     $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
+    $filename .= ($old_form->{format} eq 'postscript') ? '.ps' : '.pdf';
+    $old_form->{OUT} = ">$spool/$filename";
+
+    $old_form->{queued} .= " $form->{formname} $filename";
+    $old_form->{queued} =~ s/^ //;
   }
 
   if ($form->{media} !~ /(screen|queue)/) {
diff --git a/menu.ini b/menu.ini
index e637f72b..02485adc 100644
--- a/menu.ini
+++ b/menu.ini
@@ -528,6 +528,13 @@ action=acc_menu
 target=acc_menu
 submenu=1
 
+[Batch Printing--Print--Checks]
+module=bp.pl
+action=search
+type=check
+vc=vendor
+
+
 [Batch Printing--Print--Sales Invoices]
 module=bp.pl
 action=search