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};
|
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 77 | 77 |
$form->{title} = $locale->text('UStVA');
|
| 78 | 78 |
$form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 Nein=0
|
| 79 | 79 |
|
| 80 |
my $year = substr( |
|
| 81 |
$form->datetonum($form->current_date(\%myconfig), |
|
| 82 |
\%myconfig |
|
| 83 |
), |
|
| 84 |
0, 4); |
|
| 80 |
my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig ), |
|
| 81 |
0, 4); |
|
| 85 | 82 |
|
| 86 | 83 |
my $department = ''; |
| 87 | 84 |
local $hide = ''; |
| 88 | 85 |
$form->header; |
| 89 | 86 |
|
| 90 | 87 |
print qq| |
| 91 |
<body> |
|
| 92 |
<form method=post action=$form->{script}>
|
|
| 88 |
<body>
|
|
| 89 |
<form method=post action=$form->{script}>
|
|
| 93 | 90 |
|
| 94 |
<input type=hidden name=title value="$form->{title}">
|
|
| 91 |
<input type=hidden name=title value="$form->{title}">
|
|
| 95 | 92 |
|
| 96 |
<table width=100%> |
|
| 93 |
<table width=100%>
|
|
| 97 | 94 |
<tr> |
| 98 | 95 |
<th class=listtop>$form->{title}</th>
|
| 99 | 96 |
</tr> |
| ... | ... | |
| 102 | 99 |
<td> |
| 103 | 100 |
<table> |
| 104 | 101 |
$department |
| 105 |
|; |
|
| 102 |
|;
|
|
| 106 | 103 |
|
| 107 | 104 |
# Hier Aufruf von get_config aus bin/mozilla/fa.pl zum |
| 108 | 105 |
# Einlesen der Finanzamtdaten |
| ... | ... | |
| 656 | 653 |
SWITCH: {
|
| 657 | 654 |
$yymmdd <= ($yy + 110 + $dfv) && do {
|
| 658 | 655 |
$form->{year} = $form->{year} - 1;
|
| 659 |
$sel = 'D';
|
|
| 656 |
$sel = '44';
|
|
| 660 | 657 |
last SWITCH; |
| 661 | 658 |
}; |
| 662 | 659 |
$yymmdd <= ($yy + 410 + $dfv) && do {
|
| 663 |
$sel = 'A';
|
|
| 660 |
$sel = '41';
|
|
| 664 | 661 |
last SWITCH; |
| 665 | 662 |
}; |
| 666 | 663 |
$yymmdd <= ($yy + 710 + $dfv) && do {
|
| 667 |
$sel = 'B';
|
|
| 664 |
$sel = '42';
|
|
| 668 | 665 |
last SWITCH; |
| 669 | 666 |
}; |
| 670 | 667 |
$yymmdd <= ($yy + 1010 + $dfv) && do {
|
| 671 |
$sel = 'C';
|
|
| 668 |
$sel = '43';
|
|
| 672 | 669 |
last SWITCH; |
| 673 | 670 |
}; |
| 674 | 671 |
$yymmdd <= ($yy + 1231) && do {
|
| 675 |
$sel = 'D';
|
|
| 672 |
$sel = '44';
|
|
| 676 | 673 |
}; |
| 677 | 674 |
} |
| 678 | 675 |
|
| ... | ... | |
| 794 | 791 |
|
| 795 | 792 |
get_config($userspath, 'finanzamt.ini'); |
| 796 | 793 |
|
| 797 |
# form vars initialisieren
|
|
| 794 |
# init some form vars
|
|
| 798 | 795 |
my @anmeldungszeitraum = |
| 799 | 796 |
qw('0401' '0402' '0403' '0404' '0405' '0405' '0406' '0407' '0408' '0409' '0410' '0411' '0412' '0441' '0442' '0443' '0444');
|
| 800 | 797 |
foreach my $item (@anmeldungszeitraum) {
|
| ... | ... | |
| 812 | 809 |
qq|Actual year from Database: $form->{year}\n|);
|
| 813 | 810 |
} |
| 814 | 811 |
|
| 812 |
# |
|
| 813 |
# using dates in ISO-8601 format: yyyymmmdd for Postgres... |
|
| 814 |
# |
|
| 815 |
|
|
| 815 | 816 |
#yearly report |
| 816 | 817 |
if ($form->{period} eq "13") {
|
| 817 | 818 |
$form->{fromdate} = "$form->{year}0101";
|
| ... | ... | |
| 919 | 920 |
}; |
| 920 | 921 |
} |
| 921 | 922 |
|
| 922 |
# using dates in ISO-8601 format: yyyymmmdd for Postgres... |
|
| 923 |
|
|
| 924 |
|
|
| 925 |
|
|
| 926 |
# Get the USTVA |
|
| 923 | 927 |
USTVA->ustva(\%myconfig, \%$form); |
| 924 | 928 |
|
| 925 | 929 |
# reformat Dates to dateformat |
| 926 | 930 |
$form->{fromdate} = $locale->date(\%myconfig, $form->{fromdate}, 0, 0, 0);
|
| 927 | 931 |
|
| 928 |
$form->{todate} = $form->current_date($myconfig) unless $form->{todate};
|
|
| 932 |
$form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};
|
|
| 929 | 933 |
$form->{todate} = $locale->date(\%myconfig, $form->{todate}, 0, 0, 0);
|
| 930 | 934 |
|
| 931 | 935 |
$form->{longperiod} =
|
| ... | ... | |
| 972 | 976 |
$locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0); |
| 973 | 977 |
|
| 974 | 978 |
# setup variables for the form |
| 975 |
# steuernummer f?r prerelease entfernt |
|
| 976 | 979 |
my @a = qw(company businessnumber tel fax email |
| 977 | 980 |
co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5 |
| 978 | 981 |
co_name1 co_name2 co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2 |
| ... | ... | |
| 989 | 992 |
$form->{co_city} =~ s/\\n//g;
|
| 990 | 993 |
} |
| 991 | 994 |
|
| 995 |
# |
|
| 996 |
# Outputformat specific customisation's |
|
| 997 |
# |
|
| 998 |
|
|
| 999 |
my @category_cent = qw(511 861 36 80 971 931 98 96 53 74 |
|
| 1000 |
85 65 66 61 62 67 63 64 59 69 39 83 |
|
| 1001 |
Z43 Z45 Z53 Z62 Z65 Z67); |
|
| 1002 |
|
|
| 1003 |
my @category_euro = qw(41 44 49 43 48 51 86 35 77 76 91 97 93 |
|
| 1004 |
95 94 42 60 45 52 73 84); |
|
| 1005 |
|
|
| 992 | 1006 |
if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') {
|
| 993 | 1007 |
|
| 994 | 1008 |
$form->{IN} = "$form->{type}-$form->{year}.tex";
|
| 995 |
|
|
| 996 | 1009 |
$form->{padding} = "~~";
|
| 997 | 1010 |
$form->{bold} = "\textbf{";
|
| 998 | 1011 |
$form->{endbold} = "}";
|
| 999 | 1012 |
$form->{br} = '\\\\';
|
| 1000 | 1013 |
|
| 1001 |
my @numbers = qw(511 861 36 80 971 931 98 96 53 74 |
|
| 1002 |
85 65 66 61 62 Z67 63 64 59 69 39 83 |
|
| 1003 |
Z43 Z45 Z53 Z62 Z65); |
|
| 1004 |
|
|
| 1005 |
my $number = ''; |
|
| 1006 |
|
|
| 1007 | 1014 |
# Zahlenformatierung f?r Latex USTVA Formulare |
| 1008 |
if ( $myconfig{numberformat} eq '1.000,00'
|
|
| 1009 |
or $myconfig{numberformat} eq '1000,00') {
|
|
| 1010 |
foreach $number (@numbers) {
|
|
| 1011 |
$form->{$number} =~ s/,/~~/g;
|
|
| 1012 |
} |
|
| 1013 |
} |
|
| 1014 |
if ( $myconfig{numberformat} eq '1000.00'
|
|
| 1015 |
or $myconfig{numberformat} eq '1,000.00') {
|
|
| 1016 |
foreach $number (@numbers) {
|
|
| 1017 |
$form->{$number} =~ s/\./~~/g;
|
|
| 1018 |
} |
|
| 1015 |
|
|
| 1016 |
foreach my $number (@category_euro) {
|
|
| 1017 |
$form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '');
|
|
| 1019 | 1018 |
} |
| 1020 |
if ( $form->{period} eq '13'){ #Catch yearly USTE for now, not yet implemented.
|
|
| 1021 |
$form->header;
|
|
| 1022 |
USTVA::error(
|
|
| 1023 |
$locale->text( |
|
| 1024 |
'Impossible to create yearly Tax Report as PDF or Postscript<br \> Not yet implemented!'
|
|
| 1025 |
)
|
|
| 1026 |
);
|
|
| 1019 |
|
|
| 1020 |
my ${decimal_comma} = ( $myconfig{numberformat} eq '1.000,00'
|
|
| 1021 |
or $myconfig{numberformat} eq '1000,00' ) ? ',':'.';
|
|
| 1022 |
|
|
| 1023 |
foreach my $number (@category_cent) {
|
|
| 1024 |
$form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '');
|
|
| 1025 |
$form->{$number} =~ s/${decimal_comma}/~~/g;
|
|
| 1027 | 1026 |
} |
| 1028 |
|
|
| 1027 |
|
|
| 1029 | 1028 |
} elsif ( $form->{format} eq 'html') { # Formatierungen f?r HTML Ausgabe
|
| 1030 | 1029 |
|
| 1031 | 1030 |
$form->{IN} = $form->{type} . '.html';
|
| ... | ... | |
| 1035 | 1034 |
$form->{br} = "<br>";
|
| 1036 | 1035 |
$form->{address} =~ s/\\n/\n/g;
|
| 1037 | 1036 |
|
| 1038 |
} elsif ($form->{format} =~ /^elster/) {
|
|
| 1039 |
|
|
| 1040 |
if ( $form->{period} eq '13' ) {
|
|
| 1041 |
$form->header; |
|
| 1042 |
USTVA::info( |
|
| 1043 |
$locale->text( |
|
| 1044 |
'Impossible to create yearly Tax Report via Winston or Taxbird.<br \> Not yet implemented!' |
|
| 1045 |
)); |
|
| 1037 |
foreach $number (@category_cent) {
|
|
| 1038 |
$form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '0');
|
|
| 1046 | 1039 |
} |
| 1040 |
|
|
| 1041 |
foreach $number (@category_euro) {
|
|
| 1042 |
$form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '0');
|
|
| 1043 |
} |
|
| 1044 |
|
|
| 1045 |
} elsif ( $form->{format} eq 'elsterwinston' ) {
|
|
| 1046 |
|
|
| 1047 |
$form->{IN} = 'winston.xml';
|
|
| 1048 |
|
|
| 1049 |
# |
|
| 1050 |
# Build Winston filename |
|
| 1051 |
# |
|
| 1052 |
|
|
| 1053 |
my $file = 'U'; # 1. char 'U' = USTVA |
|
| 1054 |
$file .= $form->{period};
|
|
| 1055 |
#4. and 5. char = year modulo 100 |
|
| 1056 |
$file .= sprintf("%02d", $form->{year} % 100);
|
|
| 1057 |
#6. to 18. char = Elstersteuernummer |
|
| 1058 |
#Beispiel: Steuernummer in Bayern |
|
| 1059 |
#111/222/33334 ergibt f?r UStVA Jan 2004: U01049111022233334 |
|
| 1060 |
$file .= $form->{elsterFFFF};
|
|
| 1061 |
$file .= $form->{elstersteuernummer};
|
|
| 1062 |
#file suffix |
|
| 1063 |
$file .= '.xml'; |
|
| 1064 |
$form->{tmpfile} = "$userspath/$file";
|
|
| 1065 |
|
|
| 1066 |
$form->{attachment_filename} = "$file";
|
|
| 1067 |
|
|
| 1068 |
# Zahlenformatierung f?r Winston |
|
| 1069 |
|
|
| 1070 |
my $temp_numberformat = $myconfig{numberformat};
|
|
| 1047 | 1071 |
|
| 1048 |
if ( $form->{format} eq 'elsterwinston' ) {
|
|
| 1049 |
|
|
| 1050 |
$form->{IN} = 'winston.xml';
|
|
| 1051 |
|
|
| 1052 |
# Build Winston filename |
|
| 1053 |
my $file = 'U'; # 1. char 'U' = USTVA |
|
| 1054 |
$file .= $form->{period};
|
|
| 1055 |
#4. and 5. char = year modulo 100 |
|
| 1056 |
$file .= sprintf("%02d", $form->{year} % 100);
|
|
| 1057 |
#6. to 18. char = Elstersteuernummer |
|
| 1058 |
#Beispiel: Steuernummer in Bayern |
|
| 1059 |
#111/222/33334 ergibt f?r UStVA Jan 2004: U01049111022233334 |
|
| 1060 |
$file .= $form->{elsterFFFF};
|
|
| 1061 |
$file .= $form->{elstersteuernummer};
|
|
| 1062 |
#file suffix |
|
| 1063 |
$file .= '.xml'; |
|
| 1064 |
$form->{tmpfile} = "$userspath/$file";
|
|
| 1072 |
# Numberformat must be '1000.00' for Winston |
|
| 1073 |
|
|
| 1074 |
$myconfig{numberformat} = '1000.00';
|
|
| 1075 |
|
|
| 1076 |
foreach my $number (@category_cent) {
|
|
| 1077 |
$form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
|
|
| 1078 |
} |
|
| 1079 |
|
|
| 1080 |
foreach my $number (@category_euro) {
|
|
| 1081 |
$form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
|
|
| 1065 | 1082 |
} |
| 1083 |
# Re-set Numberformat |
|
| 1084 |
$myconfig{numberformat} = $temp_numberformat;
|
|
| 1066 | 1085 |
|
| 1067 |
if ( $form->{format} eq 'elstertaxbird' ) {
|
|
| 1086 |
} |
|
| 1087 |
|
|
| 1088 |
elsif ( $form->{format} eq 'elstertaxbird' ) {
|
|
| 1068 | 1089 |
|
| 1069 |
$form->{IN} = 'taxbird.txb';
|
|
| 1070 |
|
|
| 1071 |
$form->{tmpfile} = "$userspath/USTVA-" . $form->{period}
|
|
| 1072 |
. sprintf("%02d", $form->{year} % 100) . ".txb";
|
|
| 1090 |
$form->{IN} = 'taxbird.txb';
|
|
| 1073 | 1091 |
|
| 1074 |
if ($form->{period} =~ /^[4]\d$/ ){
|
|
| 1075 |
my %periods = ( # Lx => taxbird |
|
| 1076 |
'41' => '12', |
|
| 1077 |
'42' => '13', |
|
| 1078 |
'43' => '14', |
|
| 1079 |
'44' => '15', |
|
| 1080 |
); |
|
| 1092 |
$form->{attachment_filename} = "USTVA-" . $form->{period}
|
|
| 1093 |
. sprintf("%02d", $form->{year} % 100) . ".txb";
|
|
| 1094 |
|
|
| 1095 |
$form->{tmpfile} = "$userspath/" . $form->{attachment_filename};
|
|
| 1096 |
|
|
| 1097 |
if ($form->{period} =~ /^[4]\d$/ ){
|
|
| 1098 |
my %periods = ( # Lx => taxbird |
|
| 1099 |
'41' => '12', |
|
| 1100 |
'42' => '13', |
|
| 1101 |
'43' => '14', |
|
| 1102 |
'44' => '15', |
|
| 1103 |
); |
|
| 1104 |
|
|
| 1105 |
foreach my $quarter ( keys %periods ) {
|
|
| 1106 |
$form->{taxbird_period} = $periods{$quarter} if ( $form->{period} eq $quarter);
|
|
| 1107 |
} |
|
| 1108 |
|
|
| 1109 |
my %lands = ( # Lx => taxbird # TODO: besser als array... |
|
| 1110 |
'Baden W?rtemberg' => '0', |
|
| 1111 |
'Bayern' => '1', |
|
| 1112 |
'Berlin' => '2', |
|
| 1113 |
'Brandenburg' => '3', |
|
| 1114 |
'Bremen' => '4', |
|
| 1115 |
'Hamburg' => '5', |
|
| 1116 |
'Hessen' => '6', |
|
| 1117 |
'Mecklenburg Vorpommern' => '7', |
|
| 1118 |
'Niedersachsen' => '8', |
|
| 1119 |
'Nordrhein Westfalen' => '9', |
|
| 1120 |
'Rheinland Pfalz' => '10', |
|
| 1121 |
'Saarland' => '11', |
|
| 1122 |
'Sachsen' => '12', |
|
| 1123 |
'Sachsen Anhalt' => '13', |
|
| 1124 |
'Schleswig Holstein' => '14', |
|
| 1125 |
'Th?ringen' => '15', |
|
| 1126 |
); |
|
| 1127 |
|
|
| 1128 |
foreach my $land ( keys %lands ){
|
|
| 1129 |
$form->{taxbird_land_nr} = $lands{$land} if ($form->{elsterland} eq $land );
|
|
| 1130 |
} |
|
| 1081 | 1131 |
|
| 1082 |
foreach my $quarter ( keys %periods ) {
|
|
| 1083 |
$form->{period} = $periods{$quarter} if ( $form->{period} eq $quarter);
|
|
| 1084 |
} |
|
| 1085 |
|
|
| 1086 |
my %lands = ( # Lx => taxbird # TODO: besser als array... |
|
| 1087 |
'Baden W?rtemberg' => '0', |
|
| 1088 |
'Bayern' => '1', |
|
| 1089 |
'Berlin' => '2', |
|
| 1090 |
'Brandenburg' => '3', |
|
| 1091 |
'Bremen' => '4', |
|
| 1092 |
'Hamburg' => '5', |
|
| 1093 |
'Hessen' => '6', |
|
| 1094 |
'Mecklenburg Vorpommern' => '7', |
|
| 1095 |
'Niedersachsen' => '8', |
|
| 1096 |
'Nordrhein Westfalen' => '9', |
|
| 1097 |
'Rheinland Pfalz' => '10', |
|
| 1098 |
'Saarland' => '11', |
|
| 1099 |
'Sachsen' => '12', |
|
| 1100 |
'Sachsen Anhalt' => '13', |
|
| 1101 |
'Schleswig Holstein' => '14', |
|
| 1102 |
'Th?ringen' => '15', |
|
| 1103 |
); |
|
| 1104 |
|
|
| 1105 |
|
|
| 1106 |
foreach my $land ( keys %lands ){
|
|
| 1107 |
$form->{elsterland} = $lands{$land} if ($form->{elsterland} eq $land );
|
|
| 1108 |
} |
|
| 1109 |
} elsif ($form->{period} =~ /^\d+$/ ) {
|
|
| 1110 |
$form->{period} =~ s/^0//g;
|
|
| 1111 |
my $period = $form->{period};
|
|
| 1112 |
$period * 1; |
|
| 1113 |
$period--; |
|
| 1114 |
$form->{period} = $period;
|
|
| 1115 |
} else {
|
|
| 1116 |
$form->header; |
|
| 1117 |
USTVA::error( $locale->text('Wrong Period' ));
|
|
| 1118 |
exit(0); |
|
| 1119 |
|
|
| 1120 |
} |
|
| 1132 |
$form->{taxbird_steuernummer} = $form->{steuernummer};
|
|
| 1133 |
$form->{taxbird_steuernummer} =~ s/\D//g;
|
|
| 1121 | 1134 |
|
| 1135 |
$form->{co_zip} = $form->{co_city};
|
|
| 1136 |
$form->{co_zip} =~ s/\D//g;
|
|
| 1137 |
$form->{co_city} =~ s/\d//g;
|
|
| 1138 |
$form->{co_city} =~ s/^\s//g;
|
|
| 1139 |
|
|
| 1140 |
($form->{co_phone_prefix}, $form->{co_phone}) = split("-", $form->{tel});
|
|
| 1141 |
|
|
| 1142 |
# Numberformatting for Taxbird |
|
| 1143 |
|
|
| 1144 |
my $temp_numberformat = $myconfig{numberformat};
|
|
| 1145 |
# Numberformat must be '1000.00' for Taxbird ?! |
|
| 1146 |
|
|
| 1147 |
$myconfig{numberformat} = '1000.00';
|
|
| 1148 |
|
|
| 1149 |
foreach my $number (@category_cent) {
|
|
| 1150 |
$form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
|
|
| 1151 |
} |
|
| 1152 |
|
|
| 1153 |
foreach my $number (@category_euro) {
|
|
| 1154 |
$form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
|
|
| 1155 |
} |
|
| 1156 |
# Re-set Numberformat |
|
| 1157 |
$myconfig{numberformat} = $temp_numberformat;
|
|
| 1158 |
|
|
| 1159 |
} elsif ($form->{period} =~ /^\d+$/ ) {
|
|
| 1160 |
$form->{period} =~ s/^0//g;
|
|
| 1161 |
my $period = $form->{period};
|
|
| 1162 |
$period * 1; |
|
| 1163 |
$period--; |
|
| 1164 |
$form->{period} = $period;
|
|
| 1165 |
} else {
|
|
| 1166 |
$form->header; |
|
| 1167 |
USTVA::error( $locale->text('Wrong Period' ));
|
|
| 1168 |
exit(0); |
|
| 1122 | 1169 |
} |
| 1123 |
# Other Elster formats follow here... |
|
| 1124 | 1170 |
|
| 1125 | 1171 |
} elsif ( $form->{format} eq '' ){ # No format error.
|
| 1126 | 1172 |
$form->header; |
| ... | ... | |
| 1132 | 1178 |
USTVA::error( $locale->text('Application Error. Wrong Format: ') . $form->{format} );
|
| 1133 | 1179 |
exit(0); |
| 1134 | 1180 |
} |
| 1181 |
|
|
| 1182 |
if ( $form->{period} eq '13' and $form->{format} ne 'html') {
|
|
| 1183 |
$form->header; |
|
| 1184 |
USTVA::info( |
|
| 1185 |
$locale->text( |
|
| 1186 |
'Yearly taxreport not yet implemented') |
|
| 1187 |
. '!'); |
|
| 1188 |
} |
|
| 1135 | 1189 |
|
| 1136 |
|
|
| 1137 | 1190 |
$form->{templates} = $myconfig{templates};
|
| 1138 | 1191 |
$form->{templates} = "doc" if ( $form->{type} eq 'help' );
|
| 1139 | 1192 |
|
| 1140 |
$form->parse_template($myconfig, $userspath);
|
|
| 1193 |
$form->parse_template(\%myconfig, $userspath);
|
|
| 1141 | 1194 |
|
| 1142 | 1195 |
$lxdebug->leave_sub(); |
| 1143 | 1196 |
} |
| templates/German-taxbird.txb | ||
|---|---|---|
| 1 |
;; This file was produced using taxbird. |
|
| 1 |
;; This file was produced using lx-office |
|
| 2 |
;; for using in taxbird. |
|
| 2 | 3 |
;; You probably don't want to touch this |
| 3 | 4 |
;; file. In case you do want it anyway, |
| 4 | 5 |
;; be warned: BE CAREFUL!! |
| 5 | 6 |
;; |
| 6 | 7 |
'("Umsatzsteuervoranmeldung <%year%>" (
|
| 7 | 8 |
("vend-id" . "74931")
|
| 8 |
("land-lieferant" . "<%nation%>")
|
|
| 9 |
("land-lieferant" . "<%elsterland%>")
|
|
| 9 | 10 |
("name-lieferant" . "<%company%>")
|
| 10 | 11 |
("berufsbez" . "")
|
| 11 | 12 |
("strasse-lieferant" . "<%co_street%>")
|
| 12 |
("plz-lieferant" . "<%co_zip%>")
|
|
| 13 |
("plz-lieferant" . "<%co_zip%> ")
|
|
| 13 | 14 |
("ort-lieferant" . "<%co_city%>")
|
| 14 |
("vorwahl" . "")
|
|
| 15 |
("vorwahl" . "<%co_phone_prefix%>")
|
|
| 15 | 16 |
("anschluss" . "<%co_phone%>")
|
| 16 |
("land" . "<%elsterland%>")
|
|
| 17 |
("zeitraum" . "<%period%>")
|
|
| 18 |
("stnr" . "<%steuernummer%>")
|
|
| 17 |
("land" . "<%taxbird_land_nr%>")
|
|
| 18 |
("zeitraum" . "<%taxbird_period%>")
|
|
| 19 |
("stnr" . "<%taxbird_steuernummer%>")
|
|
| 19 | 20 |
|
| 20 | 21 |
<%if 10%>("Kz10" . "<%10%>")<%end 10%>
|
| 21 | 22 |
<%if 22%>("Kz22" . "<%22%>")<%end 22%>
|
| templates/German-ustva-2007.tex | ||
|---|---|---|
| 1 |
% German USTVA template for taxreports |
|
| 2 |
% |
|
| 3 |
% Contributed by Jens Koerner, Peter Schorer, Udo Spallek |
|
| 4 |
% |
|
| 5 |
% |
|
| 6 |
\documentclass[twoside]{scrartcl}
|
|
| 7 |
\usepackage{a4,german}
|
|
| 8 |
\usepackage[frame]{xy}
|
|
| 9 |
\usepackage[latin1]{inputenc}
|
|
| 10 |
\usepackage[german]{babel}
|
|
| 11 |
\usepackage{graphicx}
|
|
| 12 |
\usepackage{tabularx}
|
|
| 13 |
\usepackage{times, german}
|
|
| 14 |
\usepackage{german}
|
|
| 15 |
\setlength{\voffset}{-0.8cm} %hier wird die H?henverschiebung get?tigt
|
|
| 16 |
\setlength{\hoffset}{-1cm} %und hier die Verschiebung seitw?rts
|
|
| 17 |
\setlength{\topmargin}{0cm}
|
|
| 18 |
\setlength{\headheight}{0cm}
|
|
| 19 |
\setlength{\headsep}{0cm}
|
|
| 20 |
\setlength{\topskip}{0pt}
|
|
| 21 |
\setlength{\oddsidemargin}{0cm}
|
|
| 22 |
\setlength{\evensidemargin}{0cm}
|
|
| 23 |
\setlength{\textwidth}{20.9cm}
|
|
| 24 |
\setlength{\textheight}{29.6cm}
|
|
| 25 |
\setlength{\footskip}{-0cm}
|
|
| 26 |
\setlength{\parindent}{0pt}
|
|
| 27 |
|
|
| 28 |
\begin{document}
|
|
| 29 |
|
|
| 30 |
\fontfamily{cmss}\fontshape{n}\large\selectfont
|
|
| 31 |
\pagestyle{myheadings}
|
|
| 32 |
\markboth{\protect\scalebox{1.045}[1.045]{\protect\includegraphics[viewport = 54 783 700 790]{ustva-2007-2.pdf}}}
|
|
| 33 |
{\protect\scalebox{1.045}[1.045]{\protect\includegraphics[viewport = 70 700 700 790]{ustva-2007-1.pdf}}}
|
|
| 34 |
\hspace{1mm}
|
|
| 35 |
\begin{tabular}[b]{p{7mm}p{5cm}p{22.5mm}p{24mm}p{7mm}p{28mm}p{3mm}}
|
|
| 36 |
\multicolumn{7}{c}{}\\[-2mm]
|
|
| 37 |
& \multicolumn{6}{l}{<%steuernummer%>}\\
|
|
| 38 |
\multicolumn{7}{c}{}\\[15mm]
|
|
| 39 |
\multicolumn{2}{p{7.5cm}}{<%FA_Name%>} & & & & &\\[-4mm]
|
|
| 40 |
\multicolumn{2}{p{7.5cm}}{} & & & & &\\[3mm]
|
|
| 41 |
\multicolumn{2}{p{7.5cm}}{<%FA_Strasse%>} & &<%0401%>&<%0407%>&&<%0441%>\\[1.2mm]
|
|
| 42 |
\multicolumn{2}{p{7.5cm}}{} & &<%0402%>&<%0408%>&&<%0442%>\\[1.25mm]
|
|
| 43 |
\multicolumn{2}{p{7.5cm}}{<%FA_PLZ%> <%FA_Ort%>} & &<%0403%>&<%0409%>&&<%0443%>\\[3mm]
|
|
| 44 |
\multicolumn{2}{p{7.5cm}}{} & &<%0404%>&<%0410%>&&<%0444%>\\[1.25mm]
|
|
| 45 |
\multicolumn{2}{p{7.5cm}}{} & &<%0405%>&<%0411%>&&\\[1.25mm]
|
|
| 46 |
\multicolumn{2}{p{7.5cm}}{\small{<%company%>}} & &<%0406%>&<%0412%>&&\\[-1mm]
|
|
| 47 |
\multicolumn{2}{p{7.5cm}}{\small{<%co_street%>}}& & & & &\\[-1mm]
|
|
| 48 |
\multicolumn{2}{p{7.5cm}}{\small{<%co_city%>}}& & & &<%FA_10%> &\\[1mm]
|
|
| 49 |
\multicolumn{2}{p{7.5cm}}{
|
|
| 50 |
<%if tel%> |
|
| 51 |
\small{Tel: <%tel%>}~--~
|
|
| 52 |
<%end tel%> |
|
| 53 |
<%if fax%> |
|
| 54 |
\small{Fax: <%fax%>}
|
|
| 55 |
<%end fax%> |
|
| 56 |
}& & & & &\\[-1mm] |
|
| 57 |
\multicolumn{2}{p{7.5cm}}{\small{<%email%>}}& & & & &\\[-1mm]
|
|
| 58 |
\end{tabular}\\[29.5mm]
|
|
| 59 |
\begin{tabular}[b]{p{99mm}p{26.5mm}p{4.55mm}p{4mm}p{35mm}}
|
|
| 60 |
&&&&\\[20.5mm] |
|
| 61 |
\multicolumn{2}{r}{<%48%>} & & \multicolumn{2}{r}{}\\[7.5mm]
|
|
| 62 |
\multicolumn{2}{r}{<%51%>} & & \multicolumn{2}{r}{<%511%>}\\[1.5mm]
|
|
| 63 |
\multicolumn{2}{r}{<%86%>} & & \multicolumn{2}{r}{<%861%>}\\[42mm]
|
|
| 64 |
\multicolumn{2}{r}{<%97%>} & & \multicolumn{2}{r}{<%971%>}\\[1.5mm]
|
|
| 65 |
\multicolumn{2}{r}{<%93%>} & & \multicolumn{2}{r}{<%931%>}\\[8.5mm]
|
|
| 66 |
\multicolumn{2}{r}{<%94%>} & & \multicolumn{2}{r}{<%96%>}\\[28mm]
|
|
| 67 |
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%Z43%>}\\
|
|
| 68 |
\end{tabular}
|
|
| 69 |
|
|
| 70 |
\newpage |
|
| 71 |
|
|
| 72 |
\vspace*{-9.5mm}\hspace{27mm}<%steuernummer%>\\[-2.7mm]
|
|
| 73 |
\begin{tabular}[b]{p{99mm}p{25.2mm}p{2.55mm}p{10mm}p{32mm}}
|
|
| 74 |
&&&&\\ |
|
| 75 |
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%Z45%>}\\[48mm]
|
|
| 76 |
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%Z53%>}\\[8.9mm]
|
|
| 77 |
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%66%>}\\[42mm]
|
|
| 78 |
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%Z62%>}\\[28mm]
|
|
| 79 |
\multicolumn{2}{r}{} & & \multicolumn{2}{r}{\textbf{<%83%>}}\\[26mm]
|
|
| 80 |
\end{tabular}\\[35mm]
|
|
| 81 |
<%if FA_steuerberater%> |
|
| 82 |
\vspace{11mm}
|
|
| 83 |
\begin{list}{}{
|
|
| 84 |
\setlength{\leftmargin}{2mm}
|
|
| 85 |
\setlength{\itemsep}{0mm}
|
|
| 86 |
\setlength{\parsep}{0mm}
|
|
| 87 |
%\setlength{\topsep}{0mm}
|
|
| 88 |
%\setlength{\parskip}{0mm}
|
|
| 89 |
%\setlength{\partopsep}{0mm}
|
|
| 90 |
} |
|
| 91 |
\begin{small}
|
|
| 92 |
\item <%FA_steuerberater_name%> |
|
| 93 |
\item <%FA_steuerberater_street%> |
|
| 94 |
\item <%FA_steuerberater_city%> |
|
| 95 |
\item Tel:~<%FA_steuerberater_tel%> |
|
| 96 |
\end{small}\\[15mm]
|
|
| 97 |
\item <%Datum_heute%>, |
|
| 98 |
\end{list}
|
|
| 99 |
<%end FA_steuerberater%> |
|
| 100 |
<%if not FA_steuerberater%> |
|
| 101 |
\begin{list}{}{
|
|
| 102 |
\setlength{\leftmargin}{2mm}
|
|
| 103 |
\setlength{\itemsep}{0mm}
|
|
| 104 |
\setlength{\parsep}{0mm}
|
|
| 105 |
%\setlength{\topsep}{0mm}
|
|
| 106 |
%\setlength{\parskip}{0mm}
|
|
| 107 |
%\setlength{\partopsep}{0mm}
|
|
| 108 |
} |
|
| 109 |
\begin{small}
|
|
| 110 |
\item ~ |
|
| 111 |
\item ~ |
|
| 112 |
\item ~ |
|
| 113 |
\item ~ |
|
| 114 |
\end{small}\\[26mm]
|
|
| 115 |
\item <%Datum_heute%>, |
|
| 116 |
\end{list}
|
|
| 117 |
<%end FA_steuerberater%> |
|
| 118 |
\end{document}
|
|
| 119 |
|
|
| 120 |
|
|
| 121 |
|
|
| 122 |
|
|
| 123 |
|
|
| 124 |
|
|
| 125 |
|
|
| 126 |
|
|
| 127 |
|
|
| 128 |
|
|
| templates/German-ustva.html | ||
|---|---|---|
| 391 | 391 |
<%FA_steuerberater_street%><br /> |
| 392 | 392 |
<%FA_steuerberater_city%><br /> |
| 393 | 393 |
Tel: <%FA_steuerberater_tel%></p> |
| 394 |
<%end FA_steuerberater%>>
|
|
| 394 |
<%end FA_steuerberater%> |
|
| 395 | 395 |
</body> |
| 396 | 396 |
</html> |
Auch abrufbar als: Unified diff
- Bugfix: 499, 502, 442
- Zahlenformatierung wird nun getrennt nach Ausgabeformat durchgefuehrt
- Verbesserter bei Taxbirdexport