Revision 7a777f45
Von Udo Spallek vor etwa 19 Jahren hinzugefügt
| SL/RP.pm | ||
|---|---|---|
| 2346 | 2346 |
foreach $kosten (@gesamtkosten) {
|
| 2347 | 2347 |
$form->{$kosten}{$key} *= -1;
|
| 2348 | 2348 |
} |
| 2349 |
|
|
| 2349 | 2350 |
$form->{4}{$key} *= -1;
|
| 2350 | 2351 |
|
| 2351 | 2352 |
foreach $category (@categories) {
|
| ... | ... | |
| 2354 | 2355 |
$form->{"$key$category"} =
|
| 2355 | 2356 |
$form->format_amount($myconfig, |
| 2356 | 2357 |
$form->round_amount($form->{$category}{$key}, 2
|
| 2357 |
)); |
|
| 2358 |
), $form->{decimalplaces}, '0');
|
|
| 2358 | 2359 |
} |
| 2359 | 2360 |
} |
| 2360 | 2361 |
foreach $item (@gesamtleistung) {
|
| ... | ... | |
| 2392 | 2393 |
($form->{$category}{$key} /
|
| 2393 | 2394 |
$form->{ "$key" . "gesamtleistung" } * 100
|
| 2394 | 2395 |
), |
| 2395 |
2
|
|
| 2396 |
)); |
|
| 2396 |
$form->{decimalplaces}
|
|
| 2397 |
), $form->{decimalplaces}, '0');
|
|
| 2397 | 2398 |
} |
| 2398 | 2399 |
} |
| 2399 | 2400 |
foreach $item (@ergebnisse) {
|
| ... | ... | |
| 2403 | 2404 |
( $form->{ "$key" . "$item" } /
|
| 2404 | 2405 |
$form->{ "$key" . "gesamtleistung" } * 100
|
| 2405 | 2406 |
), |
| 2406 |
2
|
|
| 2407 |
)); |
|
| 2407 |
$form->{decimalplaces}
|
|
| 2408 |
), $form->{decimalplaces}, '0');
|
|
| 2408 | 2409 |
} |
| 2409 | 2410 |
} |
| 2410 | 2411 |
|
| ... | ... | |
| 2417 | 2418 |
($form->{$category}{$key} /
|
| 2418 | 2419 |
$form->{ "$key" . "gesamtkosten" } * 100
|
| 2419 | 2420 |
), |
| 2420 |
2
|
|
| 2421 |
)); |
|
| 2421 |
$form->{decimalplaces}
|
|
| 2422 |
), $form->{decimalplaces}, '0');
|
|
| 2422 | 2423 |
} |
| 2423 | 2424 |
} |
| 2424 | 2425 |
foreach $item (@ergebnisse) {
|
| ... | ... | |
| 2428 | 2429 |
($form->{ "$key" . "$item" } /
|
| 2429 | 2430 |
$form->{ "$key" . "gesamtkosten" } * 100
|
| 2430 | 2431 |
), |
| 2431 |
2
|
|
| 2432 |
)); |
|
| 2432 |
$form->{decimalplaces}
|
|
| 2433 |
), $form->{decimalplaces}, '0');
|
|
| 2433 | 2434 |
} |
| 2434 | 2435 |
} |
| 2435 | 2436 |
|
| ... | ... | |
| 2440 | 2441 |
$form->format_amount( |
| 2441 | 2442 |
$myconfig, |
| 2442 | 2443 |
$form->round_amount( |
| 2443 |
($form->{$category}{$key} / $form->{10}{$key} * 100), 2
|
|
| 2444 |
)); |
|
| 2444 |
($form->{$category}{$key} / $form->{10}{$key} * 100),
|
|
| 2445 |
$form->{decimalplaces}
|
|
| 2446 |
), $form->{decimalplaces}, '0');
|
|
| 2445 | 2447 |
} |
| 2446 | 2448 |
} |
| 2447 | 2449 |
foreach $item (@ergebnisse) {
|
| ... | ... | |
| 2451 | 2453 |
($form->{ "$key" . "$item" } /
|
| 2452 | 2454 |
$form->{10}{$key} * 100
|
| 2453 | 2455 |
), |
| 2454 |
2
|
|
| 2455 |
)); |
|
| 2456 |
$form->{decimalplaces}
|
|
| 2457 |
), $form->{decimalplaces}, '0');
|
|
| 2456 | 2458 |
} |
| 2457 | 2459 |
} |
| 2458 | 2460 |
|
| ... | ... | |
| 2463 | 2465 |
$form->format_amount( |
| 2464 | 2466 |
$myconfig, |
| 2465 | 2467 |
$form->round_amount( |
| 2466 |
($form->{$category}{$key} / $form->{4}{$key} * 100), 2
|
|
| 2467 |
)); |
|
| 2468 |
($form->{$category}{$key} / $form->{4}{$key} * 100),
|
|
| 2469 |
$form->{decimalplaces}
|
|
| 2470 |
), $form->{decimalplaces}, '0');
|
|
| 2468 | 2471 |
} |
| 2469 | 2472 |
} |
| 2470 | 2473 |
foreach $item (@ergebnisse) {
|
| ... | ... | |
| 2474 | 2477 |
($form->{ "$key" . "$item" } /
|
| 2475 | 2478 |
$form->{4}{$key} * 100
|
| 2476 | 2479 |
), |
| 2477 |
2
|
|
| 2478 |
)); |
|
| 2480 |
$form->{decimalplaces}
|
|
| 2481 |
), $form->{decimalplaces}, '0');
|
|
| 2479 | 2482 |
} |
| 2480 | 2483 |
} |
| 2481 | 2484 |
|
| 2482 | 2485 |
foreach $item (@ergebnisse) {
|
| 2483 | 2486 |
$form->{ "$key" . "$item" } =
|
| 2484 | 2487 |
$form->format_amount($myconfig, |
| 2485 |
$form->round_amount($form->{ "$key" . "$item" }, 2
|
|
| 2486 |
)); |
|
| 2488 |
$form->round_amount($form->{ "$key" . "$item" },
|
|
| 2489 |
$form->{decimalplaces}
|
|
| 2490 |
), $form->{decimalplaces}, '0');
|
|
| 2487 | 2491 |
} |
| 2488 | 2492 |
|
| 2489 | 2493 |
} |
Auch abrufbar als: Unified diff
BWA Darstellung korrigiert: Dezimalstellenangabe, Rundung, Formatierung mit Nachkommastellen