SL::DB::BackgroudJob::ALL entfernt
[kivitendo-erp.git] / bin / mozilla / ustva.pl
1 #=====================================================================
2 # kivitendo 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., 51 Franklin Street, Fifth Floor, Boston,
22 # MA 02110-1335, USA.
23 #======================================================================
24 # German Tax authority Module and later ELSTER Interface
25 # 08.01.14  ELSTER Interface software (taxbird/winston) removed
26 #======================================================================
27
28 use strict;
29 use utf8;
30
31 require "bin/mozilla/common.pl";
32
33 use List::Util qw(first);
34
35 use SL::DB::Default;
36 use SL::RP;
37 use SL::USTVA;
38 use SL::User;
39 use SL::Locale::String qw(t8);
40 1;
41
42 # this is for our long dates
43 # $locale->text('January')
44 # $locale->text('February')
45 # $locale->text('March')
46 # $locale->text('April')
47 # $locale->text('May ')
48 # $locale->text('June')
49 # $locale->text('July')
50 # $locale->text('August')
51 # $locale->text('September')
52 # $locale->text('October')
53 # $locale->text('November')
54 # $locale->text('December')
55
56 # this is for our short month
57 # $locale->text('Jan')
58 # $locale->text('Feb')
59 # $locale->text('Mar')
60 # $locale->text('Apr')
61 # $locale->text('May')
62 # $locale->text('Jun')
63 # $locale->text('Jul')
64 # $locale->text('Aug')
65 # $locale->text('Sep')
66 # $locale->text('Oct')
67 # $locale->text('Nov')
68 # $locale->text('Dec')
69
70 #############################
71
72 sub report {
73   $::lxdebug->enter_sub();
74
75   my $form     = $::form;
76   my $locale   = $::locale;
77   my %myconfig = %::myconfig;
78
79   $::auth->assert('advance_turnover_tax_return');
80
81   my $defaults   = SL::DB::Default->get;
82   $form->{title} = $locale->text('UStVA');
83   $form->{kz10}  = '';                       #Berichtigte Anmeldung? Ja =1 Nein=0
84
85   my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig ),
86              0, 4);
87
88   my $department = '';
89   my $hide = '';
90
91   setup_ustva_report_action_bar();
92   $form->header;
93
94   # Einlesen der Finanzamtdaten
95   my $ustva = USTVA->new();
96   $ustva->get_config();
97   $ustva->get_finanzamt();
98
99   # Hier Einlesen der user-config
100   # steuernummer entfernt für prerelease
101   my @a = qw(
102     signature      name
103     tel            fax           email         co_chief       co_department
104     co_custom1     co_custom2    co_custom3    co_custom4     co_custom5
105     co_name1       co_name2      co_street     co_street1     co_zip
106     co_city        co_city1      co_country    co_tel         co_tel1
107     co_tel2        co_fax        co_fax1       co_email       co_email1
108     co_url         co_url1       co_bankname
109     co_bankname1   co_bankname2  co_bankname3  co_blz         co_blz1
110     co_blz2        co_blz3       co_accountnr  co_accountnr1  co_accountnr2
111     co_accountnr3
112   );
113
114   $form->{$_} = $myconfig{$_} for @a;
115
116   my $openings = $form->{fa_oeffnungszeiten};
117   $openings =~ s/\\\\n/<br>/g;
118
119   my $company_given = ($form->{company} ne '')
120     ? qq|<h3>$form->{company}</h3>\n|
121     : qq|<a href="controller.pl?action=ClientConfig/edit">|
122       . $locale->text('No Company Name given') . qq|!</a><br>|;
123
124
125   # Anpassungen der Variablennamen auf pre 2.1.1 Namen
126   # klären, ob $form->{company_street|_address} gesetzt sind
127   if ($form->{address} ne '') {
128     my $temp = $form->{address};
129     $temp =~ s/\n/<br \/>/;
130     ($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp);
131     $form->{co_city} =~ s/\n//g;
132   }
133
134
135   my $address_given =
136     ($form->{co_street} && ($form->{co_zip} || $form->{co_city}))
137     ? qq|$form->{co_street}<br>|
138         . qq|$form->{co_street1}<br>|
139         . qq|$form->{co_zip} $form->{co_city}|
140     : qq|<a href="controller.pl?action=ClientConfig/edit">|
141         . $locale->text('No Company Address given')
142         . qq|!</a>\n|;
143
144   $form->{co_email} = $form->{email} unless $form->{co_email};
145   $form->{co_tel}   = $form->{tel}   unless $form->{co_tel};
146   $form->{co_fax}   = $form->{fax}   unless $form->{co_fax};
147   $form->{co_url}   = $form->{urlx}  unless $form->{co_url};
148
149   my $taxnumber_given = ($form->{taxnumber} ne '') ? $form->{taxnumber} : qq|<a href="ustva.pl?action=config_step1">Keine Steuernummer hinterlegt!</a><br>|;
150   my $fa_name_given = ($form->{fa_name} ne '') ? $form->{fa_name} : qq|<a href="ustva.pl?action=config_step1">Kein Finanzamt hinterlegt!</a><br>|;
151   my $ustva_vorauswahl = &ustva_vorauswahl();
152
153   my @all_years = $form->all_years(\%myconfig);
154
155   my $select_year = qq|<select name=year title="|
156     . $locale->text('Year') . qq|">|;
157   foreach my $key (@all_years) {
158     $select_year .= qq|<option |;
159     $select_year .= qq|selected| if ($key eq $form->{year});
160     $select_year .= qq| >$key</option>|;
161   }
162   $select_year   .=  qq|</select>|;
163
164   my $_checked = '';
165   $_checked = "checked" if ($form->{kz10} eq '1');
166   my $checkbox_kz_10 = qq|<input name="FA_10" id=FA_10 class=checkbox|
167     . qq| type=checkbox value="1" $_checked title = "|
168     . $locale->text('Amended Advance Turnover Tax Return').'(Nr. 10)'
169     . qq|">|
170     . $locale->text('Amended Advance Turnover Tax Return');
171
172   $_checked = "checked" if ($form->{kz22} eq '1');
173   my $checkbox_kz_22 = qq|<input name="FA_22" id=FA_22 class=checkbox|
174     . qq| type=checkbox value="1" $_checked title = "|
175     . $locale->text('Receipts attached/extra').'(Nr. 22)'
176     . qq|">|
177     . $locale->text('Receipts attached/extra');
178
179   $_checked = "checked" if ($form->{kz29} eq '1');
180   my $checkbox_kz_29 = qq|<input name="FA_29" id=FA_29 class=checkbox|
181     . qq| type=checkbox value="1" $_checked title = "|
182     . $locale->text('Accounting desired').'(Nr. 29)'
183     . qq|">|
184     . $locale->text('Accounting desired');
185
186   $_checked = "checked" if ($form->{kz26} eq '1');
187   my $checkbox_kz_26 = qq|<input name="FA_26" id=FA_26 class=checkbox|
188     . qq| type=checkbox value="1" $_checked title = "|
189     . $locale->text('Direct debit revoked').'(Nr. 26)'
190     . qq|">|
191     . $locale->text('Direct debit revoked');
192
193   my $method_local = ($form->{accounting_method} eq 'accrual') ? $locale->text('accrual')
194                    : ($form->{accounting_method} eq 'cash')    ? $locale->text('cash')
195                    : '';
196
197   my $period_local = ( $form->{fa_voranmeld} eq 'month')   ? $locale->text('month')
198                    : ( $form->{fa_voranmeld} eq 'quarter') ? $locale->text('quarter')
199                    : '';
200
201   my @tax_office_banks_ref = (
202     { BLZ             => $form->{fa_blz_1},
203       Kontonummer     => $form->{fa_kontonummer_1},
204       Bankbezeichnung => $form->{fa_bankbezeichnung_1}
205     },
206     { BLZ             => $form->{fa_blz_2},
207       Kontonummer     => $form->{fa_kontonummer_2},
208       Bankbezeichnung => $form->{fa_bankbezeichnung_2}
209     }
210   );
211
212   $ustva->get_coa($form); # fetches coa and modifies some form variables
213
214   my $template_ref = {
215     openings         => $openings,
216     company_given    => $company_given,
217     address_given    => $address_given,
218     taxnumber_given  => $taxnumber_given,
219     fa_name_given    => $fa_name_given,
220     taxnumber        => $defaults->taxnumber,
221     select_year      => $select_year,
222     period_local     => $period_local,
223     method_local     => $method_local,
224     ustva_vorauswahl => $ustva_vorauswahl,
225     checkbox_kz_10   => $checkbox_kz_10,
226     checkbox_kz_22   => $checkbox_kz_22,
227     checkbox_kz_29   => $checkbox_kz_29,
228     checkbox_kz_26   => $checkbox_kz_26,
229     tax_office_banks => \@tax_office_banks_ref,
230     select_options   => &show_options,
231
232   };
233
234   print($form->parse_html_template('ustva/report', $template_ref));
235
236   $::lxdebug->leave_sub();
237 }
238
239
240 sub ustva_vorauswahl {
241   $::lxdebug->enter_sub();
242
243   my $form     = $::form;
244   my $locale   = $::locale;
245   my %myconfig = %::myconfig;
246
247   $::auth->assert('advance_turnover_tax_return');
248
249   my $select_vorauswahl;
250
251   #Aktuelles Datum zerlegen:
252   my $date = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
253
254   #$locale->date($myconfig, $form->current_date($myconfig), 0)=~ /(\d\d).(\d\d).(\d\d\d\d)/;
255   $form->{day}   = substr($date, 6, 2);
256   $form->{month} = substr($date, 4, 2);
257   $form->{year}  = substr($date, 0, 4);
258   $::lxdebug->message(LXDebug->DEBUG1, qq|
259     Actual date from Database: $date\n
260     Actual year from Database: $form->{year}\n
261     Actual day from Database: $form->{day}\n
262     Actual month from Database: $form->{month}\n|);
263
264   my $sel    = '';
265   my $yymmdd = '';
266
267   # Testdaten erzeugen:
268   #$form->{day}= '11';
269   #$form->{month}= '01';
270   #$form->{year}= 2004;
271   $select_vorauswahl = qq|
272      <input type="hidden" name="day" value="$form->{day}">
273      <input type="hidden" name="month" value="$form->{month}">
274      <input type="hidden" name="yymmdd" value="$yymmdd">
275      <input type="hidden" name="sel" value="$sel">
276   |;
277
278   if ($form->{fa_voranmeld} eq 'month') {
279
280     # Vorauswahl bei monatlichem Voranmeldungszeitraum
281
282     my %liste = ('01' => $locale->text('January'),
283                  '02' => $locale->text('February'),
284                  '03' => $locale->text('March'),
285                  '04' => $locale->text('April'),
286                  '05' => $locale->text('May'),
287                  '06' => $locale->text('June'),
288                  '07' => $locale->text('July'),
289                  '08' => $locale->text('August'),
290                  '09' => $locale->text('September'),
291                  '10' => $locale->text('October'),
292                  '11' => $locale->text('November'),
293                  '12' => $locale->text('December'),
294                  '13' => $locale->text('Yearly'),
295                 );
296
297     my $yy = $form->{year} * 10000;
298     $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
299     $sel    = '';
300     my $dfv = '';
301
302     # Offset für Dauerfristverlängerung
303     $dfv = '100' if ($form->{fa_dauerfrist} eq '1');
304
305   SWITCH: {
306       $yymmdd <= ($yy + 110 + $dfv) && do {
307         $form->{year} = $form->{year} - 1;
308         $sel = '12';
309         last SWITCH;
310       };
311       $yymmdd <= ($yy + 210 + $dfv) && do {
312         $sel = '01';
313         last SWITCH;
314       };
315       $yymmdd <= ($yy + 310 + $dfv) && do {
316         $sel = '02';
317         last SWITCH;
318       };
319       $yymmdd <= ($yy + 410 + $dfv) && do {
320         $sel = '03';
321         last SWITCH;
322       };
323       $yymmdd <= ($yy + 510 + $dfv) && do {
324         $sel = '04';
325         last SWITCH;
326       };
327       $yymmdd <= ($yy + 610 + $dfv) && do {
328         $sel = '05';
329         last SWITCH;
330       };
331       $yymmdd <= ($yy + 710 + $dfv) && do {
332         $sel = '06';
333         last SWITCH;
334       };
335       $yymmdd <= ($yy + 810 + $dfv) && do {
336         $sel = '07';
337         last SWITCH;
338       };
339       $yymmdd <= ($yy + 910 + $dfv) && do {
340         $sel = '08';
341         last SWITCH;
342       };
343       $yymmdd <= ($yy + 1010 + $dfv) && do {
344         $sel = '09';
345         last SWITCH;
346       };
347       $yymmdd <= ($yy + 1110 + $dfv) && do {
348         $sel = '10';
349         last SWITCH;
350       };
351       $yymmdd <= ($yy + 1210) && do {
352         $sel = '11';
353         last SWITCH;
354       };
355       $yymmdd <= ($yy + 1231) && do {
356         $sel = '12';
357         last SWITCH;
358       };
359
360     }
361     $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
362   . $locale->text('Select a period') . qq|" >|;
363
364     my $key = '';
365     foreach $key (sort keys %liste) {
366       my $selected = '';
367       $selected = 'selected' if ($sel eq $key);
368       $select_vorauswahl .= qq|
369          <option value="$key" $selected> $liste{$key}</option>
370       |;
371     }
372     $select_vorauswahl .= qq|</select>|;
373
374   } elsif ($form->{fa_voranmeld} eq 'quarter') {
375
376     # Vorauswahl bei quartalsweisem Voranmeldungszeitraum
377     my %liste = ('41'  => $locale->text('1. Quarter'),
378                  '42'  => $locale->text('2. Quarter'),
379                  '43'  => $locale->text('3. Quarter'),
380                  '44'  => $locale->text('4. Quarter'),
381                  '13' => $locale->text('Yearly'),);
382
383     my $yy = $form->{year} * 10000;
384     $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;
385     $sel    = '';
386     my $dfv = '';    # Offset für Dauerfristverlängerung
387     $dfv = '100' if ($form->{fa_dauerfrist} eq '1');
388
389   SWITCH: {
390       $yymmdd <= ($yy + 110 + $dfv) && do {
391         $form->{year} = $form->{year} - 1;
392         $sel = '44';
393         last SWITCH;
394       };
395       $yymmdd <= ($yy + 410 + $dfv) && do {
396         $sel = '41';
397         last SWITCH;
398       };
399       $yymmdd <= ($yy + 710 + $dfv) && do {
400         $sel = '42';
401         last SWITCH;
402       };
403       $yymmdd <= ($yy + 1010 + $dfv) && do {
404         $sel = '43';
405         last SWITCH;
406       };
407       $yymmdd <= ($yy + 1231) && do {
408         $sel = '44';
409       };
410     }
411
412     $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
413       . $locale->text('Select a period') . qq|" >|;
414     my $key = '';
415     foreach $key (sort keys %liste) {
416       my $selected = '';
417       $selected = 'selected' if ($sel eq $key);
418       $select_vorauswahl .= qq|
419          <option value="$key" $selected>$liste{$key}</option>
420      |;
421     }
422     $select_vorauswahl .= qq|\n</select>
423    |;
424
425   } else {
426
427     # keine Vorauswahl bei Voranmeldungszeitraum
428     $select_vorauswahl .= qq|<select id="zeitraum" name="period" title="|
429       . $locale->text('Select a period') . qq|" >|;
430
431     my %listea = ('41' => '1. Quarter',
432                   '42' => '2. Quarter',
433                   '43' => '3. Quarter',
434                   '44' => '4. Quarter',);
435
436     my %listeb = ('01' => 'January',
437                   '02' => 'February',
438                   '03' => 'March',
439                   '04' => 'April',
440                   '05' => 'May',
441                   '06' => 'June',
442                   '07' => 'July',
443                   '08' => 'August',
444                   '09' => 'September',
445                   '10' => 'October',
446                   '11' => 'November',
447                   '12' => 'December',
448                   '13' => 'Yearly',);
449     my $key = '';
450     foreach $key (sort keys %listea) {
451       $select_vorauswahl .= qq|
452          <option value="$key">|
453         . $locale->text("$listea{$key}")
454         . qq|</option>\n|;
455     }
456
457     foreach $key (sort keys %listeb) {
458       $select_vorauswahl .= qq|
459          <option value="$key">|
460         . $locale->text("$listeb{$key}")
461         . qq|</option>\n|;
462     }
463     $select_vorauswahl .= qq|</select>|;
464   }
465   $::lxdebug->leave_sub();
466
467   return $select_vorauswahl;
468 }
469
470 sub show_options {
471   $::lxdebug->enter_sub();
472
473   $::auth->assert('advance_turnover_tax_return');
474
475   #  $form->{PD}{$form->{type}} = "selected";
476   #  $form->{DF}{$form->{format}} = "selected";
477   #  $form->{OP}{$form->{media}} = "selected";
478   #  $form->{SM}{$form->{sendmode}} = "selected";
479   my $type   = qq|      <input type=hidden name="type" value="ustva">|;
480   my $media  = qq|      <input type=hidden name="media" value="screen">|;
481   my $format =
482       qq|       <option value=html selected>|
483     . $::locale->text('HTML')
484     . qq|</option>|;
485
486   #my $disabled= qq|disabled="disabled"|;
487   #$disabled='' if ($form->{elster} eq '1' );
488   #if ($::form->{elster} eq '1') {
489   if ( 1 ) {
490     $format .=
491         qq|<option value=elstertaxbird>|
492       . $::locale->text('ELSTER Export (via Geierlein)')
493       . qq|</option>|;
494   }
495
496   my $show_options = qq|
497     $type
498     $media
499     <select name=format title = "|
500     . $::locale->text('Choose Outputformat') . qq|">$format</select>
501   |;
502   $::lxdebug->leave_sub();
503
504   return $show_options;
505 }
506
507 sub generate_ustva {
508   $::lxdebug->enter_sub();
509
510   my $form     = $::form;
511   my $locale   = $::locale;
512   my %myconfig = %::myconfig;
513
514   $::auth->assert('advance_turnover_tax_return');
515
516   my $defaults = SL::DB::Default->get;
517
518   my $ustva = USTVA->new();
519   $ustva->get_config();
520   $ustva->get_finanzamt();
521
522   # Setze Anmeldungszeitraum
523
524   $ustva->set_FromTo(\%$form);
525
526   # Get the USTVA
527   $ustva->ustva(\%myconfig, \%$form);
528
529   # reformat Dates to dateformat
530   $form->{fromdate} = $locale->date(\%myconfig, $form->{fromdate}, 0, 0, 0);
531
532   $form->{todate} = $form->current_date(\%myconfig) unless $form->{todate};
533   $form->{todate} = $locale->date(\%myconfig, $form->{todate}, 0, 0, 0);
534
535   $form->{longperiod} =
536     $locale->date(\%myconfig, $form->current_date(\%myconfig), 1, 0, 0);
537
538   # if there are any dates construct a where
539   if ($form->{fromdate} || $form->{todate}) {
540
541     $form->{todate} = $form->current_date(\%myconfig)  unless ($form->{todate});
542
543     my $longtodate  = $locale->date(\%myconfig, $form->{todate}, 1, 0, 0);
544     my $shorttodate = $locale->date(\%myconfig, $form->{todate}, 0, 0, 0);
545
546     my $longfromdate  = $locale->date(\%myconfig, $form->{fromdate}, 1, 0, 0);
547     my $shortfromdate = $locale->date(\%myconfig, $form->{fromdate}, 0, 0, 0);
548
549     $form->{this_period} = "$shortfromdate<br>\n$shorttodate";
550     $form->{longperiod}      =
551         $locale->text('for Period')
552       . qq|<br>\n$longfromdate |
553       . $locale->text('to (date)')
554       . qq| $longtodate|;
555   }
556
557   if ($form->{comparefromdate} || $form->{comparetodate}) {
558     my $longcomparefromdate =
559       $locale->date(\%myconfig, $form->{comparefromdate}, 1, 0, 0);
560     my $shortcomparefromdate =
561       $locale->date(\%myconfig, $form->{comparefromdate}, 0, 0, 0);
562
563     my $longcomparetodate =
564       $locale->date(\%myconfig, $form->{comparetodate}, 1, 0, 0);
565     my $shortcomparetodate =
566       $locale->date(\%myconfig, $form->{comparetodate}, 0, 0, 0);
567
568     $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate";
569     $form->{longperiod} .=
570         "<br>\n$longcomparefromdate "
571       . $locale->text('to (date)')
572       . qq| $longcomparetodate|;
573   }
574
575   $form->{Datum_heute} =
576     $locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0);
577
578   # setup variables for the form
579   my @a = qw(tel fax email
580     co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
581     co_name1 co_name2  co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2
582     co_fax co_fax1 co_email co_email1 co_url co_url1
583     co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
584     co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3);
585
586   $form->{$_} = $myconfig{$_} for @a;
587   $form->{$_} = $defaults->$_ for qw(company address co_ustid duns);
588
589   if ($form->{address} ne '') {
590     my $temp = $form->{address};
591     $temp =~ s/\n/<br \/>/;
592     ($form->{co_street}, $form->{co_city}) = split("<br \/>", $temp,2);
593     $form->{co_city} =~ s/\\n//g;
594   }
595
596    $form->{id} = [];
597    $form->{amount} = [];
598
599    if ( $form->{format} eq 'html') { # Formatierungen für HTML Ausgabe
600
601       $form->{IN} = $form->{type} . '.html';
602       $form->{padding} = "&nbsp;&nbsp;";
603       $form->{bold}    = "<b>";
604       $form->{endbold} = "</b>";
605       $form->{br}      = "<br>";
606       $form->{address} =~ s/\\n/\n/g;
607
608       foreach my $number (@{$::form->{category_cent}}) {
609         $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '2', '0');
610       }
611
612       foreach my $number (@{$::form->{category_euro}}) {
613         $form->{$number} = $form->format_amount(\%myconfig, $form->{$number}, '0', '0');
614       }
615    } else { # we have only html
616       $form->header;
617       USTVA::error( $locale->text('Application Error. Wrong Format') . ": " . $form->{format} );
618       $::dispatcher->end_request;
619    }
620   if ( $form->{period} eq '13' and $form->{format} ne 'html') {
621     $form->header;
622     USTVA::info(
623       $locale->text(
624       'Yearly taxreport not yet implemented')
625       . '!');
626   }
627
628   # add a prefix for ustva pos numbers, i.e.: 81 ->  post_ustva_81
629   $form->{"pos_ustva_$_"} = $form->{$_} for grep { m{^\d+} } keys %{ $form };
630   $form->{title} = $locale->text('Advance turnover tax return');
631
632   $form->header;
633   print $form->parse_html_template('ustva/ustva');
634
635   $::lxdebug->leave_sub();
636 }
637
638 sub config_step1 {
639   $::lxdebug->enter_sub();
640
641   $::auth->assert('advance_turnover_tax_return');
642
643 $::form->{title} = $::locale->text('Tax Office Preferences');
644
645   # edit all taxauthority prefs
646
647   setup_ustva_config_step1_action_bar();
648
649   $::form->header;
650
651   my $ustva = USTVA->new();
652   $ustva->get_config();
653   $ustva->get_finanzamt();
654
655   my $land = $::form->{fa_land_nr};
656   my $amt  = $::form->{fa_bufa_nr};
657
658
659   $::form->{title} = $::locale->text('Tax Office Preferences');
660
661
662   my $select_tax_office               = $ustva->fa_auswahl($land, $amt, $ustva->query_finanzamt(\%::myconfig, $::form));
663   my $method_local = ($::form->{accounting_method} eq 'accrual') ? $::locale->text('accrual')
664                    : ($::form->{accounting_method} eq 'cash')    ? $::locale->text('cash')
665                    : '';
666
667   my $checked_monthly                 = $::form->{fa_voranmeld}  eq 'month'   ? "checked"            : '';
668   my $checked_quarterly               = $::form->{fa_voranmeld}  eq 'quarter' ? "checked"            : '';
669   my $checked_dauerfristverlaengerung = $::form->{da_dauerfrist} eq '1'       ? "checked"            : '';
670
671   my $_hidden_variables_ref;
672
673   my %_hidden_local_variables = (
674     'saved'       => $::locale->text('Check Details'),
675   );
676
677   foreach my $variable (keys %_hidden_local_variables) {
678     push @{ $_hidden_variables_ref },
679         { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
680   }
681
682   my @_hidden_form_variables = $ustva->get_fiamt_vars();
683   push @_hidden_form_variables ,qw(fa_bufa_nr taxnumber accounting_method coa);
684
685   foreach my $variable (@_hidden_form_variables) {
686     push @{ $_hidden_variables_ref},
687         { 'variable' => $variable, 'value' => $::form->{$variable} };
688   }
689
690   $ustva->get_coa($::form); # fetches coa and modifies some form variables
691
692   # Variablen für das Template zur Verfügung stellen
693   my $template_ref = {
694      select_tax_office               => $select_tax_office,
695      method_local                    => $method_local,
696      checked_monthly                 => $checked_monthly,
697      checked_quarterly               => $checked_quarterly,
698      checked_dauerfristverlaengerung => $checked_dauerfristverlaengerung,
699      hidden_variables                => $_hidden_variables_ref,
700
701   };
702
703   # Ausgabe des Templates
704   print($::form->parse_html_template('ustva/config_step1', $template_ref));
705
706   $::lxdebug->leave_sub();
707 }
708
709 sub config_step2 {
710   $::lxdebug->enter_sub();
711
712   my $form     = $::form;
713   my $locale   = $::locale;
714   my %myconfig = %::myconfig;
715
716   $::auth->assert('advance_turnover_tax_return');
717
718   setup_ustva_config_step2_action_bar();
719
720   $form->header();
721
722   my $fa_land_nr         = '';
723   my $fa_bufa_nr         = '';
724
725   my $ustva = USTVA->new();
726   $ustva->get_config() if ($form->{saved} eq $locale->text('saved'));
727   my $coa = $::form->{coa};
728   $form->{"COA_$coa"}  = '1';
729   $form->{COA_Germany} = '1' if ($coa =~ m/^germany/i);
730   $ustva->get_finanzamt();
731
732
733   # Auf Übergabefehler checken
734   USTVA::info(  $locale->text('Missing Tax Authoritys Preferences') . "\n"
735               . $locale->text('USTVA-Hint: Tax Authoritys'))
736     if (   $form->{fa_bufa_nr_new} eq 'Auswahl'
737         || $form->{fa_land_nr_new} eq 'Auswahl');
738   USTVA::info(  $locale->text('Missing Method!') . "\n"
739               . $locale->text('USTVA-Hint: Method'))
740     if ($form->{accounting_method} eq '');
741
742   # Klären, ob Variablen bereits befüllt sind UND ob veränderungen auf
743   # der vorherigen Maske stattfanden: $change = 1(in der edit sub,
744   # mittels get_config)
745
746 #  $::lxdebug->message(LXDebug->DEBUG2,"land old=".$form->{fa_land_nr}." new=".$form->{fa_land_nr_new});
747 #  $::lxdebug->message(LXDebug->DEBUG2,"bufa old=".$form->{fa_bufa_nr}." new=".$form->{fa_bufa_nr_new});
748   my $change = $form->{fa_land_nr} eq $form->{fa_land_nr_new}
749     && $form->{fa_bufa_nr} eq $form->{fa_bufa_nr_new} ? '0' : '1';
750   $change = '0' if ($form->{saved} eq $locale->text('saved'));
751
752
753   if ($change eq '1') {
754
755     # Daten ändern
756     $fa_land_nr           = $form->{fa_land_nr_new};
757     $fa_bufa_nr           = $form->{fa_bufa_nr_new};
758     $form->{fa_land_nr}   = $fa_land_nr;
759     $form->{fa_bufa_nr}   = $fa_bufa_nr;
760     $form->{taxnumber} = '';
761
762     create_steuernummer();
763
764     # rebuild elster_amt
765     $ustva->get_finanzamt();
766
767   } else {
768
769     $fa_land_nr = $form->{fa_land_nr};
770     $fa_bufa_nr = $form->{fa_bufa_nr};
771
772   }
773 #  $::lxdebug->message(LXDebug->DEBUG2, "form stnr=".$form->{taxnumber}." fa_bufa_nr=".$fa_bufa_nr.
774 #                      " pattern=".$form->{elster_pattern}." fa_land_nr=".$fa_land_nr);
775   my $stnr = $form->{taxnumber};
776   $stnr =~ s/\D+//g;
777   my $taxnumber      = $stnr eq '' ? $form->{taxnumber} : '';
778
779   $form->{fa_oeffnungszeiten} =~ s/\\\\n/\n/g;
780
781
782   $ustva->get_coa($form); # fetches coa and modifies some form variables
783
784   my $input_steuernummer = $ustva->steuernummer_input(
785                              $fa_land_nr,
786                              $fa_bufa_nr,
787                              $form->{taxnumber}
788   );
789
790 #  $::lxdebug->message(LXDebug->DEBUG2, qq|$input_steuernummer|);
791
792
793   my $_hidden_variables_ref;
794
795   my %_hidden_local_variables = (
796       'fa_land_nr'          => $fa_land_nr,
797       'fa_bufa_nr'          => $fa_bufa_nr,
798       'taxnumber'           => $stnr,
799       'lastsub'             => 'config_step1',
800       'nextsub'             => 'save',
801
802   );
803
804   foreach my $variable (keys %_hidden_local_variables) {
805     push @{ $_hidden_variables_ref },
806         { 'variable' => $variable, 'value' => $_hidden_local_variables{$variable} };
807   }
808
809   my @_hidden_form_variables = qw(
810     fa_dauerfrist fa_steuerberater_city fa_steuerberater_name
811     fa_steuerberater_street fa_steuerberater_tel
812     fa_voranmeld fa_dauerfrist
813     accounting_method
814     type
815     saved
816   );
817
818   foreach my $variable (@_hidden_form_variables) {
819     push @{ $_hidden_variables_ref},
820         { 'variable' => $variable, 'value' => $form->{$variable} };
821   }
822
823   my $template_ref = {
824      input_steuernummer              => $input_steuernummer,
825      readonly                        => '', #q|disabled="disabled"|,
826      COA_Germany                     => $form->{COA_Germany},
827      hidden_variables                => $_hidden_variables_ref,
828   };
829
830   # Ausgabe des Templates
831   print($form->parse_html_template('ustva/config_step2', $template_ref));
832
833
834   $::lxdebug->leave_sub();
835 }
836
837 sub create_steuernummer {
838   $::lxdebug->enter_sub();
839
840   $::auth->assert('advance_turnover_tax_return');
841
842   my $part           = $::form->{part};
843   my $patterncount   = $::form->{patterncount};
844   my $delimiter      = $::form->{delimiter1};
845   my $elster_pattern = $::form->{elster_pattern};
846
847   # rebuild taxnumber
848   # es gibt eine gespeicherte steuernummer $form->{taxnumber}
849   # und die parts und delimiter
850
851   my $h = 0;
852   my $i = 0;
853
854   my $taxnumber_new       = $part;
855
856   for ($h = 1; $h < $patterncount; $h++) {
857     $delimiter = $::form->{delimiter2} if $h > 1;
858     $taxnumber_new .= qq|$delimiter|;
859     for (my $i = 1; $i <= length($elster_pattern); $i++) {
860       $taxnumber_new       .= $::form->{"part_$h\_$i"};
861     }
862   }
863 #  $::lxdebug->message(LXDebug->DEBUG2, "oldstnr=".$::form->{taxnumber}." newstnr=".$taxnumber_new);
864   if ($::form->{taxnumber} ne $taxnumber_new) {
865     $::form->{taxnumber}       = $taxnumber_new;
866     $::form->{taxnumber_new}   = $taxnumber_new;
867   } else {
868     $::form->{taxnumber_new}       = '';
869   }
870   $::lxdebug->leave_sub();
871 }
872
873 sub save {
874   $::lxdebug->enter_sub();
875
876   $::auth->assert('advance_turnover_tax_return');
877
878   #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen
879   create_steuernummer();
880
881   # Textboxen formatieren: Linebreaks entfernen
882   #
883   $::form->{fa_oeffnungszeiten} =~ s/\r\n/\\n/g;
884
885   #URL mit http:// davor?
886   $::form->{fa_internet} =~ s/^http:\/\///;
887   $::form->{fa_internet} = 'http://' . $::form->{fa_internet};
888
889   # Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer TODO ??
890   if (1) {
891     my $ustva = USTVA->new();
892     $ustva->save_config();
893
894     #$::form->{elster} = '1';
895     $::form->{saved} = $::locale->text('saved');
896
897   } else {
898
899     $::form->{saved} = $::locale->text('Choose a Tax Number');
900   }
901
902   config_step2();
903   $::lxdebug->leave_sub();
904 }
905
906
907 sub continue {
908   $::lxdebug->enter_sub();
909
910   # allow Symbolic references just here:
911   call_sub($::form->{"nextsub"});
912   $::lxdebug->leave_sub();
913 }
914
915 sub back {
916   $::lxdebug->enter_sub();
917   call_sub($::form->{"lastsub"});
918   $::lxdebug->leave_sub();
919 }
920
921 sub setup_ustva_report_action_bar {
922   for my $bar ($::request->layout->get('actionbar')) {
923     $bar->add(
924       action => [
925         t8('Show'),
926         submit    => [ '#form_do', { action => 'generate_ustva' } ],
927         accesskey => 'enter',
928       ],
929       action => [
930         t8('Geierlein'),
931         call     => [ 'sendGeierlein' ],
932         disabled => !length($::lx_office_conf{paths}{geierlein_path} // '') ? t8('The Geierlein path has not been set in the configuration.') : undef,
933         tooltip  => t8('Transfer data to Geierlein ELSTER application'),
934       ],
935     );
936   }
937 }
938
939 sub setup_ustva_config_step1_action_bar {
940   for my $bar ($::request->layout->get('actionbar')) {
941     $bar->add(
942       action => [
943         t8('Continue'),
944         submit    => [ '#form', { action => 'config_step2' } ],
945         accesskey => 'enter',
946       ],
947     );
948   }
949 }
950
951 sub setup_ustva_config_step2_action_bar {
952   for my $bar ($::request->layout->get('actionbar')) {
953     $bar->add(
954       action => [
955         t8('Save'),
956         submit    => [ '#form', { action => 'save' } ],
957         accesskey => 'enter',
958       ],
959       action => [
960         t8('Back'),
961         call => [ 'kivi.history_back' ],
962       ],
963     );
964   }
965 }