bin/rp.pl



#=====================================================================
# LedgerSMB Small Medium Business Accounting
# http://www.ledgersmb.org/
#

# Copyright (C) 2006
# This work contains copyrighted information from a number of sources all used
# with permission.
#
# This file contains source code included with or based on SQL-Ledger which
# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed 
# under the GNU General Public License version 2 or, at your option, any later 
# version.  For a full list including contact information of contributors, 
# maintainers, and copyright holders, see the CONTRIBUTORS file.
#
# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
# Copyright (c) 2001
#
#  Author: DWS Systems Inc.
#     Web: http://www.sql-ledger.org
#
#  Contributors: Antonio Gallardo <agssa@ibw.com.ni>
#                Benjamin Lee <benjaminlee@consultant.com>
#
#
# 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.
#======================================================================
#
# module for preparing Income Statement and Balance Sheet
# 
#======================================================================


require "bin/arap.pl";

use LedgerSMB::PE;
use LedgerSMB::RP;

1;
# end of main

# this is for our long dates
# $locale->text('January')
# $locale->text('February')
# $locale->text('March')
# $locale->text('April')
# $locale->text('May ')
# $locale->text('June')
# $locale->text('July')
# $locale->text('August')
# $locale->text('September')
# $locale->text('October')
# $locale->text('November')
# $locale->text('December')

# this is for our short month
# $locale->text('Jan')
# $locale->text('Feb')
# $locale->text('Mar')
# $locale->text('Apr')
# $locale->text('May')
# $locale->text('Jun')
# $locale->text('Jul')
# $locale->text('Aug')
# $locale->text('Sep')
# $locale->text('Oct')
# $locale->text('Nov')
# $locale->text('Dec')

# $locale->text('Balance Sheet')
# $locale->text('Income Statement')
# $locale->text('Trial Balance')
# $locale->text('AR Aging')
# $locale->text('AP Aging')
# $locale->text('Tax collected')
# $locale->text('Tax paid')
# $locale->text('Receipts')
# $locale->text('Payments')
# $locale->text('Project Transactions')
# $locale->text('Non-taxable Sales')
# $locale->text('Non-taxable Purchases')


sub report {

  %report = ( balance_sheet => { title => 'Balance Sheet' },
             income_statement   => { title => 'Income Statement' },
             trial_balance  => { title => 'Trial Balance' },
         ar_aging       => { title => 'AR Aging', vc => 'customer' },
         ap_aging       => { title => 'AP Aging', vc => 'vendor' },
         tax_collected  => { title => 'Tax collected', vc => 'customer' },
         tax_paid       => { title => 'Tax paid' },
         nontaxable_sales   => { title => 'Non-taxable Sales', vc => 'customer' },
         nontaxable_purchases => { title => 'Non-taxable Purchases' },
         receipts       => { title => 'Receipts', vc => 'customer' },
         payments       => { title => 'Payments' },
         projects       => { title => 'Project Transactions' },
         inv_activity   => { title => 'Inventory Activity'},
       );
  
  $form->{title} = $locale->text($report{$form->{report}}->{title});

  $gifi = qq|
<tr>
  <th align=right>|.$locale->text('Accounts').qq|</th>
  <td><input name=accounttype class=radio type=radio value=standard checked> |.$locale->text('Standard').qq|
   
      <input name=accounttype class=radio type=radio value=gifi> |.$locale->text('GIFI').qq|
  </td>
</tr>
|;
  
    
  # get departments
  $form->all_departments(\%myconfig, undef, $report{$form->{report}}->{vc});
  if (@{ $form->{all_department} }) {
    $form->{selectdepartment} = "<option>\n";

    for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }
  }
 
  $department = qq|
    <tr>
      <th align=right nowrap>|.$locale->text('Department').qq|</th>
      <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
    </tr>
| if $form->{selectdepartment};

  if (@{ $form->{all_years} }) {
    # accounting years
    $form->{selectaccountingyear} = "<option>\n";
    for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|<option>$_\n| }

    $form->{selectaccountingmonth} = "<option>\n";
    for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| }

    $selectfrom = qq|
        <tr>
      <th align=right>|.$locale->text('Period').qq|</th>
      <td colspan=3>
      <select name=month>$form->{selectaccountingmonth}</select>
      <select name=year>$form->{selectaccountingyear}</select>
      <input name=interval class=radio type=radio value=0 checked>&nbsp;|.$locale->text('Current').qq|
      <input name=interval class=radio type=radio value=1>&nbsp;|.$locale->text('Month').qq|
      <input name=interval class=radio type=radio value=3>&nbsp;|.$locale->text('Quarter').qq|
      <input name=interval class=radio type=radio value=12>&nbsp;|.$locale->text('Year').qq|
      </td>
    </tr>
|;

    $selectto = qq|
        <tr>
      <th align=right></th>
      <td>
      <select name=month>$form->{selectaccountingmonth}</select>
      <select name=year>$form->{selectaccountingyear}</select>
      </td>
    </tr>
|;
  }


  $summary = qq|
    <tr>
      <th></th>
      <td><input name=summary type=radio class=radio value=1 checked> |.$locale->text('Summary').qq|
      <input name=summary type=radio class=radio value=0> |.$locale->text('Detail').qq|
      </td>
    </tr>
|;

  # get projects
  $form->all_projects(\%myconfig);
  if (@{ $form->{all_project} }) {
    $form->{selectproject} = "<option>\n";
    for (@{ $form->{all_project} }) { $form->{selectproject} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }

    $project = qq|
    <tr>
      <th align=right nowrap>|.$locale->text('Project').qq|</th>
      <td colspan=3><select name=projectnumber>$form->{selectproject}</select></td>
    </tr>|;

  }
 
  $form->header;
 
  print qq|
<body>

<form method=post action=$form->{script}>

<input type=hidden name=title value="$form->{title}">

