+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>|;
+ }
+
+ $form->header;
+
+ print qq|
+<body>
+
+<form method=post action=$form->{script}>
+
+
+<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('Year') . qq|</th>
+ <td><input name=year type=input value=$form->{year}></td>
+ <tr>
+ <th align=right nowrap>| . $locale->text('From') . qq|</th>
+ $button1
+ </tr>
+ <tr>
+ <th align=right nowrap>| . $locale->text('Bis') . qq|</th>
+ $button2
+ </tr>
+ <tr>
+ <td></td>
+ <td><input name=format class=radio type=radio value=html checked> |
+ . $locale->text('HTML') . qq|
+ <input name=format class=radio type=radio value=csv> |
+ . $locale->text('CSV') . qq|</td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td><hr size=3 noshade></td>
+ </tr>
+</table>
+$jsscript
+<input type=hidden name=nextsub value=adr_report>
+
+<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 adr_report {
+ $lxdebug->enter_sub();
+
+ CT->adr(\%myconfig, \%$form);
+
+ $form->{title} = $locale->text('ADR Report');
+ if ($form->{from} || $form->{to}) {
+ $option = "Für den Zeitraum $form->{from} bis $form->{to}";
+ } elsif ($form->{year}) {
+ $option = "Für das Jahr $form->{year}";
+ }
+
+ if ($form->{format} eq "html") {
+ $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>
+</table>|;
+
+
+ @column_index =
+ $form->sort_columns(adr_code,
+ adr_description,
+ sum,
+ unit);
+
+
+
+ $column_header{adr_code} =
+ qq|<th class=listheading>| . $locale->text('ADR Code') . qq|</th>|;
+ $column_header{adr_description} =
+ qq|<th class=listheading>|. $locale->text('ADR Description'). qq|</th>|;
+ $column_header{sum} =
+ qq|<th class=listheading>|. $locale->text('Quantity'). qq|</th>|;
+ $column_header{unit} =
+ qq|<th class=listheading>| . $locale->text('Unit') . qq|</th>|;
+
+ print qq|
+
+<table width=100%>
+ <tr>
+ <td>
+ <table width=100%>
+ <tr class=listheading>
+|;
+
+ map { print "$column_header{$_}\n" } @column_index;
+
+ print qq|
+ </tr>
+|;
+
+
+ foreach $ref (@{ $form->{ADR} }) {
+
+ map { $column_data{$_} = "<td>$ref->{$_} </td>" } @column_index;
+
+
+ $i++;
+ $i %= 2;
+ print "
+ <tr class=listrow$i>
+";
+
+ map { print "$column_data{$_}\n" } @column_index;
+
+ print qq|
+ </tr>
+|;
+
+
+ }
+
+ print qq|
+</table>
+</body>
+</html>
+|;
+ } else {
+ my $filename = "adr-report-$form->{from}-$form->{to}.csv";
+ if ($form->{year}) {
+ $filename = "adr-report-$form->{year}.csv";
+ }
+ @column_index =
+ $form->sort_columns(adr_code,
+ adr_description,
+ sum,
+ unit);
+
+ $tmpfile = qq|ADR Code;ADR Beschreibung;Menge;Einheit\n|;
+ foreach $ref (@{ $form->{ADR} }) {
+
+ map { $column_data{$_} = qq|"$ref->{$_}"| } @column_index;
+
+ $line = "";
+ map { $line .= "$column_data{$_};" } @column_index;
+ chomp($line);
+ $tmpfile .= qq|$line\n|;;
+ }
+
+ my $size = length($tmpfile);
+ # launch application
+ print qq|Content-Type: application/csv
+Content-Disposition: attachment; filename="$filename"
+Content-Length: $size
+
+$tmpfile
+|;
+ }
+
+ $lxdebug->leave_sub();
+}
+