#===================================================================== # 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| <button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button> </form> |; if ($form->{lynx}) { 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); my $curren = $pos_config{'curren'}; $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>${curren}$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(){ |; 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| 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 = 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 = '$curren' + source_error;\n"; } (keys %pos_sources); print qq| alert('Cumulative Error: $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> <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> <td> </td> <th>Subtotal:</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='Calculate'> |; print qq|</table><button type="submit" name="action" value="close_till">|. $locale->text("Close Till").qq|</button>|; 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"; 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:") . $form->{sub_sub}; push @cashlines, $locale->text("Less Cash in Till At Start:") . $form->{till_cash}; push @cashlines, "\n"; $cash = join ("\n", @cashlines); $foot = $locale->text("Cumulative Error: ")."$difference\n"; $foot .= $locale->text('Reset Till By ')."$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 ").$difference; } elsif ($difference < 0){ $message = $locale->text("You are under by ").$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]; } 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|<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> </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> <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; } 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; }