<table width=100%>
  <tr>
    <th class=listtop>$form->{title}</th>
  </tr>
  <tr height="5"></tr>
  <tr>
    <td>
      <table>
      $department
|;

  if ($form->{report} eq "projects") {
    print qq|
        $project
        <input type=hidden name=nextsub value=generate_projects>
        <tr>
      <th align=right>|.$locale->text('From').qq|</th>
      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
    </tr>
    $selectfrom
      </table>
    </td>
  </tr>
  <tr>
    <td>
      <table>
    <tr>
      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
      <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|
      <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|</td>
    </tr>
|;
  }

  if ($form->{report} eq "inv_activity"){
        $gifi = '';
        print qq|
       <input type=hidden name=nextsub value=generate_inv_activity>
    <tr>
      <th align=right>|.$locale->text('From').qq|</th>
      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
    </tr>
       <tr>
      <th align=right>|.$locale->text('Period').qq|</th>
      <td colspan=3>
      <select name=frommonth>$form->{selectaccountingmonth}</select>
      <select name=fromyear>$form->{selectaccountingyear}</select>
      <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq|
      <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq|
      <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq|
      <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq|
      </td>
    </tr>
        </table>
        <table>
          <tr>
            <th>|.$locale->text("Part Number").qq|</th>
            <td><input name=partnumber></td>
            <th>|.$locale->text('Description').qq|</th>
            <td><input type=text name=description></td>
          </tr>|;
  }
  if ($form->{report} eq "income_statement") {
    print qq|
    $project
        <input type=hidden name=nextsub value=generate_income_statement>
    <tr>
      <th align=right>|.$locale->text('From').qq|</th>
      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
    </tr>
|;

    if ($selectfrom) {
      print qq|
        <tr>
      <th align=right>|.$locale->text('Period').qq|</th>
      <td colspan=3>
      <select name=frommonth>$form->{selectaccountingmonth}</select>
      <select name=fromyear>$form->{selectaccountingyear}</select>
      <input name=interval class=radio type=radio value=0 checked>&nbsp;|.$locale->text('Current').qq|
      <input name=interval class=radio type=radio value=1>&nbsp;|.$locale->text('Month').qq|
      <input name=interval class=radio type=radio value=3>&nbsp;|.$locale->text('Quarter').qq|
      <input name=interval class=radio type=radio value=12>&nbsp;|.$locale->text('Year').qq|
      </td>
    </tr>
|;
    }

    print qq|

    <tr>
      <th align=right>|.$locale->text('Compare to').qq|</th>
    </tr>
    <tr>
      <th align=right>|.$locale->text('From').qq|</th>
      <td><input name=comparefromdate size=11 title="$myconfig{dateformat}"></td>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=comparetodate size=11 title="$myconfig{dateformat}"></td>
    </tr>
|;

    if ($selectto) {
      print qq|
        <tr>
      <th align=right>|.$locale->text('Period').qq|</th>
      <td>
      <select name=comparemonth>$form->{selectaccountingmonth}</select>
      <select name=compareyear>$form->{selectaccountingyear}</select>
      </td>
    </tr>
|;
    }

    print qq|
    <tr>
      <th align=right>|.$locale->text('Decimalplaces').qq|</th>
      <td><input name=decimalplaces size=3 value=2></td>
    </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td>
      <table>
    <tr>
      <th align=right>|.$locale->text('Method').qq|</th>
      <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
    </tr>

    <tr>
      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
      <td colspan=3><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|
      <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|
      <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Account Number').qq|</td>
    </tr>
|;
  }


  if ($form->{report} eq "balance_sheet") {
    print qq|
        <input type=hidden name=nextsub value=generate_balance_sheet>
    <tr>
      <th align=right>|.$locale->text('as at').qq|</th>
      <td><input name=asofdate size=11 title="$myconfig{dateformat}" value=$form->{asofdate}></td>
|;

   if ($selectfrom) {
     print qq|
      <td>
      <select name=asofmonth>$form->{selectaccountingmonth}</select>
      <select name=asofyear>$form->{selectaccountingyear}</select>
      </td>
|;
   }

   print qq|
    </tr>

      <th align=right nowrap>|.$locale->text('Compare to').qq|</th>
      <td><input name=compareasofdate size=11 title="$myconfig{dateformat}"></td>
      <td>
|;

   if ($selectto) {
     print qq|
      <select name=compareasofmonth>$form->{selectaccountingmonth}</select>
      <select name=compareasofyear>$form->{selectaccountingyear}</select>
      </td>
|;
   }

   print qq|
    </tr>
    <tr>
      <th align=right>|.$locale->text('Decimalplaces').qq|</th>
      <td><input name=decimalplaces size=3 value=2></td>
    </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td>
      <table>
    <tr>
      <th align=right>|.$locale->text('Method').qq|</th>
      <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
    </tr>

    <tr>
      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
      <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|
      <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|
      <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Account Number').qq|</td>
    </tr>
|;
  }


  if ($form->{report} eq "trial_balance") {
    print qq|
        <input type=hidden name=nextsub value=generate_trial_balance>
        <tr>
      <th align=right>|.$locale->text('From').qq|</th>
      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
    </tr>
    $selectfrom
      </table>
    </td>
  </tr>
  <tr>
    <td>
      <table>
    <tr>
      <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
      <td><input name=l_heading class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Heading').qq|
      <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Subtotal').qq|
      <input name=all_accounts class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('All Accounts').qq|</td>
    </tr>
|;
  }

  
  if ($form->{report} =~ /^tax_/) {
    $gifi = "";

    $form->{db} = ($form->{report} =~ /_collected/) ? "ar" : "ap";
    
    RP->get_taxaccounts(\%myconfig, \%$form);

    print qq|
        <input type=hidden name=nextsub value=generate_tax_report>
    <tr>
      <th align=right>|.$locale->text('From').qq|</th>
      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
    </tr>
    $selectfrom
    $summary
    <tr>
      <th align=right>|.$locale->text('Report for').qq|</th>
      <td colspan=3>
|;

  $checked = "checked";
  foreach $ref (@{ $form->{taxaccounts} }) {
    
    print qq|<input name=accno class=radio type=radio value=$ref->{accno} $checked>&nbsp;$ref->{description}

    <input name="$ref->{accno}_description" type=hidden value="$ref->{description}">
    <input name="$ref->{accno}_rate" type=hidden value="$ref->{rate}">|;

    $checked = "";

  }

  print qq|
  <input type=hidden name=db value=$form->{db}>
  <input type=hidden name=sort value=transdate>

      </td>
    </tr>
|;


  if (@{ $form->{gifi_taxaccounts} }) {
    print qq|
        <tr>
      <th align=right>|.$locale->text('GIFI').qq|</th>
      <td colspan=3>
|;

    foreach $ref (@{ $form->{gifi_taxaccounts} }) {
      
      print qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}">&nbsp;$ref->{description}

      <input name="gifi_$ref->{accno}_description" type=hidden value="$ref->{description}">
      <input name="gifi_$ref->{accno}_rate" type=hidden value="$ref->{rate}">|;

    }

    print qq|
      </td>
    </tr>
|;
  }


