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