Revision 785ef602
Von Udo Spallek vor fast 18 Jahren hinzugefügt
| SL/USTVA.pm | ||
|---|---|---|
| 573 | 573 |
my $last_period = 0; |
| 574 | 574 |
my $category = "pos_ustva"; |
| 575 | 575 |
my @category_cent = qw( |
| 576 |
511 861 36 80 971 931 98 96 53 74
|
|
| 577 |
85 65 66 61 62 67 63 64 59 69
|
|
| 578 |
39 83 Z43 Z45 Z53 Z62 Z65 Z67
|
|
| 576 |
511 861 36 80 971 931 98 96 53 74
|
|
| 577 |
85 65 66 61 62 67 63 64 59 69
|
|
| 578 |
39 83 811 891 Z43 Z45 Z53 Z62 Z65 Z67
|
|
| 579 | 579 |
); |
| 580 | 580 |
|
| 581 | 581 |
my @category_euro = qw( |
| 582 | 582 |
41 44 49 43 48 51 |
| 583 | 583 |
86 35 77 76 91 97 |
| 584 | 584 |
93 95 94 42 60 45 |
| 585 |
52 73 84 |
|
| 585 |
52 73 84 81 89
|
|
| 586 | 586 |
); |
| 587 | 587 |
|
| 588 | 588 |
$form->{decimalplaces} *= 1;
|
| ... | ... | |
| 598 | 598 |
$form, $category); |
| 599 | 599 |
|
| 600 | 600 |
# |
| 601 |
# Berechnung der USTVA Formularfelder |
|
| 601 |
# Berechnung der USTVA Formularfelder laut Bogen 207
|
|
| 602 | 602 |
# |
| 603 | 603 |
|
| 604 | 604 |
$form->{"51r"} = $form->{"511"};
|
| 605 | 605 |
$form->{"86r"} = $form->{"861"};
|
| 606 | 606 |
$form->{"97r"} = $form->{"971"};
|
| 607 | 607 |
$form->{"93r"} = $form->{"931"};
|
| 608 |
$form->{"Z43"} = $form->{"511"} + $form->{"861"} + $form->{"36"}
|
|
| 609 |
+ $form->{"80"} + $form->{"971"} + $form->{"931"}
|
|
| 610 |
+ $form->{"96"} + $form->{"98"};
|
|
| 608 |
|
|
| 609 |
$form->{"Z43"} = $form->{"511"} + $form->{"811"} + $form->{"861"}
|
|
| 610 |
+ $form->{"36"} + $form->{"80"} + $form->{"971"}
|
|
| 611 |
+ $form->{"891"} + $form->{"931"} + $form->{"96"}
|
|
| 612 |
+ $form->{"98"};
|
|
| 613 |
|
|
| 611 | 614 |
$form->{"Z45"} = $form->{"Z43"};
|
| 612 |
$form->{"Z53"} = $form->{"Z43"};
|
|
| 613 |
$form->{"Z62"} = $form->{"Z43"} - $form->{"66"} - $form->{"61"}
|
|
| 614 |
- $form->{"62"} - $form->{"63"} - $form->{"64"}
|
|
| 615 |
- $form->{"59"};
|
|
| 616 |
$form->{"Z65"} = $form->{"Z62"} - $form->{"69"};
|
|
| 617 |
$form->{"83"} = $form->{"Z65"} - $form->{"39"};
|
|
| 618 |
# Hier fehlen moeglicherweise noch einige Berechnungen! |
|
| 615 |
|
|
| 616 |
$form->{"Z53"} = $form->{"Z45"} + $form->{"53"} + $form->{"74"}
|
|
| 617 |
+ $form->{"85"} + $form->{"65"};
|
|
| 618 |
|
|
| 619 |
$form->{"Z62"} = $form->{"Z43"} - $form->{"66"} - $form->{"61"}
|
|
| 620 |
- $form->{"62"} - $form->{"67"} - $form->{"63"}
|
|
| 621 |
- $form->{"64"} - $form->{"59"};
|
|
| 622 |
|
|
| 623 |
$form->{"Z65"} = $form->{"Z62"} - $form->{"69"};
|
|
| 624 |
$form->{"83"} = $form->{"Z65"} - $form->{"39"};
|
|
| 619 | 625 |
|
| 620 | 626 |
$dbh->disconnect; |
| 621 | 627 |
|
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 739 | 739 |
# |
| 740 | 740 |
|
| 741 | 741 |
my @category_cent = qw( |
| 742 |
511 861 36 80 971 931 98 96 53 74 |
|
| 743 |
85 65 66 61 62 67 63 64 59 69 |
|
| 744 |
39 83 Z43 Z45 Z53 Z62 Z65 Z67 |
|
| 742 |
511 861 36 80 971 931 98 96 53 74 |
|
| 743 |
85 65 66 61 62 67 63 64 59 69 |
|
| 744 |
39 83 811 891 Z43 Z45 Z53 Z62 Z65 Z67 |
|
| 745 |
|
|
| 745 | 746 |
); |
| 746 | 747 |
|
| 747 | 748 |
my @category_euro = qw( |
| 748 |
41 44 49 43 48 51 86 35 77 76 91 |
|
| 749 |
97 93 95 94 42 60 45 52 73 84 |
|
| 749 |
41 44 49 43 48 51 86 35 77 76 91 89
|
|
| 750 |
97 93 95 94 42 60 45 52 73 84 81
|
|
| 750 | 751 |
); |
| 751 | 752 |
|
| 752 | 753 |
if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') {
|
| ... | ... | |
| 1259 | 1260 |
$form->{FA_Internet} =~ s/^http:\/\///;
|
| 1260 | 1261 |
$form->{FA_Internet} = 'http://' . $form->{FA_Internet};
|
| 1261 | 1262 |
|
| 1262 |
my @config = qw(elster elsterland elstersteuernummer steuernummer |
|
| 1263 |
elsteramt elsterFFFF FA_Name FA_Strasse |
|
| 1264 |
FA_PLZ FA_Ort FA_Telefon FA_Fax FA_PLZ_Grosskunden |
|
| 1265 |
FA_PLZ_Postfach FA_Postfach FA_BLZ_1 FA_Kontonummer_1 |
|
| 1266 |
FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2 |
|
| 1263 |
my @config = qw( |
|
| 1264 |
elster elsterland elstersteuernummer steuernummer |
|
| 1265 |
elsteramt elsterFFFF FA_Name FA_Strasse |
|
| 1266 |
FA_PLZ FA_Ort FA_Telefon FA_Fax |
|
| 1267 |
FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach FA_BLZ_1 |
|
| 1268 |
FA_Kontonummer_1 FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2 |
|
| 1267 | 1269 |
FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten |
| 1268 | 1270 |
FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name |
| 1269 | 1271 |
FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel |
Auch abrufbar als: Unified diff
Kennziffern hinzugefügt, Berechnungen der Zwischensummen verbessert,
Code aufschoenen