#===================================================================== # 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; use CGI::Ajax; use CGI; use Data::Dumper; require "bin/mozilla/common.pl"; 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 search_delivery { $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}

{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(); # show history button $form->{javascript} = qq||; #/show hhistory button # $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->get_lists("employees" => "ALL_SALESMEN"); $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : ""; $form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0); $form->{discount} = $form->format_amount(\%myconfig, $form->{discount}); if ($myconfig{role} eq 'admin') { $bcc = qq| | . $locale->text('Bcc') . qq| |; } $form->{obsolete} = "checked" if $form->{obsolete}; $lang = qq||; foreach $item (@{ $form->{languages} }) { if ($form->{language_id} eq $item->{id}) { $lang .= qq||; } else { $lang .= qq||; } } $payment = qq||; foreach $item (@{ $form->{payment_terms} }) { if ($form->{payment_id} eq $item->{id}) { $payment .= qq||; } else { $payment .= qq||; } } if (!$form->{id}) { if ($form->{db} eq "customer") { $form->{taxzone_id} = 0; } else { $form->{taxzone_id} = 0; } } if (@{ $form->{TAXZONE} }) { foreach $item (@{ $form->{TAXZONE} }) { if ($item->{id} == $form->{taxzone_id}) { $form->{selecttaxzone} .= ""; if (@{ $form->{CONTACTS} }) { foreach $item (@{ $form->{CONTACTS} }) { if ($item->{cp_id} == $form->{cp_id}) { $form->{selectcontact} .= qq|\n|; } else { $form->{selectcontact} .= qq|\n|; } } } push(@ { $form->{AJAX} }, $pjx); $ansprechpartner = qq| | . $locale->text('Ansprechpartner') . qq| |; $get_shipto_url = "$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=get_shipto"; my $pjy = new CGI::Ajax( 'get_shipto' => $get_shipto_url ); $form->{selectshipto} = ""; $form->{selectshipto} .= ""; if (@{ $form->{SHIPTO} }) { foreach $item (@{ $form->{SHIPTO} }) { if ($item->{shipto_id} == $form->{shipto_id}) { $form->{selectshipto} .= "