-
-
- $department
-|;
- # Hier Aufruf von get_config aus bin/mozilla/fa.pl zum
+
# Einlesen der Finanzamtdaten
- &get_config($userspath, 'finanzamt.ini');
-
- my @a = qw(signature name company address businessnumber tel fax email
- company_street company_city company_email);
- map { $form->{$_} = $myconfig->{$_} } @a;
-
- my $oeffnungszeiten = $form->{FA_Oeffnungszeiten} ;
- $oeffnungszeiten =~ s/\\\\n/ /g;
- print qq|
-
-
-
-
- |;
- if ($form->{FA_steuerberater_name} ne ''){
- print qq|
-
-
- |;
- }
- print qq|
-
+ map { $form->{$_} = $myconfig->{$_} } @a;
- | |;
-
- if ($form->{FA_Name} ne ''){
- print qq|
-
-
-
-
- |;
-
+ my $openings = $form->{FA_Oeffnungszeiten};
+ $openings =~ s/\\\\n/ /g;
+ my $company_given = ($form->{company} ne '')
+ ? qq|$form->{company}\n|
+ : qq|{login}|
+ . qq|&password=$form->{password}>|
+ . $locale->text('No Company Name given') . qq|! |;
- # Stichtag der nächsten USTVA berechnen
- #
- # ($stichtag, $tage_bis, $ical) = FA->stichtag($today[dd.mm.yyyy],
- # $FA_dauerfrist[1,0],
- # $FA_voranmeld[month, quarter])
- #$tmpdateform= $myconfig{dateformat};
- # $myconfig{dateformat}= "dd.mm.yyyy";
- # $form->{today} = $form->datetonum($form->current_date(\%myconfig), \%myconfig);
- # ($stichtag, $description, $tage_bis, $ical) = FA::stichtag($form->{today}, $form->{FA_dauerfrist},$form->{FA_voranmeld});
- # $form->{today} = $form->date($stichtag, \%myconfig );
- #$myconfig{dateformat}= $tmpdateform;
-
-
- #print qq|
- #
- #
- # |;
-
- } else {
- print qq|
- |
-
- |;
- my $ausgabe='';
- $hide = q|disabled="disabled"|;
- }
+ # Anpassungen der Variablennamen auf pre 2.1.1 Namen
+ # klären, ob $form->{company_street|_address} gesetzt sind
+ if ($form->{address} ne '') {
+ my $temp = $form->{address};
+ $temp =~ s/\\n/ /;
+ ($form->{co_street}, $form->{co_city}) = split(" ", $temp);
+ $form->{co_city} =~ s/\\n//g;
+ }
- print qq|
- |
-
- |;
- #}# end if report = ustva
+ my $address_given =
+ ($form->{co_street} ne ''
+ and (
+ $form->{co_zip} ne ''
+ or $form->{co_city} ne ''
+ )
+ )
+ ? qq|$form->{co_street} |
+ . qq|$form->{co_street1} |
+ . qq|$form->{co_zip} $form->{co_city}|
+ : qq|{login}|
+ . qq|&password=$form->{password}>|
+ . $locale->text('No Company Address given')
+ . qq|!\n|;
+
+ $form->{co_email} = $form->{email} unless $form->{co_email};
+ $form->{co_tel} = $form->{tel} unless $form->{co_tel};
+ $form->{co_fax} = $form->{fax} unless $form->{co_fax};
+ $form->{co_url} = $form->{urlx} unless $form->{co_url};
+
+ my $taxnumber_given = ($form->{steuernummer} ne '')
+ ? qq|$form->{steuernummer}|
+ : qq|{login}|
+ . qq|&password=$form->{password}">Keine Steuernummer hinterlegt!|
+ . qq| |;
+
+ my $ustva_vorauswahl = &ustva_vorauswahl();
+
+ my @all_years = $form->all_years(\%myconfig);
+
+ my $select_year = qq||;
+
+ my $_checked = '';
+ $_checked = "checked" if ($form->{kz10} eq '1');
+ my $checkbox_kz_10 = qq||
+ . $locale->text('Amended Advance Turnover Tax Return');
+
+ my $method_local = ($form->{method} eq 'accrual') ? $locale->text('accrual')
+ : ($form->{method} eq 'cash') ? $locale->text('cash')
+ : '';
+
+ my $period_local = ( $form->{FA_voranmeld} eq 'month') ? $locale->text('month')
+ : ( $form->{FA_voranmeld} eq 'quarter') ? $locale->text('quarter')
+ : '';
+
+ my $tax_office_banks_ref = [
+ { BLZ => $form->{FA_BLZ_1},
+ Kontonummer => $form->{FA_Kontonummer_1},
+ Bankbezeichnung => $form->{FA_Bankbezeichnung_1}
+ },
+ { BLZ => $form->{FA_BLZ_2},
+ Kontonummer => $form->{FA_Kontonummer_2},
+ Bankbezeichnung => $form->{FA_Bankbezeichnung_oertlich}
+ }
+ ];
+
+ my $template_ref = {
+ openings => $openings,
+ company_given => $company_given,
+ address_given => $address_given,
+ taxnumber_given => $taxnumber_given,
+ select_year => $select_year,
+ period_local => $period_local,
+ method_local => $method_local,
+ ustva_vorauswahl => $ustva_vorauswahl,
+ checkbox_kz_10 => $checkbox_kz_10,
+ tax_office_banks => $tax_office_banks_ref,
+ select_options => &show_options,
+ };
+
+ print($form->parse_html_template('ustva/report', $template_ref));
- print qq|
-
- |
-
-