Fixes für das "my $var if $cond;" pattern.
[kivitendo-erp.git] / bin / mozilla / ustva.pl
1 #=====================================================================
2 # Lx-Office ERP
3 # Copyright (c) 2004 by Udo Spallek, Aachen
4 #
5 #  Author: Udo Spallek
6 #   Email: udono@gmx.net
7 #     Web: http://www.lx-office.org
8 #
9 #
10 # This program is free software; you can redistribute it and/or modify
11 # it under the terms of the GNU General Public License as published by
12 # the Free Software Foundation; either version 2 of the License, or
13 # (at your option) any later version.
14 #
15 # This program is distributed in the hope that it will be useful,
16 # but WITHOUT ANY WARRANTY; without even the implied warranty of
17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18 # GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License
20 # along with this program; if not, write to the Free Software
21 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
22 #======================================================================
23 # German Tax authority Module and later ELSTER Interface
24 #======================================================================
25
26 use strict;
27 use utf8;
28
29 require "bin/mozilla/common.pl";
30
31 #use strict;
32 #no strict 'refs';
33 #use diagnostics;
34 #use warnings; # FATAL=> 'all';
35 #use vars qw($locale $form %myconfig);
36 #our ($myconfig);
37 #use CGI::Carp "fatalsToBrowser";
38
39 use List::Util qw(first);
40
41 use SL::PE;
42 use SL::RP;
43 use SL::USTVA;
44 use SL::User;
45 1;
46
47 # this is for our long dates
48 # $locale->text('January')
49 # $locale->text('February')
50 # $locale->text('March')
51 # $locale->text('April')
52 # $locale->text('May ')
53 # $locale->text('June')
54 # $locale->text('July')
55 # $locale->text('August')
56 # $locale->text('September')
57 # $locale->text('October')
58 # $locale->text('November')
59 # $locale->text('December')
60
61 # this is for our short month
62 # $locale->text('Jan')
63 # $locale->text('Feb')
64 # $locale->text('Mar')
65 # $locale->text('Apr')
66 # $locale->text('May')
67 # $locale->text('Jun')
68 # $locale->text('Jul')
69 # $locale->text('Aug')
70 # $locale->text('Sep')
71 # $locale->text('Oct')
72 # $locale->text('Nov')
73 # $locale->text('Dec')
74
75 #############################
76
77 sub report {
78   $::lxdebug->enter_sub();
79
80   my $form     = $::form;
81   my $locale   = $::locale;
82   my %myconfig = %::myconfig;
83
84   $::auth->assert('advance_turnover_tax_return');
85
86   $form->{title} = $locale->text('UStVA');
87   $form->{kz10}  = '';                       #Berichtigte Anmeldung? Ja =1 Nein=0
88
89   my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig ),
90              0, 4);
91
92   my $department = '';
93   my $hide = '';
94   $form->header;
95
96   # Einlesen der Finanzamtdaten
97   my $ustva = USTVA->new();
98   $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
99
100   # Hier Einlesen der user-config
101   # steuernummer entfernt für prerelease
102   my @a = qw(
103     signature      name          company       address        businessnumber
104     tel            fax           email         co_chief       co_department
105     co_custom1     co_custom2    co_custom3    co_custom4     co_custom5
106     co_name1       co_name2      co_street     co_street1     co_zip
107     co_city        co_city1      co_country    co_tel         co_tel1
108     co_tel2        co_fax        co_fax1       co_email       co_email1
109     co_url         co_url1       ustid         duns           co_bankname
110     co_bankname1   co_bankname2  co_bankname3  co_blz         co_blz1
111     co_blz2        co_blz3       co_accountnr  co_accountnr1  co_accountnr2
112     co_accountnr3
113   );
114
115   map { $form->{$_} = $myconfig{$_} } @a;
116
117   my $openings = $form->{FA_Oeffnungszeiten};
118   $openings =~ s/\\\\n/<br>/g;
119
120   my $company_given = ($form->{company} ne '')
121     ? qq|<h3>$form->{company}</h3>\n|
122     : qq|<a href="am.pl?action=config">|
123       . $locale->text('No Company Name given') . qq|!</a><br>|;
124
125
126   # Anpassungen der Variablennamen auf pre 2.1.1 Namen
127   # klären, ob $form->{company_street|_address} gesetzt sind
128   if ($form->{address} ne '') {
129     my $temp = $form->{address};
130     $temp =~ s/\n/<br \/>/;
131     ($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
132     $form->{co_city} =~ s/\n//g;
133   }
134
135
136   my $address_given =
137     ($form->{co_street} && ($form->{co_zip} || $form->{co_city}))
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?action=config|
142         . qq|&level=Programm--Preferences">|
143         . $locale->text('No Company Address given')
144         . qq|!</a>\n|;
145
146   $form->{co_email} = $form->{email} unless $form->{co_email};
147   $form->{co_tel}   = $form->{tel}   unless $form->{co_tel};
148   $form->{co_fax}   = $form->{fax}   unless $form->{co_fax};
149   $form->{co_url}   = $form->{urlx}  unless $form->{co_url};
150
151   my $taxnumber_given = ($form->{steuernummer} ne '') ? $form->{steuernummer} : qq|<a href="ustva.pl?action=config_step1">Keine Steuernummer hinterlegt!</a><br>|;
152
153   my $ustva_vorauswahl = &ustva_vorauswahl();
154
155   my @all_years = $form->all_years(\%myconfig);
156
157   my $select_year = qq|<select name=year title="|
158     . $locale->text('Year') . qq|">|;
159   foreach my $key (@all_years) {
160     $select_year .= qq|<option |;
161     $select_year .= qq|selected| if ($key eq $form->{year});
162     $select_year .= qq| >$key</option>|;
163   }
164   $select_year   .=  qq|</select>|;
165
166   my $_checked = '';
167   $_checked = "checked" if ($form->{kz10} eq '1');
168   my $checkbox_kz_10 = qq|<input name="FA_10" id=FA_10 class=checkbox|
169     . qq| type=checkbox value="1" $_checked title = "|
170     . $locale->text('Amended Advance Turnover Tax Return (Nr. 10)')
171     . qq|">|
172     . $locale->text('Amended Advance Turnover Tax Return');
173
174   my $method_local = ($form->{method} eq 'accrual') ? $locale->text('accrual')
175                    : ($form->{method} eq 'cash')    ? $locale->text('cash')
176                    : '';
177
178   my $period_local = ( $form->{FA_voranmeld} eq 'month')   ? $locale->text('month')
179                    : ( $form->{FA_voranmeld} eq 'quarter') ? $locale->text('quarter')
180                    : '';
181
182   my $tax_office_banks_ref = [
183     { BLZ             => $form->{FA_BLZ_1},
184       Kontonummer     => $form->{FA_Kontonummer_1},
185       Bankbezeichnung => $form->{FA_Bankbezeichnung_1}
186     },
187     { BLZ             => $form->{FA_BLZ_2},
188       Kontonummer     => $form->{FA_Kontonummer_2},
189       Bankbezeichnung => $form->{FA_Bankbezeichnung_oertlich}
190     }
191   ];
192
193   # Which COA is in use?
194
195   $ustva->get_coa($form, \%myconfig);
196
197   my $template_ref = {
198     openings         => $openings,
199     company_given    => $company_given,
200     address_given    => $address_given,
201     taxnumber_given  => $taxnumber_given,
202     taxnumber        => $myconfig{taxnumber},
203     select_year      => $select_year,
204     period_local     => $period_local,
205     method_local     => $method_local,
206     ustva_vorauswahl => $ustva_vorauswahl,
207     checkbox_kz_10   => $checkbox_kz_10,
208     tax_office_banks => $tax_office_banks_ref,
209     select_options   => &show_options,
210
211   };
212
213   print($form->parse_html_template('ustva/report', $template_ref));
214
215
216
217   $::lxdebug->leave_sub();
218 }
219
220
221
222 sub help {
223   $::lxdebug->enter_sub();
224
225   $::auth->assert('advance_turnover_tax_return');
226
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';
233   generate_ustva();
234
235   #$form->{templates} = $tmp;
236   $::lxdebug->leave_sub();
237 }
238
239 sub show {
240   $::lxdebug->enter_sub();
241
242   $::auth->assert('advance_turnover_tax_return');
243
244   #&generate_ustva();
245   $::lxdebug->leave_sub();
246   call_sub($::form->{"nextsub"});
247 }
248
249 sub ustva_vorauswahl {
250   $::lxdebug->enter_sub();
251
252   my $form     = $::form;
253   my $locale   = $::locale;
254   my %myconfig = %::myconfig;
255
256   $::auth->assert('advance_turnover_tax_return');
257
258   my $select_vorauswahl;
259
260   #Aktuelles Datum zerlegen:
261   my $date = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
262
263   #$locale->date($myconfig, $form->current_date($myconfig), 0)=~ /(\d\d).(\d\d).(\d\d\d\d)/;
264   $form->{day}   = substr($date, 6, 2);
265   $form->{month} = substr($date, 4, 2);
266   $form->{year}  = substr($date, 0, 4);
267   $::lxdebug->message(LXDebug->DEBUG1, qq|
268     Actual date from Database: $date\n
269     Actual year from Database: $form->{year}\n
270     Actual day from Database: $form->{day}\n
271     Actual month from Database: $form->{month}\n|);
272
273   my $sel    = '';
274   my $yymmdd = '';
275
276   # Testdaten erzeugen:
277   #$form->{day}= '11';
278   #$form->{month}= '01';
279   #$form->{year}= 2004;
280   $select_vorauswahl = qq|
281      <input type=hidden name=day value=$form->{day}>
282      <input type=hidden name=month value=$form->{month}>
283      <input type=hidden name=yymmdd value=$yymmdd>
284      <input type=hidden name=sel value=$sel>
285   |;
286
287   if ($form->{FA_voranmeld} eq 'month') {
288
289     # Vorauswahl bei monatlichem Voranmeldungszeitraum
290
291     my %liste = ('01' => $locale->text('January'),
292                  '02' => $locale->text('February'),
293                  '03' => $locale->text('March'),
294                  '04' => $locale->text('April'),
295                  '05' => $locale->text('May'),
296                  '06' => $locale->text('June'),
297                  '07' => $locale->text('July'),
298                  '08' => $locale->text('August'),
299                  '09' => $locale->text('September'),
300                  '10' => $locale->text('October'),
301                  '11' => $locale->text('November'),
302                  '12' => $locale->text('December'),
303                  '13' => $locale->text('Yearly'),
304                 );
305
306     my $yy = $form->{year} * 10000;
307     $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
308     $sel    = '';
309     my $dfv = '';
310
311     # Offset für Dauerfristverlängerung
312     $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
313
314   SWITCH: {
315       $yymmdd <= ($yy + 110 + $dfv) && do {
316         $form->{year} = $form->{year} - 1;
317         $sel = '12';
318         last SWITCH;
319       };
320       $yymmdd <= ($yy + 210 + $dfv) && do {
321         $sel = '01';
322         last SWITCH;
323       };
324       $yymmdd <= ($yy + 310 + $dfv) && do {
325         $sel = '02';
326         last SWITCH;
327       };
328       $yymmdd <= ($yy + 410 + $dfv) && do {
329         $sel = '03';
330         last SWITCH;
331       };
332       $yymmdd <= ($yy + 510 + $dfv) && do {
333         $sel = '04';
334         last SWITCH;
335       };
336       $yymmdd <= ($yy + 610 + $dfv) && do {
337         $sel = '05';
338         last SWITCH;
339       };
340       $yymmdd <= ($yy + 710 + $dfv) && do {
341         $sel = '06';
342         last SWITCH;
343       };
344       $yymmdd <= ($yy + 810 + $dfv) && do {
345         $sel = '07';
346         last SWITCH;
347       };
348       $yymmdd <= ($yy + 910 + $dfv) && do {
349         $sel = '08';
350         last SWITCH;
351       };
352       $yymmdd <= ($yy + 1010 + $dfv) && do {
353         $sel = '09';
354         last SWITCH;
355       };
356       $yymmdd <= ($yy + 1110 + $dfv) && do {
357         $sel = '10';
358         last SWITCH;
359       };
360       $yymmdd <= ($yy + 1210) && do {
361         $sel = '11';
362         last SWITCH;
363       };
364       $yymmdd <= ($yy + 1231) && do {
365         $sel = '12';
366         last SWITCH;
367       };
368
369     }
370     $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
371   . $locale->text('Select a period') . qq|" >|;
372
373     my $key = '';
374     foreach $key (sort keys %liste) {
375       my $selected = '';
376       $selected = 'selected' if ($sel eq $key);
377       $select_vorauswahl .= qq|
378          <option value="$key" $selected> $liste{$key}</option>
379       |;
380     }
381     $select_vorauswahl .= qq|</select>|;
382
383   } elsif ($form->{FA_voranmeld} eq 'quarter') {
384
385     # Vorauswahl bei quartalsweisem Voranmeldungszeitraum
386     my %liste = ('41'  => $locale->text('1. Quarter'),
387                  '42'  => $locale->text('2. Quarter'),
388                  '43'  => $locale->text('3. Quarter'),
389                  '44'  => $locale->text('4. Quarter'),
390                  '13' => $locale->text('Yearly'),);
391
392     my $yy = $form->{year} * 10000;
393     $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
394     $sel    = '';
395     my $dfv = '';    # Offset für Dauerfristverlängerung
396     $dfv = '100' if ($form->{FA_dauerfrist} eq '1');
397
398   SWITCH: {
399       $yymmdd <= ($yy + 110 + $dfv) && do {
400         $form->{year} = $form->{year} - 1;
401         $sel = '44';
402         last SWITCH;
403       };
404       $yymmdd <= ($yy + 410 + $dfv) && do {
405         $sel = '41';
406         last SWITCH;
407       };
408       $yymmdd <= ($yy + 710 + $dfv) && do {
409         $sel = '42';
410         last SWITCH;
411       };
412       $yymmdd <= ($yy + 1010 + $dfv) && do {
413         $sel = '43';
414         last SWITCH;
415       };
416       $yymmdd <= ($yy + 1231) && do {
417         $sel = '44';
418       };
419     }
420
421     $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
422       . $locale->text('Select a period') . qq|" >|;
423     my $key = '';
424     foreach $key (sort keys %liste) {
425       my $selected = '';
426       $selected = 'selected' if ($sel eq $key);
427       $select_vorauswahl .= qq|
428          <option value="$key" $selected>$liste{$key}</option>
429      |;
430     }
431     $select_vorauswahl .= qq|\n</select>
432    |;
433
434   } else {
435
436     # keine Vorauswahl bei Voranmeldungszeitraum
437     $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
438       . $locale->text('Select a period') . qq|" >|;
439
440     my %listea = ('41' => '1. Quarter',
441                   '42' => '2. Quarter',
442                   '43' => '3. Quarter',
443                   '44' => '4. Quarter',);
444
445     my %listeb = ('01' => 'January',
446                   '02' => 'February',
447                   '03' => 'March',
448                   '04' => 'April',
449                   '05' => 'May',
450                   '06' => 'June',
451                   '07' => 'July',
452                   '08' => 'August',
453                   '09' => 'September',
454                   '10' => 'October',
455                   '11' => 'November',
456                   '12' => 'December',
457                   '13' => 'Yearly',);
458     my $key = '';
459     foreach $key (sort keys %listea) {
460       $select_vorauswahl .= qq|
461          <option value="$key">|
462         . $locale->text("$listea{$key}")
463         . qq|</option>\n|;
464     }
465
466     foreach $key (sort keys %listeb) {
467       $select_vorauswahl .= qq|
468          <option value="$key">|
469         . $locale->text("$listeb{$key}")
470         . qq|</option>\n|;
471     }
472     $select_vorauswahl .= qq|</select>|;
473   }
474   $::lxdebug->leave_sub();
475
476   return $select_vorauswahl;
477 }
478
479 #sub config {
480 #  $::lxdebug->enter_sub();
481 #  config_step1();
482 #  $::lxdebug->leave_sub();
483 #}
484
485 sub debug {
486   $::lxdebug->enter_sub();
487   $::form->debug();
488   $::lxdebug->leave_sub();
489 }
490
491 sub show_options {
492   $::lxdebug->enter_sub();
493
494   $::auth->assert('advance_turnover_tax_return');
495
496   #  $form->{PD}{$form->{type}} = "selected";
497   #  $form->{DF}{$form->{format}} = "selected";
498   #  $form->{OP}{$form->{media}} = "selected";
499   #  $form->{SM}{$form->{sendmode}} = "selected";
500   my $type   = qq|      <input type=hidden name="type" value="ustva">|;
501   my $media  = qq|      <input type=hidden name="media" value="screen">|;
502   my $format =
503       qq|       <option value=html selected>|
504     . $::locale->text('Preview')
505     . qq|</option>|;
506   if ($::lx_office_conf{print_templates}{latex}) {
507     $format .=
508         qq|    <option value=pdf>|
509       . $::locale->text('UStVA (PDF-Dokument)')
510       . qq|</option>|;
511   }
512
513   #my $disabled= qq|disabled="disabled"|;
514   #$disabled='' if ($form->{elster} eq '1' );
515   if ($::form->{elster} eq '1') {
516     $format .=
517         qq|<option value=elsterwinston>|
518       . $::locale->text('ELSTER Export (Winston)')
519       . qq|</option>|
520       . qq|<option value=elstertaxbird>|
521       . $::locale->text('ELSTER Export (Taxbird)')
522       . qq|</option>|;
523   }
524
525   #$format .= qq|<option value=elster>|.$locale->text('ELSTER Export nach Winston').qq|</option>|;
526   my $show_options = qq|
527     $type
528     $media
529     <select name=format title = "|
530     . $::locale->text('Choose Outputformat') . qq|">$format</select>
531   |;
532   $::lxdebug->leave_sub();
533
534   return $show_options;
535 }
536
537 sub generate_ustva {
538   $::lxdebug->enter_sub();
539
540   my $form     = $::form;
541   my $locale   = $::locale;
542   my %myconfig = %::myconfig;
543
544   $::auth->assert('advance_turnover_tax_return');
545
546   # Aufruf von get_config zum Einlesen der Finanzamtdaten aus finanzamt.ini
547
548   my $ustva = USTVA->new();
549   $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
550
551   # init some form vars
552   my @anmeldungszeitraum =
553     qw('0401' '0402' '0403'
554        '0404' '0405' '0406'
555        '0407' '0408' '0409'
556        '0410' '0411' '0412'
557        '0441' '0442' '0443' '0444');
558
559   foreach my $item (@anmeldungszeitraum) {
560     $form->{$item} = "";
561   }
562
563     #forgotten the year --> thisyear
564     if ($form->{year} !~ m/^\d\d\d\d$/) {
565       $form->{year} = substr(
566                              $form->datetonum(
567                                     $form->current_date(\%myconfig), \%myconfig
568                              ),
569                              0, 4);
570       $::lxdebug->message(LXDebug->DEBUG1,
571                         qq|Actual year from Database: $form->{year}\n|);
572     }
573
574     #
575     # using dates in ISO-8601 format: yyyymmmdd  for Postgres...
576     #
577
578     #yearly report
579     if ($form->{period} eq "13") {
580       $form->{fromdate} = "$form->{year}0101";
581       $form->{todate}   = "$form->{year}1231";
582     }
583
584     #Quater reports
585     if ($form->{period} eq "41") {
586       $form->{fromdate} = "$form->{year}0101";
587       $form->{todate}   = "$form->{year}0331";
588       $form->{'0441'}   = "X";
589     }
590     if ($form->{period} eq "42") {
591       $form->{fromdate} = "$form->{year}0401";
592       $form->{todate}   = "$form->{year}0630";
593       $form->{'0442'}   = "X";
594     }
595     if ($form->{period} eq "43") {
596       $form->{fromdate} = "$form->{year}0701";
597       $form->{todate}   = "$form->{year}0930";
598       $form->{'0443'}   = "X";
599     }
600     if ($form->{period} eq "44") {
601       $form->{fromdate} = "$form->{year}1001";
602       $form->{todate}   = "$form->{year}1231";
603       $form->{'0444'}   = "X";
604     }
605
606     #Monthly reports
607   SWITCH: {
608       $form->{period} eq "01" && do {
609         $form->{fromdate} = "$form->{year}0101";
610         $form->{todate}   = "$form->{year}0131";
611         $form->{'0401'}   = "X";
612         last SWITCH;
613       };
614       $form->{period} eq "02" && do {
615         $form->{fromdate} = "$form->{year}0201";
616
617         #this works from 1901 to 2099, 1900 and 2100 fail.
618         my $leap = ($form->{year} % 4 == 0) ? "29" : "28";
619         $form->{todate} = "$form->{year}02$leap";
620         $form->{"0402"} = "X";
621         last SWITCH;
622       };
623       $form->{period} eq "03" && do {
624         $form->{fromdate} = "$form->{year}0301";
625         $form->{todate}   = "$form->{year}0331";
626         $form->{"0403"}   = "X";
627         last SWITCH;
628       };
629       $form->{period} eq "04" && do {
630         $form->{fromdate} = "$form->{year}0401";
631         $form->{todate}   = "$form->{year}0430";
632         $form->{"0404"}   = "X";
633         last SWITCH;
634       };
635       $form->{period} eq "05" && do {
636         $form->{fromdate} = "$form->{year}0501";
637         $form->{todate}   = "$form->{year}0531";
638         $form->{"0405"}   = "X";
639         last SWITCH;
640       };
641       $form->{period} eq "06" && do {
642         $form->{fromdate} = "$form->{year}0601";
643         $form->{todate}   = "$form->{year}0630";
644         $form->{"0406"}   = "X";
645         last SWITCH;
646       };
647       $form->{period} eq "07" && do {
648         $form->{fromdate} = "$form->{year}0701";
649         $form->{todate}   = "$form->{year}0731";
650         $form->{"0407"}   = "X";
651         last SWITCH;
652       };
653       $form->{period} eq "08" && do {
654         $form->{fromdate} = "$form->{year}0801";
655         $form->{todate}   = "$form->{year}0831";
656         $form->{"0408"}   = "X";
657         last SWITCH;
658       };
659       $form->{period} eq "09" && do {
660         $form->{fromdate} = "$form->{year}0901";
661         $form->{todate}   = "$form->{year}0930";
662         $form->{"0409"}   = "X";
663         last SWITCH;
664       };
665       $form->{period} eq "10" && do {
666         $form->{fromdate} = "$form->{year}1001";
667         $form->{todate}   = "$form->{year}1031";
668         $form->{"0410"}   = "X";
669         last SWITCH;
670       };
671       $form->{period} eq "11" && do {
672         $form->{fromdate} = "$form->{year}1101";
673         $form->{todate}   = "$form->{year}1130";
674         $form->{"0411"}   = "X";
675         last SWITCH;
676       };
677       $form->{period} eq "12" && do {
678         $form->{fromdate} = "$form->{year}1201";
679         $form->{todate}   = "$form->{year}1231";
680         $form->{"0412"}   = "X";
681         last SWITCH;
682       };
683     }
684
685   # Kontrollvariablen für die Templates
686   $form->{"year$_"} = ($form->{year} >= $_ ) ? "1":"0" for 2007..2107;
687
688   # Get the USTVA
689   $ustva->ustva(\%myconfig, \%$form);
690
691   # reformat Dates to dateformat
692   $form->{fromdate} = $locale->date(\%myconfig, $form->{fromdate}, 0, 0, 0);
693
694   $form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};
695   $form->{todate} = $locale->date(\%myconfig, $form->{todate}, 0, 0, 0);
696
697   $form->{longperiod} =
698     $locale->date(\%myconfig, $form->current_date(\%myconfig), 1, 0, 0);
699
700   # if there are any dates construct a where
701   if ($form->{fromdate} || $form->{todate}) {
702
703     $form->{todate} = $form->current_date(\%myconfig)  unless ($form->{todate});
704
705     my $longtodate  = $locale->date(\%myconfig, $form->{todate}, 1, 0, 0);
706     my $shorttodate = $locale->date(\%myconfig, $form->{todate}, 0, 0, 0);
707
708     my $longfromdate  = $locale->date(\%myconfig, $form->{fromdate}, 1, 0, 0);
709     my $shortfromdate = $locale->date(\%myconfig, $form->{fromdate}, 0, 0, 0);
710
711     $form->{this_period} = "$shortfromdate<br>\n$shorttodate";
712     $form->{longperiod}      =
713         $locale->text('for Period')
714       . qq|<br>\n$longfromdate |
715       . $locale->text('to (date)')
716       . qq| $longtodate|;
717   }
718
719   if ($form->{comparefromdate} || $form->{comparetodate}) {
720     my $longcomparefromdate =
721       $locale->date(\%myconfig, $form->{comparefromdate}, 1, 0, 0);
722     my $shortcomparefromdate =
723       $locale->date(\%myconfig, $form->{comparefromdate}, 0, 0, 0);
724
725     my $longcomparetodate =
726       $locale->date(\%myconfig, $form->{comparetodate}, 1, 0, 0);
727     my $shortcomparetodate =
728       $locale->date(\%myconfig, $form->{comparetodate}, 0, 0, 0);
729
730     $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate";
731     $form->{longperiod} .=
732         "<br>\n$longcomparefromdate "
733       . $locale->text('to (date)')
734       . qq| $longcomparetodate|;
735   }
736
737   $form->{Datum_heute} =
738     $locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0);
739
740   # setup variables for the form
741   my @a = qw(company businessnumber tel fax email
742     co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
743     co_name1 co_name2  co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2
744     co_fax co_fax1 co_email co_email1 co_url co_url1 ustid duns
745     co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
746     co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3);
747
748   map { $form->{$_} = $myconfig{$_} } @a;
749
750   if ($form->{address} ne '') {
751     my $temp = $form->{address};
752     $temp =~ s/\\n/<br \/>/;
753     ($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
754     $form->{co_city} =~ s/\\n//g;
755   }
756
757   ################################
758   #
759   # Nation specific customisations
760   #
761   ################################
762
763   # Germany
764
765   if ( $form->{coa} eq 'Germany-DATEV-SKR03EU' or $form->{coa} eq 'Germany-DATEV-SKR04EU') {
766
767     #
768     # Outputformat specific customisation's
769     #
770
771     my @category_cent = $ustva->report_variables({
772         myconfig    => \%myconfig,
773         form        => $form,
774         type        => '',
775         attribute   => 'position',
776         dec_places  => '2',
777     });
778
779     push @category_cent, qw(83  Z43  Z45  Z53  Z62  Z65  Z67);
780
781     my @category_euro = $ustva->report_variables({
782         myconfig    => \%myconfig,
783         form        => $form,
784         type        => '',
785         attribute   => 'position',
786         dec_places  => '0',
787     });
788
789     $form->{id} = [];
790     $form->{amount} = [];
791
792     if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') {
793
794       $form->{IN} = "$form->{type}-$form->{year}.tex";
795       $form->{padding} = "~~";
796       $form->{bold}    = "\textbf{";
797       $form->{endbold} = "}";
798       $form->{br}      = '\\\\';
799
800       # Zahlenformatierung für Latex USTVA Formulare
801
802       foreach my $number (@category_euro) {
803         $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '');
804       }
805
806       my ${decimal_comma} = ( $myconfig{numberformat} eq '1.000,00'
807            or $myconfig{numberformat} eq '1000,00' ) ? ',':'.';
808
809       foreach my $number (@category_cent) {
810         $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '');
811         $form->{$number} =~ s/${decimal_comma}/~~/g;
812       }
813
814     } elsif ( $form->{format} eq 'html') { # Formatierungen für HTML Ausgabe
815
816       $form->{IN} = $form->{type} . '.html';
817       $form->{padding} = "&nbsp;&nbsp;";
818       $form->{bold}    = "<b>";
819       $form->{endbold} = "</b>";
820       $form->{br}      = "<br>";
821       $form->{address} =~ s/\\n/\n/g;
822
823       foreach my $number (@category_cent) {
824         $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '0');
825       }
826
827       foreach my $number (@category_euro) {
828         $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '0');
829       }
830
831     } elsif ( $form->{format} eq 'elsterwinston' ) {
832
833       $form->{IN} = 'winston.xml';
834
835       #
836       # Build Winston filename
837       #
838
839       my $file = 'U';     # 1. char 'U' = USTVA
840       $file .= $form->{period};
841       #4. and 5. char = year modulo 100
842       $file .= sprintf("%02d", $form->{year} % 100);
843       #6. to 18. char = Elstersteuernummer
844       #Beispiel: Steuernummer in Bayern
845       #111/222/33334 ergibt für UStVA Jan 2004: U01049111022233334
846       $file .= $form->{elsterFFFF};
847       $file .= $form->{elstersteuernummer};
848       #file suffix
849       $file .= '.xml';
850       $file =~ s|.*/||;
851       $form->{tmpfile} = "$::lx_office_conf{paths}{userspath}/$file";
852
853       $form->{attachment_filename} = $file;
854
855       # Zahlenformatierung für Winston
856
857       my $temp_numberformat = $myconfig{numberformat};
858
859       # Numberformat must be '1000.00' for Winston
860
861       $myconfig{numberformat} = '1000.00';
862
863       foreach my $number (@category_cent) {
864         $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
865       }
866
867       foreach my $number (@category_euro) {
868         $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
869       }
870       # Re-set Numberformat
871       $myconfig{numberformat} = $temp_numberformat;
872
873       # push Kennziffern to <%foreach Array fo easyer
874       # output in xml format. Thx to Moritz.
875       my %winston_id_for = (
876          # No Winston remap?!
877       );
878
879       foreach my $kennziffer (@category_cent, @category_euro) {
880
881         next if ( $kennziffer =~ m/Z\d\d/);
882         next if (   $form->{$kennziffer} == 0 );
883
884         if (defined $winston_id_for{$kennziffer} ) {
885           push(@{ $form->{id}}, $winston_id_for{$kennziffer});
886         } else {
887           push(@{ $form->{id}}, "Kz$kennziffer");
888         }
889         push(@{ $form->{amount}}, $form->{$kennziffer});
890       }
891
892     } elsif ( $form->{format} eq 'elstertaxbird' ) {
893
894       # Define serveral filenames
895       $form->{IN} = 'taxbird.txb';
896
897       $form->{attachment_filename} = "USTVA-" . $form->{period}
898       . sprintf("%02d", $form->{year} % 100) . ".txb";
899
900       $form->{attachment_filename} =~ s|.*/||;
901       $form->{tmpfile} = "$::lx_office_conf{paths}{userspath}/" . $form->{attachment_filename};
902
903       # TODO: set Output to UTF-8 or system Preference
904       #$form->{"iconv"} = Text::Iconv->new($myconfig{dbcharset}, "UTF-8");
905       #my $iconv = $self->{"iconv"};
906       #$iconv->convert($variable);
907       if ($form->{period} =~ /^[4]\d$/ ){
908         my %periods = ( # Lx => taxbird
909                      '41' => '12',
910                      '42' => '13',
911                      '43' => '14',
912                      '44' => '15',
913                    );
914
915         foreach my $quarter ( keys %periods ) {
916           $form->{taxbird_period} = $periods{$quarter} if ( $form->{period} eq $quarter);
917         }
918       } elsif ($form->{period} =~ /^\d+$/ ) {
919         $form->{period} =~ s/^0//g;
920         my $period = $form->{period};
921         $period *= 1;
922         $period--;
923         $form->{taxbird_period} = $period;
924       } else {
925         $form->header;
926         USTVA::error( $locale->text('Wrong Period' ));
927         ::end_of_request();
928       }
929
930       # heuristics for address splitting
931       # lx-office holds the entire address in a single field.
932       # taxbird expects it to be splitted into street, zipcode and city
933       if ($form->{co_street} =~ /\n/) {
934         my $new_co_street;
935         for (split /\n/, $form->{co_street}) {
936           if (/(\d{3,5})\s+(\w+)/) {
937             $form->{co_zip}  = $1;
938             $form->{co_city} = $2;
939           } else {
940             $new_co_street .= $_;
941           }
942         }
943         $form->{co_street} = $new_co_street;
944       } else {
945         $form->{co_zip} = $form->{co_city};
946         $form->{co_zip} =~ s/\D//g;
947         $form->{co_city} =~ s/\d//g;
948         $form->{co_city} =~ s/^\s//g;
949       }
950
951       my $tax_office           = first { $_->{name} eq $form->{elsterland} } @{ $ustva->{tax_office_information} };
952       $form->{taxbird_land_nr} = $tax_office->{taxbird_nr} if $tax_office;
953
954       ($form->{co_phone_prefix}, $form->{co_phone}) = split("-", $form->{tel});
955       $form->{co_phone_prefix} =~ s/\s//g;
956       $form->{co_phone} =~ s/\s//g;
957
958        $form->{taxbird_steuernummer} = $form->{steuernummer};
959       #      $form->{taxbird_steuernummer} =~ s/\D//g;
960 #      $form->{taxbird_steuernummer} =~ s/\///; # ersten Querstrich ersetzen
961
962       # Numberformatting for Taxbird
963       my $temp_numberformat = $myconfig{numberformat};
964       # Numberformat must be '1000,00' for Taxbird ?!
965       $myconfig{numberformat} = '1000,00';
966       foreach my $number (@category_cent) {
967         $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';
968       }
969
970       foreach my $number (@category_euro) {
971         $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';
972       }
973       # Re-set Numberformat
974       $myconfig{numberformat} = $temp_numberformat;
975
976       # push Kennziffern to <%foreach Array fo easyer
977       # output in xml format. Thx to Moritz.
978       my %taxbird_id_for = (
979
980           '511'  =>  'Kz51-calc',
981           '861'  =>  'Kz86-calc',
982           '971'  =>  'Kz97-calc',
983           '931'  =>  'Kz93-calc',
984           '811'  =>  'Kz81-calc',
985           '891'  =>  'Kz89-calc',
986           'Z45'  =>  'uebertrag',
987           'Z53'  =>  'ust-sum',
988           'Z62'  =>  'ust-minus-vost',
989           'Z65'  =>  'ust-sum+69',
990           'Z67'  =>  'ust-vz',
991       );
992
993
994       for my $kennziffer (@category_cent, @category_euro) {
995
996         next if ($kennziffer eq 'Z43');
997
998         if ($form->{$kennziffer} != 0){
999           if (defined $taxbird_id_for{$kennziffer}) {
1000             push(@{ $form->{id}}, $taxbird_id_for{$kennziffer});
1001           } else {
1002             push(@{ $form->{id}}, "Kz$kennziffer");
1003           }
1004           push(@{ $form->{amount}}, $form->{$kennziffer});
1005         }
1006       }
1007
1008     } elsif ( $form->{format} eq '' ){ # No format error.
1009       $form->header;
1010       USTVA::error( $locale->text('Application Error. No Format given' ) . "!");
1011       ::end_of_request();
1012
1013     } else { # All other Formats are wrong
1014       $form->header;
1015       USTVA::error( $locale->text('Application Error. Wrong Format') . ": " . $form->{format} );
1016       ::end_of_request();
1017     }
1018
1019
1020   } else  # Outputformat for generic output
1021   {
1022
1023     my @category_cent = $ustva->report_variables({
1024         myconfig    => \%myconfig,
1025         form        => $form,
1026         type        => '',
1027         attribute   => 'position',
1028         dec_places  => '2',
1029     });
1030
1031     my @category_euro = $ustva->report_variables({
1032         myconfig    => \%myconfig,
1033         form        => $form,
1034         type        => '',
1035         attribute   => 'position',
1036         dec_places  => '0',
1037     });
1038
1039     $form->{USTVA} = [];
1040
1041     if ( $form->{format} eq 'generic') { # Formatierungen für HTML Ausgabe
1042
1043       my $rec_ref = {};
1044       for my $kennziffer (@category_cent, @category_euro) {
1045         $rec_ref = {};
1046         $rec_ref->{id} = $kennziffer;
1047         $rec_ref->{amount} = $form->format_amount(\%myconfig, $form->{$kennziffer}, 2, '0');
1048
1049         $::lxdebug->message($LXDebug::DEBUG, "Kennziffer $kennziffer: '$form->{$kennziffer}'" );
1050         $::lxdebug->dump($LXDebug::DEBUG, $rec_ref );
1051         push @ { $form->{USTVA} }, $rec_ref;
1052       }
1053
1054     }
1055
1056   }
1057
1058   if ( $form->{period} eq '13' and $form->{format} ne 'html') {
1059     $form->header;
1060     USTVA::info(
1061       $locale->text(
1062       'Yearly taxreport not yet implemented')
1063       . '!');
1064   }
1065
1066   $form->{templates} = $myconfig{templates};
1067   $form->{templates} = "doc" if ( $form->{type} eq 'help' );
1068
1069   if ($form->{format} eq 'generic'){
1070
1071     $form->header();
1072
1073     my $template_ref = {
1074         taxnumber => $myconfig{taxnumber},
1075     };
1076
1077     print($form->parse_html_template('ustva/generic_taxreport', $template_ref));
1078
1079   } else
1080   {
1081
1082     $form->parse_template(\%myconfig, $::lx_office_conf{paths}{userspath});
1083
1084   }
1085
1086   $::lxdebug->leave_sub();
1087 }
1088
1089 sub config_step1 {
1090   $::lxdebug->enter_sub();
1091
1092   $::auth->assert('advance_turnover_tax_return');
1093
1094 $::form->{title} = $::locale->text('Tax Office Preferences');
1095
1096   # edit all taxauthority prefs
1097
1098   $::form->header;
1099
1100   my $ustva = USTVA->new();
1101   $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini');
1102
1103   my $land = $::form->{elsterland};
1104   my $amt  = $::form->{elsterFFFF};
1105
1106
1107   $::form->{title} = $::locale->text('Tax Office Preferences');
1108
1109
1110   my $select_tax_office               = $ustva->fa_auswahl($land, $amt, $ustva->query_finanzamt(\%::myconfig, $::form));
1111   my $checked_accrual                 = $::form->{method}        eq 'accrual' ? q|checked="checked"| : '';
1112   my $checked_cash                    = $::form->{method}        eq 'cash'    ? q|checked="checked"| : '';
1113   my $checked_monthly                 = $::form->{FA_voranmeld}  eq 'month'   ? "checked"            : '';
1114   my $checked_quarterly               = $::form->{FA_voranmeld}  eq 'quarter' ? "checked"            : '';
1115   my $checked_dauerfristverlaengerung = $::form->{FA_dauerfrist} eq '1'       ? "checked"            : '';
1116   my $checked_kz_71                   = $::form->{FA_71}         eq 'X'       ? "checked"            : '';
1117
1118   my $_hidden_variables_ref;
1119
1120   my %_hidden_local_variables = (
1121     'saved'       => $::locale->text('Check Details'),
1122     'nextsub'     => 'config_step2',
1123     'warnung'     => '0',
1124   );
1125
1126   foreach my $variable (keys %_hidden_local_variables) {
1127     push @{ $_hidden_variables_ref },
1128         { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
1129   }
1130
1131   my @_hidden_form_variables = qw(
1132     FA_Name             FA_Strasse        FA_PLZ
1133     FA_Ort              FA_Telefon        FA_Fax
1134     FA_PLZ_Grosskunden  FA_PLZ_Postfach   FA_Postfach
1135     FA_BLZ_1            FA_Kontonummer_1  FA_Bankbezeichnung_1
1136     FA_BLZ_2            FA_Kontonummer_2  FA_Bankbezeichnung_oertlich
1137     FA_Oeffnungszeiten  FA_Email          FA_Internet
1138     steuernummer        elsterland        elstersteuernummer
1139     elsterFFFF
1140   );
1141
1142   foreach my $variable (@_hidden_form_variables) {
1143     push @{ $_hidden_variables_ref},
1144         { 'variable' => $variable, 'value' => $::form->{$variable} };
1145   }
1146
1147 # Which COA is in use?
1148
1149   $ustva->get_coa($::form, \%::myconfig);
1150
1151   # hä? kann die weg?
1152   my $steuernummer_new = '';
1153
1154   # Variablen für das Template zur Verfügung stellen
1155   my $template_ref = {
1156      select_tax_office               => $select_tax_office,
1157      checked_accrual                 => $checked_accrual,
1158      checked_cash                    => $checked_cash,
1159      checked_monthly                 => $checked_monthly,
1160      checked_quarterly               => $checked_quarterly,
1161      checked_dauerfristverlaengerung => $checked_dauerfristverlaengerung,
1162      hidden_variables                => $_hidden_variables_ref,
1163
1164   };
1165
1166   # Ausgabe des Templates
1167   print($::form->parse_html_template('ustva/config_step1', $template_ref));
1168
1169   $::lxdebug->leave_sub();
1170 }
1171
1172 sub config_step2 {
1173   $::lxdebug->enter_sub();
1174
1175   my $form     = $::form;
1176   my $locale   = $::locale;
1177   my %myconfig = %::myconfig;
1178
1179   $::auth->assert('advance_turnover_tax_return');
1180
1181   $form->header();
1182
1183 #  print qq|
1184 #    <body>
1185 #  |;
1186
1187   my $elsterland         = '';
1188   my $elster_amt         = '';
1189   my $elsterFFFF         = '';
1190   my $elstersteuernummer = '';
1191
1192   my $ustva = USTVA->new();
1193   $ustva->get_config($::lx_office_conf{paths}{userspath}, 'finanzamt.ini')
1194     if ($form->{saved} eq $locale->text('saved'));
1195
1196   # Auf Übergabefehler checken
1197   USTVA::info(  $locale->text('Missing Tax Authoritys Preferences') . "\n"
1198               . $locale->text('USTVA-Hint: Tax Authoritys'))
1199     if (   $form->{elsterFFFF_new} eq 'Auswahl'
1200         || $form->{elsterland_new} eq 'Auswahl');
1201   USTVA::info(  $locale->text('Missing Method!') . "\n"
1202               . $locale->text('USTVA-Hint: Method'))
1203     if ($form->{method} eq '');
1204
1205   # Klären, ob Variablen bereits befüllt sind UND ob veräderungen auf
1206   # der vorherigen Maske stattfanden: $change = 1(in der edit sub,
1207   # mittels get_config)
1208
1209   my $change = $form->{elsterland} eq $form->{elsterland_new}
1210     && $form->{elsterFFFF} eq $form->{elsterFFFF_new} ? '0' : '1';
1211   $change = '0' if ($form->{saved} eq $locale->text('saved'));
1212   my $elster_init = $ustva->query_finanzamt(\%myconfig, $form);
1213
1214   my %elster_init = %$elster_init;
1215
1216   if ($change eq '1') {
1217
1218     # Daten ändern
1219     $elsterland           = $form->{elsterland_new};
1220     $elsterFFFF           = $form->{elsterFFFF_new};
1221     $form->{elsterland}   = $elsterland;
1222     $form->{elsterFFFF}   = $elsterFFFF;
1223     $form->{steuernummer} = '';
1224
1225     create_steuernummer();
1226
1227     # rebuild elster_amt
1228     my $amt = '';
1229     foreach $amt (keys %{ $elster_init{ $form->{elsterland} } }) {
1230       $elster_amt = $amt
1231         if ($elster_init{ $form->{elsterland}{$amt} eq $form->{elsterFFFF} });
1232     }
1233
1234     # load the predefined hash data into the FA_* Vars
1235     my @variables = qw(FA_Name FA_Strasse FA_PLZ FA_Ort
1236       FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach
1237       FA_Postfach
1238       FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1
1239       FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich
1240       FA_Oeffnungszeiten FA_Email FA_Internet);
1241
1242     for (my $i = 0; $i <= 20; $i++) {
1243       $form->{ $variables[$i] } =
1244         $elster_init->{$elsterland}->{$elsterFFFF}->[$i];
1245     }
1246
1247   } else {
1248
1249     $elsterland = $form->{elsterland};
1250     $elsterFFFF = $form->{elsterFFFF};
1251
1252   }
1253   my $stnr = $form->{steuernummer};
1254   $stnr =~ s/\D+//g;
1255   my $patterncount   = $form->{patterncount};
1256   my $elster_pattern = $form->{elster_pattern};
1257   my $delimiter      = $form->{delimiter};
1258   my $steuernummer   = $stnr eq '' ? $form->{steuernummer} : '';
1259
1260   $form->{FA_Oeffnungszeiten} =~ s/\\\\n/\n/g;
1261
1262
1263   $ustva->get_coa($form, \%myconfig);
1264
1265   my $input_steuernummer = $ustva->steuernummer_input(
1266                              $form->{elsterland},
1267                              $form->{elsterFFFF},
1268                              $form->{steuernummer}
1269   );
1270
1271   $::lxdebug->message(LXDebug->DEBUG1, qq|$input_steuernummer|);
1272
1273
1274   my $_hidden_variables_ref;
1275
1276   my %_hidden_local_variables = (
1277       'elsterland'          => $elsterland,
1278       'elsterFFFF'          => $elsterFFFF,
1279       'warnung'             => 0,
1280       'elstersteuernummer'  => $elstersteuernummer,
1281       'steuernummer'        => $stnr,
1282       'lastsub'             => 'config_step1',
1283       'nextsub'             => 'save',
1284
1285   );
1286
1287   foreach my $variable (keys %_hidden_local_variables) {
1288     push @{ $_hidden_variables_ref },
1289         { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
1290   }
1291
1292   my @_hidden_form_variables = qw(
1293     FA_steuerberater_name   FA_steuerberater_street
1294     FA_steuerberater_city   FA_steuerberater_tel
1295     FA_voranmeld            method
1296     FA_dauerfrist           FA_71
1297     elster
1298     type                    elster_init
1299     saved                   callback
1300   );
1301
1302   foreach my $variable (@_hidden_form_variables) {
1303     push @{ $_hidden_variables_ref},
1304         { 'variable' => $variable, 'value' => $form->{$variable} };
1305   }
1306
1307   my $template_ref = {
1308      input_steuernummer              => $input_steuernummer,
1309      readonly                        => '', #q|disabled="disabled"|,
1310      callback                        => $form->{callback},
1311      hidden_variables                => $_hidden_variables_ref,
1312   };
1313
1314   # Ausgabe des Templates
1315   print($form->parse_html_template('ustva/config_step2', $template_ref));
1316
1317
1318   $::lxdebug->leave_sub();
1319 }
1320
1321 sub create_steuernummer {
1322   $::lxdebug->enter_sub();
1323
1324   $::auth->assert('advance_turnover_tax_return');
1325
1326   my $part           = $::form->{part};
1327   my $patterncount   = $::form->{patterncount};
1328   my $delimiter      = $::form->{delimiter};
1329   my $elster_pattern = $::form->{elster_pattern};
1330
1331   # rebuild steuernummer and elstersteuernummer
1332   # es gibt eine gespeicherte steuernummer $form->{steuernummer}
1333   # und die parts und delimiter
1334
1335   my $h = 0;
1336   my $i = 0;
1337
1338   my $steuernummer_new       = $part;
1339   my $elstersteuernummer_new = $::form->{elster_FFFF};
1340   $elstersteuernummer_new .= '0';
1341
1342   for ($h = 1; $h < $patterncount; $h++) {
1343     $steuernummer_new .= qq|$delimiter|;
1344     for (my $i = 1; $i <= length($elster_pattern); $i++) {
1345       $steuernummer_new       .= $::form->{"part_$h\_$i"};
1346       $elstersteuernummer_new .= $::form->{"part_$h\_$i"};
1347     }
1348   }
1349   if ($::form->{steuernummer} ne $steuernummer_new) {
1350     $::form->{steuernummer}       = $steuernummer_new;
1351     $::form->{elstersteuernummer} = $elstersteuernummer_new;
1352     $::form->{steuernummer_new}   = $steuernummer_new;
1353   } else {
1354     $::form->{steuernummer_new}       = '';
1355     $::form->{elstersteuernummer_new} = '';
1356   }
1357   $::lxdebug->leave_sub();
1358 }
1359
1360 sub save {
1361   $::lxdebug->enter_sub();
1362
1363   $::auth->assert('advance_turnover_tax_return');
1364
1365   my $filename = "$::form->{login}_$::form->{filename}";
1366   $filename =~ s|.*/||;
1367
1368   #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen
1369   create_steuernummer();
1370
1371   # Textboxen formatieren: Linebreaks entfernen
1372   #
1373   $::form->{FA_Oeffnungszeiten} =~ s/\r\n/\\n/g;
1374
1375   #URL mit http:// davor?
1376   $::form->{FA_Internet} =~ s/^http:\/\///;
1377   $::form->{FA_Internet} = 'http://' . $::form->{FA_Internet};
1378
1379   my @config = qw(
1380     elster              elsterland            elstersteuernummer  steuernummer
1381     elsteramt           elsterFFFF            FA_Name             FA_Strasse
1382     FA_PLZ              FA_Ort                FA_Telefon          FA_Fax
1383     FA_PLZ_Grosskunden  FA_PLZ_Postfach       FA_Postfach         FA_BLZ_1
1384     FA_Kontonummer_1    FA_Bankbezeichnung_1  FA_BLZ_2            FA_Kontonummer_2
1385     FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten
1386     FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name
1387     FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel
1388     FA_71 FA_dauerfrist);
1389
1390   # Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer
1391   if ($::form->{elstersteuernummer} ne '000000000') {
1392
1393     $::form->{elster} = '1';
1394
1395     open my $ustvaconfig, ">", "$::lx_office_conf{paths}{userspath}/$filename" or $::form->error("$filename : $!");
1396
1397     # create the config file
1398     print {$ustvaconfig} qq|# Configuration file for USTVA\n\n|;
1399     my $key = '';
1400     foreach $key (sort @config) {
1401       $::form->{$key} =~ s/\\/\\\\/g;
1402       # strip M
1403       $::form->{$key} =~ s/\r\n/\n/g;
1404
1405       print {$ustvaconfig} qq|$key=|;
1406       if ($::form->{$key} ne 'Y') {
1407         print {$ustvaconfig} qq|$::form->{$key}\n|;
1408       }
1409       if ($::form->{$key} eq 'Y') {
1410         print {$ustvaconfig} qq|checked \n|;
1411       }
1412     }
1413     print {$ustvaconfig} qq|\n\n|;
1414     close $ustvaconfig;
1415     $::form->{saved} = $::locale->text('saved');
1416
1417   } else {
1418
1419     $::form->{saved} = $::locale->text('Choose a Tax Number');
1420   }
1421
1422   config_step2();
1423   $::lxdebug->leave_sub();
1424 }
1425
1426
1427 sub continue {
1428   $::lxdebug->enter_sub();
1429
1430   # allow Symbolic references just here:
1431   call_sub($::form->{"nextsub"});
1432   $::lxdebug->leave_sub();
1433 }
1434
1435 sub back {
1436   $::lxdebug->enter_sub();
1437   call_sub($::form->{"lastsub"});
1438   $::lxdebug->leave_sub();
1439 }
1440