Revision 25517b3d
Von Bernd Bleßmann vor mehr als 5 Jahren hinzugefügt
bin/mozilla/ap.pl | ||
---|---|---|
1001 | 1001 |
|
1002 | 1002 |
my @columns = |
1003 | 1003 |
qw(transdate id type invnumber ordnumber name netamount tax amount paid datepaid |
1004 |
due duedate transaction_description notes employee globalprojectnumber |
|
1004 |
due duedate transaction_description notes employee globalprojectnumber department
|
|
1005 | 1005 |
vendornumber country ustid taxzone payment_terms charts direct_debit); |
1006 | 1006 |
|
1007 | 1007 |
my @hidden_variables = map { "l_${_}" } @columns; |
... | ... | |
1028 | 1028 |
'notes' => { 'text' => $locale->text('Notes'), }, |
1029 | 1029 |
'employee' => { 'text' => $locale->text('Employee'), }, |
1030 | 1030 |
'globalprojectnumber' => { 'text' => $locale->text('Document Project Number'), }, |
1031 |
'department' => { 'text' => $locale->text('Department'), }, |
|
1031 | 1032 |
'vendornumber' => { 'text' => $locale->text('Vendor Number'), }, |
1032 | 1033 |
'country' => { 'text' => $locale->text('Country'), }, |
1033 | 1034 |
'ustid' => { 'text' => $locale->text('USt-IdNr.'), }, |
... | ... | |
1037 | 1038 |
'direct_debit' => { 'text' => $locale->text('direct debit'), }, |
1038 | 1039 |
); |
1039 | 1040 |
|
1040 |
foreach my $name (qw(id transdate duedate invnumber ordnumber name datepaid employee shippingpoint shipvia transaction_description direct_debit)) { |
|
1041 |
foreach my $name (qw(id transdate duedate invnumber ordnumber name datepaid employee shippingpoint shipvia transaction_description direct_debit department)) {
|
|
1041 | 1042 |
my $sortdir = $form->{sort} eq $name ? 1 - $form->{sortdir} : $form->{sortdir}; |
1042 | 1043 |
$column_defs{$name}->{link} = $href . "&sort=$name&sortdir=$sortdir"; |
1043 | 1044 |
} |
Auch abrufbar als: Unified diff
Bericht EK-Rg/Kreditorenbuchungen: Abteilungen anzeigen können