Revision 4f0087b8
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| bin/mozilla/dn.pl | ||
|---|---|---|
| 448 | 448 |
} |
| 449 | 449 |
|
| 450 | 450 |
if ($::instance_conf->get_doc_storage) {
|
| 451 |
# object_types dunning1-dunning3 are the dunnings for the according levels. |
|
| 452 |
my @files = SL::File->get_all_versions(object_id => $ref->{id},
|
|
| 453 |
object_type => 'dunning' . $ref->{dunning_level},
|
|
| 454 |
file_type => 'document',); |
|
| 455 |
# object_type dunning is the dunning invoice with the fees. |
|
| 456 |
push @files, SL::File->get_all_versions(object_id => $ref->{id},
|
|
| 451 |
my @files = SL::File->get_all_versions(object_id => $ref->{dunning_id},
|
|
| 457 | 452 |
object_type => 'dunning', |
| 458 | 453 |
file_type => 'document',); |
| 459 |
# object_type dunning_orig_invoice is the original dunned invoice. |
|
| 460 |
push @files, SL::File->get_all_versions(object_id => $ref->{id},
|
|
| 461 |
object_type => 'dunning_orig_invoice', |
|
| 462 |
file_type => 'document',); |
|
| 463 | 454 |
if (scalar @files) {
|
| 464 | 455 |
my $html = join '<br>', map { SL::Presenter::FileObject::file_object($_) } @files;
|
| 465 | 456 |
my $text = join "\n", map { $_->file_name } @files;
|
| ... | ... | |
| 564 | 555 |
|
| 565 | 556 |
# print original dunned invoices, if they where printed on dunning run |
| 566 | 557 |
my $dunnings = SL::DB::Manager::Dunning->get_all(where => [dunning_id => $dunning_id, original_invoice_printed => 1]); |
| 567 |
DN->print_original_invoice(\%myconfig, $form, $_->trans_id) for @$dunnings; |
|
| 558 |
DN->print_original_invoice(\%myconfig, $form, $dunning_id, $_->trans_id) for @$dunnings;
|
|
| 568 | 559 |
|
| 569 | 560 |
$i++; |
| 570 | 561 |
} |
Auch abrufbar als: Unified diff
Mahnungen: DMS/WebDAV: erzeugte Dokumente zum Mahnlauf ablegen …
und nicht zur gemahnten Rechnung.