From: Udo Spallek Date: Tue, 15 Nov 2005 16:09:34 +0000 (+0000) Subject: Update der Ustva Funktion mit neuen Vorlagen für das Jahr 2006. X-Git-Tag: release-2.4.0^2~463 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=7e2da79f4e22f5cf17f51b3a20b551533f9dc63d;p=kivitendo-erp.git Update der Ustva Funktion mit neuen Vorlagen für das Jahr 2006. --- diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl index 248af2b8f..a40388a98 100644 --- a/bin/mozilla/ustva.pl +++ b/bin/mozilla/ustva.pl @@ -109,9 +109,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 +140,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 +211,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 +233,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 } (2000 .. ($year+1)); $form->{all_years} = \@years; } map { $form->{selectaccountingyear} .= qq| - + |; } print qq||; @@ -725,14 +737,14 @@ sub ustva_vorauswahl { - + |; } foreach $key (sort keys %listeb) { print qq| - + |; } print qq||; @@ -747,7 +759,9 @@ sub config { } sub debug { + $lxdebug->enter_sub(); $form->debug(); + $lxdebug->leave_sub(); } sub show_options { @@ -974,14 +988,20 @@ sub generate_ustva { $locale->date(\%myconfig, $form->current_date(\%myconfig), 0, 0, 0); # setup variables for the form - my @a = (); - @a = qw(company businessnumber tel fax email company_email); + # steuernummer für prerelease entfernt + my @a = qw(company 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; if ($form->{address} ne '') { my $temp = $form->{address}; $temp =~ s/\\n/
/; - ($form->{company_street}, $form->{company_city}) = split("
", $temp); + ($form->{co_street}, $form->{co_city}) = split("
", $temp); } if ( $form->{format} eq 'pdf' @@ -1033,7 +1053,6 @@ sub generate_ustva { sub edit { $lxdebug->enter_sub(); - # edit all taxauthority prefs $form->header; @@ -1044,6 +1063,11 @@ sub edit { my $land = $form->{elsterland}; my $amt = $form->{elsterFFFF}; + my $callback = ''; + $callback = + "$form->{cbscript}?action=edit&login=$form->{cblogin}&path=$form->{cbpath}&root=$form->{cbroot}&rpw=$form->{cbrpw}" + if ($form->{cbscript} ne '' and $form->{cblogin} ne ''); + $form->{title} = $locale->text('Finanzamt - Einstellungen'); print qq| @@ -1112,7 +1136,7 @@ sub edit { - +
@@ -1157,7 +1181,7 @@ sub edit { - +

@@ -1166,8 +1190,16 @@ sub edit { + |; + print qq| + | if ($callback ne ''); + print qq| +     + @@ -1176,14 +1208,14 @@ sub edit { my @variables = qw( steuernummer elsterland elstersteuernummer elsterFFFF); my $variable = ''; foreach $variable (@variables) { - print qq| + print qq| |; } my $steuernummer_new = ''; # print qq| - + {$variable}">|; } @@ -1227,13 +1259,15 @@ sub edit_form { # Auf Übergabefehler checken USTVA::info( - $locale->text('Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zuständigen Finanzamts auswählen.')) + $locale->text( + 'Bitte das Bundesland UND die Stadt bzw. den Einzugsbereich Ihres zuständigen Finanzamts auswählen.' + )) if ( $form->{elsterFFFF_new} eq 'Auswahl' || $form->{elsterland_new} eq 'Auswahl'); USTVA::info( $locale->text( - 'Es fehlen Angaben zur Versteuerung. - Wenn Sie Ist Versteuert sind, wählen Sie die Einnahmen/Überschuß-Rechnung aus. + 'Es fehlen Angaben zur Versteuerung. + Wenn Sie Ist Versteuert sind, wählen Sie die Einnahmen/Überschuß-Rechnung aus. Sind Sie Soll-Versteuert und Bilanzverpflichtet, dann wählen Sie Bilanz aus.' )) if ($form->{method} eq ''); @@ -1338,18 +1372,17 @@ sub edit_form { - - - - |; + |; + print qq|| + if ($form->{callback} eq ''); + + print qq| + | + if ($form->{callback} ne ''); if ($form->{warnung} eq "1") { print qq| @@ -1380,7 +1413,7 @@ sub edit_form { my @variables = qw(FA_steuerberater_name FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel FA_voranmeld method - FA_dauerfrist FA_71 FA_Name elster + FA_dauerfrist FA_71 elster path login password type elster_init saved ); my $variable = ''; @@ -1394,6 +1427,7 @@ sub edit_form { + |; $lxdebug->leave_sub(); @@ -1440,8 +1474,15 @@ sub get_config { my ($userpath, $filename) = @_; my ($key, $value) = ''; - open(FACONF, "$userpath/$filename") - or $form->error("$userpath/$filename : $!"); + open(FACONF, "$userpath/$form->{login}_$filename") + or #falls Datei nicht vorhanden ist + sub { + open(FANEW, ">$userpath/$form->{login}_$filename") + or $form->error("$userpath/$filename : $!"); + close FANEW; + open(FACONF, "$userpath/$form->{login}_$filename") + or $form->error("$userpath/$form->{username}_$filename : $!"); + }; while () { last if /^\[/; next if /^(#|\s)/; @@ -1470,7 +1511,7 @@ sub get_config { sub save { $lxdebug->enter_sub(); - my $filename = $form->{filename}; + my $filename = "$form->{login}_$form->{filename}"; #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen create_steuernummer; @@ -1555,6 +1596,16 @@ sub show_fa_daten { + + + + +
+ | . $locale->text('Finanzamt') . qq| +
+ + +
@@ -1578,7 +1629,7 @@ sub show_fa_daten { | . $locale->text('Telefon') . qq|

-
+
| . $locale->text('Fax') . qq|

@@ -1617,7 +1668,7 @@ sub show_fa_daten { | . $locale->text('Bankverbindungen des Finanzamts') . qq| - +
- +
| . $locale->text('Kreditinstitut') . qq| @@ -1629,7 +1680,7 @@ sub show_fa_daten {

-
+
| . $locale->text('Bankleitzahl') . qq|
@@ -1644,7 +1695,7 @@ sub show_fa_daten {

-
+
| . $locale->text('Bankleitzahl') . qq|
@@ -1664,7 +1715,7 @@ sub show_fa_daten {

-
+
| . $locale->text('Bankleitzahl (BLZ)') . qq|
@@ -1682,12 +1733,12 @@ sub show_fa_daten { | . $locale->text('Bankverbindung des Finanzamts') . qq| - + | . $locale->text('Kontonummer') . qq|

-
+
| . $locale->text('Bankleitzahl (BLZ)') . qq|
@@ -1701,7 +1752,7 @@ sub show_fa_daten { } print qq|
|; @@ -1798,7 +1849,7 @@ SWITCH: do { $form->error( "Ungültiger Anmeldezeitraum.\n - Sie können für ELSTER nur einen monatlichen oder + Sie können für ELSTER nur einen monatlichen oder quartalsweisen Anmeldezeitraum auswählen." ); }; @@ -1890,7 +1941,6 @@ Content-Disposition: attachment; filename="$elsterfile"\n\n|; sub continue { $lxdebug->enter_sub(); - # allow Symbolic references just here: no strict 'refs'; &{ $form->{nextsub} }; @@ -1898,7 +1948,11 @@ sub continue { $lxdebug->leave_sub(); } -sub back { &{ $form->{lastsub} } } +sub back { + $lxdebug->enter_sub(); + &{ $form->{lastsub} }; + $lxdebug->leave_sub(); +} sub elster_hash { $lxdebug->enter_sub(); @@ -2036,15 +2090,13 @@ sub elster_conf { 'logfile' => 'log/faxmlsend.log', 'conffile' => 'faxmlsend.cnf', 'debug' => '-debug' }; - $lxdebug->leave_sub(); - return $elster_conf; + } sub elster_xml { $lxdebug->enter_sub(); - my $elster_conf = &elster_conf(); # $k51 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"51"})); # Umsätze zu 16% USt @@ -2144,3 +2196,4 @@ sub elster_xml { close XML; $lxdebug->leave_sub(); } + diff --git a/templates/German-ustva-2004.tex b/templates/German-ustva-2004.tex index 56d298c6c..b418f069a 100644 --- a/templates/German-ustva-2004.tex +++ b/templates/German-ustva-2004.tex @@ -44,8 +44,8 @@ \multicolumn{2}{p{7.5cm}}{} & &<%0404%>&<%0410%>&&<%0444%>\\[1.25mm] \multicolumn{2}{p{7.5cm}}{} & &<%0405%>&<%0411%>&&\\[1.25mm] \multicolumn{2}{p{7.5cm}}{\small{<%company%>}} & &<%0406%>&<%0412%>&&\\[-1mm] -\multicolumn{2}{p{7.5cm}}{\small{<%company_street%>}}& & & & &\\[-1mm] -\multicolumn{2}{p{7.5cm}}{\small{<%company_city%>}}& & & & &\\[1mm] +\multicolumn{2}{p{7.5cm}}{\small{<%co_street%>}}& & & & &\\[-1mm] +\multicolumn{2}{p{7.5cm}}{\small{<%co_city%>}}& & & & &\\[1mm] \multicolumn{2}{p{7.5cm}}{ <%if tel%> \small{Tel: <%tel%>}~--~ diff --git a/templates/German-ustva-2005.tex b/templates/German-ustva-2005.tex index e62429ff4..824ff1e44 100644 --- a/templates/German-ustva-2005.tex +++ b/templates/German-ustva-2005.tex @@ -44,8 +44,8 @@ \multicolumn{2}{p{7.5cm}}{} & &<%0404%>&<%0410%>&&<%0444%>\\[1.25mm] \multicolumn{2}{p{7.5cm}}{} & &<%0405%>&<%0411%>&&\\[1.25mm] \multicolumn{2}{p{7.5cm}}{\small{<%company%>}} & &<%0406%>&<%0412%>&&\\[-1mm] -\multicolumn{2}{p{7.5cm}}{\small{<%company_street%>}}& & & & &\\[-1mm] -\multicolumn{2}{p{7.5cm}}{\small{<%company_city%>}}& & & & &\\[1mm] +\multicolumn{2}{p{7.5cm}}{\small{<%co_street%>}}& & & & &\\[-1mm] +\multicolumn{2}{p{7.5cm}}{\small{<%co_city%>}}& & & & &\\[1mm] \multicolumn{2}{p{7.5cm}}{ <%if tel%> \small{Tel: <%tel%>}~--~ diff --git a/templates/German-ustva-2006.tex b/templates/German-ustva-2006.tex new file mode 100644 index 000000000..478515c99 --- /dev/null +++ b/templates/German-ustva-2006.tex @@ -0,0 +1,120 @@ +% German USTVA template for taxreports +% +% Contributed by Jens Koerner, Peter Schorer, Udo Spallek +% +% +\documentclass[twoside]{scrartcl} +\usepackage{a4,german} +\usepackage[frame]{xy} +\usepackage[latin1]{inputenc} +\usepackage[german]{babel} +\usepackage{graphicx} +\usepackage{tabularx} +\usepackage{times, german} +\usepackage{german} +\setlength{\voffset}{-0.8cm} %hier wird die Höhenverschiebung getätigt +\setlength{\hoffset}{-1cm} %und hier die Verschiebung seitwärts +\setlength{\topmargin}{0cm} +\setlength{\headheight}{0cm} +\setlength{\headsep}{0cm} +\setlength{\topskip}{0pt} +\setlength{\oddsidemargin}{0cm} +\setlength{\evensidemargin}{0cm} +\setlength{\textwidth}{20.9cm} +\setlength{\textheight}{29.6cm} +\setlength{\footskip}{-0cm} +\setlength{\parindent}{0pt} + +\begin{document} + +\fontfamily{cmss}\fontshape{n}\large\selectfont +\pagestyle{myheadings} +\markboth{\protect\scalebox{1.045}[1.045]{\protect\includegraphics[viewport = 54 783 700 790]{ustva-2006-2.pdf}}} +{\protect\scalebox{1.045}[1.045]{\protect\includegraphics[viewport = 70 700 700 790]{ustva-2006-1.pdf}}} +\hspace{1mm} +\begin{tabular}[b]{p{7mm}p{5cm}p{22.5mm}p{24mm}p{7mm}p{28mm}p{3mm}} +\multicolumn{7}{c}{}\\[-2mm] + & \multicolumn{6}{l}{<%steuernummer%>}\\ +\multicolumn{7}{c}{}\\[15mm] +\multicolumn{2}{p{7.5cm}}{<%FA_Name%>} & & & & &\\[-4mm] +\multicolumn{2}{p{7.5cm}}{} & & & & &\\[3mm] +\multicolumn{2}{p{7.5cm}}{<%FA_Strasse%>} & &<%0401%>&<%0407%>&&<%0441%>\\[1.2mm] +\multicolumn{2}{p{7.5cm}}{} & &<%0402%>&<%0408%>&&<%0442%>\\[1.25mm] +\multicolumn{2}{p{7.5cm}}{<%FA_PLZ%> <%FA_Ort%>} & &<%0403%>&<%0409%>&&<%0443%>\\[3mm] +\multicolumn{2}{p{7.5cm}}{} & &<%0404%>&<%0410%>&&<%0444%>\\[1.25mm] +\multicolumn{2}{p{7.5cm}}{} & &<%0405%>&<%0411%>&&\\[1.25mm] +\multicolumn{2}{p{7.5cm}}{\small{<%company%>}} & &<%0406%>&<%0412%>&&\\[-1mm] +\multicolumn{2}{p{7.5cm}}{\small{<%co_street%>}}& & & & &\\[-1mm] +\multicolumn{2}{p{7.5cm}}{\small{<%co_city%>}}& & & &<%FA_10%> &\\[1mm] +\multicolumn{2}{p{7.5cm}}{ +<%if tel%> +\small{Tel: <%tel%>}~--~ +<%end tel%> +<%if fax%> +\small{Fax: <%fax%>} +<%end fax%> +}& & & & &\\[-1mm] +\multicolumn{2}{p{7.5cm}}{\small{<%email%>}}& & & & &\\[-1mm] +\end{tabular}\\[29.5mm] +\begin{tabular}[b]{p{99mm}p{26.5mm}p{4.55mm}p{4mm}p{35mm}} +&&&&\\[38mm] +\multicolumn{2}{r}{<%51%>} & & \multicolumn{2}{r}{<%51r%>}\\[1.5mm] +\multicolumn{2}{r}{<%86%>} & & \multicolumn{2}{r}{<%86r%>}\\[42mm] +\multicolumn{2}{r}{<%97%>} & & \multicolumn{2}{r}{<%97r%>}\\[1.5mm] +\multicolumn{2}{r}{<%93%>} & & \multicolumn{2}{r}{<%93r%>}\\[8.5mm] +\multicolumn{2}{r}{<%94%>} & & \multicolumn{2}{r}{<%96%>}\\[28mm] +\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%43%>}\\ +%\multicolumn{2}{||r|}{1000} & & & \\ +%\multicolumn{2}{||r|}{1000} & & \multicolumn{2}{r}{100.000.000~~00}\\ +%\multicolumn{3}{||r|}{1.000.000.000~~00} & \multicolumn{2}{r}{100.000.000~~00}\\ +\end{tabular} + +\newpage + +\vspace*{-9.5mm}\hspace{27mm}<%steuernummer%>\\[-2.7mm] +\begin{tabular}[b]{p{99mm}p{25.2mm}p{2.55mm}p{10mm}p{32mm}} +&&&&\\ +\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%45%>}\\[48mm] +\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%43%>}\\[8.9mm] +\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%66%>}\\[42mm] +\multicolumn{2}{r}{} & & \multicolumn{2}{r}{<%62%>}\\[28mm] +\multicolumn{2}{r}{} & & \multicolumn{2}{r}{\textbf{<%67%>}}\\[26mm] +\end{tabular}\\[35mm] +<%if FA_steuerberater%> +\vspace{11mm} +\begin{list}{}{ +\setlength{\leftmargin}{2mm} +\setlength{\itemsep}{0mm} +\setlength{\parsep}{0mm} +%\setlength{\topsep}{0mm} +%\setlength{\parskip}{0mm} +%\setlength{\partopsep}{0mm} +} +\begin{small} +\item <%FA_steuerberater_name%> +\item <%FA_steuerberater_street%> +\item <%FA_steuerberater_city%> +\item Tel:~<%FA_steuerberater_tel%> +\end{small}\\[15mm] +\item <%Datum_heute%>, +\end{list} +<%end FA_steuerberater%> +<%if not FA_steuerberater%> +\begin{list}{}{ +\setlength{\leftmargin}{2mm} +\setlength{\itemsep}{0mm} +\setlength{\parsep}{0mm} +%\setlength{\topsep}{0mm} +%\setlength{\parskip}{0mm} +%\setlength{\partopsep}{0mm} +} +\begin{small} +\item ~ +\item ~ +\item ~ +\item ~ +\end{small}\\[26mm] +\item <%Datum_heute%>, +\end{list} +<%end FA_steuerberater%> +\end{document} diff --git a/users/ustva-2006-1.pdf b/users/ustva-2006-1.pdf new file mode 100644 index 000000000..246179140 Binary files /dev/null and b/users/ustva-2006-1.pdf differ diff --git a/users/ustva-2006-2.pdf b/users/ustva-2006-2.pdf new file mode 100644 index 000000000..35f1cd033 Binary files /dev/null and b/users/ustva-2006-2.pdf differ