#===================================================================== # 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) 2001 # # Author: DWS Systems Inc. # Web: http://www.sql-ledger.org # # Contributors: # # # Author: DWS Systems Inc. # Web: http://www.ledgersmb.org/ # # Contributors: # # 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 LedgerSMB::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 { CA->all_accounts( \%myconfig, \%$form ); @column_index = qw(accno gifi_accno description debit credit); $column_header{accno} = qq|| . $locale->text('Account') . qq|\n|; $column_header{gifi_accno} = qq|| . $locale->text('GIFI') . 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| |; for (@column_index) { print $column_header{$_} } print qq| |; foreach $ca ( @{ $form->{CA} } ) { $description = $form->escape( $ca->{description} ); $gifi_description = $form->escape( $ca->{gifi_description} ); $href = qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&description=$description&gifi_accno=$ca->{gifi_accno}&gifi_description=$gifi_description|; if ( $ca->{charttype} eq "H" ) { print qq||; for (qw(accno description)) { $column_data{$_} = ""; } $column_data{gifi_accno} = ""; } else { $i++; $i %= 2; print qq||; $column_data{accno} = ""; $column_data{gifi_accno} = ""; $column_data{description} = ""; } $column_data{debit} = "\n"; $column_data{credit} = "\n"; $totaldebit += $ca->{debit}; $totalcredit += $ca->{credit}; for (@column_index) { print "$column_data{$_}\n" } print qq| |; } for (qw(accno gifi_accno description)) { $column_data{$_} = ""; } $column_data{debit} = ""; $column_data{credit} = ""; print ""; for (@column_index) { print "$column_data{$_}\n" } print qq|
$form->{title}
$ca->{$_}$ca->{gifi_accno} 
$ca->{accno}$ca->{gifi_accno} $ca->{description}" . $form->format_amount( \%myconfig, $ca->{debit}, 2, " " ) . "" . $form->format_amount( \%myconfig, $ca->{credit}, 2, " " ) . "
 " . $form->format_amount( \%myconfig, $totaldebit, 2, 0 ) . "" . $form->format_amount( \%myconfig, $totalcredit, 2, 0 ) . "

|; } sub list { $form->{title} = $locale->text('List Transactions'); if ( $form->{accounttype} eq 'gifi' ) { $form->{title} .= " - " . $locale->text('GIFI') . " $form->{gifi_accno} - $form->{gifi_description}"; } else { $form->{title} .= " - " . $locale->text('Account') . " $form->{accno} - $form->{description}"; } # get departments $form->all_departments( \%myconfig ); if ( @{ $form->{all_department} } ) { $form->{selectdepartment} = "