From e81d41a5dea2f4d3ba9bf011533a1833065021fa Mon Sep 17 00:00:00 2001 From: Philip Reetz Date: Mon, 18 May 2009 18:45:12 +0000 Subject: [PATCH] Darstellung bei der GUV auf einheitlich zwei Nachkommastellen geaendert, Fix fuer Bug #951 --- SL/RP.pm | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/SL/RP.pm b/SL/RP.pm index 72bbcffd3..8ea8f4f7e 100644 --- a/SL/RP.pm +++ b/SL/RP.pm @@ -1922,28 +1922,20 @@ sub income_statement { $form->{decimalplaces} *= 1; - foreach my $item (@categories_einnahmen) { - $form->{$item} = 0; - } - foreach my $item (@categories_ausgaben) { - $form->{$item} = 0; - } - foreach my $item (@ergebnisse) { - $form->{$item} = 0; - } &get_accounts_g($dbh, $last_period, $form->{fromdate}, $form->{todate}, $form, "pos_eur"); + foreach my $item (@categories_einnahmen) { $form->{"eur${item}"} = - $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2)); + $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2); $form->{"sumeura"} += $form->{$item}; } foreach my $item (@categories_ausgaben) { $form->{"eur${item}"} = - $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2)); + $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2); $form->{"sumeurb"} += $form->{$item}; } @@ -1951,7 +1943,7 @@ sub income_statement { foreach my $item (@ergebnisse) { $form->{$item} = - $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2)); + $form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2); } $main::lxdebug->leave_sub(); } -- 2.20.1