#===================================================================== # SQL-Ledger Accounting # Copyright (c) 1998-2002 # # 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. #====================================================================== # # administration # #====================================================================== use SL::AM; use SL::CA; use SL::Form; use SL::User; 1; # end of main sub add { $form->{title} = "Add"; $form->{charttype} = "A"; $form->{callback} = "$form->{script}?action=list&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback}; &form_header; &form_footer; } sub edit { $form->{title} = "Edit"; # if it is a template if ($form->{file}) { $form->{type} = "template"; &edit_template; exit; } AM->get_account(\%myconfig, \%$form); foreach my $item (split(/:/, $form->{link})) { $form->{$item} = "checked"; } &form_header; &form_footer; } sub form_header { $form->{title} = $locale->text("$form->{title} Account"); $checked{$form->{charttype}} = "checked"; $checked{"$form->{category}_"} = "checked"; $checked{CT_tax} = ($form->{CT_tax}) ? "" : "checked"; $form->{description} =~ s/"/"/g; # this is for our parser only! # type=submit $locale->text('Add Account') # type=submit $locale->text('Edit Account') $form->header; print qq|

{script}> {id}> {inventory_accno_id}> {income_accno_id}> {expense_accno_id}> {fxgain_accno_id}> {fxloss_accno_id}> {amount}>

$form->{title}

|; if ($form->{charttype} eq "A") { print qq| |; } print qq|

|.$locale->text('Account Number').qq|

{accno}>

|.$locale->text('Description').qq|

|.$locale->text('Account Type').qq|

|.$locale->text('Asset').qq|\n
|.$locale->text('Liability').qq|\n
|.$locale->text('Equity').qq|\n
|.$locale->text('Income').qq|\n
|.$locale->text('Expense') .qq|

|.$locale->text('Heading').qq|
|.$locale->text('Account') .qq|

\|.$locale->text('Is this a summary account to record').qq\|	{AR}> \|.$locale->text('AR') .qq\| {AP}> \|.$locale->text('AP') .qq\| {IC}> \|.$locale->text('Inventory') .qq\|

|.$locale->text('Include in drop-down menus').qq|

\|.$locale->text('Receivables').qq\|	\|.$locale->text('Payables').qq\|	\|.$locale->text('Parts Inventory').qq\|	\|.$locale->text('Service Items').qq\|
{AR_amount}> \|.$locale->text('Income').qq\|\n {AR_paid}> \|.$locale->text('Payment').qq\|\n {AR_tax}> \|.$locale->text('Tax') .qq\|	{AP_amount}> \|.$locale->text('Expense/Asset').qq\|\n {AP_paid}> \|.$locale->text('Payment').qq\|\n {AP_tax}> \|.$locale->text('Tax') .qq\|	{IC_sale}> \|.$locale->text('Sales').qq\|\n {IC_cogs}> \|.$locale->text('COGS').qq\|\n {IC_taxpart}> \|.$locale->text('Tax') .qq\|	{IC_income}> \|.$locale->text('Income').qq\|\n {IC_expense}> \|.$locale->text('Expense').qq\|\n {IC_taxservice}> \|.$locale->text('Tax') .qq\|

\|.$locale->text('Include this account on the customer/vendor forms to flag customer/vendor as taxable?').qq\|	{CT_tax}> \|.$locale->text('Yes').qq\| \|.$locale->text('No') .qq\|

|.$locale->text('GIFI').qq|

{gifi_accno}>

|; } sub form_footer { print qq| {path}> {login}> {password}>
|; if ($form->{id}) { print qq||; } print qq|

|; } sub save { &{ "save_$form->{type}" } }; sub save_account { $form->isblank("accno", $locale->text('Account Number missing!')); $form->isblank("category", $locale->text('Account Type missing!')); $form->redirect($locale->text('Account saved!')) if (AM->save_account(\%myconfig, \%$form)); $form->error($locale->text('Cannot save account!')); } sub list { CA->all_accounts(\%myconfig, \%$form); $form->{title} = $locale->text('Chart of Accounts'); # construct callback $callback = "$form->{script}?action=list&path=$form->{path}&login=$form->{login}&password=$form->{password}"; @column_index = qw(accno gifi_accno description debit credit link); $column_header{accno} = qq||.$locale->text('Account').qq||; $column_header{gifi_accno} = qq||.$locale->text('GIFI').qq||; $column_header{description} = qq||.$locale->text('Description').qq||; $column_header{debit} = qq||.$locale->text('Debit').qq||; $column_header{credit} = qq||.$locale->text('Credit').qq||; $column_header{link} = qq||.$locale->text('Link').qq||; $form->header; $colspan = $#column_index + 1; print qq| |; map { print "$column_header{$_}\n" } @column_index; print qq| |; # escape callback $callback = $form->escape($callback); foreach $ca (@{ $form->{CA} }) { $ca->{debit} = " "; $ca->{credit} = " "; # needed if we can delete an account $amount = 0; if ($ca->{amount} > 0) { $amount = $ca->{amount}; $ca->{credit} = $form->format_amount(\%myconfig, $ca->{amount}, 2, " "); } if ($ca->{amount} < 0) { $amount = -$ca->{amount}; $ca->{debit} = $form->format_amount(\%myconfig, -$ca->{amount}, 2, " "); } $ca->{link} =~ s/:/
/og; if ($ca->{charttype} eq "H") { print qq||; $column_data{accno} = qq||; $column_data{gifi_accno} = qq||; $column_data{description} = qq||; $column_data{debit} = qq||; $column_data{credit} = qq| |; $column_data{link} = qq||; } else { $i++; $i %= 2; print qq| |; $column_data{accno} = qq||; $column_data{gifi_accno} = qq||; $column_data{description} = qq||; $column_data{debit} = qq||; $column_data{credit} = qq||; $column_data{link} = qq||; } map { print "$column_data{$_}\n" } @column_index; print "\n"; } print qq|

