-
-
-
- |;
- if ($form->{FA_steuerberater_name} ne '') {
- print qq|
-
-
- |;
+ my $address_given =
+ ($form->{co_street} && ($form->{co_zip} || $form->{co_city}))
+ ? qq|$form->{co_street} |
+ . qq|$form->{co_street1} |
+ . qq|$form->{co_zip} $form->{co_city}|
+ : qq||
+ . $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->{taxnumber} ne '') ? $form->{taxnumber} : qq|Keine Steuernummer hinterlegt! |;
+ my $fa_name_given = ($form->{fa_name} ne '') ? $form->{fa_name} : qq|Kein Finanzamt hinterlegt! |;
+ 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');
+
+ $_checked = "checked" if ($form->{kz22} eq '1');
+ my $checkbox_kz_22 = qq||
+ . $locale->text('Receipts attached/extra');
+
+ $_checked = "checked" if ($form->{kz29} eq '1');
+ my $checkbox_kz_29 = qq||
+ . $locale->text('Accounting desired');
+
+ $_checked = "checked" if ($form->{kz26} eq '1');
+ my $checkbox_kz_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}
+ }
+ );
- my @years = ();
- if (not defined $form->{all_years}) {
+ $ustva->get_coa($form); # fetches coa and modifies some form variables
- # accounting years if SQL-Ledger Version < 2.4.1
- # $year = $form->{year} * 1;
- @years = sort { $b <=> $a } (2000 .. ($year+1));
- $form->{all_years} = \@years;
- }
- map { $form->{selectaccountingyear} .= qq| | |;
-
- if ($form->{FA_Name} ne '') {
- print qq|
-
-
-
-
- |;
+ $::lxdebug->leave_sub();
+}
- # 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|
- |
-
- |;
+sub help {
+ $::lxdebug->enter_sub();
- #}# end if report = ustva
-
- print qq|
-