#===================================================================== # LX-Office ERP # Copyright (C) 2004 # Based on SQL-Ledger Version 2.1.9 # Web http://www.lx-office.org # #===================================================================== # SQL-Ledger Accounting # Copyright (C) 2001 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org # 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. #====================================================================== # # module for Chart of Accounts, Income Statement and Balance Sheet # search and edit transactions posted by the GL, AR and AP # #====================================================================== use SL::CA; 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 chart_of_accounts { $lxdebug->enter_sub(); CA->all_accounts(\%myconfig, \%$form); @column_index = qw(accno description debit credit); $column_header{accno} = qq|| . $locale->text('Account') . qq|\n|; $column_header{description} = qq|| . $locale->text('Description') . qq|\n|; $column_header{debit} = qq|| . $locale->text('Debit') . qq|\n|; $column_header{credit} = qq|| . $locale->text('Credit') . qq|\n|; $form->{title} = $locale->text('Chart of Accounts'); $colspan = $#column_index + 1; $form->header; print qq| |; map { print $column_header{$_} } @column_index; print qq| |; foreach $ca (@{ $form->{CA} }) { $description = $form->escape($ca->{description}); $href = qq|$form->{script}?action=list&accno=$ca->{accno}&login=$form->{login}&password=$form->{password}&description=$description|; if ($ca->{charttype} eq "H") { print qq||; map { $column_data{$_} = ""; } qw(accno description); } else { $i++; $i %= 2; print qq||; $column_data{accno} = ""; $column_data{description} = ""; } my $debit = ""; my $credit = ""; if ($ca->{debit}) { $debit = $form->format_amount(\%myconfig, $ca->{debit}, 2, " "); } if ($ca->{credit}) { $credit = $form->format_amount(\%myconfig, $ca->{credit}, 2, " "); } $column_data{debit} = "\n"; $column_data{credit} = "\n"; $totaldebit += $ca->{debit}; $totalcredit += $ca->{credit}; map { print $column_data{$_} } @column_index; print qq| |; } map { $column_data{$_} = ""; } qw(accno description); $column_data{debit} = ""; $column_data{credit} = ""; print ""; map { print $column_data{$_} } @column_index; print qq|

$form->{title}
$ca->{$_}
$ca->{accno}	$ca->{description}	" . $debit . "	" . $credit . "
	" . $form->format_amount(\%myconfig, $totaldebit, 2, 0) . "	" . $form->format_amount(\%myconfig, $totalcredit, 2, 0) . "

|; $lxdebug->leave_sub(); } sub list { $lxdebug->enter_sub(); $form->{title} = $locale->text('List Transactions'); $form->{title} .= " - " . $locale->text('Account') . " $form->{accno}"; # get departments $form->all_departments(\%myconfig); if (@{ $form->{all_departments} }) { $form->{selectdepartment} = "