- print qq|
- <!--<br>
- | . $locale->text('ELSTER-Steuernummer: ') . qq|
- $form->{elstersteuernummer}
- <br>-->
- <br>
-
- </fieldset>
- <br>
- |;
- if ($form->{FA_steuerberater_name} ne '') {
- print qq|
- <fieldset>
- <legend>
- <input checked="checked" title="|
- . $locale->text('Beraterdaten in UStVA übernehmen?')
- . qq|" name="FA_steuerberater" id=steuerberater class=checkbox type=checkbox value="1">
- <b>| . $locale->text('Steuerberater/-in') . qq|</b>
- </legend>
-
- $form->{FA_steuerberater_name}<br>
- $form->{FA_steuerberater_street}<br>
- $form->{FA_steuerberater_city}<br>
- Tel: $form->{FA_steuerberater_tel}<br>
- </fieldset>
- <br>
- |;
- }
- print qq|
- <fieldset>
- <legend>
- <b>| . $locale->text('Voranmeldezeitraum') . qq|</b>
- </legend>
- |;
- &ustva_vorauswahl();
-
- my @years = ();
- if (not defined $form->{all_years}) {
-
- # accounting years if SQL-Ledger Version < 2.4.1
- # $year = $form->{year} * 1;
- @years = sort { $b <=> $a } (2000 .. ($year));
- $form->{all_years} = \@years;
- }
- map { $form->{selectaccountingyear} .= qq|<option>$_\n| }
- @{ $form->{all_years} };
- print qq|
- <select name=year title="| . $locale->text('Year') . qq|">
- |;
- my $key = '';
- foreach $key (@years) {
- print qq|<option |;
- print qq|selected| if ($key eq $form->{year});
- print qq| >$key</option>
- |;
- }
-
- my $voranmeld = $form->{FA_voranmeld};
- print qq| </select>|;
- my $checked = '';
- $checked = "checked" if ($form->{kz10} eq '1');
- print qq|
- <input name="FA_10" id=FA_10 class=checkbox type=checkbox value="1" $checked title = "|
- . $locale->text(
- 'Ist dies eine berichtigte Anmeldung? (Nr. 10/Zeile 15 Steuererklärung)')
- . qq|">
- | . $locale->text('Berichtigte Anmeldung') . qq|
- <br>
- |;
-
- if ($voranmeld ne '') {
- print qq|
- <br>
- | . $locale->text($voranmeld) . qq|
- |;
- print qq| mit Dauerfristverlängerung| if ($form->{FA_dauerfrist} eq '1');
- print qq|
-
- <br>
- |;
- }
- if ($form->{method} ne '') {
- print qq|| . $locale->text('Method') . qq|: |;
- print qq|| . $locale->text('accrual') . qq||
- if ($form->{method} eq 'accrual');
- print qq|| . $locale->text('cash') . qq|| if ($form->{method} eq 'cash');
- }
- print qq|
- </fieldset>
-
- </td>|;
-
- if ($form->{FA_Name} ne '') {
- print qq|
- <td width="50%" valign="top">
- <fieldset>
- <legend>
- <b>| . $locale->text('Finanzamt') . qq|</b>
- </legend>
- <h3>$form->{FA_Name}</h2>
- |;
-
- #if ($form->{FA_Ergaenzung_Name ne ''}){
- # print qq|
- # $form->{FA_Ergaenzung_Name} 
- # <br>
- # |;
- #}
- print qq|
- $form->{FA_Strasse}
- <br>
- $form->{FA_PLZ} $form->{FA_Ort}
- <br>
- <br>
- | . $locale->text('Tel. : ') . qq|
- $form->{FA_Telefon}
- <br>
- | . $locale->text('Fax. : ') . qq|
- $form->{FA_Fax}
- <br>
- <br>
- <a href="mailto:$form->{FA_Email}?subject=|
- . CGI::escape("Steuer Nr: $form->{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}
- </a>
- <br>
- <a href="$form->{FA_Internet}">
- $form->{FA_Internet}
- </a>
- <br>
- <br>
- | . $locale->text('Öffnungszeiten') . qq|
- <br>
- $oeffnungszeiten
- <br>
- |;
-
- 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|
- <br>
- | . $locale->text('Bankverbindungen') . qq|
- <table>
- <tr>
- <td>
- $form->{FA_Bankbezeichnung_1}
- <br>
- | . $locale->text('Konto: ') . qq|
- $form->{FA_Kontonummer_1}
- <br>
- | . $locale->text('BLZ: ') . qq|
- $form->{FA_BLZ_1}
- </td>
- <td>
- $form->{FA_Bankbezeichnung_oertlich}
- <br>
- | . $locale->text('Konto: ') . qq|
- $form->{FA_Kontonummer_2}
- <br>
- | . $locale->text('BLZ: ') . qq|
- $form->{FA_BLZ_2}
- </td>
- </tr>
- </table>
- <br>|;
- } elsif ($FA_1) {
- print qq|
- <br>
- | . $locale->text('Bankverbindung') . qq|
- <br>
- <br>
- $form->{FA_Bankbezeichnung_1}
- <br>
- | . $locale->text('Konto: ') . qq|
- $form->{FA_Kontonummer_1}
- <br>
- | . $locale->text('BLZ: ') . qq|
- $form->{FA_BLZ_1} <br>
- <br>|;
- } elsif ($FA_2) {
- print qq|
- <br>
- | . $locale->text('Bankverbindung') . qq|
- <br>
- <br>
- $form->{FA_Bankbezeichnung_oertlich}
- <br>
- | . $locale->text('Konto: ') . qq|
- $form->{FA_Kontonummer_2}
- <br>
- | . $locale->text('BLZ: ') . qq|
- $form->{FA_BLZ_2}
- |;
+ $select_year .= qq|</select>|;
+
+ my $_checked = '';
+ $_checked = "checked" if ($form->{kz10} eq '1');
+ my $checkbox_kz_10 = qq|<input name="FA_10" id=FA_10 class=checkbox|
+ . qq| type=checkbox value="1" $_checked title = "|
+ . $locale->text('Amended Advance Turnover Tax Return').'(Nr. 10)'
+ . qq|">|
+ . $locale->text('Amended Advance Turnover Tax Return');
+
+ $_checked = "checked" if ($form->{kz22} eq '1');
+ my $checkbox_kz_22 = qq|<input name="FA_22" id=FA_22 class=checkbox|
+ . qq| type=checkbox value="1" $_checked title = "|
+ . $locale->text('Receipts attached/extra').'(Nr. 22)'
+ . qq|">|
+ . $locale->text('Receipts attached/extra');
+
+ $_checked = "checked" if ($form->{kz29} eq '1');
+ my $checkbox_kz_29 = qq|<input name="FA_29" id=FA_29 class=checkbox|
+ . qq| type=checkbox value="1" $_checked title = "|
+ . $locale->text('Accounting desired').'(Nr. 29)'
+ . qq|">|
+ . $locale->text('Accounting desired');
+
+ $_checked = "checked" if ($form->{kz26} eq '1');
+ my $checkbox_kz_26 = qq|<input name="FA_26" id=FA_26 class=checkbox|
+ . qq| type=checkbox value="1" $_checked title = "|
+ . $locale->text('Direct debit revoked').'(Nr. 26)'
+ . qq|">|
+ . $locale->text('Direct debit revoked');
+
+ my $method_local = ($form->{accounting_method} eq 'accrual') ? $locale->text('accrual')
+ : ($form->{accounting_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_2}