-
-
-
- |;
- if ($form->{FA_steuerberater_name} ne ''){
- print qq|
-
-
- |;
- }
- print qq|
-
- | |;
-
- if ($form->{FA_Name} ne ''){
- print qq|
-
-
-
-
- |;
-
+ # 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
+ );
+ map { $form->{$_} = $myconfig->{$_} } @a;
- # 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"|;
- }
+ my $openings = $form->{FA_Oeffnungszeiten};
+ $openings =~ s/\\\\n/ /g;
+ my $company_given = ($form->{company} ne '')
+ ? qq|$form->{company}\n|
+ : qq|{path}&action=config|
+ . qq|&level=Programm--Preferences&login=$form->{login}|
+ . qq|&password=$form->{password}>|
+ . $locale->text('No Company Name given') . qq|! |;
- print qq|
- |
-
- |;
- #}# end if report = ustva
-
+ # Anpassungen der Variablennamen auf pre 2.1.1 Namen
+ # klären, ob $form->{company_street|_address} gesetzt sind
+ if ($form->{address} ne '') {
+ my $temp = $form->{address};
+ $temp =~ s/\\n/