- $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 search_adr {
- $lxdebug->enter_sub();
-
- $form->{title} = $locale->text('ADR Report');
-
- # use JavaScript Calendar or not
- $form->{jsscript} = $jscalendar;
- $jsscript = "";
-
- if ($form->{jsscript}) {
-
- # with JavaScript Calendar
- $button1 = qq|
- <td><input name=from id=from size=11 title="$myconfig{dateformat}" value=$form->{from}></td>
- <td><input type=button name=from id="trigger1" value=|
- . $locale->text('button') . qq|></td>
- |;
- $button2 = qq|
- <td width="13"><input name=to id=to size=11 title="$myconfig{dateformat}" value=$form->{to}></td>
- <td width="4"><input type=button name=to id="trigger2" value=|
- . $locale->text('button') . qq|></td></td>
- |;
-
-
- #write Trigger
- $jsscript =
- Form->write_trigger(\%myconfig, "2",
- "from", "BL",
- "trigger1", "to",
- "BL", "trigger2");
- } else {
-
- # without JavaScript Calendar
- $button1 =
- qq|<td><input name=from size=11 title="$myconfig{dateformat}" value=$form->{from}></td>|;
- $button2 =
- qq|<td width="13"><input name=to size=11 title="$myconfig{dateformat}" value=$form->{to}></td>|;
- }