#===================================================================== # LedgerSMB # Small Medium Business Accounting software # # See COPYRIGHT file for copyright information #====================================================================== # # This file has NOT undergone whitespace cleanup. # #====================================================================== # # 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 .= "$_->{accno}--$_->{description}\n" } $form->{title} = $locale->text('Reconciliation'); if ($form->{report}) { $form->{title} = $locale->text('Reconciliation Report'); $cleared = qq| |.$locale->text('Outstanding').qq| |.$locale->text('Cleared').qq| |; } if (@{ $form->{all_years} }) { # accounting years $form->{selectaccountingyear} = "\n"; for (@{ $form->{all_years} }) { $form->{selectaccountingyear} .= qq|$_\n| } $form->{selectaccountingmonth} = "\n"; for (sort keys %{ $form->{all_month} }) { $form->{selectaccountingmonth} .= qq||.$locale->text($form->{all_month}{$_}).qq|\n| } $selectfrom = qq| |.$locale->text('Period').qq| $form->{selectaccountingmonth} $form->{selectaccountingyear} |.$locale->text('Current').qq| |.$locale->text('Month').qq| |.$locale->text('Quarter').qq| |.$locale->text('Year').qq| |; } $form->header; print qq| {script}> $form->{title} |.$locale->text('Account').qq| $selection |.$locale->text('From').qq| |.$locale->text('To').qq| $selectfrom $cleared |.$locale->text('Summary').qq| |.$locale->text('Detail').qq| |.$locale->text('Include Exchange Rate Difference').qq| |; $form->hide_form(qw(path login sessionid)); print qq| |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|