#===================================================================== # SQL-Ledger # Copyright (c) DWS Systems Inc. # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.com # #====================================================================== # # Account reconciliation module # #====================================================================== use SL::RC; require "$form->{path}/js.pl"; 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); $selectaccno = ""; for (@{ $form->{PR} }) { $selectaccno .= "$_->{accno}--$_->{description}\n" } $form->{title} = $locale->text('Reconciliation'); if ($form->{report}) { $form->{title} = $locale->text('Reconciliation Report'); $form->{report} = 1; } if (@{ $form->{all_years} }) { # accounting years $selectaccountingyear = "\n"; for (@{ $form->{all_years} }) { $selectaccountingyear .= qq|$_\n| } $selectaccountingmonth = "\n"; for (sort keys %{ $form->{all_month} }) { $selectaccountingmonth .= qq|$_--| . $locale->text($form->{all_month}{$_}).qq|\n| } $form->{interval} = "1" unless exists $form->{interval}; $checked{"$form->{interval}"} = "checked"; $selectfrom = qq| |.$locale->text('Period').qq| |.$locale->text('Current').qq| |.$locale->text('Month').qq| |.$locale->text('Quarter').qq| |.$locale->text('Year').qq| |; } %checked = (); $form->{summary} = "1" unless exists $form->{summary}; $checked{"$form->{summary}"} = "checked"; $form->{fx_transaction} = "checked" unless exists $form->{fx_transaction}; $form->helpref("reconciliation", $myconfig{countrycode}); $form->header; &calendar; print qq|

$form->{helpref}$form->{title}

$selectfrom

\|.$locale->text('Account').qq\|
\|.$locale->text('From').qq\|	\|.&js_calendar("main", "fromdate").qq\|\|.$locale->text('To').qq\| \|.&js_calendar("main", "todate").qq\|
	\|.$locale->text('Summary').qq\| \|.$locale->text('Detail').qq\|
	{fx_transaction}> \|.$locale->text('Include Exchange Rate Difference').qq\|

|; $form->hide_form(qw(report path login)); print qq|

|; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq| |; } sub continue { &{ $form->{nextsub} } }; sub get_payments { ($form->{accno}, $form->{account}) = split /--/, $form->{accno}; 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}, $form->{precision}, 0); &display_form; } sub display_form { if ($form->{report}) { @column_index = qw(transdate source name debit credit); } else { @column_index = qw(transdate source name cleared debit credit balance); } $form->{allbox} = ($form->{allbox}) ? "checked" : ""; $action = ($form->{deselect}) ? "deselect_all" : "select_all"; $column_header{cleared} = qq|{allbox} onChange="CheckAll(); javascript:document.main.submit()">|; $column_header{source} = "".$locale->text('Source').""; $column_header{name} = "".$locale->text('Description').""; $column_header{transdate} = "".$locale->text('Date').""; $column_header{debit} = "".$locale->text('Debit').""; $column_header{credit} = "".$locale->text('Credit').""; $column_header{balance} = "".$locale->text('Balance').""; if ($form->{fromdate}) { $option .= "\n
" if ($option); $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{fromdate}, 1); } if ($form->{todate}) { $option .= "\n
" if ($option); $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{todate}, 1); } $form->{title} = "$form->{accno}--$form->{account} / $form->{company}"; $form->helpref("rec_list", $myconfig{countrycode}); $form->header; &check_all(qw(allbox checked_)); print qq|

{script}> |; if ($form->{report}) { print qq|

$form->{helpref}$form->{title}

$option

|; for (@column_index) { print "\n$column_header{$_}" } 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{$_} = "" } if (! $form->{report}) { $column_data{name} = qq||; $column_data{balance} = ""; print qq| |; for (@column_index) { print "\n$column_data{$_}" } print qq| |; } $cleared = 0; $recdate = $form->datetonum(\%myconfig, $form->{recdate}); foreach $ref (@{ $form->{PR} }) { $i++; if (! $form->{fx_transaction}) { next if $ref->{fx_transaction}; } $checked = ""; if ($ref->{cleared}) { if ($form->datetonum(\%myconfig, $ref->{cleared}) <= $recdate) { $checked = "checked"; } } %temp = (); if (!$ref->{fx_transaction}) { for (qw(name source transdate)) { $temp{$_} = $ref->{$_} } } $column_data{name} = ""; $column_data{source} = qq||; $column_data{debit} = ""; $column_data{credit} = ""; $balance += $ref->{amount} * $ml; if ($ref->{amount} < 0) { $totaldebits += $ref->{amount} * -1; $column_data{debit} = ""; } else { $totalcredits += $ref->{amount}; $column_data{credit} = ""; } $column_data{balance} = ""; if ($ref->{fx_transaction}) { $column_data{cleared} = ($clearfx) ? qq|| : qq||; $cleared += $ref->{amount} * $ml if $clearfx; } else { if ($form->{report}) { if ($ref->{cleared}) { $column_data{cleared} = qq||; $clearfx = 1; } else { $column_data{cleared} = qq||; $clearfx = 0; } } else { $cleared += $ref->{amount} * $ml if $checked; $clearfx = ($checked) ? 1 : 0; $column_data{cleared} = qq||; } } $column_data{transdate} = qq|{transdate}>|; $j++; $j %= 2; print qq| |; for (@column_index) { print "\n$column_data{$_}" } print qq| |; } $form->{rowcount} = $i; # print totals for (@column_index) { $column_data{$_} = "" } $column_data{debit} = ""; $column_data{credit} = ""; 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}, $form->{precision}, 0); $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, $form->{precision}, 0); print qq|

	\|.$locale->text('Beginning Balance').qq\|	".$form->format_amount(\%myconfig, $balance, $form->{precision}, 0)."
"; for (@{ $temp{name} }) { $column_data{name} .= "$_ " } $column_data{name} .= "	$temp{source}		".$form->format_amount(\%myconfig, $ref->{amount} * -1, $form->{precision}, " ")."	".$form->format_amount(\%myconfig, $ref->{amount}, $form->{precision}, " ")."	".$form->format_amount(\%myconfig, $balance, $form->{precision}, 0)."	*	*	$temp{transdate}
	".$form->format_amount(\%myconfig, $totaldebits, $form->{precision}, " ")."	".$form->format_amount(\%myconfig, $totalcredits, $form->{precision}, " ")."

|; } else { print qq|

\|.$locale->text('Reconciliation Date').qq\|		$form->{recdate}

\|.$locale->text('Statement Balance').qq\|		{statementbalance}>
\|.$locale->text('Difference').qq\|

|; $form->hide_form(qw(recdate fx_transaction summary rowcount accno account fromdate todate month year interval path login)); %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, 'Select all' => { ndx => 2, key => 'A', value => $locale->text('Select all') }, 'Deselect all' => { ndx => 3, key => 'A', value => $locale->text('Deselect all') }, 'Done' => { ndx => 4, key => 'O', value => $locale->text('Done') }, ); if ($form->{deselect}) { delete $button{'Select all'}; } else { delete $button{'Deselect all'}; } $form->print_button(\%button); } if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|

|; } sub update { RC->payment_transactions(\%myconfig, \%$form); $i = 0; foreach $ref (@{ $form->{PR} }) { $i++; $cleared = ($form->{"datecleared_$i"}) ? $form->{"datecleared_$i"} : $form->{recdate}; $ref->{cleared} = ($form->{"cleared_$i"}) ? $cleared : ""; } $form->{deselect} = 1 if $form->{allbox}; &display_form; } sub select_all { RC->payment_transactions(\%myconfig, \%$form); foreach $ref (@{ $form->{PR} }) { $ref->{cleared} = ($form->{"datecleared_$i"}) ? $form->{"datecleared_$i"} : $form->{recdate}; } $form->{deselect} = 1; $form->{allbox} = 1; &display_form; } sub deselect_all { RC->payment_transactions(\%myconfig, \%$form); for (@{ $form->{PR} }) { $_->{cleared} = "" } $form->{allbox} = ""; &display_form; } sub done { $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation"; if ($form->{month} && $form->{year}) { for (qw(fromdate todate)) { delete $form->{$_} } } for (qw(login fromdate todate month year interval)) { $form->{callback} .= "&$_=$form->{$_}"; } $form->{callback} .= "&accno=".$form->escape("$form->{accno}--$form->{account}",1); $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1); RC->reconcile(\%myconfig, \%$form); $form->redirect; }