print qq|
    <tr>
      <th align=right>|.$locale->text('Method').qq|</th>
      <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
    </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td>
      <table>
        <tr>
      <th align=right>|.$locale->text('Include in Report').qq|</th>
      <td>
        <table>
          <tr>
        <td><input name="l_id" class=checkbox type=checkbox value=Y></td>
        <td>|.$locale->text('ID').qq|</td>
        <td><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Invoice').qq|</td>
        <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Date').qq|</td>
          </tr>
          <tr>
        <td><input name="l_name" class=checkbox type=checkbox value=Y checked></td>
|;
        
  if ($form->{db} eq 'ar') {
    print qq|<td>|.$locale->text('Customer').qq|</td>|;
  }
  if ($form->{db} eq 'ap') {
    print qq|<td>|.$locale->text('Vendor').qq|</td>|;
  }
  
  print qq|
            <td><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Description').qq|</td>
        <td><input name="l_netamount" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Amount').qq|</td>
        
        <td><input name="l_tax" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Tax').qq|</td>
        
                <td><input name="l_total" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Total').qq|</td>
          </tr>
          <tr>
          </tr>
          <tr>
            <td><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
        <td>|.$locale->text('Subtotal').qq|</td>
          </tr>
        </table>
      </td>
    </tr>
|;

  }

  
  if ($form->{report} =~ /^nontaxable_/) {
    $gifi = "";

    $form->{db} = ($form->{report} =~ /_sales/) ? "ar" : "ap";
    
    print qq|
        <input type=hidden name=nextsub value=generate_tax_report>

        <input type=hidden name=db value=$form->{db}>
        <input type=hidden name=sort value=transdate>
        <input type=hidden name=report value=$form->{report}>

    <tr>
      <th align=right>|.$locale->text('From').qq|</th>
      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
    </tr>
    $selectfrom
    $summary
    <tr>
      <th align=right>|.$locale->text('Method').qq|</th>
      <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq|
      &nbsp;<input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td>
    </tr>
        <tr>
      <th align=right>|.$locale->text('Include in Report').qq|</th>
      <td colspan=3>
        <table>
          <tr>
        <td><input name="l_id" class=checkbox type=checkbox value=Y></td>
        <td>|.$locale->text('ID').qq|</td>
        <td><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Invoice').qq|</td>
        <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Date').qq|</td>
          </tr>
          <tr>
        <td><input name="l_name" class=checkbox type=checkbox value=Y checked></td>
|;
        
  if ($form->{db} eq 'ar') {
    print qq|<td>|.$locale->text('Customer').qq|</td>|;
  }
  if ($form->{db} eq 'ap') {
    print qq|<td>|.$locale->text('Vendor').qq|</td>|;
  }
  
  print qq|
            <td><input name="l_description" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Description').qq|</td>
                <td><input name="l_netamount" class=checkbox type=checkbox value=Y checked></td>
        <td>|.$locale->text('Amount').qq|</td>
          </tr>
          <tr>
            <td><input name="l_subtotal" class=checkbox type=checkbox value=Y></td>
        <td>|.$locale->text('Subtotal').qq|</td>
          </tr>
        </table>
      </td>
    </tr>
|;

  }


  if (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) {
    $gifi = "";

    if ($form->{report} eq 'ar_aging') {
      $label = $locale->text('Customer');
      $form->{vc} = 'customer';
    } else {
      $label = $locale->text('Vendor');
      $form->{vc} = 'vendor';
    }
      
    $nextsub = "generate_$form->{report}";
    
    # setup vc selection
    $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP");

    for (@{ $form->{"all_$form->{vc}"} }) { $vc .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }
    
    $vc = ($vc) ? qq|<select name=$form->{vc}><option>\n$vc</select>| : qq|<input name=$form->{vc} size=35>|;
    
    $postscript = "postscript" if $myconfig{printer};

    print qq|
    <tr>
      <th align=right>|.$locale->text($label).qq|</th>
      <td>$vc</td>
    </tr>
    <tr>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
    </tr>
    $selectto
        <input type=hidden name=type value=statement>
        <input type=hidden name=format value=$postscript>
    <input type=hidden name=media value="$myconfig{printer}">

    <input type=hidden name=nextsub value=$nextsub>
    <input type=hidden name=action value=$nextsub>
    $summary
    <tr>
      <table>
        <tr>
          <th>|.$locale->text('Include in Report').qq|</th>

          <td>
            <table>
          <tr>
                <td nowrap><input name=overdue type=radio class=radio value=0 checked> |.$locale->text('Aged').qq|</td>
                <td nowrap><input name=overdue type=radio class=radio value=1> |.$locale->text('Overdue').qq|</td>
              </tr>
          <tr>
            <td nowrap width=70><input name=c0 type=checkbox class=checkbox value=1 checked> |.$locale->text('Current').qq|</td>
            <td nowrap width=70><input name=c30 type=checkbox class=checkbox value=1 checked> 30</td>
            <td nowrap width=70><input name=c60 type=checkbox class=checkbox value=1 checked> 60</td>
            <td nowrap width=70><input name=c90 type=checkbox class=checkbox value=1 checked> 90</td>
            </td>
          </tr>
        </table>
          </td>
        </tr>
      </table>
    </tr>

|;
  }

