diff options
Diffstat (limited to 'bin/rc.pl')
| -rwxr-xr-x | bin/rc.pl | 985 |
1 files changed, 535 insertions, 450 deletions
@@ -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): @@ -41,6 +41,7 @@ use LedgerSMB::RC; 1; + # end of main # this is for our long dates @@ -71,56 +72,67 @@ use LedgerSMB::RC; # $locale->text('Nov') # $locale->text('Dec') - sub reconciliation { - - RC->paymentaccounts(\%myconfig, \%$form); - $selection = ""; - for (@{ $form->{PR} }) { $selection .= "<option>$_->{accno}--$_->{description}\n" } + RC->paymentaccounts( \%myconfig, \%$form ); + + $selection = ""; + for ( @{ $form->{PR} } ) { + $selection .= "<option>$_->{accno}--$_->{description}\n"; + } - $form->{title} = $locale->text('Reconciliation'); + $form->{title} = $locale->text('Reconciliation'); - if ($form->{report}) { - $form->{title} = $locale->text('Reconciliation Report'); - $cleared = qq| + 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>| . $locale->text('Outstanding') . qq|</td> <td align=right><input type=checkbox class=checkbox name=cleared value=1></td> - <td>|.$locale->text('Cleared').qq|</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| + 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> |.$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| + <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; + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> @@ -134,23 +146,30 @@ sub reconciliation { <td> <table> <tr> - <th align=right nowrap>|.$locale->text('Account').qq|</th> + <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> + <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> + <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> + <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> @@ -164,20 +183,22 @@ sub reconciliation { <input type=hidden name=nextsub value=get_payments> |; - $form->hide_form(qw(path login sessionid)); + $form->hide_form(qw(path login sessionid)); - print qq| -<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button> + print qq| +<button type="submit" class="submit" name="action" value="continue">| + . $locale->text('Continue') + . qq|</button> </form> |; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </body> </html> @@ -185,24 +206,24 @@ sub reconciliation { } - -sub continue { &{ $form->{nextsub} } }; +sub continue { &{ $form->{nextsub} } } sub till_closing { - $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; - - # $locale->text("Source"); - # $locale->text("Actual"); - # $locale->text("Expected"); - # $locale->text("Error"); - @colheadings = qw(Source Actual Expected Error); - my $curren = $pos_config{'curren'}; - - $form->{title} = $locale->text("Closing Till For [_1]", $form->{login}); - require "pos.conf.pl"; - RC->getposlines(\%myconfig, \%$form); - $form->header; - print qq| + $form->{callback} = +"$form->{script}?path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + # $locale->text("Source"); + # $locale->text("Actual"); + # $locale->text("Expected"); + # $locale->text("Error"); + @colheadings = qw(Source Actual Expected Error); + my $curren = $pos_config{'curren'}; + + $form->{title} = $locale->text( "Closing Till For [_1]", $form->{login} ); + require "pos.conf.pl"; + RC->getposlines( \%myconfig, \%$form ); + $form->header; + print qq| <body> <form method=post action=$form->{script}> @@ -211,7 +232,7 @@ sub till_closing { <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|"> +<input type=hidden name=sum value="| . $form->{sum} * -1 . qq|"> <table width=100%> <tr> <th class=listtop>$form->{title}</th> @@ -220,29 +241,30 @@ sub till_closing { <table width=100%> |; - print "<tr>"; - map {print "<td class=listheading>".$locale->text($_)."</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> + print "<tr>"; + map { print "<td class=listheading>" . $locale->text($_) . "</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>${curren}$amount</td> <td id="error_$source"> </td></tr>|; - } - print qq| + } + print qq| <script type='text/javascript'> function money_round(m){ @@ -253,26 +275,27 @@ function money_round(m){ function custom_calc_total(){ |; - my $subgen = 'document.forms[0].sub_sub.value = '; - my $toround = ''; - foreach my $unit (@{$pos_config{'breakdown'}}) { - # XXX Needs to take into account currencies that don't use 2 dp - my $parsed = $form->parse_amount(\%pos_config, $unit); - my $calcval = $parsed; - $calcval = sprintf('%03d', $calcval * 100) if $calcval < 1; - my $subval = 'sub_' . $calcval; - $calcval = 'calc_' . $calcval; - print qq| + my $subgen = 'document.forms[0].sub_sub.value = '; + my $toround = ''; + foreach my $unit ( @{ $pos_config{'breakdown'} } ) { + + # XXX Needs to take into account currencies that don't use 2 dp + my $parsed = $form->parse_amount( \%pos_config, $unit ); + my $calcval = $parsed; + $calcval = sprintf( '%03d', $calcval * 100 ) if $calcval < 1; + my $subval = 'sub_' . $calcval; + $calcval = 'calc_' . $calcval; + print qq| document.forms[0].${subval}.value = document.forms[0].${calcval}.value * $parsed; |; - $subgen .= "document.forms[0].${subval}.value * 1 + "; - $toround .= qq| + $subgen .= "document.forms[0].${subval}.value * 1 + "; + $toround .= qq| document.forms[0].${subval}.value = money_round(document.forms[0].${subval}.value); |; - } - print $subgen . "0;"; - print $toround; - print qq|document.forms[0].sub_sub.value = + } + print $subgen . "0;"; + print $toround; + print qq|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}); @@ -283,45 +306,49 @@ function check_errors(){ var source_error = 0; var err_cell; |; - map { - print " source_error = money_round( + 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 = '$curren' + source_error;\n"; - } (keys %pos_sources); - print qq| - alert('|.$locale->text('Cumulative Error:').qq| $curren' + money_round(cumulative_error)); + err_cell.innerHTML = '$curren' + source_error;\n"; + } ( keys %pos_sources ); + print qq| + alert('| + . $locale->text('Cumulative Error:') + . qq| $curren' + money_round(cumulative_error)); } </script> <table> <col><col><col>|; - foreach my $unit (@{$pos_config{'breakdown'}}) { - # XXX Needs to take into account currencies that don't use 2 dp - my $calcval = $form->parse_amount(\%pos_config, $unit); - $calcval = sprintf('%03d', $calcval * 100) if $calcval < 1; - my $subval = 'sub_' . $calcval; - $calcval = 'calc_' . $calcval; - print qq|<tr> + foreach my $unit ( @{ $pos_config{'breakdown'} } ) { + + # XXX Needs to take into account currencies that don't use 2 dp + my $calcval = $form->parse_amount( \%pos_config, $unit ); + $calcval = sprintf( '%03d', $calcval * 100 ) if $calcval < 1; + my $subval = 'sub_' . $calcval; + $calcval = 'calc_' . $calcval; + print qq|<tr> <td><input type=text name=$calcval value="$form->{$calcval}"></td> <th>X ${curren}${unit} = </th> <td><input type="text" name="$subval" value="$form->{$subval}"></td> </tr>|; - } - print qq|<tr> + } + print qq|<tr> <td> </td> - <th>|.$locale->text("Subtotal").qq|:</th> + <th>| . $locale->text("Subtotal") . qq|:</th> <td><input type=text name=sub_sub value="$form->{sub_sub}"></td> </tr> </table> <input type=button name=calculate class=submit onClick="custom_calc_total()" - value='|.$locale->text('Calculate').qq|'> + value='| . $locale->text('Calculate') . qq|'> |; - print qq|</table><button type="submit" name="action" value="close_till">|. - $locale->text("Close Till").qq|</button>|; - print qq| + print qq|</table><button type="submit" name="action" value="close_till">| + . $locale->text("Close Till") + . qq|</button>|; + print qq| </form> </body> @@ -329,166 +356,187 @@ function check_errors(){ |; } - 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"; - my @cashlines = [$locale->text("Cash Breakdown:")]; - foreach my $unit (@{$pos_config{'breakdown'}}) { - # XXX Needs to take into account currencies that don't use 2 dp - my $parsed = $form->parse_amount(\%pos_config, $unit); - my $calcval = $parsed; - $calcval = sprintf('%03d', $calcval * 100) if $calcval < 1; - my $subval = 'sub_' . $calcval; - $calcval = 'calc_' . $calcval; - push @cashlines, "$form->{$calcval} x $parseval = $form->{$subval}"; - } - push @cashlines, $locale->text("Total Cash in Drawer: [_1]", - $form->{sub_sub}); - push @cashlines, $locale->text("Less Cash in Till At Start: [_1]", - $form->{till_cash}); - push @cashlines, "\n"; - $cash = join ("\n", @cashlines); - $foot = $locale->text("Cumulative Error: [_1]", $difference)."\n"; - $foot .= $locale->text('Reset Till By [_1]', $amount)."\n\n\n\n\n\n\n\n\n\n"; - open (PRN, "|-", ${LedgerSMB::Sysconfig::printer}{Printer}); - print PRN $head; - print PRN $lines; - print PRN $cash; - print PRN $cash; - print PRN $foot; - close PRN; - if ($difference > 0){ - $message = $locale->text("You are over by [_1]", $difference); - } elsif ($difference < 0){ - $message = $locale->text("You are under by [_1]", $difference * -1); - } - else { - $message = $local->text("Congratulations! Your till is exactly balanced."); - } - $form->info($message); + 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"; + my @cashlines = [ $locale->text("Cash Breakdown:") ]; + foreach my $unit ( @{ $pos_config{'breakdown'} } ) { + + # XXX Needs to take into account currencies that don't use 2 dp + my $parsed = $form->parse_amount( \%pos_config, $unit ); + my $calcval = $parsed; + $calcval = sprintf( '%03d', $calcval * 100 ) if $calcval < 1; + my $subval = 'sub_' . $calcval; + $calcval = 'calc_' . $calcval; + push @cashlines, "$form->{$calcval} x $parseval = $form->{$subval}"; + } + push @cashlines, + $locale->text( "Total Cash in Drawer: [_1]", $form->{sub_sub} ); + push @cashlines, + $locale->text( "Less Cash in Till At Start: [_1]", $form->{till_cash} ); + push @cashlines, "\n"; + $cash = join( "\n", @cashlines ); + $foot = $locale->text( "Cumulative Error: [_1]", $difference ) . "\n"; + $foot .= + $locale->text( 'Reset Till By [_1]', $amount ) . "\n\n\n\n\n\n\n\n\n\n"; + open( PRN, "|-", ${LedgerSMB::Sysconfig::printer}{Printer} ); + print PRN $head; + print PRN $lines; + print PRN $cash; + print PRN $cash; + print PRN $foot; + close PRN; + + if ( $difference > 0 ) { + $message = $locale->text( "You are over by [_1]", $difference ); + } + elsif ( $difference < 0 ) { + $message = $locale->text( "You are under by [_1]", $difference * -1 ); + } + else { + $message = + $local->text("Congratulations! 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]; + ( $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}; } - if ($form->{source} eq 'cash'){ - $form->{summary} = "true"; - } else { - $form->{summary} = ""; + + 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->{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; -} + $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| + + 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}> @@ -509,216 +557,249 @@ sub display_form { <tr class=listheading> |; - for (@column_index) { print "\n$column_header{$_}" } + for (@column_index) { print "\n$column_header{$_}" } - print qq| + 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| + $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{$_}" } + for (@column_index) { print "\n$column_data{$_}" } - print qq| + print qq| </tr> |; - } + } + foreach $ref ( @{ $form->{PR} } ) { - foreach $ref (@{ $form->{PR} }) { + $i++; - $i++; + if ( !$form->{fx_transaction} ) { + next if $ref->{fx_transaction}; + } - if (! $form->{fx_transaction}) { - next if $ref->{fx_transaction}; - } + $checked = ( $ref->{cleared} ) ? "checked" : ""; - $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> + %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> + + $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> + } + 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> + } + + } + } + + $column_data{transdate} = qq|<td>$temp{transdate} </td> <input type=hidden name="transdate_$i" value=$ref->{transdate}>|; - $j++; $j %= 2; - print qq| + $j++; + $j %= 2; + print qq| <tr class=listrow$j> |; - for (@column_index) { print "\n$column_data{$_}" } + for (@column_index) { print "\n$column_data{$_}" } - print qq| + print qq| </tr> |; - } + } - $form->{rowcount} = $i; - - # print totals - for (@column_index) { $column_data{$_} = "<td> </td>" } + $form->{rowcount} = $i; - $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| + # 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| + 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|<button type="submit" class="submit" name="action" - value="close_next">|.$locale->text('Close Next').qq|</button>|; - $done = ""; - } - else { - $close_next = ""; - $done = qq|<button type="submit" class="submit" name="action" - value="done">|.$locale->text('Done').qq|</button>|; - } - if ($form->{'pos'}){ - $difference = qq| + if ( $form->{'pos'} ) { + $close_next = qq|<button type="submit" class="submit" name="action" + value="close_next">| . $locale->text('Close Next') . qq|</button>|; + $done = ""; + } + else { + $close_next = ""; + $done = qq|<button type="submit" class="submit" name="action" + value="done">| . $locale->text('Done') . qq|</button>|; + } + 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> + <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> + 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; + if ( $form->{'over_under'} ) { + $o_u = $form->{'over_under'}; + $difference =~ s/(value=$o_u)/SELECTED $1/g; + } } - } else { - $difference = qq| + else { + $difference = qq| <tr> - <th align=right nowrap>|.$locale->text('Difference').qq|</th> + <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| + if ( $form->{report} ) { + + print qq| </tr> </table> |; - } else { - - print qq| + } + else { + + print qq| <tr> <td> @@ -727,7 +808,7 @@ sub display_form { <td align=right> <table> <tr> - <th align=right nowrap>|.$locale->text('Statement Balance').qq|</th> + <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> @@ -744,22 +825,28 @@ sub display_form { </table> |; - $form->hide_form(qw(fx_transaction summary rowcount accno account fromdate todate path login sessionid)); - - print qq| + $form->hide_form( + qw(fx_transaction summary rowcount accno account fromdate todate path login sessionid) + ); + + print qq| <br> -<button type="submit" class="submit" name="action" value="update">|.$locale->text('Update').qq|</button> -<button type="submit" class="submit" name="action" value="select_all">|.$locale->text('Select all').qq|</button> +<button type="submit" class="submit" name="action" value="update">| + . $locale->text('Update') + . qq|</button> +<button type="submit" class="submit" name="action" value="select_all">| + . $locale->text('Select all') + . qq|</button> $done $close_next |; - } + } - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> @@ -768,43 +855,41 @@ sub display_form { } - 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; - -} + $form->{null2} = $form->{null}; + RC->payment_transactions( \%myconfig, \%$form ); -sub select_all { - - RC->payment_transactions(\%myconfig, \%$form); + $i = 0; + foreach $ref ( @{ $form->{PR} } ) { + $i++; + $ref->{cleared} = ( $form->{"cleared_$i"} ) ? 1 : 0; + } - for (@{ $form->{PR} }) { $_->{cleared} = 1 } + &display_form; - &display_form; - } +sub select_all { -sub done { + RC->payment_transactions( \%myconfig, \%$form ); - $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&sessionid=$form->{sessionid}"; + for ( @{ $form->{PR} } ) { $_->{cleared} = 1 } - $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1); + &display_form; - RC->reconcile(\%myconfig, \%$form); - $form->redirect; - } +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; + +} |