Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 381f15f5

Von Sven Schöling vor fast 11 Jahren hinzugefügt

  • ID 381f15f561199cb035f1bb9d7721362a0fc4c0b7
  • Vorgänger 25bc0205
  • Nachfolger f606f2f5

Mahnungen: Beim Drucken Datums- und Zahlenformate von anderen Sprachen beachten

Unterschiede anzeigen:

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