- #=====================================================================
- # 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 );
- $form->{accountselect} = {
- name => 'accno',
- options => [],
- };
- for ( @{ $form->{PR} } ) {
- push @{$form->{accountselect}{options}}, {
- value => "$_->{accno}--$_->{description}",
- text => "$_->{accno}--$_->{description}",
- };
- }
- $form->{title} = $locale->text('Reconciliation');
- if ( $form->{report} ) {
- $form->{title} = $locale->text('Reconciliation Report');
- $hiddens{report} = 1;
- }
- if ( @{ $form->{all_years} } ) {
- # accounting years
- $form->{selectaccountingyear} = {
- name => 'year',
- options => [{text => '', value => ''}],
- };
- for ( @{ $form->{all_years} } ) {
- push @{$form->{selectaccountingyear}{options}},
- {text => $_, value => $_};
- }
- $form->{selectaccountingmonth} = {
- name => 'month',
- options => [{text => '', value => ''}],
- };
- for ( sort keys %{ $form->{all_month} } ) {
- push @{$form->{selectaccountingmonth}{options}}, {
- value => $_,
- text => $locale->text($form->{all_month}{$_})
- };
- }
- }
- $hiddens{nextsub} = 'get_payments';
- $hiddens{$_} = $form->{$_} foreach qw(path login sessionid);
- my @buttons = ({
- name => 'action',
- value => 'get_payments',
- text => $locale->text('Continue'),
- });
- ##SC: Temporary removal
- ## if ( $form->{lynx} ) {
- ## require "bin/menu.pl";
- ## &menubar;
- ## }
- my $template = LedgerSMB::Template->new_UI(
- user => \%myconfig,
- locale => $locale,
- template => 'rc-reconciliation',
- );
- $template->render({
- form => $form,
- user => \%myconfig,
- hiddens => \%hiddens,
- buttons => \@buttons,
- });
- }
- sub continue { &{ $form->{nextsub} } }
- sub till_closing {
- my %hiddens;
- $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 );
- $hiddens{path} = $form->{path};
- $hiddens{login} = $form->{login};
- $hiddens{sessionid} = $form->{sessionid};
- $hiddens{callback} = $form->{callback};
- $hiddens{sum} = "$form->{sum}" * -1;
- my $j;
- my $source;
- my @sources;
- foreach $source ( sort keys %pos_sources ) {
- $amount = 0;
- foreach $ref ( @{ $form->{TB} } ) {
- if ( $ref->{memo} eq $source ) {
- $amount = $ref->{amount} * -1;
- last;
- }
- }
- ++$j;
- $j = $j % 2;
- push @sources, {i => $j,
- label => $pos_sources{$source},
- source => $source,
- currenamount => "${curren}${amount}",
- };
- $hiddens{"expected_$source"} = "$amount";
- }
- my @units;
- 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;
- my $unit_name = $calcval;
- $calcval = 'calc_' . $calcval;
- push @units, {
- unit => $unit,
- unit_name => "$unit_name",
- currenunit => "${curren}${unit}",
- quantity => {name => $calcval, value => $form->{$calcval}},
- value => {name => $subval, value => $form->{$subval}},
- };
- }
- my @buttons = ({
- name => 'calculate',
- value => 'Calculate',
- type => 'button',
- text => $locale->text('Calculate'),
- attributes => {onclick => 'custom_calc_total()'},
- }, {
- name => 'action',
- value => 'close_till',
- text => $locale->text('Close Till'),
- });
- my $template = LedgerSMB::Template->new_UI(
- user => \%myconfig,
- locale => $locale,
- template => 'rc-till-closing',
- );
- $template->render({
- form => $form,
- user => \%myconfig,
- 'pos' => \%pos_config,
- hiddens => \%hiddens,
- columns => \@colheadings,
- sources => \@sources,
- units => \@units,
- buttons => \@buttons,
- });
- }
- 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);
- }
- 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 {
- my %hiddens;
- my @buttons;
- my @column_index;
- if ( $form->{report} ) {
- @column_index = qw(transdate source name cleared debit credit);
- }
- else {
- @column_index = qw(transdate source name cleared debit credit balance);
- }
- my %column_header;
- $column_header{cleared} = $locale->text('R');
- $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');
- my @options;
- if ( $form->{fromdate} ) {
- push @options,
- $locale->text('From [_1]',
- $locale->date( \%myconfig, $form->{fromdate}, 1 ));
- }
- if ( $form->{todate} ) {
- push @options,
- $locale->text('To [_1]',
- $locale->date( \%myconfig, $form->{todate}, 1 ));
- }
- $form->{title} = "$form->{accno}--$form->{account}";
- $hiddens{source} = $form->{source};
- $hiddens{cumulative_error} = $form->{cumulative_error};
- my $ml = ( $form->{category} eq 'A' ) ? -1 : 1;
- $form->{beginningbalance} *= $ml;
- $form->{fx_balance} *= $ml;
- if ( !$form->{fx_transaction} ) {
- $form->{beginningbalance} -= $form->{fx_balance};
- }
- my $balance = $form->{beginningbalance};
- my $i = 0;
- my $j = 0;
- my @rows;
- if ( !$form->{report} ) {
- my %column_data;
- for (qw(cleared transdate source debit credit)) {
- $column_data{$_} = ' ';
- }
- $column_data{name} = $locale->text('Beginning Balance');
- $column_data{balance} = $form->format_amount(\%myconfig, $balance, 2, 0);
- $column_data{i} = $j;
- push @rows, \%column_data;
- }
- foreach my $ref ( @{ $form->{PR} } ) {
- $i++;
- if ( !$form->{fx_transaction} ) {
- next if $ref->{fx_transaction};
- }
- my %column_data;
- my $checked = ( $ref->{cleared} ) ? "checked" : undef;
- my %temp = ();
- if ( !$ref->{fx_transaction} ) {
- for (qw(name source transdate)) { $temp{$_} = $ref->{$_} }
- }
- $column_data{name}{delimiter} = "|";
- for ( @{ $temp{name} } ) { $column_data{name}{text} .= "$_|" }
- $column_data{source} = $temp{source};
- $column_data{debit} = ' ';
- $column_data{credit} = ' ';
- $balance += $ref->{amount} * $ml;
- $hiddens{"id_$i"} = $ref->{id};
- if ( $ref->{amount} < 0 ) {
- $totaldebits += $ref->{amount} * -1;
- $column_data{debit} =
- $form->format_amount(\%myconfig, $ref->{amount} * -1, 2, ' ');
- } else {
- $totalcredits += $ref->{amount};
- $column_data{credit} =
- $form->format_amount(\%myconfig, $ref->{amount}, 2, ' ');
- }
- $column_data{balance} = $form->format_amount(\%myconfig, $balance, 2, 0);
- if ( $ref->{fx_transaction} ) {
- $column_data{cleared} =
- ($clearfx) ? '*': ' ';
- $cleared += $ref->{amount} * $ml if $clearfx;
- } else {
- if ( $form->{report} ) {
- if ( $ref->{cleared} ) {
- $column_data{cleared} = '*';
- $clearfx = 1;
- } else {
- $column_data{cleared} = ' ';
- $clearfx = 0;
- }
- } else {
- if ( $ref->{oldcleared} ) {
- $cleared += $ref->{amount} * $ml;
- $clearfx = 1;
- $hiddens{"cleared_$i"} = $ref->{cleared};
- $hiddens{"oldcleared_$i"} = $ref->{oldcleared};
- $hiddens{"source_$i"} = $ref->{source};
- $hiddens{"amount_$i"} = $ref->{amount};
- $column_data{cleared} = '*';
- } else {
- $cleared += $ref->{amount} * $ml if $checked;
- $clearfx = ($checked) ? 1 : 0;
- $hiddens{"source_$i"} = $ref->{source};
- $hiddens{"amount_$i"} = $ref->{amount};
- $column_data{cleared} = {input => {
- type => 'checkbox',
- value => 1,
- name => "cleared_$i",
- $checked => $checked,
- }};
- }
- }
- }
- $hiddens{"transdate_$i"} = $ref->{transdate};
- $column_data{transdate} = $temp{transdate};
- $j++;
- $j %= 2;
- $column_data{i} = $j;
- push @rows, \%column_data;
- }
- $form->{rowcount} = $i;
- # print totals
- my %column_data;
- for (@column_index) { $column_data{$_} = ' ' }
- $column_data{debit} =
- $form->format_amount( \%myconfig, $totaldebits, 2, ' ' );
- $column_data{credit} =
- $form->format_amount( \%myconfig, $totalcredits, 2, ' ' );
- $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 );
- if ( $form->{'pos'} ) {
- push @buttons, {
- name => 'action',
- value => 'close_next',
- text => $locale->text('Close Next')
- };
- } else {
- push @buttons, {
- name => 'action',
- value => 'done',
- text => $locale->text('Done')
- };
- }
- $hiddens{difference} = $difference;
- if ( $form->{'pos'} ) {
- $hiddens{'pos'} = 'true';
- }
- if (! $form->{report} ) {
- $hiddens{$_} = $form->{$_} foreach
- qw(fx_transaction summary rowcount accno account fromdate todate path login sessionid);
- unshift @buttons, {
- name => 'action',
- value => 'select_all',
- text => $locale->text('Select all'),
- };
- unshift @buttons, {
- name => 'action',
- value => 'update',
- text => $locale->text('Update'),
- };
- }
- ##SC: Temporary removal
- ## if ( $form->{lynx} ) {
- ## require "bin/menu.pl";
- ## &menubar;
- ## }
- my $template = LedgerSMB::Template->new_UI(
- user => \%myconfig,
- locale => $locale,
- template => 'rc-display-form',
- );
- $template->render({
- form => $form,
- hiddens => \%hiddens,
- options => \@options,
- rows => \@rows,
- totals => \%column_data,
- columns => \@column_index,
- heading => \%column_header,
- buttons => \@buttons,
- });
- }
- 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;
- }
|