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";
32 #use warnings; # FATAL=> 'all';
33 #use vars qw($locale $form %myconfig);
35 #use CGI::Carp "fatalsToBrowser";
43 # this is for our long dates
44 # $locale->text('January')
45 # $locale->text('February')
46 # $locale->text('March')
47 # $locale->text('April')
48 # $locale->text('May ')
49 # $locale->text('June')
50 # $locale->text('July')
51 # $locale->text('August')
52 # $locale->text('September')
53 # $locale->text('October')
54 # $locale->text('November')
55 # $locale->text('December')
57 # this is for our short month
58 # $locale->text('Jan')
59 # $locale->text('Feb')
60 # $locale->text('Mar')
61 # $locale->text('Apr')
62 # $locale->text('May')
63 # $locale->text('Jun')
64 # $locale->text('Jul')
65 # $locale->text('Aug')
66 # $locale->text('Sep')
67 # $locale->text('Oct')
68 # $locale->text('Nov')
69 # $locale->text('Dec')
71 # $form->parse_html_template('generic/util_hidden_variables');
73 #############################
76 $lxdebug->enter_sub();
78 my $myconfig = \%myconfig;
80 $form->{title} = $locale->text('UStVA');
81 $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 Nein=0
83 my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig ),
90 # Einlesen der Finanzamtdaten
91 &get_config($userspath, 'finanzamt.ini');
93 # Hier Einlesen der user-config
94 # steuernummer entfernt für prerelease
96 signature name company address businessnumber
97 tel fax email co_chief co_department
98 co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
99 co_name1 co_name2 co_street co_street1 co_zip
100 co_city co_city1 co_country co_tel co_tel1
101 co_tel2 co_fax co_fax1 co_email co_email1
102 co_url co_url1 ustid duns co_bankname
103 co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
104 co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2
108 map { $form->{$_} = $myconfig->{$_} } @a;
110 my $openings = $form->{FA_Oeffnungszeiten};
111 $openings =~ s/\\\\n/<br>/g;
113 my $company_given = ($form->{company} ne '')
114 ? qq|<h3>$form->{company}</h3>\n|
115 : qq|<a href=am.pl?path=$form->{path}&action=config|
116 . qq|&level=Programm--Preferences&login=$form->{login}|
117 . qq|&password=$form->{password}>|
118 . $locale->text('No Company Name given') . qq|!</a><br>|;
121 # Anpassungen der Variablennamen auf pre 2.1.1 Namen
122 # klären, ob $form->{company_street|_address} gesetzt sind
123 if ($form->{address} ne '') {
124 my $temp = $form->{address};
125 $temp =~ s/\\n/<br \/>/;
126 ($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
127 $form->{co_city} =~ s/\\n//g;
132 ($form->{co_street} ne ''
134 $form->{co_zip} ne ''
135 or $form->{co_city} ne ''
138 ? qq|$form->{co_street}<br>|
139 . qq|$form->{co_street1}<br>|
140 . qq|$form->{co_zip} $form->{co_city}|
141 : qq|<a href=am.pl?path=$form->{path}&action=config|
142 . qq|&level=Programm--Preferences&login=$form->{login}|
143 . qq|&password=$form->{password}>|
144 . $locale->text('No Company Address given')
147 $form->{co_email} = $form->{email} unless $form->{co_email};
148 $form->{co_tel} = $form->{tel} unless $form->{co_tel};
149 $form->{co_fax} = $form->{fax} unless $form->{co_fax};
150 $form->{co_url} = $form->{urlx} unless $form->{co_url};
152 my $taxnumber_given = ($form->{steuernummer} ne '')
153 ? qq|$form->{steuernummer}|
154 : qq|<a href="ustva.pl?path=$form->{path}&action="config_step1"|
155 . qq|&level=Programm--Finanzamteinstellungen&login=$form->{login}|
156 . qq|&password=$form->{password}">Keine Steuernummer hinterlegt!|
159 my $ustva_vorauswahl = &ustva_vorauswahl();
161 my @all_years = $form->all_years(\%myconfig);
163 my $select_year = qq|<select name=year title="|
164 . $locale->text('Year') . qq|">|;
165 foreach my $key (@all_years) {
166 $select_year .= qq|<option |;
167 $select_year .= qq|selected| if ($key eq $form->{year});
168 $select_year .= qq| >$key</option>|;
170 $select_year .= qq|</select>|;
173 $_checked = "checked" if ($form->{kz10} eq '1');
174 my $checkbox_kz_10 = qq|<input name="FA_10" id=FA_10 class=checkbox|
175 . qq| type=checkbox value="1" $_checked title = "|
176 . $locale->text('Amended Advance Turnover Tax Return (Nr. 10)')
178 . $locale->text('Amended Advance Turnover Tax Return');
180 my $method_local = ($form->{method} eq 'accrual') ? $locale->text('accrual')
181 : ($form->{method} eq 'cash') ? $locale->text('cash')
184 my $period_local = ( $form->{FA_voranmeld} eq 'month') ? $locale->text('month')
185 : ( $form->{FA_voranmeld} eq 'quarter') ? $locale->text('quarter')
188 my $tax_office_banks_ref = [
189 { BLZ => $form->{FA_BLZ_1},
190 Kontonummer => $form->{FA_Kontonummer_1},
191 Bankbezeichnung => $form->{FA_Bankbezeichnung_1}
193 { BLZ => $form->{FA_BLZ_2},
194 Kontonummer => $form->{FA_Kontonummer_2},
195 Bankbezeichnung => $form->{FA_Bankbezeichnung_oertlich}
201 openings => $openings,
202 company_given => $company_given,
203 address_given => $address_given,
204 taxnumber_given => $taxnumber_given,
205 select_year => $select_year,
206 period_local => $period_local,
207 method_local => $method_local,
208 ustva_vorauswahl => $ustva_vorauswahl,
209 checkbox_kz_10 => $checkbox_kz_10,
210 tax_office_banks => $tax_office_banks_ref,
211 select_options => &show_options,
214 print($form->parse_html_template('ustva/report', $template_ref));
218 $lxdebug->leave_sub();
224 $lxdebug->enter_sub();
226 # parse help documents under doc
227 my $tmp = $form->{templates};
228 $form->{templates} = 'doc';
229 $form->{help} = 'ustva';
230 $form->{type} = 'help';
231 $form->{format} = 'html';
234 #$form->{templates} = $tmp;
235 $lxdebug->leave_sub();
239 $lxdebug->enter_sub();
243 $lxdebug->leave_sub();
244 &{ $form->{nextsub} };
248 sub ustva_vorauswahl {
249 $lxdebug->enter_sub();
251 my $select_vorauswahl;
253 #Aktuelles Datum zerlegen:
254 my $date = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
256 #$locale->date($myconfig, $form->current_date($myconfig), 0)=~ /(\d\d).(\d\d).(\d\d\d\d)/;
257 $form->{day} = substr($date, 6, 2);
258 $form->{month} = substr($date, 4, 2);
259 $form->{year} = substr($date, 0, 4);
260 $lxdebug->message(LXDebug::DEBUG1, qq|
261 Actual date from Database: $date\n
262 Actual year from Database: $form->{year}\n
263 Actual day from Database: $form->{day}\n
264 Actual month from Database: $form->{month}\n|);
269 # Testdaten erzeugen:
271 #$form->{month}= '01';
272 #$form->{year}= 2004;
273 $select_vorauswahl = qq|
274 <input type=hidden name=day value=$form->{day}>
275 <input type=hidden name=month value=$form->{month}>
276 <input type=hidden name=yymmdd value=$yymmdd>
277 <input type=hidden name=sel value=$sel>
280 if ($form->{FA_voranmeld} eq 'month') {
282 # Vorauswahl bei monatlichem Voranmeldungszeitraum
284 my %liste = ('01' => $locale->text('January'),
285 '02' => $locale->text('February'),
286 '03' => $locale->text('March'),
287 '04' => $locale->text('April'),
288 '05' => $locale->text('May'),
289 '06' => $locale->text('June'),
290 '07' => $locale->text('July'),
291 '08' => $locale->text('August'),
292 '09' => $locale->text('September'),
293 '10' => $locale->text('October'),
294 '11' => $locale->text('November'),
295 '12' => $locale->text('December'),
296 '13' => $locale->text('Yearly'),
299 my $yy = $form->{year} * 10000;
300 $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
304 # Offset für Dauerfristverlängerung
305 $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
308 $yymmdd <= ($yy + 110 + $dfv) && do {
309 $form->{year} = $form->{year} - 1;
313 $yymmdd <= ($yy + 210 + $dfv) && do {
317 $yymmdd <= ($yy + 310 + $dfv) && do {
321 $yymmdd <= ($yy + 410 + $dfv) && do {
325 $yymmdd <= ($yy + 510 + $dfv) && do {
329 $yymmdd <= ($yy + 610 + $dfv) && do {
333 $yymmdd <= ($yy + 710 + $dfv) && do {
337 $yymmdd <= ($yy + 810 + $dfv) && do {
341 $yymmdd <= ($yy + 910 + $dfv) && do {
345 $yymmdd <= ($yy + 1010 + $dfv) && do {
349 $yymmdd <= ($yy + 1110 + $dfv) && do {
353 $yymmdd <= ($yy + 1210) && do {
357 $yymmdd <= ($yy + 1231) && do {
363 $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
364 . $locale->text('Select a period') . qq|" >|;
367 foreach $key (sort keys %liste) {
369 $selected = 'selected' if ($sel eq $key);
370 $select_vorauswahl .= qq|
371 <option value="$key" $selected> $liste{$key}</option>
374 $select_vorauswahl .= qq|</select>|;
376 } elsif ($form->{FA_voranmeld} eq 'quarter') {
378 # Vorauswahl bei quartalsweisem Voranmeldungszeitraum
379 my %liste = ('41' => $locale->text('1. Quarter'),
380 '42' => $locale->text('2. Quarter'),
381 '43' => $locale->text('3. Quarter'),
382 '44' => $locale->text('4. Quarter'),
383 '13' => $locale->text('Yearly'),);
385 my $yy = $form->{year} * 10000;
386 $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
388 my $dfv = ''; # Offset für Dauerfristverlängerung
389 $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
392 $yymmdd <= ($yy + 110 + $dfv) && do {
393 $form->{year} = $form->{year} - 1;
397 $yymmdd <= ($yy + 410 + $dfv) && do {
401 $yymmdd <= ($yy + 710 + $dfv) && do {
405 $yymmdd <= ($yy + 1010 + $dfv) && do {
409 $yymmdd <= ($yy + 1231) && do {
414 $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
415 . $locale->text('Select a period') . qq|" >|;
417 foreach $key (sort keys %liste) {
419 $selected = 'selected' if ($sel eq $key);
420 $select_vorauswahl .= qq|
421 <option value="$key" $selected>$liste{$key}</option>
424 $select_vorauswahl .= qq|\n</select>
429 # keine Vorauswahl bei Voranmeldungszeitraum
430 $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
431 . $locale->text('Select a period') . qq|" >|;
433 my %listea = ('41' => '1. Quarter',
434 '42' => '2. Quarter',
435 '43' => '3. Quarter',
436 '44' => '4. Quarter',);
438 my %listeb = ('01' => 'January',
452 foreach $key (sort keys %listea) {
453 $select_vorauswahl .= qq|
454 <option value="$key">|
455 . $locale->text("$listea{$key}")
459 foreach $key (sort keys %listeb) {
460 $select_vorauswahl .= qq|
461 <option value="$key">|
462 . $locale->text("$listeb{$key}")
465 $select_vorauswahl .= qq|</select>|;
467 $lxdebug->leave_sub();
469 return $select_vorauswahl;
473 # $lxdebug->enter_sub();
475 # $lxdebug->leave_sub();
479 $lxdebug->enter_sub();
481 $lxdebug->leave_sub();
485 $lxdebug->enter_sub();
487 # $form->{PD}{$form->{type}} = "selected";
488 # $form->{DF}{$form->{format}} = "selected";
489 # $form->{OP}{$form->{media}} = "selected";
490 # $form->{SM}{$form->{sendmode}} = "selected";
491 my $type = qq| <input type=hidden name="type" value="ustva">|;
492 my $media = qq| <input type=hidden name="media" value="screen">|;
494 qq| <option value=html selected>|
495 . $locale->text('Preview')
497 if ($latex_templates) {
499 qq| <option value=pdf>|
500 . $locale->text('UStVA (PDF-Dokument)')
504 #my $disabled= qq|disabled="disabled"|;
505 #$disabled='' if ($form->{elster} eq '1' );
506 if ($form->{elster} eq '1') {
508 qq|<option value=elsterwinston>|
509 . $locale->text('ELSTER Export (Winston)')
511 . qq|<option value=elstertaxbird>|
512 . $locale->text('ELSTER Export (Taxbird)')
516 #$format .= qq|<option value=elster>|.$locale->text('ELSTER Export nach Winston').qq|</option>|;
517 my $show_options = qq|
520 <select name=format title = "|
521 . $locale->text('Choose Outputformat') . qq|">$format</select>
523 $lxdebug->leave_sub();
525 return $show_options;
529 $lxdebug->enter_sub();
531 # Aufruf von get_config aus bin/mozilla/ustva.pl zum
532 # Einlesen der Finanzamtdaten aus finanzamt.ini
534 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;
744 # Outputformat specific customisation's
747 my @category_cent = qw(
748 511 861 36 80 971 931 98 96 53 74
749 85 65 66 61 62 67 63 64 59 69
750 39 83 811 891 Z43 Z45 Z53 Z62 Z65 Z67
754 my @category_euro = qw(
755 41 44 49 43 48 51 86 35 77 76 91 89
756 97 93 95 94 42 60 45 52 73 84 81
759 if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') {
761 $form->{IN} = "$form->{type}-$form->{year}.tex";
762 $form->{padding} = "~~";
763 $form->{bold} = "\textbf{";
764 $form->{endbold} = "}";
765 $form->{br} = '\\\\';
767 # Zahlenformatierung für Latex USTVA Formulare
769 foreach my $number (@category_euro) {
770 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '');
773 my ${decimal_comma} = ( $myconfig{numberformat} eq '1.000,00'
774 or $myconfig{numberformat} eq '1000,00' ) ? ',':'.';
776 foreach my $number (@category_cent) {
777 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '');
778 $form->{$number} =~ s/${decimal_comma}/~~/g;
781 } elsif ( $form->{format} eq 'html') { # Formatierungen für HTML Ausgabe
783 $form->{IN} = $form->{type} . '.html';
784 $form->{padding} = " ";
785 $form->{bold} = "<b>";
786 $form->{endbold} = "</b>";
787 $form->{br} = "<br>";
788 $form->{address} =~ s/\\n/\n/g;
790 foreach $number (@category_cent) {
791 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '0');
794 foreach $number (@category_euro) {
795 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '0');
798 } elsif ( $form->{format} eq 'elsterwinston' ) {
800 $form->{IN} = 'winston.xml';
803 # Build Winston filename
806 my $file = 'U'; # 1. char 'U' = USTVA
807 $file .= $form->{period};
808 #4. and 5. char = year modulo 100
809 $file .= sprintf("%02d", $form->{year} % 100);
810 #6. to 18. char = Elstersteuernummer
811 #Beispiel: Steuernummer in Bayern
812 #111/222/33334 ergibt für UStVA Jan 2004: U01049111022233334
813 $file .= $form->{elsterFFFF};
814 $file .= $form->{elstersteuernummer};
817 $form->{tmpfile} = "$userspath/$file";
819 $form->{attachment_filename} = "$file";
821 # Zahlenformatierung für Winston
823 my $temp_numberformat = $myconfig{numberformat};
825 # Numberformat must be '1000.00' for Winston
827 $myconfig{numberformat} = '1000.00';
829 foreach my $number (@category_cent) {
830 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
833 foreach my $number (@category_euro) {
834 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
836 # Re-set Numberformat
837 $myconfig{numberformat} = $temp_numberformat;
841 elsif ( $form->{format} eq 'elstertaxbird' ) {
843 # Define serveral filenames
844 $form->{IN} = 'taxbird.txb';
846 $form->{attachment_filename} = "USTVA-" . $form->{period}
847 . sprintf("%02d", $form->{year} % 100) . ".txb";
849 $form->{tmpfile} = "$userspath/" . $form->{attachment_filename};
851 # TODO: set Output to UTF-8 or system Preference
852 #$form->{"iconv"} = Text::Iconv->new($myconfig{dbcharset}, "UTF-8");
853 #my $iconv = $self->{"iconv"};
854 #$iconv->convert($variable);
855 if ($form->{period} =~ /^[4]\d$/ ){
856 my %periods = ( # Lx => taxbird
863 foreach my $quarter ( keys %periods ) {
864 $form->{taxbird_period} = $periods{$quarter} if ( $form->{period} eq $quarter);
866 } elsif ($form->{period} =~ /^\d+$/ ) {
867 $form->{period} =~ s/^0//g;
868 my $period = $form->{period};
871 $form->{period} = $period;
874 USTVA::error( $locale->text('Wrong Period' ));
878 my %lands = ( # Lx => taxbird # TODO: besser als array...
879 'Baden Würtemberg' => '0',
882 'Brandenburg' => '3',
886 'Mecklenburg Vorpommern' => '7',
887 'Niedersachsen' => '8',
888 'Nordrhein Westfalen' => '9',
889 'Rheinland Pfalz' => '10',
892 'Sachsen Anhalt' => '13',
893 'Schleswig Holstein' => '14',
896 foreach my $land ( keys %lands ){
897 $form->{taxbird_land_nr} = $lands{$land} if ($form->{elsterland} eq $land );
900 $form->{co_zip} = $form->{co_city};
901 $form->{co_zip} =~ s/\D//g;
902 $form->{co_city} =~ s/\d//g;
903 $form->{co_city} =~ s/^\s//g;
905 ($form->{co_phone_prefix}, $form->{co_phone}) = split("-", $form->{tel});
906 $form->{co_phone_prefix} =~ s/\s//g;
907 $form->{co_phone} =~ s/\s//g;
909 $form->{taxbird_steuernummer} = $form->{steuernummer};
910 # $form->{taxbird_steuernummer} =~ s/\D//g;
911 $form->{taxbird_steuernummer} =~ s/\///; # ersten Querstrich ersetzen
913 # Numberformatting for Taxbird
914 my $temp_numberformat = $myconfig{numberformat};
915 # Numberformat must be '1000,00' for Taxbird ?!
916 $myconfig{numberformat} = '1000,00';
917 foreach my $number (@category_cent) {
918 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
921 foreach my $number (@category_euro) {
922 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
924 # Re-set Numberformat
925 $myconfig{numberformat} = $temp_numberformat;
927 # push Kennziffern to <%foreach Array fo easyer
928 # output in xml format. Thx to Moritz.
929 my %taxbird_id_for = (
931 '511' => 'Kz51-calc',
932 '861' => 'Kz86-calc',
933 '971' => 'Kz97-calc',
934 '931' => 'Kz93-calc',
935 '811' => 'Kz81-calc',
936 '891' => 'Kz89-calc',
937 'Z45' => 'uebertrag',
939 'Z62' => 'ust-minus-vost',
940 'Z65' => 'ust-sum+69',
945 for my $kennziffer (@category_cent, @category_euro) {
947 next if ($kennziffer eq 'Z43');
949 if ($form->{$kennziffer} != 0){
950 if (defined $taxbird_id_for{$kennziffer}) {
951 push(@{ $form->{id}}, $taxbird_id_for{$kennziffer});
953 push(@{ $form->{id}}, "Kz$kennziffer");
955 push(@{ $form->{amount}}, $form->{$kennziffer});
959 } elsif ( $form->{format} eq '' ){ # No format error.
961 USTVA::error( $locale->text('Application Error. No Format given' ) . "!");
964 } else { # All other Formats are wrong
966 USTVA::error( $locale->text('Application Error. Wrong Format') . ": " . $form->{format} );
971 if ( $form->{period} eq '13' and $form->{format} ne 'html') {
975 'Yearly taxreport not yet implemented')
979 $form->{templates} = $myconfig{templates};
980 $form->{templates} = "doc" if ( $form->{type} eq 'help' );
982 $form->parse_template(\%myconfig, $userspath);
984 $lxdebug->leave_sub();
988 $lxdebug->enter_sub();
990 # edit all taxauthority prefs
993 &get_config($userspath, 'finanzamt.ini');
995 my $land = $form->{elsterland};
996 my $amt = $form->{elsterFFFF};
999 if ($form->{cbscript} ne '' and $form->{cblogin} ne '') {
1000 $callback = qq|$form->{cbscript}|
1001 .qq|?action="config_step1"|
1002 .qq|&login="$form->{cblogin}"|
1003 .qq|&path="$form->{cbpath}"|
1004 .qq|&root="$form->{cbroot}"|
1005 .qq|&rpw="$form->{cbrpw}"|;
1008 $form->{title} = $locale->text('Tax Office Preferences');
1011 my $select_tax_office = USTVA->fa_auswahl($land, $amt, &elster_hash());
1012 my $checked_accrual = q|checked="checked"| if ($form->{method} eq 'accrual');
1013 my $checked_cash = q|checked="checked"| if ($form->{method} eq 'cash');
1014 my $checked_monthly = "checked" if ($form->{FA_voranmeld} eq 'month');
1015 my $checked_quarterly = "checked" if ($form->{FA_voranmeld} eq 'quarter');
1016 my $checked_dauerfristverlaengerung = "checked" if ($form->{FA_dauerfrist} eq '1');
1017 my $checked_kz_71 = "checked" if ($form->{FA_71} eq 'X');
1019 my $_hidden_variables_ref;
1021 my %_hidden_local_variables = (
1022 'saved' => $locale->text('Check Details'),
1023 'nextsub' => 'config_step2',
1027 foreach my $variable (keys %_hidden_local_variables) {
1028 push @{ $_hidden_variables_ref },
1029 { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
1032 my @_hidden_form_variables = qw(
1033 FA_Name FA_Strasse FA_PLZ
1034 FA_Ort FA_Telefon FA_Fax
1035 FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach
1036 FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1
1037 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich
1038 FA_Oeffnungszeiten FA_Email FA_Internet
1039 steuernummer elsterland elstersteuernummer
1040 elsterFFFF path login
1044 foreach my $variable (@_hidden_form_variables) {
1045 push @{ $_hidden_variables_ref},
1046 { 'variable' => $variable, 'value' => $form->{$variable} };
1050 my $steuernummer_new = '';
1052 # Variablen für das Template zur Verfügung stellen
1053 my $template_ref = {
1054 select_tax_office => $select_tax_office,
1055 checked_accrual => $checked_accrual,
1056 checked_cash => $checked_cash,
1057 checked_monthly => $checked_monthly,
1058 checked_quarterly => $checked_quarterly,
1059 checked_dauerfristverlaengerung => $checked_dauerfristverlaengerung,
1060 hidden_variables => $_hidden_variables_ref,
1064 # Ausgabe des Templates
1065 print($form->parse_html_template('ustva/config_step1', $template_ref));
1067 $lxdebug->leave_sub();
1071 $lxdebug->enter_sub();
1078 my $elsterland = '';
1079 my $elster_amt = '';
1080 my $elsterFFFF = '';
1081 my $elstersteuernummer = '';
1082 &get_config($userspath, 'finanzamt.ini')
1083 if ($form->{saved} eq $locale->text('saved'));
1085 # Auf Übergabefehler checken
1086 USTVA::info( $locale->text('Missing Tax Authoritys Preferences') . "\n"
1087 . $locale->text('USTVA-Hint: Tax Authoritys'))
1088 if ( $form->{elsterFFFF_new} eq 'Auswahl'
1089 || $form->{elsterland_new} eq 'Auswahl');
1090 USTVA::info( $locale->text('Missing Method!') . "\n"
1091 . $locale->text('USTVA-Hint: Method'))
1092 if ($form->{method} eq '');
1094 # Klären, ob Variablen bereits befüllt sind UND ob veräderungen auf
1095 # der vorherigen Maske stattfanden: $change = 1(in der edit sub,
1096 # mittels get_config)
1098 my $change = $form->{elsterland} eq $form->{elsterland_new}
1099 && $form->{elsterFFFF} eq $form->{elsterFFFF_new} ? '0' : '1';
1100 $change = '0' if ($form->{saved} eq $locale->text('saved'));
1101 my $elster_init = &elster_hash();
1103 my %elster_init = %$elster_init;
1105 if ($change eq '1') {
1108 $elsterland = $form->{elsterland_new};
1109 $elsterFFFF = $form->{elsterFFFF_new};
1110 $form->{elsterland} = $elsterland;
1111 $form->{elsterFFFF} = $elsterFFFF;
1112 $form->{steuernummer} = '';
1114 create_steuernummer();
1116 # rebuild elster_amt
1118 foreach $amt (keys %{ $elster_init{ $form->{elsterland} } }) {
1120 if ($elster_init{ $form->{elsterland}{$amt} eq $form->{elsterFFFF} });
1123 # load the predefined hash data into the FA_* Vars
1124 my @variables = qw(FA_Name FA_Strasse FA_PLZ FA_Ort
1125 FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach
1127 FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1
1128 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich
1129 FA_Oeffnungszeiten FA_Email FA_Internet);
1131 for (my $i = 0; $i <= 20; $i++) {
1132 $form->{ $variables[$i] } =
1133 $elster_init->{$elsterland}->{$elsterFFFF}->[$i];
1138 $elsterland = $form->{elsterland};
1139 $elsterFFFF = $form->{elsterFFFF};
1142 my $stnr = $form->{steuernummer};
1144 my $patterncount = $form->{patterncount};
1145 my $elster_pattern = $form->{elster_pattern};
1146 my $delimiter = $form->{delimiter};
1147 my $steuernummer = $form->{steuernummer} if ($steuernummer eq '');
1149 $form->{FA_Oeffnungszeiten} =~ s/\\\\n/\n/g;
1153 my $input_steuernummer = USTVA->steuernummer_input(
1154 $form->{elsterland},
1155 $form->{elsterFFFF},
1156 $form->{steuernummer}
1159 $lxdebug->message(LXDebug::DEBUG1, qq|$input_steuernummer|);
1162 my $_hidden_variables_ref;
1164 my %_hidden_local_variables = (
1165 'elsterland' => $elsterland,
1166 'elsterFFFF' => $elsterFFFF,
1167 'warnung' => $warnung,
1168 'elstersteuernummer' => $elstersteuernummer,
1169 'steuernummer' => $stnr,
1170 'lastsub' => 'config_step1',
1171 'nextsub' => 'save',
1175 foreach my $variable (keys %_hidden_local_variables) {
1176 push @{ $_hidden_variables_ref },
1177 { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
1180 my @_hidden_form_variables = qw(
1181 FA_steuerberater_name FA_steuerberater_street
1182 FA_steuerberater_city FA_steuerberater_tel
1193 foreach my $variable (@_hidden_form_variables) {
1194 push @{ $_hidden_variables_ref},
1195 { 'variable' => $variable, 'value' => $form->{$variable} };
1198 my $template_ref = {
1199 tax_office_data => $tax_office_data,
1200 input_steuernummer => $input_steuernummer,
1201 readonly => '', #q|disabled="disabled"|,
1202 callback => $callback,
1203 hidden_variables => $_hidden_variables_ref,
1206 # Ausgabe des Templates
1207 print($form->parse_html_template('ustva/config_step2', $template_ref));
1210 $lxdebug->leave_sub();
1213 sub create_steuernummer {
1214 $lxdebug->enter_sub();
1215 my $part = $form->{part};
1216 my $patterncount = $form->{patterncount};
1217 my $delimiter = $form->{delimiter};
1218 my $elster_pattern = $form->{elster_pattern};
1220 # rebuild steuernummer and elstersteuernummer
1221 # es gibt eine gespeicherte steuernummer $form->{steuernummer}
1222 # und die parts und delimiter
1227 my $steuernummer_new = $part;
1228 my $elstersteuernummer_new = $form->{elster_FFFF};
1229 $elstersteuernummer_new .= '0';
1231 for ($h = 1; $h < $patterncount; $h++) {
1232 $steuernummer_new .= qq|$delimiter|;
1233 for (my $i = 1; $i <= length($elster_pattern); $i++) {
1234 $steuernummer_new .= $form->{"part_$h\_$i"};
1235 $elstersteuernummer_new .= $form->{"part_$h\_$i"};
1238 if ($form->{steuernummer} ne $steuernummer_new) {
1239 $form->{steuernummer} = $steuernummer_new;
1240 $form->{elstersteuernummer} = $elstersteuernummer_new;
1241 $form->{steuernummer_new} = $steuernummer_new;
1243 $form->{steuernummer_new} = '';
1244 $form->{elstersteuernummer_new} = '';
1246 $lxdebug->leave_sub();
1250 $lxdebug->enter_sub();
1252 my ($userpath, $filename) = @_;
1253 my ($key, $value) = '';
1254 open(FACONF, "$userpath/$form->{login}_$filename")
1255 or #falls Datei nicht vorhanden ist
1257 open(FANEW, ">$userpath/$form->{login}_$filename")
1258 or $form->error("$userpath/$filename : $!");
1260 open(FACONF, "$userpath/$form->{login}_$filename")
1261 or $form->error("$userpath/$form->{username}_$filename : $!");
1270 # remove any trailing whitespace
1271 s/^\s*(.*?)\s*$/$1/;
1272 ($key, $value) = split /=/, $_, 2;
1274 $form->{$key} = "$value";
1279 $lxdebug->leave_sub();
1283 $lxdebug->enter_sub();
1284 my $filename = "$form->{login}_$form->{filename}";
1286 #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen
1287 create_steuernummer();
1289 # Textboxen formatieren: Linebreaks entfernen
1291 $form->{FA_Oeffnungszeiten} =~ s/\r\n/\\n/g;
1293 #URL mit http:// davor?
1294 $form->{FA_Internet} =~ s/^http:\/\///;
1295 $form->{FA_Internet} = 'http://' . $form->{FA_Internet};
1298 elster elsterland elstersteuernummer steuernummer
1299 elsteramt elsterFFFF FA_Name FA_Strasse
1300 FA_PLZ FA_Ort FA_Telefon FA_Fax
1301 FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach FA_BLZ_1
1302 FA_Kontonummer_1 FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2
1303 FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten
1304 FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name
1305 FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
1306 FA_71 FA_dauerfrist);
1308 # Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer
1309 if ($form->{elstersteuernummer} ne '000000000') {
1310 $form->{elster} = '1';
1311 open(CONF, ">$userspath/$filename") or $form->error("$filename : $!");
1313 # create the config file
1314 print CONF qq|# Configuration file for USTVA\n\n|;
1316 foreach $key (sort @config) {
1317 $form->{$key} =~ s/\\/\\\\/g;
1319 $form->{$key} =~ s/\r\n/\n/g;
1321 print CONF qq|$key=|;
1322 if ($form->{$key} ne 'Y') {
1323 print CONF qq|$form->{$key}\n|;
1325 if ($form->{$key} eq 'Y') {
1326 print CONF qq|checked \n|;
1329 print CONF qq|\n\n|;
1331 $form->{saved} = $locale->text('saved');
1335 $form->{saved} = $locale->text('Choose a Tax Number');
1339 $lxdebug->leave_sub();
1344 $lxdebug->enter_sub();
1346 # allow Symbolic references just here:
1348 &{ $form->{nextsub} };
1350 $lxdebug->leave_sub();
1354 $lxdebug->enter_sub();
1355 &{ $form->{lastsub} };
1356 $lxdebug->leave_sub();
1360 $lxdebug->enter_sub();
1361 my $finanzamt = USTVA->query_finanzamt(\%myconfig, \%$form);
1362 $lxdebug->leave_sub();