ledger-smb - Unnamed repository; edit this file to name it for gitweb.

summary refs log tree commit diff

path: root/locale/fr

diff options

Diffstat (limited to 'locale/fr')

0 files changed, 0 insertions, 0 deletions

# 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}>

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

</form>

  if ($form->{menubar}) {

    require "$form->{path}/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);


context:
space:
mode: