|;
- if ($form->{FA_steuerberater_name} ne ''){
+ if ($form->{FA_steuerberater_name} ne '') {
print qq|
| |;
-
- if ($form->{FA_Name} ne ''){
+
+ if ($form->{FA_Name} ne '') {
print qq|
$form->{FA_Name}
|;
-
+
#if ($form->{FA_Ergaenzung_Name ne ''}){
# print qq|
# $form->{FA_Ergaenzung_Name} 
@@ -277,14 +304,19 @@ sub report {
$form->{FA_PLZ} $form->{FA_Ort}
- |.$locale->text('Tel. : ').qq|
+ | . $locale->text('Tel. : ') . qq|
$form->{FA_Telefon}
- |.$locale->text('Fax. : ').qq|
+ | . $locale->text('Fax. : ') . qq|
$form->{FA_Fax}
- {steuernummer}:").qq|&body=|.CGI::escape("Sehr geehrte Damen und Herren,\n\n\nMit freundlichen Grüßen\n\n").CGI::escape($form->{signature}).qq|">
+ {steuernummer}:")
+ . qq|&body=|
+ . CGI::escape(
+ "Sehr geehrte Damen und Herren,\n\n\nMit freundlichen Grüßen\n\n")
+ . CGI::escape($form->{signature}) . qq|">
$form->{FA_Email}
@@ -293,150 +325,119 @@ sub report {
- |.$locale->text('Öffnungszeiten').qq|
+ | . $locale->text('Öffnungszeiten') . qq|
$oeffnungszeiten
|;
-
- my $FA_1= ($form->{FA_BLZ_1} ne '' &&
- $form->{FA_Kontonummer_1} ne '' &&
- $form->{FA_Bankbezeichnung_1} ne '');
- my $FA_2= ($form->{FA_BLZ_2} ne '' &&
- $form->{FA_Kontonummer_2} ne '' &&
- $form->{FA_Bankbezeichnung_oertlich} ne '');
-
- if ( $FA_1 && $FA_2){
- print qq|
+
+ my $FA_1 =
+ ( $form->{FA_BLZ_1} ne ''
+ && $form->{FA_Kontonummer_1} ne ''
+ && $form->{FA_Bankbezeichnung_1} ne '');
+ my $FA_2 =
+ ( $form->{FA_BLZ_2} ne ''
+ && $form->{FA_Kontonummer_2} ne ''
+ && $form->{FA_Bankbezeichnung_oertlich} ne '');
+
+ if ($FA_1 && $FA_2) {
+ print qq|
- |.$locale->text('Bankverbindungen').qq|
+ | . $locale->text('Bankverbindungen') . qq|
$form->{FA_Bankbezeichnung_1}
- |.$locale->text('Konto: ').qq|
+ | . $locale->text('Konto: ') . qq|
$form->{FA_Kontonummer_1}
- |.$locale->text('BLZ: ').qq|
+ | . $locale->text('BLZ: ') . qq|
$form->{FA_BLZ_1}
|
$form->{FA_Bankbezeichnung_oertlich}
- |.$locale->text('Konto: ').qq|
+ | . $locale->text('Konto: ') . qq|
$form->{FA_Kontonummer_2}
- |.$locale->text('BLZ: ').qq|
+ | . $locale->text('BLZ: ') . qq|
$form->{FA_BLZ_2}
|
|;
- } elsif ( $FA_1 ) {
- print qq|
+ } elsif ($FA_1) {
+ print qq|
- |.$locale->text('Bankverbindung').qq|
+ | . $locale->text('Bankverbindung') . qq|
$form->{FA_Bankbezeichnung_1}
- |.$locale->text('Konto: ').qq|
+ | . $locale->text('Konto: ') . qq|
$form->{FA_Kontonummer_1}
- |.$locale->text('BLZ: ').qq|
+ | . $locale->text('BLZ: ') . qq|
$form->{FA_BLZ_1}
|;
- } elsif ( $FA_2 ) {
- print qq|
+ } elsif ($FA_2) {
+ print qq|
- |.$locale->text('Bankverbindung').qq|
+ | . $locale->text('Bankverbindung') . qq|
$form->{FA_Bankbezeichnung_oertlich}
- |.$locale->text('Konto: ').qq|
+ | . $locale->text('Konto: ') . qq|
$form->{FA_Kontonummer_2}
- |.$locale->text('BLZ: ').qq|
+ | . $locale->text('BLZ: ') . qq|
$form->{FA_BLZ_2}
- |;
- }
- print qq|
+ |;
+ }
+ print qq|
|;
-
- &show_options;
- my $ausgabe = '1';
- print qq|
+
+ &show_options;
+ my $ausgabe = '1';
+ 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|
- #
- #
- #
- #
- # $stichtag
- # $description
- # $form->{today}
- #
- # |;
-
- } else {
- print qq|
+
+ } else {
+ print qq|
|
- Die Ausgabefunktionen sind wegen fehlender Daten deaktiviert.
- Hilfe:
+ |
+ . $locale->text('Missing Preferences: Outputroutine disabled')
+ . qq|
+ | . $locale->text('Help:') . qq|
|;
- my $ausgabe='';
- $hide = q|disabled="disabled"|;
- }
-
-
+ my $ausgabe = '';
+ $hide = q|disabled="disabled"|;
+ }
- print qq|
+ print qq|
|
|;
- #}# end if report = ustva
-
+ #}# end if report = ustva
print qq|