Revision 0908bb6e
Von Jan Büren vor fast 4 Jahren hinzugefügt
| bin/mozilla/wh.pl | ||
|---|---|---|
|
use SL::User;
|
||
|
|
||
|
use SL::AM;
|
||
|
use SL::CVar;
|
||
|
use SL::CT;
|
||
|
use SL::IC;
|
||
|
use SL::WH;
|
||
| ... | ... | |
|
|
||
|
show_no_warehouses_error() if (!scalar @{ $form->{WAREHOUSES} });
|
||
|
|
||
|
my $CVAR_CONFIGS = SL::DB::Manager::CustomVariableConfig->get_all_sorted(where => [ module => 'IC' ]);
|
||
|
my $INCLUDABLE_CVAR_CONFIGS = [ grep { $_->includeable } @{ $CVAR_CONFIGS } ];
|
||
|
|
||
|
$form->{title} = $locale->text("Report about warehouse contents");
|
||
|
|
||
|
setup_wh_report_action_bar();
|
||
| ... | ... | |
|
$form->header();
|
||
|
print $form->parse_html_template("wh/report_filter",
|
||
|
{ "WAREHOUSES" => $form->{WAREHOUSES},
|
||
|
"UNITS" => AM->unit_select_data(AM->retrieve_units(\%myconfig, $form)) });
|
||
|
"UNITS" => AM->unit_select_data(AM->retrieve_units(\%myconfig, $form)),
|
||
|
# "CVAR_CONFIGS" => $CVAR_CONFIGS, # nyi searchable cvars
|
||
|
"INCLUDABLE_CVAR_CONFIGS" => $INCLUDABLE_CVAR_CONFIGS,
|
||
|
});
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
| ... | ... | |
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
my $cvar_configs = CVar->get_configs('module' => 'IC');
|
||
|
|
||
|
$form->{title} = $locale->text("Report about warehouse contents");
|
||
|
$form->{sort} ||= 'partnumber';
|
||
|
my $sort_col = $form->{sort};
|
||
| ... | ... | |
|
|
||
|
my $href = build_std_url('action=generate_report', grep { $form->{$_} } @hidden_variables);
|
||
|
$href .= "&maxrows=".$form->{maxrows};
|
||
|
my @includeable_custom_variables = grep { $_->{includeable} } @{ $cvar_configs };
|
||
|
my %column_defs_cvars = map { +"cvar_$_->{name}" => { 'text' => $_->{description} } } @includeable_custom_variables;
|
||
|
push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;
|
||
|
%column_defs = (%column_defs, %column_defs_cvars);
|
||
|
|
||
|
map { $column_defs{$_}->{link} = $href . "&page=".$page."&sort=${_}&order=" . Q($_ eq $sort_col ? 1 - $form->{order} : $form->{order}) } @columns;
|
||
|
|
||
| ... | ... | |
|
'attachment_basename' => strftime($locale->text('warehouse_report_list') . '_%Y%m%d', localtime time));
|
||
|
$report->set_options_from_form();
|
||
|
$locale->set_numberformat_wo_thousands_separator(\%myconfig) if lc($report->{options}->{output_format}) eq 'csv';
|
||
|
CVar->add_custom_variables_to_report('module' => 'IC',
|
||
|
'trans_id_field' => 'parts_id',
|
||
|
'configs' => $cvar_configs,
|
||
|
'column_defs' => \%column_defs,
|
||
|
'data' => \@contents);
|
||
|
|
||
|
my $all_units = AM->retrieve_units(\%myconfig, $form);
|
||
|
my $idx = 0;
|
||
| templates/webpages/wh/report_filter.html | ||
|---|---|---|
|
[% L.yes_no_tag("allrows", 1) %]
|
||
|
</td>
|
||
|
</tr>
|
||
|
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
| ... | ... | |
|
<td align="right"><input name="l_list_price" id="l_list_price" class="checkbox" type="checkbox" value="Y"></td>
|
||
|
<td nowrap><label for="l_list_price">[% 'List Price' | $T8 %]</label></td>
|
||
|
</tr>
|
||
|
[% IF INCLUDABLE_CVAR_CONFIGS %]
|
||
|
<tr><td colspan="6"><hr noshade height="1"></td></tr>
|
||
|
[% FOREACH cvar_cfg = INCLUDABLE_CVAR_CONFIGS %]
|
||
|
<tr>
|
||
|
<td colspan="2" align="left">
|
||
|
[% name__ = cvar_cfg.name;
|
||
|
L.checkbox_tag("l_cvar_" _ name__, value="1", checked=(cvar_cfg.included_by_default ? 1 : ''), label=cvar_cfg.description) %]
|
||
|
</td>
|
||
|
</tr>
|
||
|
[% END %]
|
||
|
[% END %]
|
||
|
</table>
|
||
|
</td>
|
||
|
</tr>
|
||
Auch abrufbar als: Unified diff
Lagerbestandsbericht um Anzeige von IC Cvars erweitert