Revision c17d679a
Von Kivitendo Admin vor mehr als 8 Jahren hinzugefügt
| SL/VK.pm | ||
|---|---|---|
|
$where .= " AND ar.transdate <= ?";
|
||
|
push(@values, $form->{transdateto});
|
||
|
}
|
||
|
if ($form->{department}) {
|
||
|
my ($null, $department_id) = split /--/, $form->{department};
|
||
|
if ($form->{department_id}) {
|
||
|
$where .= " AND ar.department_id = ?";
|
||
|
push(@values, $department_id);
|
||
|
push @values, conv_i($form->{department_id});
|
||
|
}
|
||
|
if ($form->{employee_id}) {
|
||
|
$where .= " AND ar.employee_id = ?";
|
||
| bin/mozilla/vk.pl | ||
|---|---|---|
|
my %myconfig = %main::myconfig;
|
||
|
my $locale = $main::locale;
|
||
|
|
||
|
my ($customer, $department);
|
||
|
my ($customer);
|
||
|
|
||
|
# setup customer selection
|
||
|
$form->all_vc(\%myconfig, "customer", "AR");
|
||
| ... | ... | |
|
# pass hidden variables for pdf/csv export
|
||
|
# first with l_ to determine which columns to show
|
||
|
# then with the options for headings (such as transdatefrom, partnumber, ...)
|
||
|
my @hidden_variables = (qw(l_headers_mainsort l_headers_subsort l_subtotal_mainsort l_subtotal_subsort l_total l_parts l_customername l_customernumber transdatefrom transdateto decimalplaces customer customer_id department partnumber partsgroup country business description project_id customernumber salesman employee salesman_id employee_id business_id partsgroup_id mainsort subsort),
|
||
|
my @hidden_variables = (qw(l_headers_mainsort l_headers_subsort l_subtotal_mainsort l_subtotal_subsort l_total l_parts l_customername l_customernumber transdatefrom transdateto decimalplaces customer customer_id department_id partnumber partsgroup country business description project_id customernumber salesman employee salesman_id employee_id business_id partsgroup_id mainsort subsort),
|
||
|
"$form->{db}number",
|
||
|
map({ "cvar_$_->{name}" } @searchable_custom_variables),
|
||
|
map { "l_$_" } @columns
|
||
| ... | ... | |
|
push @options, $locale->text('Customer') . " : $form->{customer}" if $form->{customer};
|
||
|
push @options, $locale->text('Customer Number') . " : $form->{customernumber}" if $form->{customernumber};
|
||
|
# TODO: only customer id is passed
|
||
|
push @options, $locale->text('Department') . " : " . (split /--/, $form->{department})[0] if $form->{department};
|
||
|
push @options, $locale->text('Department') . " : " . SL::DB::Department->new(id => $form->{department_id})->load->description if $form->{department_id};
|
||
|
push @options, $locale->text('Invoice Number') . " : $form->{invnumber}" if $form->{invnumber};
|
||
|
push @options, $locale->text('Invoice Date') . " : $form->{invdate}" if $form->{invdate};
|
||
|
push @options, $locale->text('Part Number') . " : $form->{partnumber}" if $form->{partnumber};
|
||
| templates/webpages/vk/search_invoice.html | ||
|---|---|---|
|
<tr>
|
||
|
<th align=right nowrap>[% 'Department' | $T8 %]</th>
|
||
|
<td>
|
||
|
[%- INCLUDE 'generic/multibox.html'
|
||
|
name = 'department',
|
||
|
style = 'width: 250px',
|
||
|
DATA = ALL_DEPARTMENTS,
|
||
|
id_key = 'id',
|
||
|
label_key = 'description',
|
||
|
show_empty = 1,
|
||
|
allow_textbox = 0,
|
||
|
-%]
|
||
|
[%- L.select_tag('department_id',
|
||
|
ALL_DEPARTMENTS,
|
||
|
title_key = 'description',
|
||
|
with_empty = 1,
|
||
|
style = 'width: 250px')
|
||
|
-%]
|
||
|
</td>
|
||
|
|
||
|
<th align="right">[% 'Project Number' | $T8 %]</th>
|
||
Auch abrufbar als: Unified diff
Verkaufsbericht - Abteilung korrekt behandeln
und Umstellung auf select_tag