- $lxdebug->enter_sub();
-
- @column_index = qw(cleared transdate source name credit debit balance);
-
- $column_header{cleared} = "<th> </th>";
- $column_header{source} =
- "<th class=listheading>" . $locale->text('Source') . "</a></th>";
- $column_header{name} =
- "<th class=listheading>" . $locale->text('Description') . "</a></th>";
- $column_header{transdate} =
- "<th class=listheading>" . $locale->text('Date') . "</a></th>";
-
- if ($form->{category} eq 'A') {
- $column_header{debit} =
- "<th class=listheading>" . $locale->text('Deposit') . "</a></th>";
- $column_header{credit} =
- "<th class=listheading>" . $locale->text('Payment') . "</a></th>";
- } else {
- $column_header{debit} =
- "<th class=listheading>" . $locale->text('Decrease') . "</a></th>";
- $column_header{credit} =
- "<th class=listheading>" . $locale->text('Increase') . "</a></th>";
- }
-
- $column_header{balance} =
- "<th class=listheading>" . $locale->text('Balance') . "</a></th>";
-
- if ($form->{fromdate}) {
- $option .= "\n<br>" if ($option);
- $option .=
- $locale->text('From') . " "
- . $locale->date(\%myconfig, $form->{fromdate}, 0);
- }
- if ($form->{todate}) {
- $option .= "\n<br>" if ($option);
- $option .=
- $locale->text('Until') . " "
- . $locale->date(\%myconfig, $form->{todate}, 0);
- }
-
- $form->{title} = "$form->{accno}--$form->{account}";
-
- $form->header;
-
- 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%>
- <tr class=listheading>
-|;
-
- map { print "\n$column_header{$_}" } @column_index;
-
- print qq|
- </tr>
-|;
-
- $ml = ($form->{category} eq 'A') ? -1 : 1;
- $form->{beginningbalance} *= $ml;
- $clearedbalance = $balance = $form->{beginningbalance};
- $i = 0;
- $id = 0;
-
- map { $column_data{$_} = "<td> </td>" }
- qw(cleared transdate source name debit credit);
- $column_data{balance} =
- "<td align=right>"
- . $form->format_amount(\%myconfig, $balance, 2, 0) . "</td>";
- $j = 0;
- print qq|
- <tr class=listrow$j>
-|;
-
- map { print "\n$column_data{$_}" } @column_index;
-
- print qq|
- </tr>
-|;
-
- foreach $ref (@{ $form->{PR} }) {
-
- $balance += $ref->{amount} * $ml;
- $cleared += $ref->{amount} * $ml if $ref->{cleared};
-
- $column_data{name} = "<td>$ref->{name} </td>";
- $column_data{source} = qq|<td>$ref->{source} </a>
- </td>|;
- $column_data{transdate} = "<td>$ref->{transdate} </td>";
-
- $column_data{debit} = "<td> </td>";
- $column_data{credit} = "<td> </td>";
-
- if ($ref->{amount} < 0) {
- $totaldebits += $ref->{amount} * -1;
- $column_data{debit} =
- "<td align=right>"
- . $form->format_amount(\%myconfig, $ref->{amount} * -1, 2, " ")
- . "</td>";
- } else {
- $totalcredits += $ref->{amount};
- $column_data{credit} =
- "<td align=right>"
- . $form->format_amount(\%myconfig, $ref->{amount}, 2, " ")
- . "</td>";
- }
-
- $column_data{balance} =
- "<td align=right>"
- . $form->format_amount(\%myconfig, $balance, 2, 0) . "</td>";
-
- if ($ref->{fx_transaction}) {
- $i++ unless $id == $ref->{id};
- $fx_transaction = 1;
- $fx += $ref->{amount} * $ml;
- $column_data{cleared} = qq|<td align=center>
- <input type=hidden name="fxoid_$i" value=$ref->{oid}>
- </td>|;
- } else {
- $i++ unless ($fx_transaction && $id == $ref->{id});
- $fx_transaction = 0;
- $column_data{cleared} = qq|<td>
- <input name="cleared_$i" type=checkbox class=checkbox value=1 $ref->{cleared}>
- <input type=hidden name="oid_$i" value=$ref->{oid}>
- </td>|;
- }
- $id = $ref->{id};
-
- $j++;
- $j %= 2;
- print qq|
- <tr class=listrow$j>
-|;
-
- map { print "\n$column_data{$_}" } @column_index;
-
- print qq|
- </tr>
-|;
-
- }
-
- # print totals
- map { $column_data{$_} = "<td> </td>" } @column_index;
-
- $column_data{debit} =
- "<th class=listtotal align=right>"
- . $form->format_amount(\%myconfig, $totaldebits, 2, " ") . "</th>";
- $column_data{credit} =
- "<th class=listtotal align=right>"
- . $form->format_amount(\%myconfig, $totalcredits, 2, " ") . "</th>";
-
- print qq|
- <tr class=listtotal>
-|;
-
- map { print "\n$column_data{$_}" } @column_index;
-
- $form->{statementbalance} =
- $form->parse_amount(\%myconfig, $form->{statementbalance});
- $difference =
- $form->format_amount(\%myconfig,
- $form->{statementbalance} - $clearedbalance - $cleared,
- 2, 0);
-
- $form->{statementbalance} =
- $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0);
-
- $clearedbalance = $form->format_amount(\%myconfig, $clearedbalance, 2, 0);
-
- if ($fx) {
- $fx = $form->format_amount(\%myconfig, $fx, 2, 0);
- $exchdiff = qq|
- <th align=right nowrap>|
- . $locale->text('Exchangerate Difference') . qq|</th>
- <td width=10%></td>
- <td align=right>$fx</td>
-|;
+ $::lxdebug->enter_sub;
+ $::auth->assert('cash');
+
+ my @options;
+ push @options, $::locale->text('From') . " " . $::locale->date(\%::myconfig, $::form->{fromdate}, 0) if $::form->{fromdate};
+ push @options, $::locale->text('Until') . " " . $::locale->date(\%::myconfig, $::form->{todate}, 0) if $::form->{todate};
+
+ my $ml = ($::form->{category} eq 'A') ? -1 : 1;
+ my $beginningbalance = $::form->{beginningbalance} * $ml;
+ my $clearedbalance =
+ my $balance = $beginningbalance;
+ my $i = 0;
+ my $last_id = 0;
+ my ($last_fx, @rows, $cleared, $totaldebits, $totalcredits, $fx);
+
+ for my $ref (@{ $::form->{PR} }) {
+ $balance += $ref->{amount} * $ml;
+ $cleared += $ref->{amount} * $ml if $ref->{cleared};
+ $totaldebits += $ref->{amount} * -1 if $ref->{amount} < 0;
+ $totalcredits += $ref->{amount} if $ref->{amount} >= 0;
+ $fx += $ref->{amount} * $ml if $ref->{fx_transaction};
+ $i++ if (!$ref->{fx_transaction} && !$last_fx) || $last_id != $ref->{id};
+ $last_fx = $ref->{fx_transaction};
+ $last_id = $ref->{id};
+
+ push @rows, { %$ref, balance => $balance, i => $i };