# above action can be removed if there is more than one input field


  if ($form->{report} =~ /(receipts|payments)$/) {
    $gifi = "";

    $form->{db} = ($form->{report} =~ /payments$/) ? "ap" : "ar";

    RP->paymentaccounts(\%myconfig, \%$form);

    $selection = "<option>\n";
    foreach $ref (@{ $form->{PR} }) {
      $paymentaccounts .= "$ref->{accno} ";
      $selection .= "<option>$ref->{accno}--$ref->{description}\n";
    }
    
    chop $paymentaccounts;

    print qq|
        <input type=hidden name=nextsub value=list_payments>
        <tr>
      <th align=right nowrap>|.$locale->text('Account').qq|</th>
          <td colspan=3><select name=account>$selection</select>
        <input type=hidden name=paymentaccounts value="$paymentaccounts">
      </td>
    </tr>
        <tr>
      <th align=right nowrap>|.$locale->text('Description').qq|</th>
          <td colspan=3><input name=description size=35></td>
    </tr>
        <tr>
      <th align=right nowrap>|.$locale->text('Source').qq|</th>
          <td colspan=3><input name=source></td>
    </tr>
        <tr>
      <th align=right nowrap>|.$locale->text('Memo').qq|</th>
          <td colspan=3><input name=memo size=30></td>
    </tr>
    <tr>
      <th align=right>|.$locale->text('From').qq|</th>
      <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td>
      <th align=right>|.$locale->text('To').qq|</th>
      <td><input name=todate size=11 title="$myconfig{dateformat}"></td>
    </tr>
    $selectfrom
        <tr>
      <td align=right><input type=checkbox class=checkbox name=fx_transaction value=1 checked></td>
      <td colspan=3>|.$locale->text('Include Exchange Rate Difference').qq|</td>
    </tr>
        <tr>
      <td align=right><input name=l_subtotal class=checkbox type=checkbox value=Y></td>
      <td align=left colspan=3>|.$locale->text('Subtotal').qq|</th>
    </tr>
      
      <input type=hidden name=db value=$form->{db}>
      <input type=hidden name=sort value=transdate>
|;

  }


  print qq|

$gifi

      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>

<br>
<input type="hidden" name="path" value="$form->{path}">
<input type="hidden" name="login" value="$form->{login}">
<input type="hidden" name="sessionid" value="$form->{sessionid}">

<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button>

</form>
|;

  if ($form->{lynx}) {
    require "bin/menu.pl";
    &menubar;
  }

  print qq|

</body>
</html>
|;

}


sub continue { &{$form->{nextsub}} };

sub generate_inv_activity {
  $form->header;

  RP->inventory_activity(\%myconfig, \%$form);

  $title = $form->escape($form->{title});
  
#  if ($form->{department}) {
#    ($department) = split /--/, $form->{department};
#    $options = $locale->text('Department')." : $department<br>";
#    $department = $form->escape($form->{department});
#  }
##  if ($form->{projectnumber}) {
#    ($projectnumber) = split /--/, $form->{projectnumber};
#    $options .= $locale->text('Project Number')." : $projectnumber<br>";
#    $projectnumber = $form->escape($form->{projectnumber});
#  }

  # if there are any dates
  if ($form->{fromdate} || $form->{todate}) {
    if ($form->{fromdate}) {
      $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
    }
    if ($form->{todate}) {
      $todate = $locale->date(\%myconfig, $form->{todate}, 1);
    }
    
    $form->{period} = "$fromdate - $todate";
  } else {
    $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);

  }
  $options .= $form->{period};

  @column_index = qw(partnumber description sold revenue received expense);

  $href = qq|rp.pl?path=$form->{path}&action=continue&accounttype=$form->{accounttype}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title&nextsub=$form->{nextsub}|;

  $column_header{partnumber} = qq|
    <th class=listheading><a class=listheading href="$href&sort_col=partnumber">|
        .$locale->text('Part Number').qq|</a></th>|;
  $column_header{description} = qq|
    <th class=listheading><a class=listheading href="$href&sort_col=description">|
        .$locale->text('Description').qq|</a></th>|;
  $column_header{sold} = qq|
    <th class=listheading><a class=listheading href="$href&sort_col=sold">|
        .$locale->text('Sold').qq|</a></th>|;
  $column_header{revenue} = qq|
    <th class=listheading><a class=listheading href="$href&sort_col=revenue">|
        .$locale->text('Revenue').qq|</a></th>|;
  $column_header{received} = qq|
    <th class=listheading><a class=listheading href="$href&sort_col=received">|
        .$locale->text('Received').qq|</a></th>|;
  $column_header{expense} = qq|
    <th class=listheading><a class=listheading href="$href&sort_col=expense">|
        .$locale->text('Expense').qq|</a></th>|;


  print qq|
<body>

<table width=100%>
  <tr>
    <th class=listtop>$form->{title}</th>
  </tr>
  <tr height="5"></tr>
  <tr>
    <td>$options</td>
  </tr>
  <tr>
    <td>
      <table width=100%>
    <tr>|;

  map { print "$column_header{$_}\n" } @column_index;

  print qq|
        </tr>
