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' '0404' '0405' '0405' '0406' '0407' '0408' '0409' '0410' '0411' '0412' '0441' '0442' '0443' '0444');
539 foreach my $item (@anmeldungszeitraum) {
543 #forgotten the year --> thisyear
544 if ($form->{year} !~ m/^\d\d\d\d$/) {
545 $form->{year} = substr(
547 $form->current_date(\%myconfig), \%myconfig
550 $lxdebug->message(LXDebug::DEBUG1,
551 qq|Actual year from Database: $form->{year}\n|);
555 # using dates in ISO-8601 format: yyyymmmdd for Postgres...
559 if ($form->{period} eq "13") {
560 $form->{fromdate} = "$form->{year}0101";
561 $form->{todate} = "$form->{year}1231";
565 if ($form->{period} eq "41") {
566 $form->{fromdate} = "$form->{year}0101";
567 $form->{todate} = "$form->{year}0331";
568 $form->{'0441'} = "X";
570 if ($form->{period} eq "42") {
571 $form->{fromdate} = "$form->{year}0401";
572 $form->{todate} = "$form->{year}0630";
573 $form->{'0442'} = "X";
575 if ($form->{period} eq "43") {
576 $form->{fromdate} = "$form->{year}0701";
577 $form->{todate} = "$form->{year}0930";
578 $form->{'0443'} = "X";
580 if ($form->{period} eq "44") {
581 $form->{fromdate} = "$form->{year}1001";
582 $form->{todate} = "$form->{year}1231";
583 $form->{'0444'} = "X";
588 $form->{period} eq "01" && do {
589 $form->{fromdate} = "$form->{year}0101";
590 $form->{todate} = "$form->{year}0131";
591 $form->{'0401'} = "X";
594 $form->{period} eq "02" && do {
595 $form->{fromdate} = "$form->{year}0201";
597 #this works from 1901 to 2099, 1900 and 2100 fail.
598 my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
599 $form->{todate} = "$form->{year}02$leap";
600 $form->{"0402"} = "X";
603 $form->{period} eq "03" && do {
604 $form->{fromdate} = "$form->{year}0301";
605 $form->{todate} = "$form->{year}0331";
606 $form->{"0403"} = "X";
609 $form->{period} eq "04" && do {
610 $form->{fromdate} = "$form->{year}0401";
611 $form->{todate} = "$form->{year}0430";
612 $form->{"0404"} = "X";
615 $form->{period} eq "05" && do {
616 $form->{fromdate} = "$form->{year}0501";
617 $form->{todate} = "$form->{year}0531";
618 $form->{"0405"} = "X";
621 $form->{period} eq "06" && do {
622 $form->{fromdate} = "$form->{year}0601";
623 $form->{todate} = "$form->{year}0630";
624 $form->{"0406"} = "X";
627 $form->{period} eq "07" && do {
628 $form->{fromdate} = "$form->{year}0701";
629 $form->{todate} = "$form->{year}0731";
630 $form->{"0407"} = "X";
633 $form->{period} eq "08" && do {
634 $form->{fromdate} = "$form->{year}0801";
635 $form->{todate} = "$form->{year}0831";
636 $form->{"0408"} = "X";
639 $form->{period} eq "09" && do {
640 $form->{fromdate} = "$form->{year}0901";
641 $form->{todate} = "$form->{year}0930";
642 $form->{"0409"} = "X";
645 $form->{period} eq "10" && do {
646 $form->{fromdate} = "$form->{year}1001";
647 $form->{todate} = "$form->{year}1031";
648 $form->{"0410"} = "X";
651 $form->{period} eq "11" && do {
652 $form->{fromdate} = "$form->{year}1101";
653 $form->{todate} = "$form->{year}1130";
654 $form->{"0411"} = "X";
657 $form->{period} eq "12" && do {
658 $form->{fromdate} = "$form->{year}1201";
659 $form->{todate} = "$form->{year}1231";
660 $form->{"0412"} = "X";
669 USTVA->ustva(\%myconfig, \%$form);
671 # reformat Dates to dateformat
672 $form->{fromdate} = $locale->date(\%myconfig, $form->{fromdate}, 0, 0, 0);
674 $form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};
675 $form->{todate} = $locale->date(\%myconfig, $form->{todate}, 0, 0, 0);
677 $form->{longperiod} =
678 $locale->date(\%myconfig, $form->current_date(\%myconfig), 1, 0, 0);
680 # if there are any dates construct a where
681 if ($form->{fromdate} || $form->{todate}) {
683 $form->{todate} = $form->current_date($myconfig) unless ($form->{todate});
685 my $longtodate = $locale->date($myconfig, $form->{todate}, 1, 0, 0);
686 my $shorttodate = $locale->date($myconfig, $form->{todate}, 0, 0, 0);
688 my $longfromdate = $locale->date($myconfig, $form->{fromdate}, 1, 0, 0);
689 my $shortfromdate = $locale->date($myconfig, $form->{fromdate}, 0, 0, 0);
691 $form->{this_period} = "$shortfromdate<br>\n$shorttodate";
692 $form->{longperiod} =
693 $locale->text('for Period')
694 . qq|<br>\n$longfromdate |
695 . $locale->text('to (date)')
699 if ($form->{comparefromdate} || $form->{comparetodate}) {
700 my $longcomparefromdate =
701 $locale->date(\%myconfig, $form->{comparefromdate}, 1, 0, 0);
702 my $shortcomparefromdate =
703 $locale->date(\%myconfig, $form->{comparefromdate}, 0, 0, 0);
705 my $longcomparetodate =
706 $locale->date(\%myconfig, $form->{comparetodate}, 1, 0, 0);
707 my $shortcomparetodate =
708 $locale->date(\%myconfig, $form->{comparetodate}, 0, 0, 0);
710 $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate";
711 $form->{longperiod} .=
712 "<br>\n$longcomparefromdate "
713 . $locale->text('to (date)')
714 . qq| $longcomparetodate|;
717 $form->{Datum_heute} =
718 $locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0);
720 # setup variables for the form
721 my @a = qw(company businessnumber tel fax email
722 co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
723 co_name1 co_name2 co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2
724 co_fax co_fax1 co_email co_email1 co_url co_url1 ustid duns
725 co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
726 co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3);
728 map { $form->{$_} = $myconfig{$_} } @a;
730 if ($form->{address} ne '') {
731 my $temp = $form->{address};
732 $temp =~ s/\\n/<br \/>/;
733 ($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
734 $form->{co_city} =~ s/\\n//g;
738 # Outputformat specific customisation's
741 my @category_cent = qw(
742 511 861 36 80 971 931 98 96 53 74
743 85 65 66 61 62 67 63 64 59 69
744 39 83 811 891 Z43 Z45 Z53 Z62 Z65 Z67
748 my @category_euro = qw(
749 41 44 49 43 48 51 86 35 77 76 91 89
750 97 93 95 94 42 60 45 52 73 84 81
753 if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') {
755 $form->{IN} = "$form->{type}-$form->{year}.tex";
756 $form->{padding} = "~~";
757 $form->{bold} = "\textbf{";
758 $form->{endbold} = "}";
759 $form->{br} = '\\\\';
761 # Zahlenformatierung für Latex USTVA Formulare
763 foreach my $number (@category_euro) {
764 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '');
767 my ${decimal_comma} = ( $myconfig{numberformat} eq '1.000,00'
768 or $myconfig{numberformat} eq '1000,00' ) ? ',':'.';
770 foreach my $number (@category_cent) {
771 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '');
772 $form->{$number} =~ s/${decimal_comma}/~~/g;
775 } elsif ( $form->{format} eq 'html') { # Formatierungen für HTML Ausgabe
777 $form->{IN} = $form->{type} . '.html';
778 $form->{padding} = " ";
779 $form->{bold} = "<b>";
780 $form->{endbold} = "</b>";
781 $form->{br} = "<br>";
782 $form->{address} =~ s/\\n/\n/g;
784 foreach $number (@category_cent) {
785 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '0');
788 foreach $number (@category_euro) {
789 $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '0');
792 } elsif ( $form->{format} eq 'elsterwinston' ) {
794 $form->{IN} = 'winston.xml';
797 # Build Winston filename
800 my $file = 'U'; # 1. char 'U' = USTVA
801 $file .= $form->{period};
802 #4. and 5. char = year modulo 100
803 $file .= sprintf("%02d", $form->{year} % 100);
804 #6. to 18. char = Elstersteuernummer
805 #Beispiel: Steuernummer in Bayern
806 #111/222/33334 ergibt für UStVA Jan 2004: U01049111022233334
807 $file .= $form->{elsterFFFF};
808 $file .= $form->{elstersteuernummer};
811 $form->{tmpfile} = "$userspath/$file";
813 $form->{attachment_filename} = "$file";
815 # Zahlenformatierung für Winston
817 my $temp_numberformat = $myconfig{numberformat};
819 # Numberformat must be '1000.00' for Winston
821 $myconfig{numberformat} = '1000.00';
823 foreach my $number (@category_cent) {
824 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
827 foreach my $number (@category_euro) {
828 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
830 # Re-set Numberformat
831 $myconfig{numberformat} = $temp_numberformat;
835 elsif ( $form->{format} eq 'elstertaxbird' ) {
837 # Define serveral filenames
838 $form->{IN} = 'taxbird.txb';
840 $form->{attachment_filename} = "USTVA-" . $form->{period}
841 . sprintf("%02d", $form->{year} % 100) . ".txb";
843 $form->{tmpfile} = "$userspath/" . $form->{attachment_filename};
845 # TODO: set Output to UTF-8 or system Preference
846 #$form->{"iconv"} = Text::Iconv->new($myconfig{dbcharset}, "UTF-8");
847 #my $iconv = $self->{"iconv"};
848 #$iconv->convert($variable);
850 if ($form->{period} =~ /^[4]\d$/ ){
851 my %periods = ( # Lx => taxbird
858 foreach my $quarter ( keys %periods ) {
859 $form->{taxbird_period} = $periods{$quarter} if ( $form->{period} eq $quarter);
862 my %lands = ( # Lx => taxbird # TODO: besser als array...
863 'Baden Würtemberg' => '0',
866 'Brandenburg' => '3',
870 'Mecklenburg Vorpommern' => '7',
871 'Niedersachsen' => '8',
872 'Nordrhein Westfalen' => '9',
873 'Rheinland Pfalz' => '10',
876 'Sachsen Anhalt' => '13',
877 'Schleswig Holstein' => '14',
881 foreach my $land ( keys %lands ){
882 $form->{taxbird_land_nr} = $lands{$land} if ($form->{elsterland} eq $land );
885 $form->{co_zip} = $form->{co_city};
886 $form->{co_zip} =~ s/\D//g;
887 $form->{co_city} =~ s/\d//g;
888 $form->{co_city} =~ s/^\s//g;
890 ($form->{co_phone_prefix}, $form->{co_phone}) = split("-", $form->{tel});
891 $form->{co_phone_prefix} =~ s/\s//g;
892 $form->{co_phone} =~ s/\s//g;
894 $form->{taxbird_steuernummer} = $form->{steuernummer};
895 # $form->{taxbird_steuernummer} =~ s/\D//g;
896 $form->{taxbird_steuernummer} =~ s/\///; # ersten Querstrich ersetzen
898 # Numberformatting for Taxbird
899 my $temp_numberformat = $myconfig{numberformat};
901 # Numberformat must be '1000,00' for Taxbird ?!
902 $myconfig{numberformat} = '1000,00';
904 foreach my $number (@category_cent) {
905 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
908 foreach my $number (@category_euro) {
909 $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
911 # Re-set Numberformat
912 $myconfig{numberformat} = $temp_numberformat;
914 } elsif ($form->{period} =~ /^\d+$/ ) {
915 $form->{period} =~ s/^0//g;
916 my $period = $form->{period};
919 $form->{period} = $period;
922 USTVA::error( $locale->text('Wrong Period' ));
926 } elsif ( $form->{format} eq '' ){ # No format error.
928 USTVA::error( $locale->text('Application Error. No Format given' ) . "!");
931 } else { # All other Formats are wrong
933 USTVA::error( $locale->text('Application Error. Wrong Format') . ": " . $form->{format} );
937 if ( $form->{period} eq '13' and $form->{format} ne 'html') {
941 'Yearly taxreport not yet implemented')
945 $form->{templates} = $myconfig{templates};
946 $form->{templates} = "doc" if ( $form->{type} eq 'help' );
948 $form->parse_template(\%myconfig, $userspath);
950 $lxdebug->leave_sub();
954 $lxdebug->enter_sub();
956 # edit all taxauthority prefs
959 &get_config($userspath, 'finanzamt.ini');
961 my $land = $form->{elsterland};
962 my $amt = $form->{elsterFFFF};
965 if ($form->{cbscript} ne '' and $form->{cblogin} ne '') {
966 $callback = qq|$form->{cbscript}|
967 .qq|?action="config_step1"|
968 .qq|&login="$form->{cblogin}"|
969 .qq|&path="$form->{cbpath}"|
970 .qq|&root="$form->{cbroot}"|
971 .qq|&rpw="$form->{cbrpw}"|;
974 $form->{title} = $locale->text('Tax Office Preferences');
977 my $select_tax_office = USTVA->fa_auswahl($land, $amt, &elster_hash());
978 my $checked_accrual = q|checked="checked"| if ($form->{method} eq 'accrual');
979 my $checked_cash = q|checked="checked"| if ($form->{method} eq 'cash');
980 my $checked_monthly = "checked" if ($form->{FA_voranmeld} eq 'month');
981 my $checked_quarterly = "checked" if ($form->{FA_voranmeld} eq 'quarter');
982 my $checked_dauerfristverlaengerung = "checked" if ($form->{FA_dauerfrist} eq '1');
983 my $checked_kz_71 = "checked" if ($form->{FA_71} eq 'X');
985 my $_hidden_variables_ref;
987 my %_hidden_local_variables = (
988 'saved' => $locale->text('Check Details'),
989 'nextsub' => 'config_step2',
993 foreach my $variable (keys %_hidden_local_variables) {
994 push @{ $_hidden_variables_ref },
995 { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
998 my @_hidden_form_variables = qw(
999 FA_Name FA_Strasse FA_PLZ
1000 FA_Ort FA_Telefon FA_Fax
1001 FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach
1002 FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1
1003 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich
1004 FA_Oeffnungszeiten FA_Email FA_Internet
1005 steuernummer elsterland elstersteuernummer
1006 elsterFFFF path login
1010 foreach my $variable (@_hidden_form_variables) {
1011 push @{ $_hidden_variables_ref},
1012 { 'variable' => $variable, 'value' => $form->{$variable} };
1016 my $steuernummer_new = '';
1018 # Variablen für das Template zur Verfügung stellen
1019 my $template_ref = {
1020 select_tax_office => $select_tax_office,
1021 checked_accrual => $checked_accrual,
1022 checked_cash => $checked_cash,
1023 checked_monthly => $checked_monthly,
1024 checked_quarterly => $checked_quarterly,
1025 checked_dauerfristverlaengerung => $checked_dauerfristverlaengerung,
1026 hidden_variables => $_hidden_variables_ref,
1030 # Ausgabe des Templates
1031 print($form->parse_html_template('ustva/config_step1', $template_ref));
1033 $lxdebug->leave_sub();
1037 $lxdebug->enter_sub();
1044 my $elsterland = '';
1045 my $elster_amt = '';
1046 my $elsterFFFF = '';
1047 my $elstersteuernummer = '';
1048 &get_config($userspath, 'finanzamt.ini')
1049 if ($form->{saved} eq $locale->text('saved'));
1051 # Auf Übergabefehler checken
1052 USTVA::info( $locale->text('Missing Tax Authoritys Preferences') . "\n"
1053 . $locale->text('USTVA-Hint: Tax Authoritys'))
1054 if ( $form->{elsterFFFF_new} eq 'Auswahl'
1055 || $form->{elsterland_new} eq 'Auswahl');
1056 USTVA::info( $locale->text('Missing Method!') . "\n"
1057 . $locale->text('USTVA-Hint: Method'))
1058 if ($form->{method} eq '');
1060 # Klären, ob Variablen bereits befüllt sind UND ob veräderungen auf
1061 # der vorherigen Maske stattfanden: $change = 1(in der edit sub,
1062 # mittels get_config)
1064 my $change = $form->{elsterland} eq $form->{elsterland_new}
1065 && $form->{elsterFFFF} eq $form->{elsterFFFF_new} ? '0' : '1';
1066 $change = '0' if ($form->{saved} eq $locale->text('saved'));
1067 my $elster_init = &elster_hash();
1069 my %elster_init = %$elster_init;
1071 if ($change eq '1') {
1074 $elsterland = $form->{elsterland_new};
1075 $elsterFFFF = $form->{elsterFFFF_new};
1076 $form->{elsterland} = $elsterland;
1077 $form->{elsterFFFF} = $elsterFFFF;
1078 $form->{steuernummer} = '';
1080 create_steuernummer();
1082 # rebuild elster_amt
1084 foreach $amt (keys %{ $elster_init{ $form->{elsterland} } }) {
1086 if ($elster_init{ $form->{elsterland}{$amt} eq $form->{elsterFFFF} });
1089 # load the predefined hash data into the FA_* Vars
1090 my @variables = qw(FA_Name FA_Strasse FA_PLZ FA_Ort
1091 FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach
1093 FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1
1094 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich
1095 FA_Oeffnungszeiten FA_Email FA_Internet);
1097 for (my $i = 0; $i <= 20; $i++) {
1098 $form->{ $variables[$i] } =
1099 $elster_init->{$elsterland}->{$elsterFFFF}->[$i];
1104 $elsterland = $form->{elsterland};
1105 $elsterFFFF = $form->{elsterFFFF};
1108 my $stnr = $form->{steuernummer};
1110 my $patterncount = $form->{patterncount};
1111 my $elster_pattern = $form->{elster_pattern};
1112 my $delimiter = $form->{delimiter};
1113 my $steuernummer = $form->{steuernummer} if ($steuernummer eq '');
1115 $form->{FA_Oeffnungszeiten} =~ s/\\\\n/\n/g;
1119 my $input_steuernummer = USTVA->steuernummer_input(
1120 $form->{elsterland},
1121 $form->{elsterFFFF},
1122 $form->{steuernummer}
1125 $lxdebug->message(LXDebug::DEBUG1, qq|$input_steuernummer|);
1128 my $_hidden_variables_ref;
1130 my %_hidden_local_variables = (
1131 'elsterland' => $elsterland,
1132 'elsterFFFF' => $elsterFFFF,
1133 'warnung' => $warnung,
1134 'elstersteuernummer' => $elstersteuernummer,
1135 'steuernummer' => $stnr,
1136 'lastsub' => 'config_step1',
1137 'nextsub' => 'save',
1141 foreach my $variable (keys %_hidden_local_variables) {
1142 push @{ $_hidden_variables_ref },
1143 { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
1146 my @_hidden_form_variables = qw(
1147 FA_steuerberater_name FA_steuerberater_street
1148 FA_steuerberater_city FA_steuerberater_tel
1159 foreach my $variable (@_hidden_form_variables) {
1160 push @{ $_hidden_variables_ref},
1161 { 'variable' => $variable, 'value' => $form->{$variable} };
1164 my $template_ref = {
1165 tax_office_data => $tax_office_data,
1166 input_steuernummer => $input_steuernummer,
1167 readonly => '', #q|disabled="disabled"|,
1168 callback => $callback,
1169 hidden_variables => $_hidden_variables_ref,
1172 # Ausgabe des Templates
1173 print($form->parse_html_template('ustva/config_step2', $template_ref));
1176 $lxdebug->leave_sub();
1179 sub create_steuernummer {
1180 $lxdebug->enter_sub();
1181 my $part = $form->{part};
1182 my $patterncount = $form->{patterncount};
1183 my $delimiter = $form->{delimiter};
1184 my $elster_pattern = $form->{elster_pattern};
1186 # rebuild steuernummer and elstersteuernummer
1187 # es gibt eine gespeicherte steuernummer $form->{steuernummer}
1188 # und die parts und delimiter
1193 my $steuernummer_new = $part;
1194 my $elstersteuernummer_new = $form->{elster_FFFF};
1195 $elstersteuernummer_new .= '0';
1197 for ($h = 1; $h < $patterncount; $h++) {
1198 $steuernummer_new .= qq|$delimiter|;
1199 for (my $i = 1; $i <= length($elster_pattern); $i++) {
1200 $steuernummer_new .= $form->{"part_$h\_$i"};
1201 $elstersteuernummer_new .= $form->{"part_$h\_$i"};
1204 if ($form->{steuernummer} ne $steuernummer_new) {
1205 $form->{steuernummer} = $steuernummer_new;
1206 $form->{elstersteuernummer} = $elstersteuernummer_new;
1207 $form->{steuernummer_new} = $steuernummer_new;
1209 $form->{steuernummer_new} = '';
1210 $form->{elstersteuernummer_new} = '';
1212 $lxdebug->leave_sub();
1216 $lxdebug->enter_sub();
1218 my ($userpath, $filename) = @_;
1219 my ($key, $value) = '';
1220 open(FACONF, "$userpath/$form->{login}_$filename")
1221 or #falls Datei nicht vorhanden ist
1223 open(FANEW, ">$userpath/$form->{login}_$filename")
1224 or $form->error("$userpath/$filename : $!");
1226 open(FACONF, "$userpath/$form->{login}_$filename")
1227 or $form->error("$userpath/$form->{username}_$filename : $!");
1236 # remove any trailing whitespace
1237 s/^\s*(.*?)\s*$/$1/;
1238 ($key, $value) = split /=/, $_, 2;
1240 $form->{$key} = "$value";
1245 $lxdebug->leave_sub();
1249 $lxdebug->enter_sub();
1250 my $filename = "$form->{login}_$form->{filename}";
1252 #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen
1253 create_steuernummer();
1255 # Textboxen formatieren: Linebreaks entfernen
1257 $form->{FA_Oeffnungszeiten} =~ s/\r\n/\\n/g;
1259 #URL mit http:// davor?
1260 $form->{FA_Internet} =~ s/^http:\/\///;
1261 $form->{FA_Internet} = 'http://' . $form->{FA_Internet};
1264 elster elsterland elstersteuernummer steuernummer
1265 elsteramt elsterFFFF FA_Name FA_Strasse
1266 FA_PLZ FA_Ort FA_Telefon FA_Fax
1267 FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach FA_BLZ_1
1268 FA_Kontonummer_1 FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2
1269 FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten
1270 FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name
1271 FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
1272 FA_71 FA_dauerfrist);
1274 # Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer
1275 if ($form->{elstersteuernummer} ne '000000000') {
1276 $form->{elster} = '1';
1277 open(CONF, ">$userspath/$filename") or $form->error("$filename : $!");
1279 # create the config file
1280 print CONF qq|# Configuration file for USTVA\n\n|;
1282 foreach $key (sort @config) {
1283 $form->{$key} =~ s/\\/\\\\/g;
1285 $form->{$key} =~ s/\r\n/\n/g;
1287 print CONF qq|$key=|;
1288 if ($form->{$key} ne 'Y') {
1289 print CONF qq|$form->{$key}\n|;
1291 if ($form->{$key} eq 'Y') {
1292 print CONF qq|checked \n|;
1295 print CONF qq|\n\n|;
1297 $form->{saved} = $locale->text('saved');
1301 $form->{saved} = $locale->text('Choose a Tax Number');
1305 $lxdebug->leave_sub();
1310 $lxdebug->enter_sub();
1312 # allow Symbolic references just here:
1314 &{ $form->{nextsub} };
1316 $lxdebug->leave_sub();
1320 $lxdebug->enter_sub();
1321 &{ $form->{lastsub} };
1322 $lxdebug->leave_sub();
1326 $lxdebug->enter_sub();
1327 my $finanzamt = USTVA->query_finanzamt(\%myconfig, \%$form);
1328 $lxdebug->leave_sub();