#===================================================================== # 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->{$_} $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} 

{script}> {db}> {path}> {login}> {password}> |; if ($form->{menubar}) { require "$form->{path}/menu.pl"; &menubar; } print qq|
|; $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|