#===================================================================== # 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) 1998-2002 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org # Web: http://www.sql-ledger.org # # Contributors: Reed White # # 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. #====================================================================== # # customer/vendor module # #====================================================================== # $locale->text('Customers') # $locale->text('Vendors') # $locale->text('Add Customer') # $locale->text('Add Vendor') use SL::CT; 1; # end of main sub add { $lxdebug->enter_sub(); $form->{title} = "Add"; $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback}; CT->taxaccounts(\%myconfig, \%$form); &form_header; &form_footer; $lxdebug->leave_sub(); } sub search { $lxdebug->enter_sub(); $label = ucfirst $form->{db}; $form->{title} = $locale->text($label."s"); if ($form->{db} eq 'vendor') { $gifi = qq| |.$locale->text('GIFI').qq| |; } $form->header; print qq|

{script}> {db}>

$form->{title}

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

{db}number size=35>

|.$locale->text('Company Name').qq|

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

|.$locale->text('E-mail').qq|

|.$locale->text('All').qq| |.$locale->text('Orphaned').qq|

|.$locale->text('Include in Report').qq|

$gifi

\|.$locale->text('ID').qq\|	\|.$locale->text($label . ' Number').qq\|	\|.$locale->text('Company Name').qq\|	\|.$locale->text('Address').qq\|
\|.$locale->text('Contact').qq\|	\|.$locale->text('Phone').qq\|	\|.$locale->text('Fax').qq\|	\|.$locale->text('E-mail').qq\|
\|.$locale->text('Tax Number').qq\|	\|.$locale->text('SIC').qq\|	\|.$locale->text('Type of Business').qq\|
\|.$locale->text('Invoices').qq\|	\|.$locale->text('Orders').qq\|	\|.$locale->text('Quotations').qq\|

{path}> {login}> {password}>

|; $lxdebug->leave_sub(); } sub list_names { $lxdebug->enter_sub(); CT->search(\%myconfig, \%$form); $callback = "$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}"; $href = $callback; @columns = $form->sort_columns(id, name, "$form->{db}number", address, contact, phone, fax, email, taxnumber, gifi_accno, sic_code, business, invnumber, ordnumber, quonumber); foreach $item (@columns) { if ($form->{"l_$item"} eq "Y") { push @column_index, $item; # add column to href and callback $callback .= "&l_$item=Y"; $href .= "&l_$item=Y"; } } $number = ($form->{db} eq "customer") ? $locale->text('Customer Number') : $locale->text('Vendor Number') ; if ($form->{status} eq 'all') { $option = $locale->text('All'); } if ($form->{status} eq 'orphaned') { $option .= $locale->text('Orphaned'); } if ($form->{name}) { $callback .= "&name=".$form->escape($form->{name},1); $href .= "&name=".$form->escape($form->{name}); $option .= "\n
".$locale->text('Name')." : $form->{name}"; } if ($form->{contact}) { $callback .= "&contact=".$form->escape($form->{contact},1); $href .= "&contact=".$form->escape($form->{contact}); $option .= "\n
".$locale->text('Contact')." : $form->{contact}"; } if ($form->{"$form->{db}number"}) { $callback .= qq|&$form->{db}number=|.$form->escape($form->{"$form->{db}number"},1); $href .= "&$form->{db}number=".$form->escape($form->{"$form->{db}number"}); $option .= "\n
".$locale->text('Number').qq| : $form->{"$form->{db}number"}|; } if ($form->{email}) { $callback .= "&email=".$form->escape($form->{email},1); $href .= "&email=".$form->escape($form->{email}); $option .= "\n
".$locale->text('E-mail')." : $form->{email}"; } $form->{callback} = "$callback&sort=$form->{sort}"; $callback = $form->escape($form->{callback}); $column_header{id} = qq||.$locale->text('ID').qq||; $column_header{"$form->{db}number"} = qq|{db}number>$number|; $column_header{name} = qq||.$locale->text('Name').qq||; $column_header{address} = qq||.$locale->text('Address').qq||; $column_header{contact} = qq||.$locale->text('Contact').qq||; $column_header{phone} = qq||.$locale->text('Phone').qq||; $column_header{fax} = qq||.$locale->text('Fax').qq||; $column_header{email} = qq||.$locale->text('E-mail').qq||; $column_header{cc} = qq||.$locale->text('Cc').qq||; $column_header{taxnumber} = qq||.$locale->text('Tax Number').qq||; $column_header{gifi_accno} = qq||.$locale->text('GIFI').qq||; $column_header{sic_code} = qq||.$locale->text('SIC').qq||; $column_header{business} = qq||.$locale->text('Type of Business').qq||; $column_header{invnumber} = qq||.$locale->text('Invoice').qq||; $column_header{ordnumber} = qq||.$locale->text('Order').qq||; $column_header{quonumber} = qq||.$locale->text('Quotation').qq||; $label = ucfirst $form->{db}."s"; $form->{title} = $locale->text($label); $form->header; print qq|

$form->{title}

$option

|; map { print "$column_header{$_}\n" } @column_index; print qq| |; $ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order'; $quotationtype = ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation'; foreach $ref (@{ $form->{CT} }) { if ($ref->{id} eq $sameid) { map { $column_data{$_} = "" } @column_index; } else { map { $column_data{$_} = "" } @column_index; map { $column_data{$_} = "" } (invnumber, ordnumber, quonumber); $column_data{name} = ""; if ($ref->{email}) { $email = $ref->{email}; $email =~ s//\>/; $column_data{email} = qq||; } } if ($ref->{formtype} eq 'invoice') { $column_data{invnumber} = ""; } if ($ref->{formtype} eq 'order') { $column_data{ordnumber} = ""; } if ($ref->{formtype} eq 'quotation') { $column_data{quonumber} = ""; } $i++; $i %= 2; print " "; map { print "$column_data{$_}\n" } @column_index; print qq| |; $sameid = $ref->{id}; } print qq|

$ref->{$_}

{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name}

$email

{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber}

{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber}

{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber}

|; $lxdebug->leave_sub(); } sub edit { $lxdebug->enter_sub(); # $locale->text('Edit Customer') # $locale->text('Edit Vendor') CT->get_tuple(\%myconfig, \%$form); # format " into " map { $form->{$_} =~ s/\"/"/g } keys %$form; $form->{title} = "Edit"; # format discount $form->{discount} *= 100; &form_header; &form_footer; $lxdebug->leave_sub(); } sub form_header { $lxdebug->enter_sub(); $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : ""; $form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0); if ($myconfig{role} eq 'admin') { $bcc = qq| |.$locale->text('Bcc').qq| |; } $form->{obsolete} = "checked" if $form->{obsolete}; %langs = (de=>"deutsch", en=>"englisch", fr=>"französisch"); $lang = qq||; foreach $item (keys %langs) { if ($form->{language} eq $item) { $lang .= qq||; } else { $lang .= qq||; } } foreach $item (split / /, $form->{taxaccounts}) { if (($form->{tax}{$item}{taxable}) || !($form->{id})) { $taxable .= qq| $form->{tax}{$item}{description}|; } else { $taxable .= qq| $form->{tax}{$item}{description}|; } } ##LINET $taxable=""; if ($taxable) { $tax = qq| |.$locale->text('Taxable').qq|

$taxable	{taxincluded}>	\|.$locale->text('Tax Included').qq\|

|; } $form->{selectbusiness} = qq|