Revision ad4bebf4
Von Felix Eichler vor etwa 3 Jahren hinzugefügt
SL/Presenter/Record.pm | ||
---|---|---|
67 | 67 |
$output .= _letter_list( $groups{letters}, %params) if $groups{letters}; |
68 | 68 |
$output .= _email_journal_list( $groups{email_journals}, %params) if $groups{email_journals}; |
69 | 69 |
|
70 |
$output .= _dunning_list( $groups{dunnings}, %params) if $groups{dunnings}; |
|
71 |
|
|
70 | 72 |
$output = SL::Presenter->get->render('presenter/record/grouped_record_list', %params, output => $output); |
71 | 73 |
|
72 | 74 |
return $output; |
... | ... | |
195 | 197 |
bank_transactions => sub { (ref($_[0]) eq 'SL::DB::BankTransaction') && $_[0]->id }, |
196 | 198 |
letters => sub { (ref($_[0]) eq 'SL::DB::Letter') && $_[0]->id }, |
197 | 199 |
email_journals => sub { (ref($_[0]) eq 'SL::DB::EmailJournal') && $_[0]->id }, |
200 |
dunnings => sub { (ref($_[0]) eq 'SL::DB::Dunning') }, |
|
198 | 201 |
); |
199 | 202 |
|
200 | 203 |
my %groups; |
... | ... | |
573 | 576 |
%params, |
574 | 577 |
); |
575 | 578 |
} |
579 |
sub _dunning_list { |
|
580 |
my ($list, %params) = @_; |
|
576 | 581 |
|
582 |
return record_list( |
|
583 |
$list, |
|
584 |
title => $::locale->text('Dunnings'), |
|
585 |
type => 'dunning', |
|
586 |
columns => [ |
|
587 |
[ $::locale->text('Dunning Level'), sub { $_[0]->presenter->dunning(display => 'table-cell') } ], |
|
588 |
[ $::locale->text('Dunning Date'), 'transdate' ], |
|
589 |
[ $::locale->text('Dunning Duedate'), 'duedate' ], |
|
590 |
[ $::locale->text('Total Fees'), 'fee' ], |
|
591 |
[ $::locale->text('Interest'), 'interest' ], |
|
592 |
], |
|
593 |
%params, |
|
594 |
); |
|
595 |
} |
|
577 | 596 |
|
578 | 597 |
1; |
579 | 598 |
|
Auch abrufbar als: Unified diff
Mahnungen: Mit Rechnung verknüpfen
Erstellte Mahnungen werden mit den gemahnten Rechnungen verknüpft und
unter "Verknüpfte Belege" gelistet.
Außerdem werden Rechnungen über Mahnkosten wiederum zu den zugehörigen
Mahnungen verknüpft.
impl. #7440