summaryrefslogtreecommitdiff
path: root/bin/ca.pl
diff options
context:
space:
mode:
Diffstat (limited to 'bin/ca.pl')
-rwxr-xr-xbin/ca.pl638
1 files changed, 369 insertions, 269 deletions
diff --git a/bin/ca.pl b/bin/ca.pl
index 9554914d..ae2768e8 100755
--- a/bin/ca.pl
+++ b/bin/ca.pl
@@ -8,9 +8,9 @@
# 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,
+# 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):
@@ -43,12 +43,13 @@
#
# module for Chart of Accounts, Income Statement and Balance Sheet
# search and edit transactions posted by the GL, AR and AP
-#
+#
#======================================================================
use LedgerSMB::CA;
1;
+
# end of main
# this is for our long dates
@@ -79,27 +80,30 @@ use LedgerSMB::CA;
# $locale->text('Nov')
# $locale->text('Dec')
-
sub chart_of_accounts {
- CA->all_accounts(\%myconfig, \%$form);
+ CA->all_accounts( \%myconfig, \%$form );
- @column_index = qw(accno gifi_accno description debit credit);
+ @column_index = qw(accno gifi_accno description debit credit);
- $column_header{accno} = qq|<th class=listtop>|.$locale->text('Account').qq|</th>\n|;
- $column_header{gifi_accno} = qq|<th class=listtop>|.$locale->text('GIFI').qq|</th>\n|;
- $column_header{description} = qq|<th class=listtop>|.$locale->text('Description').qq|</th>\n|;
- $column_header{debit} = qq|<th class=listtop>|.$locale->text('Debit').qq|</th>\n|;
- $column_header{credit} = qq|<th class=listtop>|.$locale->text('Credit').qq|</th>\n|;
-
+ $column_header{accno} =
+ qq|<th class=listtop>| . $locale->text('Account') . qq|</th>\n|;
+ $column_header{gifi_accno} =
+ qq|<th class=listtop>| . $locale->text('GIFI') . qq|</th>\n|;
+ $column_header{description} =
+ qq|<th class=listtop>| . $locale->text('Description') . qq|</th>\n|;
+ $column_header{debit} =
+ qq|<th class=listtop>| . $locale->text('Debit') . qq|</th>\n|;
+ $column_header{credit} =
+ qq|<th class=listtop>| . $locale->text('Credit') . qq|</th>\n|;
- $form->{title} = $locale->text('Chart of Accounts');
+ $form->{title} = $locale->text('Chart of Accounts');
- $colspan = $#column_index + 1;
-
- $form->header;
+ $colspan = $#column_index + 1;
+
+ $form->header;
- print qq|
+ print qq|
<body>
<table border=0 width=100%>
@@ -107,55 +111,73 @@ sub chart_of_accounts {
<tr height="5"></tr>
<tr class=listheading>|;
- for (@column_index) { print $column_header{$_} }
+ for (@column_index) { print $column_header{$_} }
- print qq|
+ print qq|
</tr>
|;
-
- foreach $ca (@{ $form->{CA} }) {
-
- $description = $form->escape($ca->{description});
- $gifi_description = $form->escape($ca->{gifi_description});
-
- $href = qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&description=$description&gifi_accno=$ca->{gifi_accno}&gifi_description=$gifi_description|;
-
- if ($ca->{charttype} eq "H") {
- print qq|<tr class=listheading>|;
- for (qw(accno description)) { $column_data{$_} = "<th class=listheading>$ca->{$_}</th>" }
- $column_data{gifi_accno} = "<th class=listheading>$ca->{gifi_accno}&nbsp;</th>";
- } else {
- $i++; $i %= 2;
- print qq|<tr class=listrow$i>|;
- $column_data{accno} = "<td><a href=$href>$ca->{accno}</a></td>";
- $column_data{gifi_accno} = "<td><a href=$href&accounttype=gifi>$ca->{gifi_accno}</a>&nbsp;</td>";
- $column_data{description} = "<td>$ca->{description}</td>";
- }
-
- $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{debit}, 2, "&nbsp;")."</td>\n";
- $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{credit}, 2, "&nbsp;")."</td>\n";
-
- $totaldebit += $ca->{debit};
- $totalcredit += $ca->{credit};
-
- for (@column_index) { print "$column_data{$_}\n" }
-
- print qq|
+ foreach $ca ( @{ $form->{CA} } ) {
+
+ $description = $form->escape( $ca->{description} );
+ $gifi_description = $form->escape( $ca->{gifi_description} );
+
+ $href =
+qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&description=$description&gifi_accno=$ca->{gifi_accno}&gifi_description=$gifi_description|;
+
+ if ( $ca->{charttype} eq "H" ) {
+ print qq|<tr class=listheading>|;
+ for (qw(accno description)) {
+ $column_data{$_} = "<th class=listheading>$ca->{$_}</th>";
+ }
+ $column_data{gifi_accno} =
+ "<th class=listheading>$ca->{gifi_accno}&nbsp;</th>";
+ }
+ else {
+ $i++;
+ $i %= 2;
+ print qq|<tr class=listrow$i>|;
+ $column_data{accno} = "<td><a href=$href>$ca->{accno}</a></td>";
+ $column_data{gifi_accno} =
+"<td><a href=$href&accounttype=gifi>$ca->{gifi_accno}</a>&nbsp;</td>";
+ $column_data{description} = "<td>$ca->{description}</td>";
+ }
+
+ $column_data{debit} =
+ "<td align=right>"
+ . $form->format_amount( \%myconfig, $ca->{debit}, 2, "&nbsp;" )
+ . "</td>\n";
+ $column_data{credit} =
+ "<td align=right>"
+ . $form->format_amount( \%myconfig, $ca->{credit}, 2, "&nbsp;" )
+ . "</td>\n";
+
+ $totaldebit += $ca->{debit};
+ $totalcredit += $ca->{credit};
+
+ for (@column_index) { print "$column_data{$_}\n" }
+
+ print qq|
</tr>
|;
- }
+ }
+
+ for (qw(accno gifi_accno description)) {
+ $column_data{$_} = "<td>&nbsp;</td>";
+ }
- for (qw(accno gifi_accno description)) { $column_data{$_} = "<td>&nbsp;</td>" }
+ $column_data{debit} =
+ "<th align=right class=listtotal>"
+ . $form->format_amount( \%myconfig, $totaldebit, 2, 0 ) . "</th>";
+ $column_data{credit} =
+ "<th align=right class=listtotal>"
+ . $form->format_amount( \%myconfig, $totalcredit, 2, 0 ) . "</th>";
- $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, 0)."</th>";
- $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, 0)."</th>";
-
- print "<tr class=listtotal>";
+ print "<tr class=listtotal>";
- for (@column_index) { print "$column_data{$_}\n" }
+ for (@column_index) { print "$column_data{$_}\n" }
- print qq|
+ print qq|
</tr>
<tr>
<td colspan=$colspan><hr size=3 noshade></td>
@@ -168,57 +190,74 @@ sub chart_of_accounts {
}
-
sub list {
- $form->{title} = $locale->text('List Transactions');
- if ($form->{accounttype} eq 'gifi') {
- $form->{title} .= " - ".$locale->text('GIFI')." $form->{gifi_accno} - $form->{gifi_description}";
- } else {
- $form->{title} .= " - ".$locale->text('Account')." $form->{accno} - $form->{description}";
- }
+ $form->{title} = $locale->text('List Transactions');
+ if ( $form->{accounttype} eq 'gifi' ) {
+ $form->{title} .= " - "
+ . $locale->text('GIFI')
+ . " $form->{gifi_accno} - $form->{gifi_description}";
+ }
+ else {
+ $form->{title} .= " - "
+ . $locale->text('Account')
+ . " $form->{accno} - $form->{description}";
+ }
- # get departments
- $form->all_departments(\%myconfig);
- if (@{ $form->{all_department} }) {
- $form->{selectdepartment} = "<option>\n";
+ # get departments
+ $form->all_departments( \%myconfig );
+ if ( @{ $form->{all_department} } ) {
+ $form->{selectdepartment} = "<option>\n";
- for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }
- }
+ for ( @{ $form->{all_department} } ) {
+ $form->{selectdepartment} .=
+qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
+ }
+ }
- $department = qq|
+ $department = qq|
<tr>
- <th align=right nowrap>|.$locale->text('Department').qq|</th>
+ <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|
+ 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>
+ <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|
+ <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>
|;
- }
+ }
+ $form->header;
- $form->header;
-
- print qq|
+ print qq|
<body>
<form method=post action=$form->{script}>
@@ -241,17 +280,19 @@ sub list {
<table>
$department
<tr>
- <th align=right>|.$locale->text('From').qq|</th>
+ <th align=right>| . $locale->text('From') . qq|</th>
<td><input name=fromdate size=11 title="$myconfig{dateformat}"></td>
- <th align=right>|.$locale->text('To').qq|</th>
+ <th align=right>| . $locale->text('To') . qq|</th>
<td><input name=todate size=11 title="$myconfig{dateformat}"></td>
</tr>
$selectfrom
<tr>
- <th align=right>|.$locale->text('Include in Report').qq|</th>
+ <th align=right>| . $locale->text('Include in Report') . qq|</th>
<td colspan=3>
- <input name=l_accno class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('AR/AP').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('AR/AP') . qq|
+ <input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|
+ . $locale->text('Subtotal') . qq|
</td>
</tr>
</table>
@@ -264,7 +305,9 @@ sub list {
<input type="hidden" name="path" value="$form->{path}">
<input type="hidden" name="sessionid" value="$form->{sessionid}">
-<br><button class="submit" type="submit" name="action" value="list_transactions">|.$locale->text('List Transactions').qq|</button>
+<br><button class="submit" type="submit" name="action" value="list_transactions">|
+ . $locale->text('List Transactions')
+ . qq|</button>
</form>
</body>
@@ -273,104 +316,133 @@ sub list {
}
-
sub list_transactions {
- CA->all_transactions(\%myconfig, \%$form);
-
- $department = $form->escape($form->{department});
- $projectnumber = $form->escape($form->{projectnumber});
- $title = $form->escape($form->{title});
+ CA->all_transactions( \%myconfig, \%$form );
- # construct href
- $href = "$form->{script}?action=list_transactions&department=$department&projectnumber=$projectnumber&title=$title";
- for (qw(path oldsort accno login sessionid fromdate todate accounttype gifi_accno l_heading l_subtotal l_accno)) { $href .= "&$_=$form->{$_}" }
+ $department = $form->escape( $form->{department} );
+ $projectnumber = $form->escape( $form->{projectnumber} );
+ $title = $form->escape( $form->{title} );
- $drilldown = $href;
- $drilldown .= "&sort=$form->{sort}";
+ # construct href
+ $href =
+"$form->{script}?action=list_transactions&department=$department&projectnumber=$projectnumber&title=$title";
+ for (
+ qw(path oldsort accno login sessionid fromdate todate accounttype gifi_accno l_heading l_subtotal l_accno)
+ )
+ {
+ $href .= "&$_=$form->{$_}";
+ }
- $href .= "&direction=$form->{direction}";
-
- $form->sort_order();
-
- $drilldown .= "&direction=$form->{direction}";
-
- $form->{prevreport} = $href unless $form->{prevreport};
- $href .= "&prevreport=".$form->escape($form->{prevreport});
- $drilldown .= "&prevreport=".$form->escape($form->{prevreport});
-
- # figure out which column comes first
- $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</a></th>|;
- $column_header{reference} = qq|<th><a class=listheading href=$href&sort=reference>|.$locale->text('Reference').qq|</a></th>|;
- $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
- $column_header{cleared} = qq|<th class=listheading>|.$locale->text('R').qq|</th>|;
- $column_header{source} = qq|<th class=listheading>|.$locale->text('Source').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{balance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|;
- $column_header{accno} = qq|<th class=listheading>|.$locale->text('AR/AP').qq|</th>|;
-
- @columns = qw(transdate reference description debit credit);
- if ($form->{link} =~ /_paid/) {
- @columns = qw(transdate reference description source cleared debit credit);
- }
- push @columns, "accno" if $form->{l_accno};
- @column_index = $form->sort_columns(@columns);
-
-
- if ($form->{accounttype} eq 'gifi') {
- for (qw(accno description)) { $form->{$_} = $form->{"gifi_$_"} }
- }
- if ($form->{accno}) {
- push @column_index, "balance";
- }
-
- $form->{title} = ($form->{accounttype} eq 'gifi') ? $locale->text('GIFI') : $locale->text('Account');
-
- $form->{title} .= " $form->{accno} - $form->{description}";
+ $drilldown = $href;
+ $drilldown .= "&sort=$form->{sort}";
+
+ $href .= "&direction=$form->{direction}";
+
+ $form->sort_order();
+
+ $drilldown .= "&direction=$form->{direction}";
+
+ $form->{prevreport} = $href unless $form->{prevreport};
+ $href .= "&prevreport=" . $form->escape( $form->{prevreport} );
+ $drilldown .= "&prevreport=" . $form->escape( $form->{prevreport} );
+
+ # figure out which column comes first
+ $column_header{transdate} =
+ qq|<th><a class=listheading href=$href&sort=transdate>|
+ . $locale->text('Date')
+ . qq|</a></th>|;
+ $column_header{reference} =
+ qq|<th><a class=listheading href=$href&sort=reference>|
+ . $locale->text('Reference')
+ . qq|</a></th>|;
+ $column_header{description} =
+ qq|<th><a class=listheading href=$href&sort=description>|
+ . $locale->text('Description')
+ . qq|</a></th>|;
+ $column_header{cleared} =
+ qq|<th class=listheading>| . $locale->text('R') . qq|</th>|;
+ $column_header{source} =
+ qq|<th class=listheading>| . $locale->text('Source') . 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{balance} =
+ qq|<th class=listheading>| . $locale->text('Balance') . qq|</th>|;
+ $column_header{accno} =
+ qq|<th class=listheading>| . $locale->text('AR/AP') . qq|</th>|;
+
+ @columns = qw(transdate reference description debit credit);
+ if ( $form->{link} =~ /_paid/ ) {
+ @columns =
+ qw(transdate reference description source cleared debit credit);
+ }
+ push @columns, "accno" if $form->{l_accno};
+ @column_index = $form->sort_columns(@columns);
- if ($form->{department}) {
- ($department) = split /--/, $form->{department};
- $options = $locale->text('Department')." : $department<br>";
- }
- if ($form->{projectnumber}) {
- ($projectnumber) = split /--/, $form->{projectnumber};
- $options .= $locale->text('Project Number')." : $projectnumber<br>";
- }
+ if ( $form->{accounttype} eq 'gifi' ) {
+ for (qw(accno description)) { $form->{$_} = $form->{"gifi_$_"} }
+ }
+ if ( $form->{accno} ) {
+ push @column_index, "balance";
+ }
+ $form->{title} =
+ ( $form->{accounttype} eq 'gifi' )
+ ? $locale->text('GIFI')
+ : $locale->text('Account');
- if ($form->{fromdate} || $form->{todate}) {
+ $form->{title} .= " $form->{accno} - $form->{description}";
- if ($form->{fromdate}) {
- $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1);
+ if ( $form->{department} ) {
+ ($department) = split /--/, $form->{department};
+ $options = $locale->text('Department') . " : $department<br>";
}
- if ($form->{todate}) {
- $todate = $locale->date(\%myconfig, $form->{todate}, 1);
+ if ( $form->{projectnumber} ) {
+ ($projectnumber) = split /--/, $form->{projectnumber};
+ $options .= $locale->text('Project Number') . " : $projectnumber<br>";
}
-
- $form->{period} = "$fromdate - $todate";
- } else {
- $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1);
- }
- $form->{period} = "<a href=$form->{prevreport}>$form->{period}</a>" if $form->{prevreport};
-
- $options .= $form->{period};
-
-
- # construct callback
- $department = $form->escape($form->{department},1);
- $projectnumber = $form->escape($form->{projectnumber},1);
- $title = $form->escape($form->{title},1);
- $form->{prevreport} = $form->escape($form->{prevreport},1);
-
- $form->{callback} = "$form->{script}?action=list_transactions&department=$department&projectnumber=$projectnumber&title=$title";
- for (qw(path direction oldsort accno login sessionid fromdate todate accounttype gifi_accno l_heading l_subtotal l_accno prevreport)) { $form->{callback} .= "&$_=$form->{$_}" }
-
-
- $form->header;
+ 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 );
+ }
- print qq|
+ $form->{period} = "<a href=$form->{prevreport}>$form->{period}</a>"
+ if $form->{prevreport};
+
+ $options .= $form->{period};
+
+ # construct callback
+ $department = $form->escape( $form->{department}, 1 );
+ $projectnumber = $form->escape( $form->{projectnumber}, 1 );
+ $title = $form->escape( $form->{title}, 1 );
+ $form->{prevreport} = $form->escape( $form->{prevreport}, 1 );
+
+ $form->{callback} =
+"$form->{script}?action=list_transactions&department=$department&projectnumber=$projectnumber&title=$title";
+ for (
+ qw(path direction oldsort accno login sessionid fromdate todate accounttype gifi_accno l_heading l_subtotal l_accno prevreport)
+ )
+ {
+ $form->{callback} .= "&$_=$form->{$_}";
+ }
+
+ $form->header;
+
+ print qq|
<body>
<table width=100%>
@@ -387,111 +459,134 @@ sub list_transactions {
<tr class=listheading>
|;
- for (@column_index) { print "$column_header{$_}\n" }
+ for (@column_index) { print "$column_header{$_}\n" }
- print qq|
+ print qq|
</tr>
|;
- # add sort to callback
- $form->{callback} = $form->escape($form->{callback} . "&sort=$form->{sort}");
+ # add sort to callback
+ $form->{callback} =
+ $form->escape( $form->{callback} . "&sort=$form->{sort}" );
- if (@{ $form->{CA} }) {
- $sameitem = $form->{CA}->[0]->{$form->{sort}};
- }
+ if ( @{ $form->{CA} } ) {
+ $sameitem = $form->{CA}->[0]->{ $form->{sort} };
+ }
- $ml = ($form->{category} =~ /(A|E)/) ? -1 : 1;
- $ml *= -1 if $form->{contra};
+ $ml = ( $form->{category} =~ /(A|E)/ ) ? -1 : 1;
+ $ml *= -1 if $form->{contra};
- if ($form->{accno} && $form->{balance}) {
-
- for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+ if ( $form->{accno} && $form->{balance} ) {
- $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>";
+ for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
- $i++; $i %= 2;
-
- print qq|
+ $column_data{balance} =
+ "<td align=right>"
+ . $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
+ . "</td>";
+
+ $i++;
+ $i %= 2;
+
+ print qq|
<tr class=listrow$i>
|;
- for (@column_index) { print "$column_data{$_}\n" }
- print qq|
+ for (@column_index) { print "$column_data{$_}\n" }
+ print qq|
</tr>
|;
- }
-
- foreach $ca (@{ $form->{CA} }) {
-
- if ($form->{l_subtotal} eq 'Y') {
- if ($sameitem ne $ca->{$form->{sort}}) {
- &ca_subtotal;
- }
}
-
- # construct link to source
- $href = "<a href=$ca->{module}.pl?path=$form->{path}&action=edit&id=$ca->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$form->{callback}>$ca->{reference}</a>";
-
-
- $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{debit}, 2, "&nbsp;")."</td>";
- $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{credit}, 2, "&nbsp;")."</td>";
-
- $form->{balance} += $ca->{amount};
- $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>";
-
- $subtotaldebit += $ca->{debit};
- $subtotalcredit += $ca->{credit};
-
- $totaldebit += $ca->{debit};
- $totalcredit += $ca->{credit};
-
- $column_data{transdate} = qq|<td>$ca->{transdate}</td>|;
- $column_data{reference} = qq|<td>$href</td>|;
- $column_data{description} = qq|<td>$ca->{description}&nbsp;</td>|;
-
- $column_data{cleared} = ($ca->{cleared}) ? qq|<td>*</td>| : qq|<td>&nbsp;</td>|;
- $column_data{source} = qq|<td>$ca->{source}&nbsp;</td>|;
-
- $column_data{accno} = qq|<td>|;
- for (@{ $ca->{accno} }) { $column_data{accno} .= "<a href=$drilldown&accno=$_>$_</a> " }
- $column_data{accno} .= qq|&nbsp;</td>|;
-
- if ($ca->{id} != $sameid) {
- $i++; $i %= 2;
- }
- $sameid = $ca->{id};
- print qq|
+ foreach $ca ( @{ $form->{CA} } ) {
+
+ if ( $form->{l_subtotal} eq 'Y' ) {
+ if ( $sameitem ne $ca->{ $form->{sort} } ) {
+ &ca_subtotal;
+ }
+ }
+
+ # construct link to source
+ $href =
+"<a href=$ca->{module}.pl?path=$form->{path}&action=edit&id=$ca->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$form->{callback}>$ca->{reference}</a>";
+
+ $column_data{debit} =
+ "<td align=right>"
+ . $form->format_amount( \%myconfig, $ca->{debit}, 2, "&nbsp;" )
+ . "</td>";
+ $column_data{credit} =
+ "<td align=right>"
+ . $form->format_amount( \%myconfig, $ca->{credit}, 2, "&nbsp;" )
+ . "</td>";
+
+ $form->{balance} += $ca->{amount};
+ $column_data{balance} =
+ "<td align=right>"
+ . $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
+ . "</td>";
+
+ $subtotaldebit += $ca->{debit};
+ $subtotalcredit += $ca->{credit};
+
+ $totaldebit += $ca->{debit};
+ $totalcredit += $ca->{credit};
+
+ $column_data{transdate} = qq|<td>$ca->{transdate}</td>|;
+ $column_data{reference} = qq|<td>$href</td>|;
+ $column_data{description} = qq|<td>$ca->{description}&nbsp;</td>|;
+
+ $column_data{cleared} =
+ ( $ca->{cleared} ) ? qq|<td>*</td>| : qq|<td>&nbsp;</td>|;
+ $column_data{source} = qq|<td>$ca->{source}&nbsp;</td>|;
+
+ $column_data{accno} = qq|<td>|;
+ for ( @{ $ca->{accno} } ) {
+ $column_data{accno} .= "<a href=$drilldown&accno=$_>$_</a> ";
+ }
+ $column_data{accno} .= qq|&nbsp;</td>|;
+
+ if ( $ca->{id} != $sameid ) {
+ $i++;
+ $i %= 2;
+ }
+ $sameid = $ca->{id};
+
+ print qq|
<tr class=listrow$i>
|;
- for (@column_index) { print "$column_data{$_}\n" }
+ for (@column_index) { print "$column_data{$_}\n" }
- print qq|
+ print qq|
</tr>
|;
- }
-
+ }
- if ($form->{l_subtotal} eq 'Y') {
- &ca_subtotal;
- }
-
+ if ( $form->{l_subtotal} eq 'Y' ) {
+ &ca_subtotal;
+ }
- for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-
- $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, "&nbsp;")."</th>";
- $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, "&nbsp;")."</th>";
- $column_data{balance} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</th>";
+ for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
+
+ $column_data{debit} =
+ "<th align=right class=listtotal>"
+ . $form->format_amount( \%myconfig, $totaldebit, 2, "&nbsp;" ) . "</th>";
+ $column_data{credit} =
+ "<th align=right class=listtotal>"
+ . $form->format_amount( \%myconfig, $totalcredit, 2, "&nbsp;" ) . "</th>";
+ $column_data{balance} =
+ "<th align=right class=listtotal>"
+ . $form->format_amount( \%myconfig, $form->{balance} * $ml, 2, 0 )
+ . "</th>";
- print qq|
+ print qq|
<tr class=listtotal>
|;
- for (@column_index) { print "$column_data{$_}\n" }
-
- print qq|
+ for (@column_index) { print "$column_data{$_}\n" }
+
+ print qq|
</tr>
</table>
</td>
@@ -504,29 +599,34 @@ sub list_transactions {
</body>
</html>
|;
-
-}
+}
sub ca_subtotal {
- for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
-
- $column_data{debit} = "<th align=right class=listsubtotal>".$form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;") . "</th>";
- $column_data{credit} = "<th align=right class=listsubtotal>".$form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;") . "</th>";
-
- $subtotaldebit = 0;
- $subtotalcredit = 0;
+ for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }
- $sameitem = $ca->{$form->{sort}};
+ $column_data{debit} =
+ "<th align=right class=listsubtotal>"
+ . $form->format_amount( \%myconfig, $subtotaldebit, 2, "&nbsp;" )
+ . "</th>";
+ $column_data{credit} =
+ "<th align=right class=listsubtotal>"
+ . $form->format_amount( \%myconfig, $subtotalcredit, 2, "&nbsp;" )
+ . "</th>";
- print qq|
+ $subtotaldebit = 0;
+ $subtotalcredit = 0;
+
+ $sameitem = $ca->{ $form->{sort} };
+
+ print qq|
<tr class=listsubtotal>
|;
- for (@column_index) { print "$column_data{$_}\n" }
+ for (@column_index) { print "$column_data{$_}\n" }
- print qq|
+ print qq|
</tr>
|;