|;


  if ($form->{sort_col} eq 'qty' || $form->{sort_col} eq 'revenue'){
    $form->{sort_type} = 'numeric';
  } 
  $i = 0;
  $cols = "l_transdate=Y&l_name=Y&l_invnumber=Y&summary=1";
  $dates= "transdatefrom=$form->{fromdate}&transdateto=$form->{todate}&year=$form->{fromyear}&month=$form->{frommonth}&interval=$form->{interval}";
  $base="path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";

  $form->{callback} = "rp.pl?action=continue&$base";
  $form->{callback} = $form->escape($form->{callback});
  $callback = "callback=$form->{callback}";
  # sort the whole thing by account numbers and display
  foreach $ref (@{ $form->{TB} }) {
    $description = $form->escape($ref->{description});
    $i = $i % 2; 

    $pnumhref="ic.pl?action=edit&id=$ref->{id}&$base&callback=$form->{callback}";
    $soldhref="ar.pl?action=transactions&partsid=$ref->{id}&$base&$cols&$dates&$callback";
    $rechref="ap.pl?action=transactions&partsid=$ref->{id}&$base&$cols&$dates&callback=$form->{callback}";    

    $ml = ($ref->{category} =~ /(A|E)/) ? -1 : 1;
    
    $debit = $form->format_amount(\%myconfig, $ref->{debit}, 2, "&nbsp;");
    $credit = $form->format_amount(\%myconfig, $ref->{credit}, 2, "&nbsp;");
    $begbalance = $form->format_amount(\%myconfig, $ref->{balance} * $ml, 2, "&nbsp;");
    $endbalance = $form->format_amount(\%myconfig, ($ref->{balance} + $ref->{amount}) * $ml, 2, "&nbsp;");

    $ref->{partnumber} = qq|<a href="$pnumhref">$ref->{partnumber}</a>|;
    $ref->{sold} = qq|<a href="$soldhref">$ref->{sold}</a>|;
    $ref->{received} = qq|<a href="$rechref">$ref->{received}<a/>|;
    map { $column_data{$_} = "<td>&nbsp;</td>" } 
        @column_index;
   
    
    print qq|
      <tr class=listrow$i>
      |;
    map { print "<td>$ref->{$_}</td>\n" } @column_index;
    
    print qq|
      </tr>
|;
  ++$i;
  }


  print qq|
    </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>

</body>
</html>
|;

}


sub generate_income_statement {

  $form->{padding} = "&nbsp;&nbsp;";
  $form->{bold} = "<b>";
  $form->{endbold} = "</b>";
  $form->{br} = "<br>";
  
  RP->income_statement(\%myconfig, \%$form);

  ($form->{department}) = split /--/, $form->{department};
  ($form->{projectnumber}) = split /--/, $form->{projectnumber};
  
  $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
  $form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};

  # if there are any dates construct a where
  if ($form->{fromdate} || $form->{todate}) {
    
    unless ($form->{todate}) {
      $form->{todate} = $form->current_date(\%myconfig);
    }

    $longtodate = $locale->date(\%myconfig, $form->{todate}, 1);
    $shorttodate = $locale->date(\%myconfig, $form->{todate}, 0);
    
    $longfromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
    $shortfromdate = $locale->date(\%myconfig, $form->{fromdate}, 0);
    
    $form->{this_period} = "$shortfromdate<br>\n$shorttodate";
    $form->{period} = $locale->text('for Period').qq|<br>\n$longfromdate |.$locale->text('To').qq| $longtodate|;
  }

  if ($form->{comparefromdate} || $form->{comparetodate}) {
    $longcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 1);
    $shortcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 0);
    
    $longcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 1);
    $shortcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 0);
    
    $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate";
    $form->{period} .= "<br>\n$longcomparefromdate ".$locale->text('To').qq| $longcomparetodate|;
  }

  # setup variables for the form
  @a = qw(company address businessnumber);
  for (@a) { $form->{$_} = $myconfig{$_} }
  $form->{address} =~ s/\\n/<br>/g;

  $form->{templates} = $myconfig{templates};

  $form->{IN} = "income_statement.html";
  
  $form->parse_template;

}


sub generate_balance_sheet {

  $form->{padding} = "&nbsp;&nbsp;";
  $form->{bold} = "<b>";
  $form->{endbold} = "</b>";
  $form->{br} = "<br>";
  
  RP->balance_sheet(\%myconfig, \%$form);

  $form->{asofdate} = $form->current_date(\%myconfig) unless $form->{asofdate};
  $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
  
  ($form->{department}) = split /--/, $form->{department};
  
  # define Current Earnings account
  $padding = ($form->{l_heading}) ? $form->{padding} : "";
  push(@{$form->{equity_account}}, $padding.$locale->text('Current Earnings'));

  $form->{this_period} = $locale->date(\%myconfig, $form->{asofdate}, 0);
  $form->{last_period} = $locale->date(\%myconfig, $form->{compareasofdate}, 0);

  $form->{IN} = "balance_sheet.html";

  # setup company variables for the form
  for (qw(company address businessnumber nativecurr)) { $form->{$_} = $myconfig{$_} }
  $form->{address} =~ s/\\n/<br>/g;

  $form->{templates} = $myconfig{templates};
      
  $form->parse_template;

}


sub generate_projects {

  $form->{nextsub} = "generate_projects";
  $form->{title} = $locale->text('Project Transactions');

  RP->trial_balance(\%myconfig, \%$form);
  
  &list_accounts;

}


