Revision 6c7334b3
Von Philip Reetz vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 497 | 497 |
'projectnumbers' => { 'text' => $locale->text('Project Numbers'), },
|
| 498 | 498 |
); |
| 499 | 499 |
|
| 500 |
foreach my $name (qw(id transdate reference source description debit_accno credit_accno debit_tax_accno credit_tax_accno)) {
|
|
| 500 |
foreach my $name (qw(id transdate reference description debit_accno credit_accno debit_tax_accno credit_tax_accno)) {
|
|
| 501 | 501 |
my $sortname = $name =~ m/accno/ ? 'accno' : $name; |
| 502 | 502 |
my $sortdir = $sortname eq $form->{sort} ? 1 - $form->{sortdir} : $form->{sortdir};
|
| 503 | 503 |
$column_defs{$name}->{link} = $callback . "&sort=$sortname&sortdir=$sortdir";
|
| ... | ... | |
| 564 | 564 |
} |
| 565 | 565 |
} |
| 566 | 566 |
|
| 567 |
foreach my $key (qw(debit_accno credit_accno debit_tax_accno credit_tax_accno ac_transdate)) {
|
|
| 567 |
foreach my $key (qw(debit_accno credit_accno debit_tax_accno credit_tax_accno ac_transdate source)) {
|
|
| 568 | 568 |
my $col = $key eq 'ac_transdate' ? 'transdate' : $key; |
| 569 | 569 |
$rows{$col} = [ map { $ref->{$key}->{$_} } sort keys(%{ $ref->{$key} }) ];
|
| 570 | 570 |
} |
| ... | ... | |
| 575 | 575 |
$row->{balance}->{data} = $form->format_amount(\%myconfig, $form->{balance}, 2);
|
| 576 | 576 |
$row->{projectnumbers}->{data} = join ", ", sort { lc($a) cmp lc($b) } keys %{ $ref->{projectnumbers} };
|
| 577 | 577 |
|
| 578 |
map { $row->{$_}->{data} = $ref->{$_} } qw(id reference description source notes);
|
|
| 578 |
map { $row->{$_}->{data} = $ref->{$_} } qw(id reference description notes);
|
|
| 579 | 579 |
|
| 580 |
map { $row->{$_}->{data} = \@{ $rows{$_} }; } qw(transdate debit credit debit_accno credit_accno debit_tax_accno credit_tax_accno);
|
|
| 580 |
map { $row->{$_}->{data} = \@{ $rows{$_} }; } qw(transdate debit credit debit_accno credit_accno debit_tax_accno credit_tax_accno source);
|
|
| 581 | 581 |
|
| 582 | 582 |
foreach my $col (qw(debit_accno credit_accno debit_tax_accno credit_tax_accno)) {
|
| 583 | 583 |
$row->{$col}->{link} = [ map { "${callback}&accno=" . E($_) } @{ $rows{$col} } ];
|
Auch abrufbar als: Unified diff
Bug #897 behoben: Belege wurden im Buchungsjournal nicht korrekt angezeigt, Zusaetzlich Suchen nach Belegen angepasst, so dass der komplette Buchungssatz ausgegeben wird und Sortierung nach Belegen ausgeschaltet