X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=sql-ledger%2Fbin%2Fmozilla%2Fbp.pl;fp=sql-ledger%2Fbin%2Fmozilla%2Fbp.pl;h=9d0cea480a2be5cb261d3ff176184f244a62fcd6;hb=32306b5f8ffe4ce594409aa6e89626740b225a39;hp=0000000000000000000000000000000000000000;hpb=52072fcd26f2faf57923f598c358e7f47c4e2643;p=freeside.git
diff --git a/sql-ledger/bin/mozilla/bp.pl b/sql-ledger/bin/mozilla/bp.pl
new file mode 100644
index 000000000..9d0cea480
--- /dev/null
+++ b/sql-ledger/bin/mozilla/bp.pl
@@ -0,0 +1,567 @@
+#=====================================================================
+# SQL-Ledger Accounting
+# Copyright (c) 2003
+#
+# Author: Dieter Simader
+# Email: dsimader@sql-ledger.org
+# Web: http://www.sql-ledger.org
+#
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+#======================================================================
+#
+# Batch printing
+#
+#======================================================================
+
+
+use SL::BP;
+
+1;
+# end of main
+
+
+sub search {
+
+# $locale->text('Sales Invoices')
+# $locale->text('Packing Lists')
+# $locale->text('Pick Lists')
+# $locale->text('Sales Orders')
+# $locale->text('Work Orders')
+# $locale->text('Purchase Orders')
+# $locale->text('Bin Lists')
+# $locale->text('Quotations')
+# $locale->text('RFQs')
+# $locale->text('Checks')
+# $locale->text('Receipts')
+
+ # setup customer/vendor selection
+ BP->get_vc(\%myconfig, \%$form);
+
+ if (@{ $form->{"all_$form->{vc}"} }) {
+ map { $name .= "