$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();
-}
-
sub list_names {
$lxdebug->enter_sub();
ordnumber,
transdate,
description,
- adr_code,
qty,
unit);
qq|<th class=listheading>| . $locale->text('Invdate') . qq|</th>|;
$column_header{description} =
qq|<th class=listheading>| . $locale->text('Description') . qq|</th>|;
- $column_header{adr_code} =
- qq|<th class=listheading>| . $locale->text('ADR') . qq|</th>|;
$column_header{qty} =
qq|<th class=listheading>| . $locale->text('Qty') . qq|</th>|;
$column_header{unit} =
projects / kivitendo-erp.git / blobdiff