-
-
- $department
-|;
-
- # Hier Aufruf von get_config aus bin/mozilla/fa.pl zum
# Einlesen der Finanzamtdaten
&get_config($userspath, 'finanzamt.ini');
-
+
# Hier Einlesen der user-config
# steuernummer entfernt für prerelease
- my @a = qw(signature name company address businessnumber tel fax email
- co_chief co_department co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
- co_name1 co_name2
- co_street co_street1 co_zip co_city co_city1 co_country co_tel co_tel1 co_tel2
- co_fax co_fax1 co_email co_email1 co_url co_url1 ustid duns
- co_bankname co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
- co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2 co_accountnr3);
+ my @a = qw(
+ signature name company address businessnumber
+ tel fax email co_chief co_department
+ co_custom1 co_custom2 co_custom3 co_custom4 co_custom5
+ co_name1 co_name2 co_street co_street1 co_zip
+ co_city co_city1 co_country co_tel co_tel1
+ co_tel2 co_fax co_fax1 co_email co_email1
+ co_url co_url1 ustid duns co_bankname
+ co_bankname1 co_bankname2 co_bankname3 co_blz co_blz1
+ co_blz2 co_blz3 co_accountnr co_accountnr1 co_accountnr2
+ co_accountnr3
+ );
map { $form->{$_} = $myconfig->{$_} } @a;
- my $oeffnungszeiten = $form->{FA_Oeffnungszeiten};
- $oeffnungszeiten =~ s/\\\\n/ /g;
- print qq|
-
-
-
-
- |;
- if ($form->{FA_steuerberater_name} ne '') {
- print qq|
-
-
- |;
+ 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|{path}&action=config|
+ . qq|&level=Programm--Preferences&login=$form->{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| | |;
-
- if ($form->{FA_Name} ne '') {
- print 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"|;
- }
-
- print qq|
- |
-
- |;
+ ];
+
+
+ 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));
- #}# end if report = ustva
-
- print qq|
-
- |
-
-