X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fustva.pl;h=2151c4ab12eed6f97683e0655971251fab9bc8ae;hb=c2ed42c3f435937925ef825de61f2520196d1de6;hp=1bab65166c1977e08f75ce20aea99125f88a2170;hpb=ee072e4f077213bf6f8792ca8f0a1afebbb6282f;p=kivitendo-erp.git diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 1bab65166..2151c4ab1 100644 --- a/bin/mozilla/ustva.pl +++ b/bin/mozilla/ustva.pl @@ -29,7 +29,7 @@ require "$form->{path}/arap.pl"; #use strict; #no strict 'refs'; #use diagnostics; -#use warnings FATAL=> 'all'; +#use warnings; # FATAL=> 'all'; #use vars qw($locale $form %myconfig); #our ($myconfig); #use CGI::Carp "fatalsToBrowser"; @@ -76,13 +76,7 @@ sub report { $form->{title} = $locale->text('UStVA'); $form->{kz10} = ''; #Berichtigte Anmeldung? Ja =1 - # $accrual = ($eur) ? "" : "checked"; - # $cash = ($eur) ? "checked" : ""; - my $year = ''; - my $null = ''; - ($null, $null, $null, $null, $null, $year, $null, $null, $null) = - localtime(); - $year += 1900; + my $year = substr($form->datetonum($form->current_date(\%myconfig), \%myconfig),0,4); my $department = ''; local $hide = ''; @@ -109,9 +103,17 @@ sub report { # Hier Aufruf von get_config aus bin/mozilla/fa.pl zum # Einlesen der Finanzamtdaten &get_config($userspath, 'finanzamt.ini'); - + + # Hier Einlesen der user-config + # steuernummer entfernt für prerelease my @a = qw(signature name company address businessnumber tel fax email - company_street company_city company_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; my $oeffnungszeiten = $form->{FA_Oeffnungszeiten}; @@ -132,35 +134,46 @@ sub report { | . $locale->text('Kein Firmenname hinterlegt!') . qq| |; } + + # Anpassungen der Variablennamen auf pre 2.1.1 Namen + # klären, ob $form->{company_street|_address} gesetzt sind + # - #klären, ob $form->{company_street|_address} gesetzt sind - ### if ($form->{address} ne '') { my $temp = $form->{address}; $temp =~ s/\\n//; - print qq|$temp|; - ($form->{company_street}, $form->{company_city}) = split("{address} eq '' - and ($form->{company_street} ne '' and $form->{company_city} ne '')) { - print qq|$form->{company_street}\n| if ($form->{company_street} ne ''); - print qq|$form->{company_city}\n| if ($form->{company_city} ne ''); - } elsif ($form->{company_street} eq '' or $form->{company_city} eq '') { + ($form->{co_street}, $form->{co_city}) = split("", $temp); + } + + if ( $form->{co_street} ne '' + and ($form->{co_zip} ne '' + or $form->{co_city} ne '') ) { + print qq| + $form->{co_street} + $form->{co_street1} + $form->{co_zip} $form->{co_city}|; + } else { print qq| {path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}> | . $locale->text('Keine Firmenadresse hinterlegt!') . 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}; + + print qq| | . $locale->text('Tel.: ') . qq| - $form->{tel} + $form->{co_tel} | . $locale->text('Fax.: ') . qq| - $form->{fax} + $form->{co_fax} - $form->{email} + $form->{co_email} | . $locale->text('Steuernummer: ') . qq| @@ -192,7 +205,7 @@ sub report { . qq|" name="FA_steuerberater" id=steuerberater class=checkbox type=checkbox value="1"> | . $locale->text('Steuerberater/-in') . qq| - + $form->{FA_steuerberater_name} $form->{FA_steuerberater_street} $form->{FA_steuerberater_city} @@ -214,7 +227,7 @@ sub report { # accounting years if SQL-Ledger Version < 2.4.1 # $year = $form->{year} * 1; - @years = sort { $b <=> $a } (2000 .. ($year)); + @years = sort { $b <=> $a } (2003 .. ($year+1)); $form->{all_years} = \@years; } map { $form->{selectaccountingyear} .= qq|$_\n| } @@ -267,7 +280,7 @@ sub report { if ($form->{FA_Name} ne '') { print qq| - + | . $locale->text('Finanzamt') . qq| @@ -289,7 +302,7 @@ sub report { | . $locale->text('Tel. : ') . qq| $form->{FA_Telefon} - + | . $locale->text('Fax. : ') . qq| $form->{FA_Fax} @@ -331,7 +344,7 @@ sub report { $form->{FA_Bankbezeichnung_1} - + | . $locale->text('Konto: ') . qq| $form->{FA_Kontonummer_1} @@ -343,7 +356,7 @@ sub report { | . $locale->text('Konto: ') . qq| $form->{FA_Kontonummer_2} - + | . $locale->text('BLZ: ') . qq| $form->{FA_BLZ_2} @@ -357,10 +370,10 @@ sub report { $form->{FA_Bankbezeichnung_1} - + | . $locale->text('Konto: ') . qq| $form->{FA_Kontonummer_1} - + | . $locale->text('BLZ: ') . qq| $form->{FA_BLZ_1} |; @@ -371,10 +384,10 @@ sub report { $form->{FA_Bankbezeichnung_oertlich} - + | . $locale->text('Konto: ') . qq| $form->{FA_Kontonummer_2} - + | . $locale->text('BLZ: ') . qq| $form->{FA_BLZ_2} |; @@ -427,14 +440,12 @@ sub report { | . $locale->text('Hinweise') . qq| - Die Ausgabefunktionen sind wegen fehlender Daten deaktiviert. + Die Ausgabefunktionen sind wegen unzureichender Voreinstellungen deaktiviert. Hilfe: - - Bitte 'Einstellungen' wählen um die Erweiterten UStVa Funktionen nutzen zu können. - - - Firmendaten können bei den Benutzereinstellungen verändert werden. + Wählen Sie im Administrationsmenü den momentanen Benutzer aus + (siehe Kopfzeile). Dort können Sie fehlende Firmenangaben bzw. + die Steuernummer ergänzen. |; @@ -461,8 +472,8 @@ sub report { - - + + @@ -472,8 +483,6 @@ sub report { - @@ -493,7 +502,6 @@ sub report {