Revision e81d41a5
Von Philip Reetz vor mehr als 15 Jahren hinzugefügt
| SL/RP.pm | ||
|---|---|---|
| 1922 | 1922 |
|
| 1923 | 1923 |
$form->{decimalplaces} *= 1;
|
| 1924 | 1924 |
|
| 1925 |
foreach my $item (@categories_einnahmen) {
|
|
| 1926 |
$form->{$item} = 0;
|
|
| 1927 |
} |
|
| 1928 |
foreach my $item (@categories_ausgaben) {
|
|
| 1929 |
$form->{$item} = 0;
|
|
| 1930 |
} |
|
| 1931 | 1925 |
|
| 1932 |
foreach my $item (@ergebnisse) {
|
|
| 1933 |
$form->{$item} = 0;
|
|
| 1934 |
} |
|
| 1935 | 1926 |
|
| 1936 | 1927 |
&get_accounts_g($dbh, $last_period, $form->{fromdate}, $form->{todate},
|
| 1937 | 1928 |
$form, "pos_eur"); |
| 1938 | 1929 |
|
| 1930 |
|
|
| 1939 | 1931 |
foreach my $item (@categories_einnahmen) {
|
| 1940 | 1932 |
$form->{"eur${item}"} =
|
| 1941 |
$form->format_amount($myconfig, $form->round_amount($form->{$item}, 2));
|
|
| 1933 |
$form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2);
|
|
| 1942 | 1934 |
$form->{"sumeura"} += $form->{$item};
|
| 1943 | 1935 |
} |
| 1944 | 1936 |
foreach my $item (@categories_ausgaben) {
|
| 1945 | 1937 |
$form->{"eur${item}"} =
|
| 1946 |
$form->format_amount($myconfig, $form->round_amount($form->{$item}, 2));
|
|
| 1938 |
$form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2);
|
|
| 1947 | 1939 |
$form->{"sumeurb"} += $form->{$item};
|
| 1948 | 1940 |
} |
| 1949 | 1941 |
|
| ... | ... | |
| 1951 | 1943 |
|
| 1952 | 1944 |
foreach my $item (@ergebnisse) {
|
| 1953 | 1945 |
$form->{$item} =
|
| 1954 |
$form->format_amount($myconfig, $form->round_amount($form->{$item}, 2));
|
|
| 1946 |
$form->format_amount($myconfig, $form->round_amount($form->{$item}, 2),2);
|
|
| 1955 | 1947 |
} |
| 1956 | 1948 |
$main::lxdebug->leave_sub(); |
| 1957 | 1949 |
} |
Auch abrufbar als: Unified diff
Darstellung bei der GUV auf einheitlich zwei Nachkommastellen geaendert, Fix fuer Bug #951