diff options
| -rwxr-xr-x | LedgerSMB/BP.pm | 4 | ||||
| -rwxr-xr-x | bin/mozilla/arapprn.pl | 16 | ||||
| -rw-r--r-- | menu.ini | 7 |
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)/) { @@ -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 |