# Antonio Gallardo
#
# D.S. Feb 16, 2001
# included links to display transactions for period entered
# added headers and subtotals
#
sub generate_trial_balance {
  
  # get for each account initial balance, debits and credits
  RP->trial_balance(\%myconfig, \%$form);

  $form->{nextsub} = "generate_trial_balance";
  $form->{title} = $locale->text('Trial Balance');

  $form->{callback} = "$form->{script}?action=generate_trial_balance";
  for (qw(login path sessionid nextsub fromdate todate month year interval l_heading l_subtotal all_accounts accounttype title)) { $form->{callback} .= "&$_=$form->{$_}" }
  $form->{callback} = $form->escape($form->{callback});
  
  &list_accounts;

}


sub list_accounts {

  $title = $form->escape($form->{title});
  
  if ($form->{department}) {
    ($department) = split /--/, $form->{department};
    $options = $locale->text('Department')." : $department<br>";
    $department = $form->escape($form->{department});
  }
  if ($form->{projectnumber}) {
    ($projectnumber) = split /--/, $form->{projectnumber};
    $options .= $locale->text('Project Number')." : $projectnumber<br>";
    $projectnumber = $form->escape($form->{projectnumber});
  }

  # if there are any dates
  if ($form->{fromdate} || $form->{todate}) {

    if ($form->{fromdate}) {
      $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
    }
    if ($form->{todate}) {
      $todate = $locale->date(\%myconfig, $form->{todate}, 1);
    }
    
    $form->{period} = "$fromdate - $todate";
  } else {
    $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);

  }
  $options .= $form->{period};

  @column_index = qw(accno description begbalance debit credit endbalance);

  $column_header{accno} = qq|<th class=listheading>|.$locale->text('Account').qq|</th>|;
  $column_header{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|;
  $column_header{debit} = qq|<th class=listheading>|.$locale->text('Debit').qq|</th>|;
  $column_header{credit} = qq|<th class=listheading>|.$locale->text('Credit').qq|</th>|;
  $column_header{begbalance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|;
  $column_header{endbalance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|;


  if ($form->{accounttype} eq 'gifi') {
    $column_header{accno} = qq|<th class=listheading>|.$locale->text('GIFI').qq|</th>|;
  }
  

  $form->header;

  print qq|
<body>

<table width=100%>
  <tr>
    <th class=listtop>$form->{title}</th>
  </tr>
  <tr height="5"></tr>
  <tr>
    <td>$options</td>
  </tr>
  <tr>
    <td>
      <table width=100%>
    <tr>|;

  for (@column_index) { print "$column_header{$_}\n" }

  print qq|
        </tr>
|;


  # sort the whole thing by account numbers and display
  foreach $ref (sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} }) {

    $description = $form->escape($ref->{description});
    
    $href = qq|ca.pl?path=$form->{path}&action=list_transactions&accounttype=$form->{accounttype}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&sort=transdate&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title&nextsub=$form->{nextsub}&prevreport=$form->{callback}|;
    
    if ($form->{accounttype} eq 'gifi') {
      $href .= "&gifi_accno=$ref->{accno}&gifi_description=$description";
      $na = $locale->text('N/A');
      if (!$ref->{accno}) {
    for (qw(accno description)) { $ref->{$_} = $na }
      }
    } else {
      $href .= "&accno=$ref->{accno}&description=$description";
    }

    $ml = ($ref->{category} =~ /(A|E)/) ? -1 : 1;
    $ml *= -1 if $ref->{contra};
    
    $debit = $form->format_amount(\%myconfig, $ref->{debit}, 2, "&nbsp;");
    $credit = $form->format_amount(\%myconfig, $ref->{credit}, 2, "&nbsp;");
    $begbalance = $form->format_amount(\%myconfig, $ref->{balance} * $ml, 2, "&nbsp;");
    $endbalance = $form->format_amount(\%myconfig, ($ref->{balance} + $ref->{amount}) * $ml, 2, "&nbsp;");

 
    if ($ref->{charttype} eq "H" && $subtotal && $form->{l_subtotal}) {

      if ($subtotal) {

    for (qw(accno begbalance endbalance)) { $column_data{$_} = "<th>&nbsp;</th>" }

    $subtotalbegbalance = $form->format_amount(\%myconfig, $subtotalbegbalance, 2, "&nbsp;");
    $subtotalendbalance = $form->format_amount(\%myconfig, $subtotalendbalance, 2, "&nbsp;");
    $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;");
    $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;");
    
    $column_data{description} = "<th class=listsubtotal>$subtotaldescription</th>";
    $column_data{begbalance} = "<th align=right class=listsubtotal>$subtotalbegbalance</th>";
    $column_data{endbalance} = "<th align=right class=listsubtotal>$subtotalendbalance</th>";
    $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</th>";
    $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</th>";
    
    print qq|
      <tr class=listsubtotal>
|;
    for (@column_index) { print "$column_data{$_}\n" }
    
    print qq|
      </tr>
|;
      }
    }
 
    if ($ref->{charttype} eq "H") {
      $subtotal = 1;
      $subtotaldescription = $ref->{description};
      $subtotaldebit = $ref->{debit};
      $subtotalcredit = $ref->{credit};
      $subtotalbegbalance = 0;
      $subtotalendbalance = 0;

      if ($form->{l_heading}) {
    if (! $form->{all_accounts}) {
      if (($subtotaldebit + $subtotalcredit) == 0) {
        $subtotal = 0;
        next;
      }
    }
      } else {
    $subtotal = 0;
    if ($form->{all_accounts} || ($form->{l_subtotal} && (($subtotaldebit + $subtotalcredit) != 0))) {
      $subtotal = 1;
    }
    next;
      }
      
      for (qw(accno debit credit begbalance endbalance)) { $column_data{$_} = "<th>&nbsp;</th>" }
      $column_data{description} = "<th class=listheading>$ref->{description}</th>";
    }

    if ($ref->{charttype} eq "A") {
      $column_data{accno} = "<td><a href=$href>$ref->{accno}</a></td>";
      $column_data{description} = "<td>$ref->{description}</td>";
      $column_data{debit} = "<td align=right>$debit</td>";
      $column_data{credit} = "<td align=right>$credit</td>";
      $column_data{begbalance} = "<td align=right>$begbalance</td>";
      $column_data{endbalance} = "<td align=right>$endbalance</td>";
    
      $totaldebit += $ref->{debit};
      $totalcredit += $ref->{credit};

      $cml = ($ref->{contra}) ? -1 : 1;

      $subtotalbegbalance += $ref->{balance} * $ml * $cml;
      $subtotalendbalance += ($ref->{balance} + $ref->{amount}) * $ml * $cml;

    }
 
   
    if ($ref->{charttype} eq "H") {
      print qq|
      <tr class=listheading>
|;
    }
    if ($ref->{charttype} eq "A") {
      $i++; $i %= 2;
      print qq|
      <tr class=listrow$i>
|;
    }
    
    for (@column_index) { print "$column_data{$_}\n" }
    
    print qq|
      </tr>
|;
  }


  # print last subtotal
  if ($subtotal && $form->{l_subtotal}) {
    for (qw(accno begbalance endbalance)) { $column_data{$_} = "<th>&nbsp;</th>" }
    $subtotalbegbalance = $form->format_amount(\%myconfig, $subtotalbegbalance, 2, "&nbsp;");
    $subtotalendbalance = $form->format_amount(\%myconfig, $subtotalendbalance, 2, "&nbsp;");
    $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;");
    $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;");
    $column_data{description} = "<th class=listsubtotal>$subtotaldescription</th>";
    $column_data{begbalance} = "<th align=right class=listsubtotal>$subtotalbegbalance</th>";
    $column_data{endbalance} = "<th align=right class=listsubtotal>$subtotalendbalance</th>";
    $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</th>";
    $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</th>";
    
    print qq|
    <tr class=listsubtotal>
|;
    for (@column_index) { print "$column_data{$_}\n" }
    
    print qq|
    </tr>
|;
  }
  
  $totaldebit = $form->format_amount(\%myconfig, $totaldebit, 2, "&nbsp;");
  $totalcredit = $form->format_amount(\%myconfig, $totalcredit, 2, "&nbsp;");

  for (qw(accno description begbalance endbalance)) { $column_data{$_} = "<th>&nbsp;</th>" }
 
  $column_data{debit} = qq|<th align=right class=listtotal>$totaldebit</th>|;
  $column_data{credit} = qq|<th align=right class=listtotal>$totalcredit</th>|;
  
  print qq|
        <tr class=listtotal>
|;

  for (@column_index) { print "$column_data{$_}\n" }

  print qq|
    </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td><hr size=3 noshade></td>
  </tr>
</table>

</body>
</html>
|;

}


