Ted, I am loath to modify the source code, since it will not survive any upgrades. Is there a way of creating a separate perl script that does this, perhaps?
el In message <[EMAIL PROTECTED]>, Ted Petit writes: > > > David Everly wrote: > > >On the web example: http://abacus.sql-ledger.org/sql-ledger/login.pl > > > >If I go to AR | Reports | AR Aging, I get something that is a little > >what I'm looking for. > > > >However, what I want to do is print all customers in one batch, one > >sheet of paper (or more) per customer, stuff into envelopes, and mail. > > > I have a routine written which I refer to as an "Outstanding Invoice > Summary". Essentially, this is an add-on to the Accounts Receivable > Aging report. If you check the 'Print Reports' box prior to clicking > 'Generate AR Aging', a report is generated for each customer in the same > format as the aging screen. > > The instructions and the tex file are attached. > > > -- Attached file included as plaintext by Ecartis -- > -- File: aging.tex > > \documentclass[twoside]{scrartcl} > \usepackage[frame]{xy} > \usepackage{tabularx} > \setlength{\voffset}{0.5cm} > \setlength{\hoffset}{-2.0cm} > \setlength{\topmargin}{0cm} > \setlength{\headheight}{0.5cm} > \setlength{\headsep}{1cm} > \setlength{\topskip}{0pt} > \setlength{\oddsidemargin}{1.0cm} > \setlength{\evensidemargin}{1.0cm} > \setlength{\textwidth}{19.2cm} > \setlength{\textheight}{24.5cm} > \setlength{\footskip}{1cm} > \setlength{\parindent}{0pt} > \renewcommand{\baselinestretch}{1} > \begin{document} > > \newlength{\descrwidth}\setlength{\descrwidth}{10cm} > > \newsavebox{\hdr} > \sbox{\hdr}{ > \fontfamily{cmss}\fontsize{10pt}{12pt}\selectfont > > \parbox{\textwidth}{ > \parbox[b]{12cm}{ > <%company%> > > <%address%>}\hfill > \begin{tabular}[b]{rrr@{}} > Telephone & <%tel%>\\ > Facsimile & <%fax%> > \end{tabular} > > \rule[1.5ex]{\textwidth}{0.5pt} > } > } > > \fontfamily{cmss}\fontshape{n}\selectfont > > \markboth{<%company%>\hfill <%ordnumber%>}{\usebox{\hdr}} > > \pagestyle{myheadings} > %\thispagestyle{empty} use this with letterhead paper > > <%pagebreak 90 27 48%> > \end{tabular*} > > \rule{\textwidth}{2pt} > > \hfill > \begin{tabularx}{7cm}{Xr@{}} > \textbf{Subtotal} & \textbf{<%sumcarriedforward%>} \\ > \end{tabularx} > > \newpage > > \markright{<%company%>\hfill <%ordnumber%>} > > \vspace*{-12pt} > > \begin{tabular*}{\textwidth}{@{}lp{\descrwidth}@{\extracolsep\fill}rlrrr@{}} > \textbf{Number} & \textbf{Description} & \textbf{Qty} & > \textbf{Unit} & \textbf{Price} & \textbf{Disc} & \textbf{Amount} \\ > & carried forward from <%lastpage%> & & & & & <%sumcarriedforward%> \\ > <%end pagebreak%> > > > \fontfamily{cmss}\fontsize{10pt}{12pt}\selectfont > > \vspace*{2cm} > > <%name%> > > <%addr1%> > > <%addr2%>, <%addr3%> <%addr4%> > > \vspace{3.5cm} > > \textbf{OUTSTANDING INVOICE SUMMARY} > \hfill > \begin{tabular}[t]{l@{\hspace{0.3cm}}l} > \textbf{Date} & <%checkdate%> \\ > \end{tabular} > > \vspace{1cm} > > \begin{tabular*}{\textwidth}{lcccrrrr} > \textbf{PO Number} & \textbf{Invoice Number} & \textbf{Invoice Date} & > \textbf{Due Date} & \textbf{0-30} & \textbf{31-60} & \textbf{61-90} & \te > xtbf{90+}\\ > <%foreach ainvnumber%> > <%aponumber%> & <%ainvnumber%> & <%ainvdate%> & <%aduedate%> & <%ac0%> & <% > ac30%> & <%ac60%> & <%ac90%> \\ > <%end ainvnumber%> > \textbf{Subtotal} & & & & <%c0subtotal%> & <%c30subtotal%> & <%c60subtotal%> > & <%c90subtotal%> > \end{tabular*} > \rule{\textwidth}{1pt} > \parbox{\textwidth}{ > > > \vspace{0.2cm} > > \hfill > \vspace{0.3cm} > > \hfill > All prices in \textbf{US} funds. > > \vspace{12pt} > > <%if notes%> > <%notes%> > <%end if%> > > } > > > \renewcommand{\thefootnote}{\fnsymbol{footnote}} > > \footnotetext[1]{\tiny > A 10\% order cancellation fee will be applied for any special order products > or > products that have been customized, enhanced or upgraded at customers request > . > Items which are non-returnable are indicated above. > } > > \end{document} > > > > -- Attached file included as plaintext by Ecartis -- > -- File: Outstanding Invoice Summary Procedure > > Changes needed to print Outstanding Invoice Summaries. > v1.8.7) > > Step 1: This puts a check box on the AR aging screen to enable printing of su > mmaries > ***************************************************************************** > **** > ** PUT IN rp.pl sub aging (line 359) AFTER: > ** > ** > ** > **<tr> > ** > ** > ** > ** <th align=right>|.$locale->text('To').qq| ($myconfig{dateformat})</t > h>** > ** <td colspan=3><input name=todate size=11></td> > ** > ** > ** > **</tr> > ** > ***************************************************************************** > **** > <tr> > > <th align=right>|.$locale->text('Print Reports').qq| </th> > <td colspan=3><input name=print_report class=checkbox type=checkbox value > =Y></td> > > </tr> > > > > > Step 2: This captures and prints the last customer: > ***************************************************************************** > ***** > ** PUT IN rp.pl sub aging (line 836) AFTER: > ** > ** > ** > ** $column_data{c90} = qq|<td align=right>$ref->{c90}</td>|; > ** > ** > ** > ** > ** > ** $i++; $i %= 2; > ** > ** print qq|<tr class=listrow$i>|; > ** > ** > ** > ** map { print "$column_data{$_}\n" } @column_index; > ** > ** > ** > ** print qq| > ** > **</tr>|; > ** > ** > ** > ** $ctid = $ref->{id}; > ** > ** } > ** > ***************************************************************************** > ***** > > if ($form->{print_report}) { > > # get last report > $form->{c0subtotal} = $form->format_amount(\%myconfig, $c0subtotal, 2); > $form->{c30subtotal} = $form->format_amount(\%myconfig, $c30subtotal, 2); > $form->{c60subtotal} = $form->format_amount(\%myconfig, $c60subtotal, 2); > $form->{c90subtotal} = $form->format_amount(\%myconfig, $c90subtotal, 2); > &print_aging; > > $msg = 'Invoice Aging Summaries printed'; > > } > > > > Step 3: This captures all summary data for print and initiates > print when the customer id changes > ***************************************************************************** > **** > ** PUT IN rp.pl sub aging (line 757) AFTER: > ** > ** > ** > ** foreach $ref (@{ $form->{AG} }) { > ** > ** > ** > ***************************************************************************** > **** > > $form->{c0subtotal} = $form->format_amount(\%myconfig, $c0subtotal, 2); > $form->{c30subtotal} = $form->format_amount(\%myconfig, $c30subtotal, 2); > $form->{c60subtotal} = $form->format_amount(\%myconfig, $c60subtotal, 2); > $form->{c90subtotal} = $form->format_amount(\%myconfig, $c90subtotal, 2); > > if ($form->{print_report}) { > if ($subtotal && $ctid != $ref->{id}) { > > # print aging report > &print_aging; > > @{ $form->{ainvnumber} } = (); > @{ $form->{aponumber} } = (); > @{ $form->{ainvdate} } = (); > @{ $form->{aduedate} } = (); > @{ $form->{ac0} } = (); > @{ $form->{ac30} } = (); > @{ $form->{ac60} } = (); > @{ $form->{ac90} } = (); > $form->{c0subtotal} = ""; > $form->{c30subtotal} = ""; > $form->{c60subtotal} = ""; > $form->{c90subtotal} = ""; > > } > push(@{ $form->{ainvnumber} }, $ref->{invnumber}); > push(@{ $form->{aponumber} }, $ref->{ponumber}); > push(@{ $form->{ainvdate} }, $ref->{transdate}); > push(@{ $form->{aduedate} }, $ref->{duedate}); > push(@{ $form->{ac0} }, $form->format_amount(\%myconfig, $ref->{c0}, 2)); > push(@{ $form->{ac30} },$form->format_amount(\%myconfig, $ref->{c30}, 2)) > ; > push(@{ $form->{ac60} },$form->format_amount(\%myconfig, $ref->{c60}, 2)) > ; > push(@{ $form->{ac90} },$form->format_amount(\%myconfig, $ref->{c90}, 2)) > ; > } > > > Step 4: This is the sub that preps and initiates printing: > ***************************************************************************** > *** > ** PUT AT THE END OF rp.pl > ** > ***************************************************************************** > *** > > sub print_aging { > > # get customer > $form->{customer_id} = $ctid; > IS->customer_details(\%myconfig, \%$form); > > $form->{company}=$myconfig{company}; > $form->{address}=$myconfig{address}; > $form->{tel}=$myconfig{tel}; > $form->{fax}=$myconfig{fax}; > $form->{type}="aging"; > $form->{templates} = "$myconfig{templates}"; > $form->{IN} = "$form->{type}.tex"; > $form->{contenttype} = ""; > $form->{format}="postscript"; > $form->{media}="printer"; > $form->{printer} = "lpr" unless $form->{printer}; > $form->{OUT} = "|$form->{printer}"; > $form->{checkdate} = $form->check_date; > > $form->parse_template(\%myconfig, $userspath); > > } > > > >
