2 #=====================================================================
4 # Copyright (c) 2004 by Udo Spallek, Aachen
8 # Web: http://www.lx-office.org
11 # This program is free software; you can redistribute it and/or modify
12 # it under the terms of the GNU General Public License as published by
13 # the Free Software Foundation; either version 2 of the License, or
14 # (at your option) any later version.
16 # This program is distributed in the hope that it will be useful,
17 # but WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 # GNU General Public License for more details.
20 # You should have received a copy of the GNU General Public License
21 # along with this program; if not, write to the Free Software
22 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
23 #======================================================================
24 # German Tax authority Module and later ELSTER Interface
25 #======================================================================
27 require "$form->{path}/arap.pl";
28 require "bin/mozilla/common.pl";
33 #use warnings; # FATAL=> 'all';
34 #use vars qw($locale $form %myconfig);
36 #use CGI::Carp "fatalsToBrowser";
44 # this is for our long dates
45 # $locale->text('January')
46 # $locale->text('February')
47 # $locale->text('March')
48 # $locale->text('April')
49 # $locale->text('May ')
50 # $locale->text('June')
51 # $locale->text('July')
52 # $locale->text('August')
53 # $locale->text('September')
54 # $locale->text('October')
55 # $locale->text('November')
56 # $locale->text('December')
58 # this is for our short month
59 # $locale->text('Jan')
60 # $locale->text('Feb')
61 # $locale->text('Mar')
62 # $locale->text('Apr')
63 # $locale->text('May')
64 # $locale->text('Jun')
65 # $locale->text('Jul')
66 # $locale->text('Aug')
67 # $locale->text('Sep')
68 # $locale->text('Oct')
69 # $locale->text('Nov')
70 # $locale->text('Dec')
72 # $form->parse_html_template('generic/util_hidden_variables');
74 #############################
77 $lxdebug->enter_sub();
79 my $myconfig = \%myconfig;
81 $form->{title} = $locale->text('UStVA');
82 $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 Nein=0
84 my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig ),
91 # Einlesen der Finanzamtdaten
92 USTVA->get_config($userspath, 'finanzamt.ini');
94 # Hier Einlesen der user-config
95 # steuernummer entfernt für prerelease
97 signature name company address businessnumber
98 tel fax email co_chief co_department
99 co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
100 co_name1 co_name2 co_street co_street1 co_zip
101 co_city co_city1 co_country co_tel co_tel1
102 co_tel2 co_fax co_fax1 co_email co_email1
103 co_url co_url1 ustid duns co_bankname
104 co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
105 co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2
109 map { $form->{$_} = $myconfig->{$_} } @a;
111 my $openings = $form->{FA_Oeffnungszeiten};
112 $openings =~ s/\\\\n/<br>/g;
114 my $company_given = ($form->{company} ne '')
115 ? qq|<h3>$form->{company}</h3>\n|
116 : qq|<a href=am.pl?path=$form->{path}&action=config|
117 . qq|&level=Programm--Preferences&login=$form->{login}|
118 . qq|&password=$form->{password}>|
119 . $locale->text('No Company Name given') . qq|!</a><br>|;
122 # Anpassungen der Variablennamen auf pre 2.1.1 Namen
123 # klären, ob $form->{company_street|_address} gesetzt sind
124 if ($form->{address} ne '') {
125 my $temp = $form->{address};
126 $temp =~ s/\\n/<br \/>/;
127 ($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
128 $form->{co_city} =~ s/\\n//g;
133 ($form->{co_street} ne ''
135 $form->{co_zip} ne ''
136 or $form->{co_city} ne ''
139 ? qq|$form->{co_street}<br>|
140 . qq|$form->{co_street1}<br>|
141 . qq|$form->{co_zip} $form->{co_city}|
142 : qq|<a href=am.pl?path=$form->{path}&action=config|
143 . qq|&level=Programm--Preferences&login=$form->{login}|
144 . qq|&password=$form->{password}>|
145 . $locale->text('No Company Address given')
148 $form->{co_email} = $form->{email} unless $form->{co_email};
149 $form->{co_tel} = $form->{tel} unless $form->{co_tel};
150 $form->{co_fax} = $form->{fax} unless $form->{co_fax};
151 $form->{co_url} = $form->{urlx} unless $form->{co_url};
153 my $taxnumber_given = ($form->{steuernummer} ne '')
154 ? qq|$form->{steuernummer}|
155 : qq|<a href="ustva.pl?path=$form->{path}&action="config_step1"|
156 . qq|&level=Programm--Finanzamteinstellungen&login=$form->{login}|
157 . qq|&password=$form->{password}">Keine Steuernummer hinterlegt!|
160 my $ustva_vorauswahl = &ustva_vorauswahl();
162 my @all_years = $form->all_years(\%myconfig);
164 my $select_year = qq|<select name=year title="|
165 . $locale->text('Year') . qq|">|;
166 foreach my $key (@all_years) {
167 $select_year .= qq|<option |;
168 $select_year .= qq|selected| if ($key eq $form->{year});
169 $select_year .= qq| >$key</option>|;
171 $select_year .= qq|</select>|;
174 $_checked = "checked" if ($form->{kz10} eq '1');
175 my $checkbox_kz_10 = qq|<input name="FA_10" id=FA_10 class=checkbox|
176 . qq| type=checkbox value="1" $_checked title = "|
177 . $locale->text('Amended Advance Turnover Tax Return (Nr. 10)')
179 . $locale->text('Amended Advance Turnover Tax Return');
181 my $method_local = ($form->{method} eq 'accrual') ? $locale->text('accrual')
182 : ($form->{method} eq 'cash') ? $locale->text('cash')
185 my $period_local = ( $form->{FA_voranmeld} eq 'month') ? $locale->text('month')
186 : ( $form->{FA_voranmeld} eq 'quarter') ? $locale->text('quarter')
189 my $tax_office_banks_ref = [
190 { BLZ => $form->{FA_BLZ_1},
191 Kontonummer => $form->{FA_Kontonummer_1},
192 Bankbezeichnung => $form->{FA_Bankbezeichnung_1}
194 { BLZ => $form->{FA_BLZ_2},
195 Kontonummer => $form->{FA_Kontonummer_2},
196 Bankbezeichnung => $form->{FA_Bankbezeichnung_oertlich}
202 openings => $openings,
203 company_given => $company_given,
204 address_given => $address_given,
205 taxnumber_given => $taxnumber_given,
206 select_year => $select_year,
207 period_local => $period_local,
208 method_local => $method_local,
209 ustva_vorauswahl => $ustva_vorauswahl,
210 checkbox_kz_10 => $checkbox_kz_10,
211 tax_office_banks => $tax_office_banks_ref,
212 select_options => &show_options,
215 print($form->parse_html_template('ustva/report', $template_ref));
219 $lxdebug->leave_sub();
225 $lxdebug->enter_sub();
227 # parse help documents under doc
228 my $tmp = $form->{templates};
229 $form->{templates} = 'doc';
230 $form->{help} = 'ustva';
231 $form->{type} = 'help';
232 $form->{format} = 'html';
235 #$form->{templates} = $tmp;
236 $lxdebug->leave_sub();
240 $lxdebug->enter_sub();
244 $lxdebug->leave_sub();
245 call_sub($form->{"nextsub"});
249 sub ustva_vorauswahl {
250 $lxdebug->enter_sub();
252 my $select_vorauswahl;
254 #Aktuelles Datum zerlegen:
255 my $date = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
257 #$locale->date($myconfig, $form->current_date($myconfig), 0)=~ /(\d\d).(\d\d).(\d\d\d\d)/;
258 $form->{day} = substr($date, 6, 2);
259 $form->{month} = substr($date, 4, 2);
260 $form->{year} = substr($date, 0, 4);
261 $lxdebug->message(LXDebug::DEBUG1, qq|
262 Actual date from Database: $date\n
263 Actual year from Database: $form->{year}\n
264 Actual day from Database: $form->{day}\n
265 Actual month from Database: $form->{month}\n|);
270 # Testdaten erzeugen:
272 #$form->{month}= '01';
273 #$form->{year}= 2004;
274 $select_vorauswahl = qq|
275 <input type=hidden name=day value=$form->{day}>
276 <input type=hidden name=month value=$form->{month}>
277 <input type=hidden name=yymmdd value=$yymmdd>
278 <input type=hidden name=sel value=$sel>
281 if ($form->{FA_voranmeld} eq 'month') {
283 # Vorauswahl bei monatlichem Voranmeldungszeitraum
285 my %liste = ('01' => $locale->text('January'),
286 '02' => $locale->text('February'),
287 '03' => $locale->text('March'),
288 '04' => $locale->text('April'),
289 '05' => $locale->text('May'),
290 '06' => $locale->text('June'),
291 '07' => $locale->text('July'),
292 '08' => $locale->text('August'),
293 '09' => $locale->text('September'),
294 '10' => $locale->text('October'),
295 '11' => $locale->text('November'),
296 '12' => $locale->text('December'),
297 '13' => $locale->text('Yearly'),
300 my $yy = $form->{year} * 10000;
301 $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
305 # Offset für Dauerfristverlängerung
306 $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
309 $yymmdd <= ($yy + 110 + $dfv) && do {
310 $form->{year} = $form->{year} - 1;
314 $yymmdd <= ($yy + 210 + $dfv) && do {
318 $yymmdd <= ($yy + 310 + $dfv) && do {
322 $yymmdd <= ($yy + 410 + $dfv) && do {
326 $yymmdd <= ($yy + 510 + $dfv) && do {
330 $yymmdd <= ($yy + 610 + $dfv) && do {
334 $yymmdd <= ($yy + 710 + $dfv) && do {
338 $yymmdd <= ($yy + 810 + $dfv) && do {
342 $yymmdd <= ($yy + 910 + $dfv) && do {
346 $yymmdd <= ($yy + 1010 + $dfv) && do {
350 $yymmdd <= ($yy + 1110 + $dfv) && do {
354 $yymmdd <= ($yy + 1210) && do {
358 $yymmdd <= ($yy + 1231) && do {
364 $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
365 . $locale->text('Select a period') . qq|" >|;
368 foreach $key (sort keys %liste) {
370 $selected = 'selected' if ($sel eq $key);
371 $select_vorauswahl .= qq|
372 <option value="$key" $selected> $liste{$key}</option>
375 $select_vorauswahl .= qq|</select>|;
377 } elsif ($form->{FA_voranmeld} eq 'quarter') {
379 # Vorauswahl bei quartalsweisem Voranmeldungszeitraum
380 my %liste = ('41' => $locale->text('1. Quarter'),
381 '42' => $locale->text('2. Quarter'),
382 '43' => $locale->text('3. Quarter'),
383 '44' => $locale->text('4. Quarter'),
384 '13' => $locale->text('Yearly'),);
386 my $yy = $form->{year} * 10000;
387 $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
389 my $dfv = ''; # Offset für Dauerfristverlängerung
390 $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
393 $yymmdd <= ($yy + 110 + $dfv) && do {
394 $form->{year} = $form->{year} - 1;
398 $yymmdd <= ($yy + 410 + $dfv) && do {
402 $yymmdd <= ($yy + 710 + $dfv) && do {
406 $yymmdd <= ($yy + 1010 + $dfv) && do {
410 $yymmdd <= ($yy + 1231) && do {
415 $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
416 . $locale->text('Select a period') . qq|" >|;
418 foreach $key (sort keys %liste) {
420 $selected = 'selected' if ($sel eq $key);
421 $select_vorauswahl .= qq|
422 <option value="$key" $selected>$liste{$key}</option>
425 $select_vorauswahl .= qq|\n</select>
430 # keine Vorauswahl bei Voranmeldungszeitraum
431 $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
432 . $locale->text('Select a period') . qq|" >|;
434 my %listea = ('41' => '1. Quarter',
435 '42' => '2. Quarter',
436 '43' => '3. Quarter',
437 '44' => '4. Quarter',);
439 my %listeb = ('01' => 'January',
453 foreach $key (sort keys %listea) {
454 $select_vorauswahl .= qq|
455 <option value="$key">|
456 . $locale->text("$listea{$key}")
460 foreach $key (sort keys %listeb) {
461 $select_vorauswahl .= qq|
462 <option value="$key">|
463 . $locale->text("$listeb{$key}")
466 $select_vorauswahl .= qq|</select>|;
468 $lxdebug->leave_sub();
470 return $select_vorauswahl;
474 # $lxdebug->enter_sub();
476 # $lxdebug->leave_sub();
480 $lxdebug->enter_sub();
482 $lxdebug->leave_sub();
486 $lxdebug->enter_sub();
488 # $form->{PD}{$form->{type}} = "selected";
489 # $form->{DF}{$form->{format}} = "selected";
490 # $form->{OP}{$form->{media}} = "selected";
491 # $form->{SM}{$form->{sendmode}} = "selected";
492 my $type = qq| <input type=hidden name="type" value="ustva">|;
493 my $media = qq| <input type=hidden name="media" value="screen">|;
495 qq| <option value=html selected>|
496 . $locale->text('Preview')
498 if ($latex_templates) {
500 qq| <option value=pdf>|
501 . $locale->text('UStVA (PDF-Dokument)')
505 #my $disabled= qq|disabled="disabled"|;
506 #$disabled='' if ($form->{elster} eq '1' );
507 if ($form->{elster} eq '1') {
509 qq|<option value=elsterwinston>|
510 . $locale->text('ELSTER Export (Winston)')
512 . qq|<option value=elstertaxbird>|
513 . $locale->text('ELSTER Export (Taxbird)')
517 #$format .= qq|<option value=elster>|.$locale->text('ELSTER Export nach Winston').qq|</option>|;
518 my $show_options = qq|
521 <select name=format title = "|
522 . $locale->text('Choose Outputformat') . qq|">$format</select>
524 $lxdebug->leave_sub();
526 return $show_options;
530 $lxdebug->enter_sub();
532 # Aufruf von get_config zum Einlesen der Finanzamtdaten aus finanzamt.ini
534 USTVA->get_config($userspath, 'finanzamt.ini');
536 # init some form vars
537 my @anmeldungszeitraum =
538 qw('0401' '0402' '0403'
542 '0441' '0442' '0443' '0444');
544 foreach my $item (@anmeldungszeitraum) {
548 #forgotten the year --> thisyear
549 if ($form->{year} !~ m/^\d\d\d\d$/) {
550 $form->{year} = substr(
552 $form->current_date(\%myconfig), \%myconfig
555 $lxdebug->message(LXDebug::DEBUG1,
556 qq|Actual year from Database: $form->{year}\n|);
560 # using dates in ISO-8601 format: yyyymmmdd for Postgres...
564 if ($form->{period} eq "13") {
565 $form->{fromdate} = "$form->{year}0101";
566 $form->{todate} = "$form->{year}1231";
570 if ($form->{period} eq "41") {
571 $form->{fromdate} = "$form->{year}0101";
572 $form->{todate} = "$form->{year}0331";
573 $form->{'0441'} = "X";
575 if ($form->{period} eq "42") {
576 $form->{fromdate} = "$form->{year}0401";
577 $form->{todate} = "$form->{year}0630";
578 $form->{'0442'} = "X";
580 if ($form->{period} eq "43") {
581 $form->{fromdate} = "$form->{year}0701";
582 $form->{todate} = "$form->{year}0930";
583 $form->{'0443'} = "X";
585 if ($form->{period} eq "44") {
586 $form->{fromdate} = "$form->{year}1001";
587 $form->{todate} = "$form->{year}1231";
588 $form->{'0444'} = "X";
593 $form->{period} eq "01" && do {
594 $form->{fromdate} = "$form->{year}0101";
595 $form->{todate} = "$form->{year}0131";
596 $form->{'0401'} = "X";
599 $form->{period} eq "02" && do {
600 $form->{fromdate} = "$form->{year}0201";
602 #this works from 1901 to 2099, 1900 and 2100 fail.
603 my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
604 $form->{todate} = "$form->{year}02$leap";
605 $form->{"0402"} = "X";
608 $form->{period} eq "03" && do {
609 $form->{fromdate} = "$form->{year}0301";
610 $form->{todate} = "$form->{year}0331";
611 $form->{"0403"} = "X";
614 $form->{period} eq "04" && do {
615 $form->{fromdate} = "$form->{year}0401";
616 $form->{todate} = "$form->{year}0430";
617 $form->{"0404"} = "X";
620 $form->{period} eq "05" && do {
621 $form->{fromdate} = "$form->{year}0501";
622 $form->{todate} = "$form->{year}0531";
623 $form->{"0405"} = "X";
626 $form->{period} eq "06" && do {
627 $form->{fromdate} = "$form->{year}0601";
628 $form->{todate} = "$form->{year}0630";
629 $form->{"0406"} = "X";
632 $form->{period} eq "07" && do {
633 $form->{fromdate} = "$form->{year}0701";
634 $form->{todate} = "$form->{year}0731";
635 $form->{"0407"} = "X";
638 $form->{period} eq "08" && do {
639 $form->{fromdate} = "$form->{year}0801";
640 $form->{todate} = "$form->{year}0831";
641 $form->{"0408"} = "X";
644 $form->{period} eq "09" && do {
645 $form->{fromdate} = "$form->{year}0901";
646 $form->{todate} = "$form->{year}0930";
647 $form->{"0409"} = "X";
650 $form->{period} eq "10" && do {
651 $form->{fromdate} = "$form->{year}1001";
652 $form->{todate} = "$form->{year}1031";
653 $form->{"0410"} = "X";
656 $form->{period} eq "11" && do {
657 $form->{fromdate} = "$form->{year}1101";
658 $form->{todate} = "$form->{year}1130";
659 $form->{"0411"} = "X";
662 $form->{period} eq "12" && do {
663 $form->{fromdate} = "$form->{year}1201";
664 $form->{todate} = "$form->{year}1231";
665 $form->{"0412"} = "X";
670 # Kontrollvariable für die Templates
671 $form->{'year2007'} = ($form->{year} >= 2007 ) ? "1":"0";
675 USTVA->ustva(\%myconfig, \%$form);
677 # reformat Dates to dateformat
678 $form->{fromdate} = $locale->date(\%myconfig, $form->{fromdate}, 0, 0, 0);
680 $form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};
681 $form->{todate} = $locale->date(\%myconfig, $form->{todate}, 0, 0, 0);
683 $form->{longperiod} =
684 $locale->date(\%myconfig, $form->current_date(\%myconfig), 1, 0, 0);
686 # if there are any dates construct a where
687 if ($form->{fromdate} || $form->{todate}) {
689 $form->{todate} = $form->current_date($myconfig) unless ($form->{todate});
691 my $longtodate = $locale->date($myconfig, $form->{todate}, 1, 0, 0);
692 my $shorttodate = $locale->date($myconfig, $form->{todate}, 0, 0, 0);
694 my $longfromdate = $locale->date($myconfig, $form->{fromdate}, 1, 0, 0);
695 my $shortfromdate = $locale->date($myconfig, $form->{fromdate}, 0, 0, 0);
697 $form->{this_period} = "$shortfromdate<br>\n$shorttodate";
698 $form->{longperiod} =
699 $locale->text('for Period')
700 . qq|<br>\n$longfromdate |
701 . $locale->text('to (date)')
705 if ($form->{comparefromdate} || $form->{comparetodate}) {
706 my $longcomparefromdate =
707 $locale->date(\%myconfig, $form->{comparefromdate}, 1, 0, 0);
708 my $shortcomparefromdate =
709 $locale->date(\%myconfig, $form->{comparefromdate}, 0, 0, 0);
711 my $longcomparetodate =
712 $locale->date(\%myconfig, $form->{comparetodate}, 1, 0, 0);
713 my $shortcomparetodate =
714 $locale->date(\%myconfig, $form->{comparetodate}, 0, 0, 0);
716 $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate";
717 $form->{longperiod} .=
718 "<br>\n$longcomparefromdate "
719 . $locale->text('to (date)')
720 . qq| $longcomparetodate|;
723 $form->{Datum_heute} =
724 $locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0);
726 # setup variables for the form
727 my @a = qw(company businessnumber tel fax email
728 co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
729 co_name1 co_name2 co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2
730 co_fax co_fax1 co_email co_email1 co_url co_url1 ustid duns
731 co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
732 co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3);
734 map { $form->{$_} = $myconfig{$_} } @a;
736 if ($form->{address} ne '') {
737 my $temp = $form->{address};
738 $temp =~ s/\\n/<br \/>/;
739 ($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
740 $form->{co_city} =~ s/\\n//g;
743 ################################
745 # Nation specific customisations
747 ################################
751 if ( $form->{coa} eq 'Germany-DATEV-SKR03EU' or $form->{coa} eq 'Germany-DATEV-SKR04EU') {
754 # Outputformat specific customisation's
757 my @category_cent = qw(
758 511 861 36 80 971 931 98 96 53 74
759 85 65 66 61 62 67 63 64 59 69
760 39 83 811 891 Z43 Z45 Z53 Z62 Z65 Z67
764 my @category_euro = qw(
765 41 44 49 43 48 51 86 35 77 76 91 89
766 97 93 95 94 42 60 45 52 73 84 81
770 $form->{amount} = [];
772 if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') {
774 $form->{IN} = "$form->{type}-$form->{year}.tex";
775 $form->{padding} = "~~";
776 $form->{bold} = "\textbf{";
777 $form->{endbold} = "}";
778 $form->{br} = '\\\\';
780 # Zahlenformatierung für Latex USTVA Formulare
782 foreach my $number (@category_euro) {
783 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '');
786 my ${decimal_comma} = ( $myconfig{numberformat} eq '1.000,00'
787 or $myconfig{numberformat} eq '1000,00' ) ? ',':'.';
789 foreach my $number (@category_cent) {
790 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '');
791 $form->{$number} =~ s/${decimal_comma}/~~/g;
794 } elsif ( $form->{format} eq 'html') { # Formatierungen für HTML Ausgabe
796 $form->{IN} = $form->{type} . '.html';
797 $form->{padding} = " ";
798 $form->{bold} = "<b>";
799 $form->{endbold} = "</b>";
800 $form->{br} = "<br>";
801 $form->{address} =~ s/\\n/\n/g;
803 foreach $number (@category_cent) {
804 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '0');
807 foreach $number (@category_euro) {
808 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '0');
811 } elsif ( $form->{format} eq 'elsterwinston' ) {
813 $form->{IN} = 'winston.xml';
816 # Build Winston filename
819 my $file = 'U'; # 1. char 'U' = USTVA
820 $file .= $form->{period};
821 #4. and 5. char = year modulo 100
822 $file .= sprintf("%02d", $form->{year} % 100);
823 #6. to 18. char = Elstersteuernummer
824 #Beispiel: Steuernummer in Bayern
825 #111/222/33334 ergibt für UStVA Jan 2004: U01049111022233334
826 $file .= $form->{elsterFFFF};
827 $file .= $form->{elstersteuernummer};
830 $form->{tmpfile} = "$userspath/$file";
832 $form->{attachment_filename} = "$file";
834 # Zahlenformatierung für Winston
836 my $temp_numberformat = $myconfig{numberformat};
838 # Numberformat must be '1000.00' for Winston
840 $myconfig{numberformat} = '1000.00';
842 foreach my $number (@category_cent) {
843 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
846 foreach my $number (@category_euro) {
847 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
849 # Re-set Numberformat
850 $myconfig{numberformat} = $temp_numberformat;
853 # push Kennziffern to <%foreach Array fo easyer
854 # output in xml format. Thx to Moritz.
855 my %winston_id_for = (
860 foreach my $kennziffer (@category_cent, @category_euro) {
862 next if ( $kennziffer =~ m/Z\d\d/);
863 next if ( $form->{$kennziffer} == 0 );
865 if (defined $winston_id_for{$kennziffer} ) {
866 push(@{ $form->{id}}, $winston_id_for{$kennziffer});
868 push(@{ $form->{id}}, "$kennziffer");
870 push(@{ $form->{amount}}, $form->{$kennziffer});
874 } elsif ( $form->{format} eq 'elstertaxbird' ) {
876 # Define serveral filenames
877 $form->{IN} = 'taxbird.txb';
879 $form->{attachment_filename} = "USTVA-" . $form->{period}
880 . sprintf("%02d", $form->{year} % 100) . ".txb";
882 $form->{tmpfile} = "$userspath/" . $form->{attachment_filename};
884 # TODO: set Output to UTF-8 or system Preference
885 #$form->{"iconv"} = Text::Iconv->new($myconfig{dbcharset}, "UTF-8");
886 #my $iconv = $self->{"iconv"};
887 #$iconv->convert($variable);
888 if ($form->{period} =~ /^[4]\d$/ ){
889 my %periods = ( # Lx => taxbird
896 foreach my $quarter ( keys %periods ) {
897 $form->{taxbird_period} = $periods{$quarter} if ( $form->{period} eq $quarter);
899 } elsif ($form->{period} =~ /^\d+$/ ) {
900 $form->{period} =~ s/^0//g;
901 my $period = $form->{period};
904 $form->{period} = $period;
907 USTVA::error( $locale->text('Wrong Period' ));
911 my %lands = ( # Lx => taxbird # TODO: besser als array...
912 'Baden Würtemberg' => '0',
915 'Brandenburg' => '3',
919 'Mecklenburg Vorpommern' => '7',
920 'Niedersachsen' => '8',
921 'Nordrhein Westfalen' => '9',
922 'Rheinland Pfalz' => '10',
925 'Sachsen Anhalt' => '13',
926 'Schleswig Holstein' => '14',
929 foreach my $land ( keys %lands ){
930 $form->{taxbird_land_nr} = $lands{$land} if ($form->{elsterland} eq $land );
933 $form->{co_zip} = $form->{co_city};
934 $form->{co_zip} =~ s/\D//g;
935 $form->{co_city} =~ s/\d//g;
936 $form->{co_city} =~ s/^\s//g;
938 ($form->{co_phone_prefix}, $form->{co_phone}) = split("-", $form->{tel});
939 $form->{co_phone_prefix} =~ s/\s//g;
940 $form->{co_phone} =~ s/\s//g;
942 $form->{taxbird_steuernummer} = $form->{steuernummer};
943 # $form->{taxbird_steuernummer} =~ s/\D//g;
944 $form->{taxbird_steuernummer} =~ s/\///; # ersten Querstrich ersetzen
946 # Numberformatting for Taxbird
947 my $temp_numberformat = $myconfig{numberformat};
948 # Numberformat must be '1000,00' for Taxbird ?!
949 $myconfig{numberformat} = '1000,00';
950 foreach my $number (@category_cent) {
951 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
954 foreach my $number (@category_euro) {
955 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
957 # Re-set Numberformat
958 $myconfig{numberformat} = $temp_numberformat;
960 # push Kennziffern to <%foreach Array fo easyer
961 # output in xml format. Thx to Moritz.
962 my %taxbird_id_for = (
964 '511' => 'Kz51-calc',
965 '861' => 'Kz86-calc',
966 '971' => 'Kz97-calc',
967 '931' => 'Kz93-calc',
968 '811' => 'Kz81-calc',
969 '891' => 'Kz89-calc',
970 'Z45' => 'uebertrag',
972 'Z62' => 'ust-minus-vost',
973 'Z65' => 'ust-sum+69',
978 for my $kennziffer (@category_cent, @category_euro) {
980 next if ($kennziffer eq 'Z43');
982 if ($form->{$kennziffer} != 0){
983 if (defined $taxbird_id_for{$kennziffer}) {
984 push(@{ $form->{id}}, $taxbird_id_for{$kennziffer});
986 push(@{ $form->{id}}, "Kz$kennziffer");
988 push(@{ $form->{amount}}, $form->{$kennziffer});
992 } elsif ( $form->{format} eq '' ){ # No format error.
994 USTVA::error( $locale->text('Application Error. No Format given' ) . "!");
997 } else { # All other Formats are wrong
999 USTVA::error( $locale->text('Application Error. Wrong Format') . ": " . $form->{format} );
1004 } elsif ($form->{coa} eq 'Austria') {
1007 # Outputformat specific customisation's
1010 my @category_euro = qw(
1011 511 861 36 80 971 931 98 96 53 74
1012 85 65 66 61 62 67 63 64 59 69
1013 39 83 811 891 Z43 Z45 Z53 Z62 Z65 Z67
1014 41 44 49 43 48 51 86 35 77 76 91 89
1015 97 93 95 94 42 60 45 52 73 84 81
1019 if ( $form->{format} eq 'html') { # Formatierungen für HTML Ausgabe
1021 $form->{IN} = $form->{type} . '.html';
1022 $form->{padding} = " ";
1023 $form->{bold} = "<b>";
1024 $form->{endbold} = "</b>";
1025 $form->{br} = "<br>";
1026 $form->{address} =~ s/\\n/\n/g;
1028 foreach $number (@category_euro) {
1029 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '0');
1035 # end nation specific customisations
1037 if ( $form->{period} eq '13' and $form->{format} ne 'html') {
1041 'Yearly taxreport not yet implemented')
1045 $form->{templates} = $myconfig{templates};
1046 $form->{templates} = "doc" if ( $form->{type} eq 'help' );
1048 $form->parse_template(\%myconfig, $userspath);
1050 $lxdebug->leave_sub();
1054 $lxdebug->enter_sub();
1056 # edit all taxauthority prefs
1059 USTVA->get_config($userspath, 'finanzamt.ini');
1061 my $land = $form->{elsterland};
1062 my $amt = $form->{elsterFFFF};
1065 if ($form->{cbscript} ne '' and $form->{cblogin} ne '') {
1066 $callback = qq|$form->{cbscript}|
1067 .qq|?action="config_step1"|
1068 .qq|&login="$form->{cblogin}"|
1069 .qq|&path="$form->{cbpath}"|
1070 .qq|&root="$form->{cbroot}"|
1071 .qq|&rpw="$form->{cbrpw}"|;
1074 $form->{title} = $locale->text('Tax Office Preferences');
1077 my $select_tax_office = USTVA->fa_auswahl($land, $amt, &elster_hash());
1078 my $checked_accrual = q|checked="checked"| if ($form->{method} eq 'accrual');
1079 my $checked_cash = q|checked="checked"| if ($form->{method} eq 'cash');
1080 my $checked_monthly = "checked" if ($form->{FA_voranmeld} eq 'month');
1081 my $checked_quarterly = "checked" if ($form->{FA_voranmeld} eq 'quarter');
1082 my $checked_dauerfristverlaengerung = "checked" if ($form->{FA_dauerfrist} eq '1');
1083 my $checked_kz_71 = "checked" if ($form->{FA_71} eq 'X');
1085 my $_hidden_variables_ref;
1087 my %_hidden_local_variables = (
1088 'saved' => $locale->text('Check Details'),
1089 'nextsub' => 'config_step2',
1093 foreach my $variable (keys %_hidden_local_variables) {
1094 push @{ $_hidden_variables_ref },
1095 { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
1098 my @_hidden_form_variables = qw(
1099 FA_Name FA_Strasse FA_PLZ
1100 FA_Ort FA_Telefon FA_Fax
1101 FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach
1102 FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1
1103 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich
1104 FA_Oeffnungszeiten FA_Email FA_Internet
1105 steuernummer elsterland elstersteuernummer
1106 elsterFFFF path login
1110 foreach my $variable (@_hidden_form_variables) {
1111 push @{ $_hidden_variables_ref},
1112 { 'variable' => $variable, 'value' => $form->{$variable} };
1116 my $steuernummer_new = '';
1118 # Variablen für das Template zur Verfügung stellen
1119 my $template_ref = {
1120 select_tax_office => $select_tax_office,
1121 checked_accrual => $checked_accrual,
1122 checked_cash => $checked_cash,
1123 checked_monthly => $checked_monthly,
1124 checked_quarterly => $checked_quarterly,
1125 checked_dauerfristverlaengerung => $checked_dauerfristverlaengerung,
1126 hidden_variables => $_hidden_variables_ref,
1130 # Ausgabe des Templates
1131 print($form->parse_html_template('ustva/config_step1', $template_ref));
1133 $lxdebug->leave_sub();
1137 $lxdebug->enter_sub();
1144 my $elsterland = '';
1145 my $elster_amt = '';
1146 my $elsterFFFF = '';
1147 my $elstersteuernummer = '';
1148 USTVA->get_config($userspath, 'finanzamt.ini')
1149 if ($form->{saved} eq $locale->text('saved'));
1151 # Auf Übergabefehler checken
1152 USTVA::info( $locale->text('Missing Tax Authoritys Preferences') . "\n"
1153 . $locale->text('USTVA-Hint: Tax Authoritys'))
1154 if ( $form->{elsterFFFF_new} eq 'Auswahl'
1155 || $form->{elsterland_new} eq 'Auswahl');
1156 USTVA::info( $locale->text('Missing Method!') . "\n"
1157 . $locale->text('USTVA-Hint: Method'))
1158 if ($form->{method} eq '');
1160 # Klären, ob Variablen bereits befüllt sind UND ob veräderungen auf
1161 # der vorherigen Maske stattfanden: $change = 1(in der edit sub,
1162 # mittels get_config)
1164 my $change = $form->{elsterland} eq $form->{elsterland_new}
1165 && $form->{elsterFFFF} eq $form->{elsterFFFF_new} ? '0' : '1';
1166 $change = '0' if ($form->{saved} eq $locale->text('saved'));
1167 my $elster_init = &elster_hash();
1169 my %elster_init = %$elster_init;
1171 if ($change eq '1') {
1174 $elsterland = $form->{elsterland_new};
1175 $elsterFFFF = $form->{elsterFFFF_new};
1176 $form->{elsterland} = $elsterland;
1177 $form->{elsterFFFF} = $elsterFFFF;
1178 $form->{steuernummer} = '';
1180 create_steuernummer();
1182 # rebuild elster_amt
1184 foreach $amt (keys %{ $elster_init{ $form->{elsterland} } }) {
1186 if ($elster_init{ $form->{elsterland}{$amt} eq $form->{elsterFFFF} });
1189 # load the predefined hash data into the FA_* Vars
1190 my @variables = qw(FA_Name FA_Strasse FA_PLZ FA_Ort
1191 FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach
1193 FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1
1194 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich
1195 FA_Oeffnungszeiten FA_Email FA_Internet);
1197 for (my $i = 0; $i <= 20; $i++) {
1198 $form->{ $variables[$i] } =
1199 $elster_init->{$elsterland}->{$elsterFFFF}->[$i];
1204 $elsterland = $form->{elsterland};
1205 $elsterFFFF = $form->{elsterFFFF};
1208 my $stnr = $form->{steuernummer};
1210 my $patterncount = $form->{patterncount};
1211 my $elster_pattern = $form->{elster_pattern};
1212 my $delimiter = $form->{delimiter};
1213 my $steuernummer = $form->{steuernummer} if ($steuernummer eq '');
1215 $form->{FA_Oeffnungszeiten} =~ s/\\\\n/\n/g;
1219 my $input_steuernummer = USTVA->steuernummer_input(
1220 $form->{elsterland},
1221 $form->{elsterFFFF},
1222 $form->{steuernummer}
1225 $lxdebug->message(LXDebug::DEBUG1, qq|$input_steuernummer|);
1228 my $_hidden_variables_ref;
1230 my %_hidden_local_variables = (
1231 'elsterland' => $elsterland,
1232 'elsterFFFF' => $elsterFFFF,
1233 'warnung' => $warnung,
1234 'elstersteuernummer' => $elstersteuernummer,
1235 'steuernummer' => $stnr,
1236 'lastsub' => 'config_step1',
1237 'nextsub' => 'save',
1241 foreach my $variable (keys %_hidden_local_variables) {
1242 push @{ $_hidden_variables_ref },
1243 { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
1246 my @_hidden_form_variables = qw(
1247 FA_steuerberater_name FA_steuerberater_street
1248 FA_steuerberater_city FA_steuerberater_tel
1259 foreach my $variable (@_hidden_form_variables) {
1260 push @{ $_hidden_variables_ref},
1261 { 'variable' => $variable, 'value' => $form->{$variable} };
1264 my $template_ref = {
1265 tax_office_data => $tax_office_data,
1266 input_steuernummer => $input_steuernummer,
1267 readonly => '', #q|disabled="disabled"|,
1268 callback => $callback,
1269 hidden_variables => $_hidden_variables_ref,
1272 # Ausgabe des Templates
1273 print($form->parse_html_template('ustva/config_step2', $template_ref));
1276 $lxdebug->leave_sub();
1279 sub create_steuernummer {
1280 $lxdebug->enter_sub();
1281 my $part = $form->{part};
1282 my $patterncount = $form->{patterncount};
1283 my $delimiter = $form->{delimiter};
1284 my $elster_pattern = $form->{elster_pattern};
1286 # rebuild steuernummer and elstersteuernummer
1287 # es gibt eine gespeicherte steuernummer $form->{steuernummer}
1288 # und die parts und delimiter
1293 my $steuernummer_new = $part;
1294 my $elstersteuernummer_new = $form->{elster_FFFF};
1295 $elstersteuernummer_new .= '0';
1297 for ($h = 1; $h < $patterncount; $h++) {
1298 $steuernummer_new .= qq|$delimiter|;
1299 for (my $i = 1; $i <= length($elster_pattern); $i++) {
1300 $steuernummer_new .= $form->{"part_$h\_$i"};
1301 $elstersteuernummer_new .= $form->{"part_$h\_$i"};
1304 if ($form->{steuernummer} ne $steuernummer_new) {
1305 $form->{steuernummer} = $steuernummer_new;
1306 $form->{elstersteuernummer} = $elstersteuernummer_new;
1307 $form->{steuernummer_new} = $steuernummer_new;
1309 $form->{steuernummer_new} = '';
1310 $form->{elstersteuernummer_new} = '';
1312 $lxdebug->leave_sub();
1316 $lxdebug->enter_sub();
1317 my $filename = "$form->{login}_$form->{filename}";
1319 #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen
1320 create_steuernummer();
1322 # Textboxen formatieren: Linebreaks entfernen
1324 $form->{FA_Oeffnungszeiten} =~ s/\r\n/\\n/g;
1326 #URL mit http:// davor?
1327 $form->{FA_Internet} =~ s/^http:\/\///;
1328 $form->{FA_Internet} = 'http://' . $form->{FA_Internet};
1331 elster elsterland elstersteuernummer steuernummer
1332 elsteramt elsterFFFF FA_Name FA_Strasse
1333 FA_PLZ FA_Ort FA_Telefon FA_Fax
1334 FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach FA_BLZ_1
1335 FA_Kontonummer_1 FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2
1336 FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten
1337 FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name
1338 FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
1339 FA_71 FA_dauerfrist);
1341 # Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer
1342 if ($form->{elstersteuernummer} ne '000000000') {
1343 $form->{elster} = '1';
1344 open(CONF, ">$userspath/$filename") or $form->error("$filename : $!");
1346 # create the config file
1347 print CONF qq|# Configuration file for USTVA\n\n|;
1349 foreach $key (sort @config) {
1350 $form->{$key} =~ s/\\/\\\\/g;
1352 $form->{$key} =~ s/\r\n/\n/g;
1354 print CONF qq|$key=|;
1355 if ($form->{$key} ne 'Y') {
1356 print CONF qq|$form->{$key}\n|;
1358 if ($form->{$key} eq 'Y') {
1359 print CONF qq|checked \n|;
1362 print CONF qq|\n\n|;
1364 $form->{saved} = $locale->text('saved');
1368 $form->{saved} = $locale->text('Choose a Tax Number');
1372 $lxdebug->leave_sub();
1377 $lxdebug->enter_sub();
1379 # allow Symbolic references just here:
1381 call_sub($form->{"nextsub"});
1383 $lxdebug->leave_sub();
1387 $lxdebug->enter_sub();
1388 call_sub($form->{"lastsub"});
1389 $lxdebug->leave_sub();
1393 $lxdebug->enter_sub();
1394 my $finanzamt = USTVA->query_finanzamt(\%myconfig, \%$form);
1395 $lxdebug->leave_sub();