summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xLedgerSMB/BP.pm4
-rwxr-xr-xbin/mozilla/arapprn.pl16
-rw-r--r--menu.ini7
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