|
@@ -170,7 +200,6 @@ sub search {
-{path}>
{login}>
{password}>
@@ -191,13 +220,6 @@ sub search_delivery {
$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|
@@ -265,7 +287,6 @@ sub search_delivery {
|
. $locale->text('Tax Number') . qq| |
- $gifi
|
. $locale->text('SIC') . qq| |
|
@@ -292,7 +313,6 @@ sub search_delivery {
-{path}>
{login}>
{password}>
@@ -313,7 +333,7 @@ sub list_names {
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}";
+ "$form->{script}?action=list_names&db=$form->{db}&login=$form->{login}&password=$form->{password}&status=$form->{status}&obsolete=$form->{obsolete}";
$href = $callback;
@columns =
@@ -321,7 +341,7 @@ sub list_names {
"$form->{db}number", address,
contact, phone,
fax, email,
- taxnumber, gifi_accno,
+ taxnumber,
sic_code, business,
invnumber, ordnumber,
quonumber);
@@ -410,10 +430,6 @@ sub list_names {
qq| | |
. $locale->text('Tax Number')
. qq| | |;
- $column_header{gifi_accno} =
- qq||
- . $locale->text('GIFI')
- . qq| | |;
$column_header{sic_code} =
qq||
. $locale->text('SIC')
@@ -479,7 +495,7 @@ sub list_names {
(invnumber, ordnumber, quonumber);
$column_data{name} =
- " | {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} | ";
+ "{script}?action=edit&id=$ref->{id}&db=$form->{db}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name} | ";
if ($ref->{email}) {
$email = $ref->{email};
@@ -494,17 +510,17 @@ sub list_names {
if ($ref->{formtype} eq 'invoice') {
$column_data{invnumber} =
- "{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}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber} | ";
}
if ($ref->{formtype} eq 'order') {
$column_data{ordnumber} =
- "{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=$ordertype&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber} | ";
}
if ($ref->{formtype} eq 'quotation') {
$column_data{quonumber} =
- "{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber} | ";
+ "{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{quonumber} | ";
}
$i++;
@@ -538,7 +554,6 @@ sub list_names {
{db}>
-{path}>
{login}>
{password}>
@@ -565,6 +580,7 @@ sub edit {
# $locale->text('Edit Vendor')
CT->get_tuple(\%myconfig, \%$form);
+ CT->populate_drop_down_boxes(\%myconfig, \%$form);
# format " into "
map { $form->{$_} =~ s/\"/"/g } keys %$form;
@@ -583,6 +599,9 @@ sub edit {
sub form_header {
$lxdebug->enter_sub();
+ $form->get_lists("employees" => "ALL_SALESMEN",
+ "taxzones" => "ALL_TAXZONES");
+
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
$form->{creditlimit} =
$form->format_amount(\%myconfig, $form->{creditlimit}, 0);
@@ -624,31 +643,26 @@ sub form_header {
}
}
- if (@{ $form->{TAXZONE} }) {
- foreach $item (@{ $form->{TAXZONE} }) {
- if ($item->{id} == $form->{taxzone_id}) {
- $form->{selecttaxzone} .=
- "";
+ $form->{selectcontact} = "";
if (@{ $form->{CONTACTS} }) {
foreach $item (@{ $form->{CONTACTS} }) {
if ($item->{cp_id} == $form->{cp_id}) {
@@ -669,7 +683,7 @@ sub form_header {
|;
$get_shipto_url =
- "$form->{script}?login=$form->{login}&path=$form->{path}&password=$form->{password}&action=get_shipto";
+ "$form->{script}?login=$form->{login}&password=$form->{password}&action=get_shipto";
my $pjy = new CGI::Ajax( 'get_shipto' => $get_shipto_url );
$form->{selectshipto} = "