diff options
Diffstat (limited to 'bin/rc.pl')
-rwxr-xr-x | bin/rc.pl | 849 |
1 files changed, 849 insertions, 0 deletions
diff --git a/bin/rc.pl b/bin/rc.pl new file mode 100755 index 00000000..56ca3a72 --- /dev/null +++ b/bin/rc.pl @@ -0,0 +1,849 @@ +#===================================================================== +# 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) 2003 +# +# Author: DWS Systems Inc. +# Web: http://www.sql-ledger.org +# +# +# 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. +#====================================================================== +# +# Account reconciliation module +# +#====================================================================== + +use LedgerSMB::RC; + +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') + + +sub reconciliation { + + RC->paymentaccounts(\%myconfig, \%$form); + + $selection = ""; + for (@{ $form->{PR} }) { $selection .= "<option>$_->{accno}--$_->{description}\n" } + + $form->{title} = $locale->text('Reconciliation'); + + if ($form->{report}) { + $form->{title} = $locale->text('Reconciliation Report'); + $cleared = qq| + <input type=hidden name=report value=1> + <tr> + <td align=right><input type=checkbox class=checkbox name=outstanding value=1 checked></td> + <td>|.$locale->text('Outstanding').qq|</td> + <td align=right><input type=checkbox class=checkbox name=cleared value=1></td> + <td>|.$locale->text('Cleared').qq|</td> + </tr> +|; + + } + + 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> |.$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> +|; + } + + + $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> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Account').qq|</th> + <td colspan=3><select name=accno>$selection</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td colspan=3><input name=fromdate size=11 title="$myconfig{dateformat}"> <b>|.$locale->text('To').qq|</b> <input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + $cleared + <tr> + <td></td> + <td colspan=3><input type=radio style=radio name=summary value=1 checked> |.$locale->text('Summary').qq| + <input type=radio style=radio name=summary value=0> |.$locale->text('Detail').qq|</td> + </tr> + <tr> + <td></td> + <td colspan=3><input type=checkbox class=checkbox name=fx_transaction value=1 checked> |.$locale->text('Include Exchange Rate Difference').qq|</td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<input type=hidden name=nextsub value=get_payments> +|; + + $form->hide_form(qw(path login sessionid)); + + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> + +</form> +|; + + if ($form->{menubar}) { + require "bin/menu.pl"; + &menubar; + } + + print qq| + +</body> +</html> +|; + +} + + +sub continue { &{ $form->{nextsub} } }; + +sub till_closing { + $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + @colheadings = qw(Source Actual Expected Error); + + $form->{title} = "Closing Till For $form->{login}"; + require "pos.conf.pl"; + RC->getposlines(\%myconfig, \%$form); + $form->header; + print qq| +<body> + +<form method=post action=$form->{script}> +<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=hidden name=callback value="$form->{callback}"> +<input type=hidden name=sum value="|.$form->{sum} * -1 .qq|"> +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> +</table> +<table width=100%> +|; + + print "<tr>"; + map {print "<td class=listheading>$_</td>";} @colheadings; + print "</tr>"; + my $j; + my $source; + foreach $source (sort keys %pos_sources){ + $amount = 0; + foreach $ref (@{$form->{TB}}){ + if ($ref->{source} eq $source){ + $amount = $ref->{amount} * -1; + last; + } + } + ++$j; + $j = $j % 2; + print qq|<tr class=listrow$j><td>|.$pos_sources{$source}.qq|</td> + <td><input name="amount_$source"> + <input type=hidden name="expected_$source" + value="$amount"></td> + <td>\$$amount</td> + <td id="error_$source"> </td></tr>|; + } + print qq| +<script type='text/javascript'> + +function money_round(m){ + var r; + r = Math.round(m * 100)/100; + return r; +} + +function custom_calc_total(){ + document.forms[0].sub_100.value = document.forms[0].calc_100.value * 100; + document.forms[0].sub_50.value = document.forms[0].calc_50.value * 50; + document.forms[0].sub_20.value = document.forms[0].calc_20.value * 20; + document.forms[0].sub_10.value = document.forms[0].calc_10.value * 10; + document.forms[0].sub_5.value = document.forms[0].calc_5.value * 5; + document.forms[0].sub_1.value = document.forms[0].calc_1.value * 1; + document.forms[0].sub_050.value = document.forms[0].calc_050.value * .5; + document.forms[0].sub_025.value = document.forms[0].calc_025.value * .25; + document.forms[0].sub_010.value = document.forms[0].calc_010.value * .10; + document.forms[0].sub_005.value = document.forms[0].calc_005.value * .05; + document.forms[0].sub_001.value = document.forms[0].calc_001.value * .01; + document.forms[0].sub_sub.value = document.forms[0].sub_100.value * 1 + + document.forms[0].sub_50.value*1 + document.forms[0].sub_20.value*1 + + document.forms[0].sub_10.value*1 + document.forms[0].sub_5.value*1 + + document.forms[0].sub_1.value*1 + document.forms[0].sub_050.value*1 + + document.forms[0].sub_025.value*1 + document.forms[0].sub_010.value*1 + + document.forms[0].sub_005.value*1 + document.forms[0].sub_001.value*1; + document.forms[0].sub_001.value = + money_round(document.forms[0].sub_001.value); + document.forms[0].sub_010.value = + money_round(document.forms[0].sub_010.value); + document.forms[0].sub_005.value = + money_round(document.forms[0].sub_005.value); + document.forms[0].sub_sub.value = + money_round(document.forms[0].sub_sub.value); + document.forms[0].amount_cash.value = money_round( + document.forms[0].sub_sub.value - $pos_config{till_cash}); + check_errors(); +} +function check_errors(){ + var cumulative_error = 0; + var source_error = 0; + var err_cell; + |; + map { + print " source_error = money_round( + document.forms[0].amount_$_.value - + document.forms[0].expected_$_.value); + cumulative_error = cumulative_error + source_error; + err_cell = document.getElementById('error_$_'); + err_cell.innerHTML = '\$' + source_error;\n"; + } (keys %pos_sources); + print qq| + alert('Cumulative Error: \$' + money_round(cumulative_error)); +} +</script> + +<table> +<col><col><col> + <tr> + <td><input type=text name=calc_100 value="$form->{calc_100}"></td> + <th>X \$100 = </th> + <td><input type=text name=sub_100 value="$form->{sub_100}"></td> + </tr> + <tr> + <td><input type=text name=calc_50 value="$form->{calc_50}"></td> + <th>X \$50 = </th> + <td><input type=text name=sub_50 value="$form->{sub_50}"></td> + </tr> + <tr> + <td><input type=text name=calc_20 value="$form->{calc_20}"></td> + <th>X \$20 = </th> + <td><input type=text name=sub_20 value="$form->{sub_20}"></td> + </tr> + <tr> + <td><input type=text name=calc_10 value="$form->{calc_10}"></td> + <th>X \$10 = </th> + <td><input type=text name=sub_10 value="$form->{sub_10}"></td> + </tr> + <tr> + <td><input type=text name=calc_5 value="$form->{calc_5}"></td> + <th>X \$5 = </th> + <td><input type=text name=sub_5 value="$form->{sub_5}"></td> + </tr> + <tr> + <td><input type=text name=calc_1 value="$form->{calc_1}"></td> + <th>X \$1 = </th> + <td><input type=text name=sub_1 value="$form->{sub_1}"></td> + </tr> + <tr> + <td><input type=text name=calc_050 value="$form->{calc_050}"></td> + <th>X \$0.50 = </th> + <td><input type=text name=sub_050 value="$form->{sub_050}"></td> + </tr> + <tr> + <td><input type=text name=calc_025 value="$form->{calc_025}"></td> + <th>X \$.25 = </th> + <td><input type=text name=sub_025 value="$form->{sub_025}"></td> + </tr> + <tr> + <td><input type=text name=calc_010 value="$form->{calc_010}"></td> + <th>X \$.10 = </th> + <td><input type=text name=sub_010 value="$form->{sub_010}"></td> + </tr> + <tr> + <td><input type=text name=calc_005 value="$form->{calc_005}"></td> + <th>X \$.05 = </th> + <td><input type=text name=sub_005 value="$form->{sub_005}"></td> + </tr> + <tr> + <td><input type=text name=calc_001 value="$form->{calc_001}"></td> + <th>X \$.01 = </th> + <td><input type=text name=sub_001 value="$form->{sub_001}"></td> + </tr> + <tr> + <td> </td> + <th>Subtotal:</th> + <td><input type=text name=sub_sub value="$form->{sub_sub}"></td> +</table> +<input type=button name=calculate class=submit onClick="custom_calc_total()" + value='Calculate'> +|; + print qq|</table><input type=submit name=action value="|. + $locale->text("close_till").qq|">|; + print qq| +</form> + +</body> +</html> +|; +} + + +sub close_till { + use LedgerSMB::GL; + require 'pos.conf.pl'; + RC->clear_till(\%myconfig, \%$form); + my $amount = 0; + my $expected = 0; + my $difference = 0; + my $lines = ''; + $form->{rowcount} = 2; + foreach $key (keys %pos_sources){ + $amount = 0; + $expected = 0; + $amount = $form->parse_amount(\%myconfig, $form->{"amount_$key"}); + $expected = $form->parse_amount(\%myconfig, $form->{"expected_$key"}); + $gl_entry = "Closing Till $pos_config{till} source = $key"; + $accno1 = $pos_config{till_accno}; + if (${$pos_config{'source_accno_override'}{$key}}){ + $accno2 = ${$pos_config{'source_accno_override'}{$key}}; + } else { + $accno2 = $pos_config{'close_cash_accno'}; + } + $form->{reference} = $gl_entry; + $form->{accno_1} = $accno1; + $form->{credit_1} = $amount; + $form->{accno_2} = $accno2; + $form->{debit_2} = $amount; + $form->{transdate} = $form->current_date(\%myconfig); + GL->post_transaction(\%myconfig, \%$form); + delete $form->{id}; + $error = $amount - $expected; + $difference += $error; + $lines .= "Source: $key, Amount: $amount\nExpected: $expected. Error= $error\n\n"; + } + $gl_entry = "Closing Till: $pos_config{till} Over/Under"; + $amount = $difference * -1; + $form->{reference} = $gl_entry; + $form->{accno_1} = $accno1; + $form->{credit_1} = $amount; + $form->{accno_2} = $pos_config{coa_prefix}; + $form->{debit_2} = $amount; + $form->{transdate} = $form->current_date(\%myconfig); + GL->post_transaction(\%myconfig, \%$form); + delete $form->{id}; + $lines .= "Cumulative Error: $amount"; + $form->{accno} = $form->{accno_1}; + RC->getbalance(\%myconfig, \%$form); + $amount = $form->{balance} * -1; + $gl_entry = "Resetting Till: $pos_config{till}"; + $form->{reference} = $gl_entry; + $form->{accno_1} = $accno1; + $form->{credit_1} = $amount; + $form->{accno_2} = $pos_config{coa_prefix}; + $form->{debit_2} = $amount; + $form->{transdate} = $form->current_date(\%myconfig); + GL->post_transaction(\%myconfig, \%$form); + delete $form->{id}; + + $head = "Closing Till $pos_config{till} for $form->{login}\n". + "Date: $form->{transdate}\n\n\n"; + $cash = join ("\n", + ("Cash Breakdown:", + "$form->{calc_100} x 100 = $form->{sub_100}", + "$form->{calc_50} x 50 = $form->{sub_50}", + "$form->{calc_20} x 20 = $form->{sub_20}", + "$form->{calc_10} x 10 = $form->{sub_10}", + "$form->{calc_5} x 5 = $form->{sub_5}", + "$form->{calc_1} x 1 = $form->{sub_1}", + "$form->{calc_050} x 0.50 = $form->{sub_050}", + "$form->{calc_025} x 0.25 = $form->{sub_025}", + "$form->{calc_010} x 0.10 = $form->{sub_010}", + "$form->{calc_005} x 0.05 = $form->{sub_005}", + "$form->{calc_001} x 0.01 = $form->{sub_001}", + "Total Cash in Drawer: $form->{sub_sub}", + "Less Cash in Till At Start: $pos_config{till_cash}", + "\n")); + $foot = "Cumulative Error: $difference\n Reset Till By $amount\n\n\n\n\n\n\n\n\n\n"; + open (PRN, "|-", $printer{Printer}); + print PRN $head; + print PRN $lines; + print PRN $cash; + print PRN $cash; + print PRN $foot; + close PRN; + if ($difference > 0){ + $message = "You are over by ".$difference; + } elsif ($difference < 0){ + $message = "You are under by ".$difference * -1; + } + else { + $message = "Congradulations! Your till is exactly balanced."; + } + $form->info($message); +} + +sub get_payments { + + ($form->{accno}, $form->{account}) = split /--/, $form->{accno}; + if ($form->{'pos'}){ + require "pos.conf.pl"; + $form->{fromdate} = $form->current_date(\%myconfig); + unless ($form->{source}){ + $form->{source} = (sort keys(%pos_sources))[0]; + } + if ($form->{source} eq 'cash'){ + $form->{summary} = "true"; + } else { + $form->{summary} = ""; + } + $form->{accno} = $pos_config{'coa_prefix'} . "." . $pos_config{'till'}; + $form->{account} = $form->{source}; + } + + RC->payment_transactions(\%myconfig, \%$form); + + $ml = ($form->{category} eq 'A') ? -1 : 1; + $form->{statementbalance} = $form->{endingbalance} * $ml; + if (! $form->{fx_transaction}) { + $form->{statementbalance} = ($form->{endingbalance} - $form->{fx_endingbalance}) * $ml; + } + + $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0); + + &display_form; + +} + + +sub display_form { + + if ($form->{report}) { + @column_index = qw(transdate source name cleared debit credit); + } else { + @column_index = qw(transdate source name cleared debit credit balance); + } + + $column_header{cleared} = qq|<th>|.$locale->text('R').qq|</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>"; + + $column_header{debit} = "<th class=listheading>".$locale->text('Debit')."</a></th>"; + $column_header{credit} = "<th class=listheading>".$locale->text('Credit')."</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}, 1); + } + if ($form->{todate}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{todate}, 1); + } + + $form->{title} = "$form->{accno}--$form->{account}"; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=source value="$form->{source}"> +<input type=hidden name=cumulative_error value="$form->{cumulative_error}"> +<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> +|; + + for (@column_index) { print "\n$column_header{$_}" } + + print qq| + </tr> +|; + + $ml = ($form->{category} eq 'A') ? -1 : 1; + $form->{beginningbalance} *= $ml; + $form->{fx_balance} *= $ml; + + if (! $form->{fx_transaction}) { + $form->{beginningbalance} -= $form->{fx_balance}; + } + $balance = $form->{beginningbalance}; + + $i = 0; + $j = 0; + + for (qw(cleared transdate source debit credit)) { $column_data{$_} = "<td> </td>" } + + if (! $form->{report}) { + $column_data{name} = qq|<td>|.$locale->text('Beginning Balance').qq|</td>|; + $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>"; + print qq| + <tr class=listrow$j> +|; + + for (@column_index) { print "\n$column_data{$_}" } + + print qq| + </tr> +|; + } + + + foreach $ref (@{ $form->{PR} }) { + + $i++; + + if (! $form->{fx_transaction}) { + next if $ref->{fx_transaction}; + } + + $checked = ($ref->{cleared}) ? "checked" : ""; + + %temp = (); + if (!$ref->{fx_transaction}) { + for (qw(name source transdate)) { $temp{$_} = $ref->{$_} } + } + + $column_data{name} = "<td>"; + for (@{ $temp{name} }) { $column_data{name} .= "$_<br>" } + $column_data{name} .= "</td>"; + $column_data{source} = qq|<td>$temp{source} </td> + <input type=hidden name="id_$i" value=$ref->{id}>|; + + $column_data{debit} = "<td> </td>"; + $column_data{credit} = "<td> </td>"; + + $balance += $ref->{amount} * $ml; + + 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}) { + + $column_data{cleared} = ($clearfx) ? qq|<td align=center>*</td>| : qq|<td> </td>|; + $cleared += $ref->{amount} * $ml if $clearfx; + + } else { + + if ($form->{report}) { + + if ($ref->{cleared}) { + $column_data{cleared} = qq|<td align=center>*</td>|; + $clearfx = 1; + } else { + $column_data{cleared} = qq|<td> </td>|; + $clearfx = 0; + } + + } else { + + if ($ref->{oldcleared}) { + $cleared += $ref->{amount} * $ml; + $clearfx = 1; + $column_data{cleared} = qq|<td align=center>*</td> + <input type=hidden name="cleared_$i" value=$ref->{cleared}> + <input type=hidden name="oldcleared_$i" value=$ref->{oldcleared}> + <input type=hidden name="source_$i" value="$ref->{source}"> + <input type=hidden name="amount_$1" value="$ref->{amount}">|; + } else { + $cleared += $ref->{amount} * $ml if $checked; + $clearfx = ($checked) ? 1 : 0; + $column_data{cleared} = qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=1 $checked> + <input type=hidden name="source_$i" value="$ref->{source}"> + <input type=hidden name="amount_$i" value="$ref->{amount}"> + </td>|; + } + + } + } + + $column_data{transdate} = qq|<td>$temp{transdate} </td> + <input type=hidden name="transdate_$i" value=$ref->{transdate}>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j> +|; + + for (@column_index) { print "\n$column_data{$_}" } + + print qq| + </tr> +|; + + } + + $form->{rowcount} = $i; + + # print totals + for (@column_index) { $column_data{$_} = "<td> </td>" } + + $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> +|; + + for (@column_index) { print "\n$column_data{$_}" } + + $form->{statementbalance} = $form->parse_amount(\%myconfig, $form->{statementbalance}); + $difference = $form->format_amount(\%myconfig, $form->{beginningbalance} + $cleared - $form->{statementbalance}, 2, 0); + if ($form->{source}){ + $difference = 0; + } + $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0); + + print qq| + </tr> + </table> + </td> + </tr> +|; + + if ($form->{'pos'}){ + $close_next = qq|<input type=submit class=submit name=action + value="|.$locale->text('close_next').qq|">|; + $done = ""; + } + else { + $close_next = ""; + $done = qq|<input type=submit class=submit name=action + value="|.$locale->text('Done').qq|">|; + } + if ($form->{'pos'}){ + $difference = qq| + <tr> + <th align=right><select name=over_under> + <option value=under>|.$locale->text('Under').qq|</option> + <option value=over>|.$locale->text('Over').qq|</option> + </select><input type=hidden name=pos value='true'> + </th> + <td width=10%></td> + <td align=right><input name=null size=11 + value='|.$form->{null2}.qq|'></td> + <input type=hidden name=difference + value=$difference> + + |; + if ($form->{'over_under'}){ + $o_u = $form->{'over_under'}; + $difference =~ s/(value=$o_u)/SELECTED $1/g; + } + } else { + $difference = qq| + <tr> + <th align=right nowrap>|.$locale->text('Difference').qq|</th> + <td width=10%></td> + <td align=right><input name=null size=11 value=$difference></td> + <input type=hidden name=difference value=$difference> + </tr>|; + } + + + if ($form->{report}) { + + print qq| + </tr> + </table> +|; + + } else { + + print qq| + + <tr> + <td> + <table width=100%> + <tr> + <td align=right> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Statement Balance').qq|</th> + <td width=10%></td> + <td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td> + </tr> + $difference + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + + $form->hide_form(qw(fx_transaction summary rowcount accno account fromdate todate path login sessionid)); + + print qq| +<br> +<input type=submit class=submit name=action value="|.$locale->text('Update').qq|"> +<input type=submit class=submit name=action value="|.$locale->text('Select all').qq|"> + $done + $close_next |; + } + + if ($form->{menubar}) { + require "bin/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub update { + $form->{null2} = $form->{null}; + + RC->payment_transactions(\%myconfig, \%$form); + + $i = 0; + foreach $ref (@{ $form->{PR} }) { + $i++; + $ref->{cleared} = ($form->{"cleared_$i"}) ? 1 : 0; + } + + &display_form; + +} + + +sub select_all { + + RC->payment_transactions(\%myconfig, \%$form); + + for (@{ $form->{PR} }) { $_->{cleared} = 1 } + + &display_form; + +} + + +sub done { + + $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1); + + RC->reconcile(\%myconfig, \%$form); + $form->redirect; + +} + + |