SF.net SVN: ledger-smb: [87] trunk

[..hidden..]

Revision: 87
          http://svn.sourceforge.net/ledger-smb/?rev=87&view=rev
Author:   einhverfr
Date:     2006-09-13 22:19:11 -0700 (Wed, 13 Sep 2006)

Log Message:
-----------
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.

Modified Paths:
--------------
    trunk/LedgerSMB/BP.pm
    trunk/bin/mozilla/arapprn.pl
    trunk/menu.ini

Modified: trunk/LedgerSMB/BP.pm
===================================================================
--- trunk/LedgerSMB/BP.pm	2006-09-14 03:22:47 UTC (rev 86)
+++ trunk/LedgerSMB/BP.pm	2006-09-14 05:19:11 UTC (rev 87)
@@ -50,7 +50,7 @@
 				 sales_quotation => ['oe'],
 				 request_quotation => ['oe'],
 				 timecard => ['jcitems'],
-				 check => ['ar'],
+				 check => ['ap'],
 		);
 
 	my $query = "";
@@ -126,7 +126,7 @@
 				 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};

Modified: trunk/bin/mozilla/arapprn.pl
===================================================================
--- trunk/bin/mozilla/arapprn.pl	2006-09-14 03:22:47 UTC (rev 86)
+++ trunk/bin/mozilla/arapprn.pl	2006-09-14 05:19:11 UTC (rev 87)
@@ -114,6 +114,17 @@
     $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 @@
                    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)/) {

Modified: trunk/menu.ini
===================================================================
--- trunk/menu.ini	2006-09-14 03:22:47 UTC (rev 86)
+++ trunk/menu.ini	2006-09-14 05:19:11 UTC (rev 87)
@@ -528,6 +528,13 @@
 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


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.