From: Udo Spallek Date: Tue, 13 Dec 2005 02:30:40 +0000 (+0000) Subject: BWA Darstellung korrigiert: Dezimalstellenangabe, Rundung, Formatierung mit Nachkomma... X-Git-Tag: release-2.4.0^2~433 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=7a777f45031e23be565a515f7de384acac2974d0;p=kivitendo-erp.git BWA Darstellung korrigiert: Dezimalstellenangabe, Rundung, Formatierung mit Nachkommastellen --- diff --git a/SL/RP.pm b/SL/RP.pm index 5bc2b4e3d..f7afbb0b1 100644 --- a/SL/RP.pm +++ b/SL/RP.pm @@ -2346,6 +2346,7 @@ sub bwa { foreach $kosten (@gesamtkosten) { $form->{$kosten}{$key} *= -1; } + $form->{4}{$key} *= -1; foreach $category (@categories) { @@ -2354,7 +2355,7 @@ sub bwa { $form->{"$key$category"} = $form->format_amount($myconfig, $form->round_amount($form->{$category}{$key}, 2 - )); + ), $form->{decimalplaces}, '0'); } } foreach $item (@gesamtleistung) { @@ -2392,8 +2393,8 @@ sub bwa { ($form->{$category}{$key} / $form->{ "$key" . "gesamtleistung" } * 100 ), - 2 - )); + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } } foreach $item (@ergebnisse) { @@ -2403,8 +2404,8 @@ sub bwa { ( $form->{ "$key" . "$item" } / $form->{ "$key" . "gesamtleistung" } * 100 ), - 2 - )); + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } } @@ -2417,8 +2418,8 @@ sub bwa { ($form->{$category}{$key} / $form->{ "$key" . "gesamtkosten" } * 100 ), - 2 - )); + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } } foreach $item (@ergebnisse) { @@ -2428,8 +2429,8 @@ sub bwa { ($form->{ "$key" . "$item" } / $form->{ "$key" . "gesamtkosten" } * 100 ), - 2 - )); + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } } @@ -2440,8 +2441,9 @@ sub bwa { $form->format_amount( $myconfig, $form->round_amount( - ($form->{$category}{$key} / $form->{10}{$key} * 100), 2 - )); + ($form->{$category}{$key} / $form->{10}{$key} * 100), + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } } foreach $item (@ergebnisse) { @@ -2451,8 +2453,8 @@ sub bwa { ($form->{ "$key" . "$item" } / $form->{10}{$key} * 100 ), - 2 - )); + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } } @@ -2463,8 +2465,9 @@ sub bwa { $form->format_amount( $myconfig, $form->round_amount( - ($form->{$category}{$key} / $form->{4}{$key} * 100), 2 - )); + ($form->{$category}{$key} / $form->{4}{$key} * 100), + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } } foreach $item (@ergebnisse) { @@ -2474,16 +2477,17 @@ sub bwa { ($form->{ "$key" . "$item" } / $form->{4}{$key} * 100 ), - 2 - )); + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } } foreach $item (@ergebnisse) { $form->{ "$key" . "$item" } = $form->format_amount($myconfig, - $form->round_amount($form->{ "$key" . "$item" }, 2 - )); + $form->round_amount($form->{ "$key" . "$item" }, + $form->{decimalplaces} + ), $form->{decimalplaces}, '0'); } }