Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision ad4bebf4

Von Felix Eichler vor etwa 3 Jahren hinzugefügt

  • ID ad4bebf4dfcc48d0e313bfc4cb045de485c4d9fb
  • Vorgänger 8f07fac1
  • Nachfolger 83fac3d1

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

Unterschiede anzeigen:

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