$form->{title}
{script}?action=edit&id=$ca->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{accno}	{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{gifi_accno}	$ca->{description}
{script}?action=edit&id=$ca->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback&amount=$amount>$ca->{accno}	{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback&amount=$amount>$ca->{gifi_accno}	$ca->{description}	$ca->{debit}	$ca->{credit}	$ca->{link}

|; } sub delete { &{ "delete_$form->{type}" } }; sub delete_account { $form->{title} = $locale->text('Delete Account'); if ($form->{amount} != 0) { $form->error($locale->text('Transactions exist; cannot delete account!')); } foreach $id (qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)) { if ($form->{id} == $form->{$id}) { $form->error($locale->text('Cannot delete default account!')); } } $form->redirect($locale->text('Account deleted!')) if (AM->delete_account(\%myconfig, \%$form)); $form->error($locale->text('Cannot delete account!')); } sub list_gifi { @{ $form->{fields} } = (accno, description); $form->{table} = "gifi"; $form->{sortorder} = "accno"; AM->gifi_accounts(\%myconfig, \%$form); $form->{title} = $locale->text('GIFI'); # construct callback $callback = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&password=$form->{password}"; @column_index = qw(accno description); $column_header{accno} = qq||.$locale->text('GIFI').qq||; $column_header{description} = qq||.$locale->text('Description').qq||; $form->header; $colspan = $#column_index + 1; print qq| |; map { print "$column_header{$_}\n" } @column_index; print qq| |; # escape callback $callback = $form->escape($callback); foreach $ca (@{ $form->{ALL} }) { $i++; $i %= 2; print qq| |; $column_data{accno} = qq||; $column_data{description} = qq||; map { print "$column_data{$_}\n" } @column_index; print "\n"; } print qq|

$form->{title}
{script}?action=edit_gifi&coa=1&accno=$ca->{accno}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{accno}	$ca->{description}

|; } sub add_gifi { $form->{title} = "Add"; # construct callback $form->{callback} = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&password=$form->{password}"; $form->{coa} = 1; &gifi_header; &gifi_footer; } sub edit_gifi { $form->{title} = "Edit"; AM->get_gifi(\%myconfig, \%$form); &gifi_header; &gifi_footer; } sub gifi_header { $form->{title} = $locale->text("$form->{title} GIFI"); # $locale->text('Add GIFI') # $locale->text('Edit GIFI') $form->{description} =~ s/"/"/g; $form->header; print qq|

{script}> {accno}>

$form->{title}

\|.$locale->text('GIFI').qq\|	{accno}>
\|.$locale->text('Description').qq\|

|; } sub gifi_footer { print qq| {path}> {login}> {password}>
|; if ($form->{coa}) { print qq| |; if ($form->{accno}) { print qq||; } } print qq|

|; } sub save_gifi { $form->isblank("accno", $locale->text('GIFI missing!')); AM->save_gifi(\%myconfig, \%$form); $form->redirect($locale->text('GIFI saved!')); } sub copy_to_coa { $form->isblank("accno", $locale->text('GIFI missing!')); AM->save_gifi(\%myconfig, \%$form); delete $form->{id}; $form->{gifi_accno} = $form->{accno}; $form->{title} = "Add"; $form->{charttype} = "A"; &form_header; &form_footer; } sub delete_gifi { AM->delete_gifi(\%myconfig, \%$form); $form->redirect($locale->text('GIFI deleted!')); } sub display_stylesheet { $form->{file} = "css/$myconfig{stylesheet}"; &display_form; } sub display_form { $form->{file} =~ s/^(.:)*?\/|\.\.\///g; $form->{file} =~ s/^\/*//g; $form->{file} =~ s/$userspath//; $form->error("$!: $form->{file}") unless -f $form->{file}; AM->load_template(\%$form); $form->{title} = $form->{file}; # if it is anything but html if ($form->{file} !~ /\.html$/) { $form->{body} = "

\n$form->{body}\n

"; } $form->header; print qq| $form->{body} |; } sub edit_template { AM->load_template(\%$form); $form->{title} = $locale->text('Edit Template'); # convert to   $form->{body} =~ s/ / /gi; $form->header; print qq| |; } sub save_template { AM->save_template(\%$form); $form->redirect($locale->text('Template saved!')); } sub config { # get defaults for account numbers and last numbers AM->defaultaccounts(\%myconfig, \%$form); foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) { $dateformat .= ($item eq $myconfig{dateformat}) ? "