sub generate_ar_aging {

  # split customer
  ($form->{customer}) = split(/--/, $form->{customer});
  $customer = $form->escape($form->{customer},1);
  $title = $form->escape($form->{title},1);
  $media = $form->escape($form->{media},1);

  $form->{ct} = "customer";
  $form->{arap} = "ar";

  RP->aging(\%myconfig, \%$form);

  $form->{callback} = qq|$form->{script}?path=$form->{path}&action=generate_ar_aging&login=$form->{login}&sessionid=$form->{sessionid}&todate=$form->{todate}&customer=$customer&title=$title&type=$form->{type}&format=$form->{format}&media=$media&summary=$form->{summary}|;
  
  &aging;
  
}


sub generate_ap_aging {
  
  # split vendor
  ($form->{vendor}) = split(/--/, $form->{vendor});
  $vendor = $form->escape($form->{vendor},1);
  $title = $form->escape($form->{title},1);
  $media = $form->escape($form->{media},1);

  $form->{ct} = "vendor";
  $form->{arap} = "ap";
  
  RP->aging(\%myconfig, \%$form);

  $form->{callback} = qq|$form->{script}?path=$form->{path}&action=generate_ap_aging&login=$form->{login}&sessionid=$form->{sessionid}&todate=$form->{todate}&vendor=$vendor&title=$title&type=$form->{type}&format=$form->{format}&media=$media&summary=$form->{summary}|;

  &aging;
  
}


sub aging {

  $form->header;
  
  $column_header{statement} = qq|<th class=listheading width=1%>&nbsp;</th>|;
  $column_header{ct} = qq|<th class=listheading width=60%>|.$locale->text(ucfirst $form->{ct}).qq|</th>|;
  $column_header{language} = qq|<th class=listheading>|.$locale->text('Language').qq|</th>|;
  $column_header{invnumber} = qq|<th class=listheading>|.$locale->text('Invoice').qq|</th>|;
  $column_header{ordnumber} = qq|<th class=listheading>|.$locale->text('Order').qq|</th>|;
  $column_header{transdate} = qq|<th class=listheading nowrap>|.$locale->text('Date').qq|</th>|;
  $column_header{duedate} = qq|<th class=listheading nowrap>|.$locale->text('Due Date').qq|</th>|;
  $column_header{c0} = qq|<th class=listheading width=10% nowrap>|.$locale->text('Current').qq|</th>|;
  $column_header{c30} = qq|<th class=listheading width=10% nowrap>30</th>|;
  $column_header{c60} = qq|<th class=listheading width=10% nowrap>60</th>|;
  $column_header{c90} = qq|<th class=listheading width=10% nowrap>90</th>|;
  $column_header{total} = qq|<th class=listheading width=10% nowrap>|.$locale->text('Total').qq|</th>|;
  
  @column_index = qw(statement ct);

  if (@{ $form->{all_language} } && $form->{arap} eq 'ar') {
    push @column_index, "language";
    $form->{selectlanguage} = qq|<option>\n|;

    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }
  }
  
  @c = ();
  for (qw(c0 c30 c60 c90)) {
    if ($form->{$_}) {
      push @c, $_;
      $form->{callback} .= "&$_=$form->{$_}";
    }
  }
    
  if (!$form->{summary}) {
    push @column_index, qw(invnumber ordnumber transdate duedate);
  }
  push @column_index, @c;
  push @column_index, "total";

  $option = $locale->text('Aged');
  if ($form->{overdue}) {
    $option= $locale->text('Aged Overdue');
    $form->{callback} .= "&overdue=$form->{overdue}";
  }
  
  if ($form->{department}) {
      $option .= "\n<br>" if $option;
      ($department) = split /--/, $form->{department};
      $option .= $locale->text('Department')." : $department";
      $department = $form->escape($form->{department},1);
      $form->{callback} .= "&department=$department";
  }
    
  if ($form->{arap} eq 'ar') {
    if ($form->{customer}) {
      $option .= "\n<br>" if $option;
      $option .= $form->{customer};
    }
  }
  if ($form->{arap} eq 'ap') {
    shift @column_index;
    if ($form->{vendor}) {
      $option .= "\n<br>" if $option;
      $option .= $form->{vendor};
    }
  }

  $todate = $locale->date(\%myconfig, $form->{todate}, 1);
  $option .= "\n<br>" if $option;
  $option .= $locale->text('for Period')." ".$locale->text('To')." $todate";

  print qq|
