55 |
55 |
my %myconfig = %main::myconfig;
|
56 |
56 |
my $locale = $main::locale;
|
57 |
57 |
|
58 |
|
my ($customer, $department);
|
|
58 |
my ($customer);
|
59 |
59 |
|
60 |
60 |
# setup customer selection
|
61 |
61 |
$form->all_vc(\%myconfig, "customer", "AR");
|
... | ... | |
154 |
154 |
# pass hidden variables for pdf/csv export
|
155 |
155 |
# first with l_ to determine which columns to show
|
156 |
156 |
# then with the options for headings (such as transdatefrom, partnumber, ...)
|
157 |
|
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),
|
|
157 |
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),
|
158 |
158 |
"$form->{db}number",
|
159 |
159 |
map({ "cvar_$_->{name}" } @searchable_custom_variables),
|
160 |
160 |
map { "l_$_" } @columns
|
... | ... | |
211 |
211 |
push @options, $locale->text('Customer') . " : $form->{customer}" if $form->{customer};
|
212 |
212 |
push @options, $locale->text('Customer Number') . " : $form->{customernumber}" if $form->{customernumber};
|
213 |
213 |
# TODO: only customer id is passed
|
214 |
|
push @options, $locale->text('Department') . " : " . (split /--/, $form->{department})[0] if $form->{department};
|
|
214 |
push @options, $locale->text('Department') . " : " . SL::DB::Department->new(id => $form->{department_id})->load->description if $form->{department_id};
|
215 |
215 |
push @options, $locale->text('Invoice Number') . " : $form->{invnumber}" if $form->{invnumber};
|
216 |
216 |
push @options, $locale->text('Invoice Date') . " : $form->{invdate}" if $form->{invdate};
|
217 |
217 |
push @options, $locale->text('Part Number') . " : $form->{partnumber}" if $form->{partnumber};
|
Verkaufsbericht - Abteilung korrekt behandeln
und Umstellung auf select_tag