Revision 381f15f5
Von Sven Schöling vor fast 11 Jahren hinzugefügt
| SL/DN.pm | ||
|---|---|---|
| 751 | 751 |
|
| 752 | 752 |
$dunning_id =~ s|[^\d]||g; |
| 753 | 753 |
|
| 754 |
my ($language_tc, $output_numberformat, $output_dateformat, $output_longdates); |
|
| 755 |
if ($form->{"language_id"}) {
|
|
| 756 |
($language_tc, $output_numberformat, $output_dateformat, $output_longdates) = |
|
| 757 |
AM->get_language_details($myconfig, $form, $form->{language_id});
|
|
| 758 |
} else {
|
|
| 759 |
$output_dateformat = $myconfig->{dateformat};
|
|
| 760 |
$output_numberformat = $myconfig->{numberformat};
|
|
| 761 |
$output_longdates = 1; |
|
| 762 |
} |
|
| 763 |
|
|
| 754 | 764 |
my $query = |
| 755 | 765 |
qq|SELECT |
| 756 | 766 |
da.fee, da.interest, |
| ... | ... | |
| 837 | 847 |
$form->{total_open_amount} = $form->format_amount($myconfig, $form->round_amount($ref->{total_open_amount}, 2), 2);
|
| 838 | 848 |
$form->{total_amount} = $form->format_amount($myconfig, $form->round_amount($ref->{fee} + $ref->{total_interest} + $ref->{total_open_amount}, 2), 2);
|
| 839 | 849 |
|
| 850 |
$::form->format_dates($output_dateformat, $output_longdates, |
|
| 851 |
qw(dn_dunning_date dn_dunning_duedate dn_transdate dn_duedate |
|
| 852 |
dunning_date dunning_duedate transdate duedate) |
|
| 853 |
); |
|
| 854 |
$::form->reformat_numbers($output_numberformat, 2, qw( |
|
| 855 |
dn_amount dn_netamount dn_paid dn_open_amount dn_fee dn_interest dn_linetotal |
|
| 856 |
amount netamount paid open_amount fee interest linetotal |
|
| 857 |
total_interest total_open_interest total_amount total_open_amount |
|
| 858 |
)); |
|
| 859 |
$::form->reformat_numbers($output_numberformat, undef, qw(interest_rate)); |
|
| 860 |
|
|
| 840 | 861 |
$self->set_customer_cvars($myconfig, $form); |
| 841 | 862 |
$self->set_template_options($myconfig, $form); |
| 842 | 863 |
|
| ... | ... | |
| 851 | 872 |
push @{ $form->{DUNNING_PDFS_EMAIL} }, { 'filename' => "${spool}/$filename",
|
| 852 | 873 |
'name' => "dunning_${dunning_id}.pdf" };
|
| 853 | 874 |
|
| 875 |
$::lxdebug->dump(0, "form", $::form); |
|
| 876 |
|
|
| 854 | 877 |
$form->parse_template($myconfig); |
| 855 | 878 |
|
| 856 | 879 |
$dbh->disconnect() unless $provided_dbh; |
Auch abrufbar als: Unified diff
Mahnungen: Beim Drucken Datums- und Zahlenformate von anderen Sprachen beachten