Revision 8516ea3a
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
bin/mozilla/vk.pl | ||
---|---|---|
134 | 134 |
|
135 | 135 |
VK->invoice_transactions(\%myconfig, \%$form); |
136 | 136 |
|
137 |
|
|
137 |
|
|
138 | 138 |
if ( $form->{mainsort} eq 'month' or $form->{subsort} eq 'month' ) { |
139 | 139 |
|
140 | 140 |
# Data already comes out of SELECT statement in correct month order, but |
... | ... | |
162 | 162 |
# hidden variables für pdf/csv export übergeben |
163 | 163 |
# einmal mit l_ um zu bestimmen welche Spalten ausgegeben werden sollen |
164 | 164 |
# einmal optionen für die Überschrift (z.B. transdatefrom, partnumber, ...) |
165 |
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 customername customer_id department partnumber partsgroup country business description project_id customernumber salesman employee salesman_id employee_id business_id partsgroup_id mainsort subsort),
|
|
166 |
"$form->{db}number",
|
|
165 |
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 customername customer_id department partnumber partsgroup country business description project_id customernumber salesman employee salesman_id employee_id business_id partsgroup_id mainsort subsort), |
|
166 |
"$form->{db}number", |
|
167 | 167 |
map({ "cvar_$_->{name}" } @searchable_custom_variables), |
168 | 168 |
map { "l_$_" } @columns |
169 | 169 |
); |
... | ... | |
207 | 207 |
|
208 | 208 |
my %column_alignment = map { $_ => 'right' } qw(lastcost sellprice sellprice_total lastcost_total parts_unit discount marge_total marge_percent qty weight); |
209 | 209 |
|
210 |
|
|
210 |
|
|
211 | 211 |
# so now the check-box "Description" is only used as switch for part description in invoice-mode |
212 | 212 |
# always fill the column "Description" if we are in Zwischensummenmode |
213 | 213 |
if (not defined $form->{"l_parts"}) { |
... | ... | |
534 | 534 |
} |
535 | 535 |
|
536 | 536 |
1; |
537 |
|
Auch abrufbar als: Unified diff
Kosmetik: trailing whitespace removal