- $lxdebug->enter_sub();
-
- $label = ucfirst $form->{db};
- $form->{title} = $locale->text($label . "s");
-
- if ($form->{db} eq 'vendor') {
- $gifi = qq|
- <td><input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |
- . $locale->text('GIFI') . qq|</td>
-|;
- }
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=db value=$form->{db}>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr valign=top>
- <td>
- <table>
- <tr>
- <th align=right nowrap>| . $locale->text($label . ' Number') . qq|</th>
- <td><input name=$form->{db}number size=35></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Company Name') . qq|</th>
- <td><input name=name size=35></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Contact') . qq|</th>
- <td><input name=contact size=35></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
- <td><input name=email size=35></td>
- </tr>
- <tr>
- <td></td>
- <td><input name=status class=radio type=radio value=all checked> |
- . $locale->text('All') . qq|
- <input name=status class=radio type=radio value=orphaned> |
- . $locale->text('Orphaned') . qq|</td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Include in Report') . qq|</th>
- <td>
- <table>
- <tr>
- <td><input name="l_id" type=checkbox class=checkbox value=Y> |
- . $locale->text('ID') . qq|</td>
- <td><input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |
- . $locale->text($label . ' Number') . qq|</td>
- <td><input name="l_name" type=checkbox class=checkbox value=Y checked> |
- . $locale->text('Company Name') . qq|</td>
- <td><input name="l_address" type=checkbox class=checkbox value=Y> |
- . $locale->text('Address') . qq|</td>
- </tr>
- <tr>
- <td><input name="l_contact" type=checkbox class=checkbox value=Y checked> |
- . $locale->text('Contact') . qq|</td>
- <td><input name="l_phone" type=checkbox class=checkbox value=Y checked> |
- . $locale->text('Phone') . qq|</td>
- <td><input name="l_fax" type=checkbox class=checkbox value=Y> |
- . $locale->text('Fax') . qq|</td>
- <td><input name="l_email" type=checkbox class=checkbox value=Y checked> |
- . $locale->text('E-mail') . qq|</td>
- </tr>
- <tr>
- <td><input name="l_taxnumber" type=checkbox class=checkbox value=Y> |
- . $locale->text('Tax Number') . qq|</td>
- $gifi
- <td><input name="l_sic_code" type=checkbox class=checkbox value=Y> |
- . $locale->text('SIC') . qq|</td>
- <td><input name="l_business" type=checkbox class=checkbox value=Y> |
- . $locale->text('Type of Business') . qq|</td>
- </tr>
- <tr>
- <td><input name="l_invnumber" type=checkbox class=checkbox value=Y> |
- . $locale->text('Invoices') . qq|</td>
- <td><input name="l_ordnumber" type=checkbox class=checkbox value=Y> |
- . $locale->text('Orders') . qq|</td>
- <td><input name="l_quonumber" type=checkbox class=checkbox value=Y> |
- . $locale->text('Quotations') . qq|</td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<input type=hidden name=nextsub value=list_names>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<br>
-<input type=submit class=submit name=action value="|
- . $locale->text('Continue') . qq|">
-</form>
-
-</body>
-</html>
-|;
- $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|
- <td><input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |
- . $locale->text('GIFI') . qq|</td>
-|;
- }
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=db value=$form->{db}>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr valign=top>
- <td>
- <table>
- <tr>
- <th align=right nowrap>| . $locale->text($label . ' Number') . qq|</th>
- <td><input name=$form->{db}number size=35></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Company Name') . qq|</th>
- <td><input name=name size=35></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Contact') . qq|</th>
- <td><input name=contact size=35></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('E-mail') . qq|</th>
- <td><input name=email size=35></td>
- </tr>
- <tr>
- <td></td>
- <td><input name=status class=radio type=radio value=all checked> |
- . $locale->text('All') . qq|
- <input name=status class=radio type=radio value=orphaned> |
- . $locale->text('Orphaned') . qq|</td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Include in Report') . qq|</th>
- <td>
- <table>
- <tr>
- <td><input name="l_id" type=checkbox class=checkbox value=Y> |
- . $locale->text('ID') . qq|</td>
- <td><input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |
- . $locale->text($label . ' Number') . qq|</td>
- <td><input name="l_name" type=checkbox class=checkbox value=Y checked> |
- . $locale->text('Company Name') . qq|</td>
- <td><input name="l_address" type=checkbox class=checkbox value=Y> |
- . $locale->text('Address') . qq|</td>
- </tr>
- <tr>
- <td><input name="l_contact" type=checkbox class=checkbox value=Y checked> |
- . $locale->text('Contact') . qq|</td>
- <td><input name="l_phone" type=checkbox class=checkbox value=Y checked> |
- . $locale->text('Phone') . qq|</td>
- <td><input name="l_fax" type=checkbox class=checkbox value=Y> |
- . $locale->text('Fax') . qq|</td>
- <td><input name="l_email" type=checkbox class=checkbox value=Y checked> |
- . $locale->text('E-mail') . qq|</td>
- </tr>
- <tr>
- <td><input name="l_taxnumber" type=checkbox class=checkbox value=Y> |
- . $locale->text('Tax Number') . qq|</td>
- $gifi
- <td><input name="l_sic_code" type=checkbox class=checkbox value=Y> |
- . $locale->text('SIC') . qq|</td>
- <td><input name="l_business" type=checkbox class=checkbox value=Y> |
- . $locale->text('Type of Business') . qq|</td>
- </tr>
- <tr>
- <td><input name="l_invnumber" type=checkbox class=checkbox value=Y> |
- . $locale->text('Invoices') . qq|</td>
- <td><input name="l_ordnumber" type=checkbox class=checkbox value=Y> |
- . $locale->text('Orders') . qq|</td>
- <td><input name="l_quonumber" type=checkbox class=checkbox value=Y> |
- . $locale->text('Quotations') . qq|</td>
- </tr>
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<input type=hidden name=nextsub value=list_names>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<br>
-<input type=submit class=submit name=action value="|
- . $locale->text('Continue') . qq|">
-</form>
-
-</body>
-</html>
-|;
- $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<br>" . $locale->text('Name') . " : $form->{name}";
- }
- if ($form->{contact}) {
- $callback .= "&contact=" . $form->escape($form->{contact}, 1);
- $href .= "&contact=" . $form->escape($form->{contact});
- $option .= "\n<br>" . $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<br>" . $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<br>" . $locale->text('E-mail') . " : $form->{email}";
- }
-
- $form->{callback} = "$callback&sort=$form->{sort}";
- $callback = $form->escape($form->{callback});
-
- $column_header{id} =
- qq|<th class=listheading>| . $locale->text('ID') . qq|</th>|;
- $column_header{"$form->{db}number"} =
- qq|<th><a class=listheading href=$href&sort=$form->{db}number>$number</a></th>|;
- $column_header{name} =
- qq|<th><a class=listheading href=$href&sort=name>|
- . $locale->text('Name')
- . qq|</a></th>|;
- $column_header{address} =
- qq|<th><a class=listheading href=$href&sort=address>|
- . $locale->text('Address')
- . qq|</a></th>|;
- $column_header{contact} =
- qq|<th><a class=listheading href=$href&sort=contact>|
- . $locale->text('Contact')
- . qq|</a></th>|;
- $column_header{phone} =
- qq|<th><a class=listheading href=$href&sort=phone>|
- . $locale->text('Phone')
- . qq|</a></th>|;
- $column_header{fax} =
- qq|<th><a class=listheading href=$href&sort=fax>|
- . $locale->text('Fax')
- . qq|</a></th>|;
- $column_header{email} =
- qq|<th><a class=listheading href=$href&sort=email>|
- . $locale->text('E-mail')
- . qq|</a></th>|;
- $column_header{cc} =
- qq|<th><a class=listheading href=$href&sort=cc>|
- . $locale->text('Cc')
- . qq|</a></th>|;
-
- $column_header{taxnumber} =
- qq|<th><a class=listheading href=$href&sort=taxnumber>|
- . $locale->text('Tax Number')
- . qq|</a></th>|;
- $column_header{gifi_accno} =
- qq|<th><a class=listheading href=$href&sort=gifi_accno>|
- . $locale->text('GIFI')
- . qq|</a></th>|;
- $column_header{sic_code} =
- qq|<th><a class=listheading href=$href&sort=sic_code>|
- . $locale->text('SIC')
- . qq|</a></th>|;
- $column_header{business} =
- qq|<th><a class=listheading href=$href&sort=business>|
- . $locale->text('Type of Business')
- . qq|</a></th>|;
-
- $column_header{invnumber} =
- qq|<th><a class=listheading href=$href&sort=invnumber>|
- . $locale->text('Invoice')
- . qq|</a></th>|;
- $column_header{ordnumber} =
- qq|<th><a class=listheading href=$href&sort=ordnumber>|
- . $locale->text('Order')
- . qq|</a></th>|;
- $column_header{quonumber} =
- qq|<th><a class=listheading href=$href&sort=quonumber>|
- . $locale->text('Quotation')
- . qq|</a></th>|;
-
- $label = ucfirst $form->{db} . "s";
- $form->{title} = $locale->text($label);
-
- $form->header;
-
- print qq|
-<body>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <td>$option</td>
- </tr>
- <tr>
- <td>
- <table width=100%>
- <tr class=listheading>
-|;
-
- map { print "$column_header{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
-
- $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{$_} = "<td> </td>" } @column_index;
- } else {
- map { $column_data{$_} = "<td>$ref->{$_} </td>" } @column_index;
-
- map { $column_data{$_} = "<td>$ref->{$_} </td>" }
- (invnumber, ordnumber, quonumber);
-
- $column_data{name} =
- "<td align=left><a href=$form->{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} </td>";
-
- if ($ref->{email}) {
- $email = $ref->{email};
- $email =~ s/</\</;
- $email =~ s/>/\>/;
-
- $column_data{email} =
- qq|<td><a href="mailto:$ref->{email}">$email</a></td>|;
- }
-
- }
-
- if ($ref->{formtype} eq 'invoice') {
- $column_data{invnumber} =
- "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{invnumber} </td>";
- }
-
- if ($ref->{formtype} eq 'order') {
- $column_data{ordnumber} =
- "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{ordnumber} </td>";
- }