Revision 6ab3da45
Von Udo Spallek vor fast 18 Jahren hinzugefügt
| SL/USTVA.pm | ||
|---|---|---|
| 568 | 568 |
|
| 569 | 569 |
my $last_period = 0; |
| 570 | 570 |
my $category = "pos_ustva"; |
| 571 |
my @categories_cent = qw(511 861 36 80 971 931 98 96 53 74
|
|
| 571 |
my @category_cent = qw(511 861 36 80 971 931 98 96 53 74
|
|
| 572 | 572 |
85 65 66 61 62 67 63 64 59 69 39 83 |
| 573 | 573 |
Z43 Z45 Z53 Z62 Z65 Z67); |
| 574 | 574 |
|
| 575 |
my @categories_euro = qw(41 44 49 43 48 51 86 35 77 76 91 97 93
|
|
| 575 |
my @category_euro = qw(41 44 49 43 48 51 86 35 77 76 91 97 93
|
|
| 576 | 576 |
95 94 42 60 45 52 73 84); |
| 577 | 577 |
|
| 578 | 578 |
$form->{decimalplaces} *= 1;
|
| 579 | 579 |
|
| 580 |
foreach $item (@categories_cent) {
|
|
| 580 |
foreach $item (@category_cent) {
|
|
| 581 | 581 |
$form->{"$item"} = 0;
|
| 582 | 582 |
} |
| 583 |
foreach $item (@categories_euro) {
|
|
| 583 |
foreach $item (@category_euro) {
|
|
| 584 | 584 |
$form->{"$item"} = 0;
|
| 585 | 585 |
} |
| 586 | 586 |
|
| ... | ... | |
| 590 | 590 |
# |
| 591 | 591 |
# Berechnung der USTVA Formularfelder |
| 592 | 592 |
# |
| 593 |
|
|
| 593 | 594 |
$form->{"51r"} = $form->{"511"};
|
| 594 | 595 |
$form->{"86r"} = $form->{"861"};
|
| 595 | 596 |
$form->{"97r"} = $form->{"971"};
|
| 596 | 597 |
$form->{"93r"} = $form->{"931"};
|
| 597 | 598 |
$form->{"Z43"} =
|
| 598 |
$form->{"511"} + $form->{"861"} + $form->{"36"} + $form->{"80"} +
|
|
| 599 |
$form->{"971"} + $form->{"931"} + $form->{"96"} + $form->{"98"};
|
|
| 599 |
$form->{"511"} + $form->{"861"} + $form->{"36"} + $form->{"80"} +
|
|
| 600 |
$form->{"971"} + $form->{"931"} + $form->{"96"} + $form->{"98"};
|
|
| 600 | 601 |
$form->{"Z45"} = $form->{"Z43"};
|
| 601 | 602 |
$form->{"Z53"} = $form->{"Z43"};
|
| 602 | 603 |
$form->{"Z62"} =
|
| 603 |
$form->{"Z43"} - $form->{"66"} - $form->{"61"} - $form->{"62"} -
|
|
| 604 |
$form->{"63"} - $form->{"64"} - $form->{"59"};
|
|
| 604 |
$form->{"Z43"} - $form->{"66"} - $form->{"61"} - $form->{"62"} -
|
|
| 605 |
$form->{"63"} - $form->{"64"} - $form->{"59"};
|
|
| 605 | 606 |
$form->{"Z65"} = $form->{"Z62"} - $form->{"69"};
|
| 606 | 607 |
$form->{"83"} = $form->{"Z65"} - $form->{"39"};
|
| 607 |
|
|
| 608 |
foreach $item (@categories_cent) {
|
|
| 609 |
$form->{$item} =
|
|
| 610 |
$form->format_amount($myconfig, $form->{$item}, '2', '0');
|
|
| 611 |
} |
|
| 612 |
|
|
| 613 |
foreach $item (@categories_euro) {
|
|
| 614 |
$form->{$item} =
|
|
| 615 |
$form->format_amount($myconfig, $form->{$item}, '0', '0');
|
|
| 616 |
} |
|
| 617 |
|
|
| 608 |
# Hier fehlen moeglicherweise noch einige Berechnungen! |
|
| 609 |
|
|
| 618 | 610 |
$dbh->disconnect; |
| 619 | 611 |
|
| 620 | 612 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 784 | 776 |
|
| 785 | 777 |
while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
|
| 786 | 778 |
# Bug 365 solved?! |
| 787 |
# if ($ref->{amount} < 0) {
|
|
| 788 |
$ref->{amount} *= -1;
|
|
| 789 |
# } |
|
| 779 |
$ref->{amount} *= -1;
|
|
| 790 | 780 |
if ($category eq "pos_bwa") {
|
| 791 | 781 |
if ($last_period) {
|
| 792 | 782 |
$form->{ $ref->{$category} }{kumm} += $ref->{amount};
|
Auch abrufbar als: Unified diff
- Bugfix: 499, 502, 442
- Zahlenformatierung wird nun getrennt nach Ausgabeformat durchgefuehrt
- Verbesserter bei Taxbirdexport