-
-
-
- |;
- if ($form->{FA_steuerberater_name} ne '') {
- print qq|
-
-
- |;
- }
- print qq|
-
-
- | |;
-
- if ($form->{FA_Name} ne '') {
- print qq|
-
-
-
-
- |;
+ # Which COA is in use?
- # 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|
- #
- #
- # |;
+ $ustva->get_coa($form, \%myconfig);
- } else {
- print qq|
- |
-
- |;
- my $ausgabe = '';
- $hide = q|disabled="disabled"|;
- }
+ my $template_ref = {
+ openings => $openings,
+ company_given => $company_given,
+ address_given => $address_given,
+ taxnumber_given => $taxnumber_given,
+ taxnumber => $defaults->taxnumber,
+ 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 qq|
- |
-
- |;
+ };
- #}# end if report = ustva
-
- print qq|
-