<body>

<form method=post action=$form->{script}>

<table width=100%>
  <tr>
    <th class=listtop>$form->{title}</th>
  </tr>
  <tr height="5"></tr>
  <tr>
    <td>$option</td>
  </tr>
  <tr>
    <td>
      <table width=100%>
|;

  $ctid = 0;
  $i = 0;
  $k = 0;
  $l = $#{ $form->{AG} };

  foreach $ref (@{ $form->{AG} }) {

    if ($curr ne $ref->{curr}) {
      $ctid = 0;
      for (@column_index) { $column_data{$_} = qq|<th>&nbsp;</th>| }
      if ($curr) {
    $c0total = $form->format_amount(\%myconfig, $c0total, 2, "&nbsp");
    $c30total = $form->format_amount(\%myconfig, $c30total, 2, "&nbsp");
    $c60total = $form->format_amount(\%myconfig, $c60total, 2, "&nbsp");
    $c90total = $form->format_amount(\%myconfig, $c90total, 2, "&nbsp");
    $total = $form->format_amount(\%myconfig, $total, 2, "&nbsp");
    
    for (qw(ct statement language)) { $column_data{$_} = qq|<td>&nbsp;</td>| }
    $column_data{c0} = qq|<th align=right>$c0total</th>|;
    $column_data{c30} = qq|<th align=right>$c30total</th>|;
    $column_data{c60} = qq|<th align=right>$c60total</th>|;
    $column_data{c90} = qq|<th align=right>$c90total</th>|;
    $column_data{total} = qq|<th align=right>$total</th>|;

    print qq|
    <tr class=listtotal>
|;

    for (@column_index) { print "$column_data{$_}\n" }

    print qq|
      </tr>
|;

    $c0subtotal = 0;
    $c30subtotal = 0;
    $c60subtotal = 0;
    $c90subtotal = 0;
    $subtotal = 0;
    
    $c0total = 0;
    $c30total = 0;
    $c60total = 0;
    $c90total = 0;
    $total = 0;
 
      }
      
      $curr = $ref->{curr};
      print qq|
        <tr>
      <td></td>
      <th>$curr</th>
    </tr>
    
    <tr class=listheading>
|;

      for (@column_index) { print "$column_header{$_}\n" }
  
      print qq|
    </tr>
|;
    }
    
    $k++;
    
    if ($ctid != $ref->{ctid}) {

      $i++;

      $column_data{ct} = qq|<td>$ref->{name}</td>|;
      
      if ($form->{selectlanguage}) {
    $form->{"selectlanguage_$i"} = $form->{selectlanguage};
    $form->{"selectlanguage_$i"} =~ s/(<option value="\Q$ref->{language_code}\E")/$1 selected/;
    $column_data{language} = qq|<td><select name="language_code_$i">$form->{"selectlanguage_$i"}</select></td>|;
      }
      
      $column_data{statement} = qq|<td><input name="statement_$i" type=checkbox class=checkbox value=1 $ref->{checked}>
      <input type=hidden name="$form->{ct}_id_$i" value=$ref->{ctid}>
      <input type=hidden name="curr_$i" value=$ref->{curr}>
      </td>|;

    }

    $ctid = $ref->{ctid};

    for (qw(c0 c30 c60 c90)) { $ref->{$_} = $form->round_amount($ref->{$_} / $ref->{exchangerate}, 2) }

    $c0subtotal += $ref->{c0};
    $c30subtotal += $ref->{c30};
    $c60subtotal += $ref->{c60};
    $c90subtotal += $ref->{c90};

    $c0total += $ref->{c0};
    $c30total += $ref->{c30};
    $c60total += $ref->{c60};
    $c90total += $ref->{c90};
    
    $ref->{total} = ($ref->{c0} + $ref->{c30} + $ref->{c60} + $ref->{c90});
    $subtotal += $ref->{total};
    $total += $ref->{total};

    $ref->{c0} = $form->format_amount(\%myconfig, $ref->{c0}, 2, "&nbsp;");
    $ref->{c30} = $form->format_amount(\%myconfig, $ref->{c30}, 2, "&nbsp;");
    $ref->{c60} = $form->format_amount(\%myconfig, $ref->{c60}, 2, "&nbsp;");
    $ref->{c90} = $form->format_amount(\%myconfig, $ref->{c90}, 2, "&nbsp;");
    $ref->{total} = $form->format_amount(\%myconfig, $ref->{total}, 2, "&nbsp;");

    $href = qq|$ref->{module}.pl?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=|.$form->escape($form->{callback});