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