#!/bin/perl #===================================================================== # Lx-Office ERP # Copyright (c) 2004 by Udo Spallek, Aachen # # Author: Udo Spallek # Email: udono@gmx.net # Web: http://www.lx-office.org # # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== # German Tax authority Module and later ELSTER Interface #====================================================================== require "$form->{path}/arap.pl"; #use strict; #no strict 'refs'; #use diagnostics; #use warnings FATAL=> 'all'; #use vars qw($locale $form %myconfig); #our ($myconfig); #use CGI::Carp "fatalsToBrowser"; use SL::PE; use SL::RP; use SL::USTVA; use SL::User; 1; # this is for our long dates # $locale->text('January') # $locale->text('February') # $locale->text('March') # $locale->text('April') # $locale->text('May ') # $locale->text('June') # $locale->text('July') # $locale->text('August') # $locale->text('September') # $locale->text('October') # $locale->text('November') # $locale->text('December') # this is for our short month # $locale->text('Jan') # $locale->text('Feb') # $locale->text('Mar') # $locale->text('Apr') # $locale->text('May') # $locale->text('Jun') # $locale->text('Jul') # $locale->text('Aug') # $locale->text('Sep') # $locale->text('Oct') # $locale->text('Nov') # $locale->text('Dec') ############################# sub report { $lxdebug->enter_sub(); my $myconfig = \%myconfig; use CGI; $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 $department = ''; local $hide = ''; $form->header; print qq|
{script}>
$form->{title}
$department |; # Hier Aufruf von get_config aus bin/mozilla/fa.pl zum # Einlesen der Finanzamtdaten &get_config($userspath, 'finanzamt.ini'); my @a = qw(signature name company address businessnumber tel fax email company_street company_city company_email); map { $form->{$_} = $myconfig->{$_} } @a; my $oeffnungszeiten = $form->{FA_Oeffnungszeiten}; $oeffnungszeiten =~ s/\\\\n/
/g; print qq| |; if ($form->{FA_Name} ne '') { print qq| |; #}# end if report = ustva print qq|
| . $locale->text('Firma') . qq| |; if ($form->{company} ne '') { print qq|

$form->{company}

\n|; } else { print qq| {path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}> | . $locale->text('Kein Firmenname hinterlegt!') . qq|
|; } #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 '') { print qq| {path}&action=config&level=Programm--Preferences&login=$form->{login}&password=$form->{password}> | . $locale->text('Keine Firmenadresse hinterlegt!') . qq|\n|; } print qq|

| . $locale->text('Tel.: ') . qq| $form->{tel}
| . $locale->text('Fax.: ') . qq| $form->{fax}

$form->{email}

| . $locale->text('Steuernummer: ') . qq| |; if ($form->{steuernummer} ne '') { print qq|$form->{steuernummer}|; } else { print qq| Keine Steuernummer hinterlegt!
|; } print qq|

|; if ($form->{FA_steuerberater_name} ne '') { print qq|
  | . $locale->text('Steuerberater/-in') . qq| $form->{FA_steuerberater_name}
$form->{FA_steuerberater_street}
$form->{FA_steuerberater_city}
Tel: $form->{FA_steuerberater_tel}

|; } print qq|
| . $locale->text('Voranmeldezeitraum') . qq| |; &ustva_vorauswahl(); my @years = (); if (not defined $form->{all_years}) { # accounting years if SQL-Ledger Version < 2.4.1 # $year = $form->{year} * 1; @years = sort { $b <=> $a } (2000 .. ($year)); $form->{all_years} = \@years; } map { $form->{selectaccountingyear} .= qq|
| . $locale->text('Finanzamt') . qq|

$form->{FA_Name}

|; #if ($form->{FA_Ergaenzung_Name ne ''}){ # print qq| # $form->{FA_Ergaenzung_Name}  #
# |; #} print qq| $form->{FA_Strasse}
$form->{FA_PLZ}   $form->{FA_Ort}

| . $locale->text('Tel. : ') . qq| $form->{FA_Telefon}
| . $locale->text('Fax. : ') . qq| $form->{FA_Fax}

{steuernummer}:") . qq|&body=| . CGI::escape( "Sehr geehrte Damen und Herren,\n\n\nMit freundlichen Grüßen\n\n") . CGI::escape($form->{signature}) . qq|"> $form->{FA_Email}
$form->{FA_Internet}

| . $locale->text('Öffnungszeiten') . qq|
$oeffnungszeiten
|; my $FA_1 = ( $form->{FA_BLZ_1} ne '' && $form->{FA_Kontonummer_1} ne '' && $form->{FA_Bankbezeichnung_1} ne ''); my $FA_2 = ( $form->{FA_BLZ_2} ne '' && $form->{FA_Kontonummer_2} ne '' && $form->{FA_Bankbezeichnung_oertlich} ne ''); if ($FA_1 && $FA_2) { print qq|
| . $locale->text('Bankverbindungen') . qq|
$form->{FA_Bankbezeichnung_1}
| . $locale->text('Konto: ') . qq| $form->{FA_Kontonummer_1}
| . $locale->text('BLZ: ') . qq| $form->{FA_BLZ_1} 		$form->{FA_Bankbezeichnung_oertlich}
| . $locale->text('Konto: ') . qq| $form->{FA_Kontonummer_2}
| . $locale->text('BLZ: ') . qq| $form->{FA_BLZ_2}

|; } elsif ($FA_1) { print qq|
| . $locale->text('Bankverbindung') . qq|

$form->{FA_Bankbezeichnung_1}
| . $locale->text('Konto: ') . qq| $form->{FA_Kontonummer_1}
| . $locale->text('BLZ: ') . qq| $form->{FA_BLZ_1}

|; } elsif ($FA_2) { print qq|
| . $locale->text('Bankverbindung') . qq|

$form->{FA_Bankbezeichnung_oertlich}
| . $locale->text('Konto: ') . qq| $form->{FA_Kontonummer_2}
| . $locale->text('BLZ: ') . qq| $form->{FA_BLZ_2} |; } print qq|

| . $locale->text('Ausgabeformat') . qq| |; &show_options; my $ausgabe = '1'; print qq|
|; # 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| #
#
#
# #

$stichtag

#

$description

#

$form->{today}

# #
|; } else { print qq|
| . $locale->text('Hinweise') . qq|

Die Ausgabefunktionen sind wegen fehlender Daten deaktiviert.

Hilfe:

|; my $ausgabe = ''; $hide = q|disabled="disabled"|; } print qq|

|; print qq| |; $lxdebug->leave_sub(); } ############################# sub help { $lxdebug->enter_sub(); # parse help documents under doc my $tmp = $form->{templates}; $form->{templates} = 'doc'; $form->{help} = 'ustva'; $form->{type} = 'help'; $form->{format} = 'html'; &generate_ustva(); #$form->{templates} = $tmp; $lxdebug->leave_sub(); } sub show { $lxdebug->enter_sub(); #&generate_ustva(); no strict 'refs'; &{ $form->{nextsub} }; use strict 'refs'; $lxdebug->leave_sub(); } sub ustva_vorauswahl { $lxdebug->enter_sub(); #Aktuelles Datum zerlegen: $locale->date(\%myconfig, $form->current_date(\%myconfig, '0', '0'), 0) =~ /(\d\d).(\d\d).(\d\d\d\d)/; #$locale->date($myconfig, $form->current_date($myconfig), 0)=~ /(\d\d).(\d\d).(\d\d\d\d)/; $form->{day} = $1; $form->{month} = $2; $form->{year} = $3; my $sel = ''; my $yymmdd = ''; # Testdaten erzeugen: #$form->{day}= '11'; #$form->{month}= '01'; #$form->{year}= 2004; print qq| {day}> {month}> |; if ($form->{FA_voranmeld} eq 'month') { # Vorauswahl bei monatlichem Voranmeldungszeitraum print qq| |; } elsif ($form->{FA_voranmeld} eq 'quarter') { # Vorauswahl bei quartalsweisem Voranmeldungszeitraum my %liste = ('A' => '1.', 'B' => '2.', 'C' => '3.', 'D' => '4.',); my $yy = $form->{year} * 10000; $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1; $sel = ''; my $dfv = ''; # Offset für Dauerfristverlängerung $dfv = '100' if ($form->{FA_dauerfrist} eq '1'); SWITCH: { $yymmdd <= ($yy + 110 + $dfv) && do { $form->{year} = $form->{year} - 1; $sel = 'D'; last SWITCH; }; $yymmdd <= ($yy + 410 + $dfv) && do { $sel = 'A'; last SWITCH; }; $yymmdd <= ($yy + 710 + $dfv) && do { $sel = 'B'; last SWITCH; }; $yymmdd <= ($yy + 1010 + $dfv) && do { $sel = 'C'; last SWITCH; }; $yymmdd <= ($yy + 1231) && do { $sel = 'D'; }; } print qq| |; } else { # keine Vorauswahl bei Voranmeldungszeitraum print qq||; } $lxdebug->leave_sub(); } sub config { $lxdebug->enter_sub(); edit(); $lxdebug->leave_sub(); } sub debug { $form->debug(); } sub show_options { $lxdebug->enter_sub(); # $form->{PD}{$form->{type}} = "selected"; # $form->{DF}{$form->{format}} = "selected"; # $form->{OP}{$form->{media}} = "selected"; # $form->{SM}{$form->{sendmode}} = "selected"; my $type = qq| |; my $media = qq| |; my $format = qq| |; if ($latex) { $format .= qq| |; } #my $disabled= qq|disabled="disabled"|; #$disabled='' if ($form->{elster} eq '1' ); if ($form->{elster} eq '1') { $format .= qq||; } #$format .= qq||; print qq| $type $media |; $lxdebug->leave_sub(); } sub generate_ustva { $lxdebug->enter_sub(); # Aufruf von get_config aus bin/mozilla/ustva.pl zum # Einlesen der Finanzamtdaten aus finanzamt.ini get_config($userspath, 'finanzamt.ini'); # form vars initialisieren my @anmeldungszeitraum = qw('0401' '0402' '0403' '0404' '0405' '0405' '0406' '0407' '0408' '0409' '0410' '0411' '0412' '0441' '0442' '0443' '0444'); my $item = ''; foreach $item (@anmeldungszeitraum) { $form->{$item} = ""; } if ($form->{reporttype} eq "custom") { #forgotten the year --> thisyear if ($form->{year} !~ m/^\d\d\d\d$/) { $locale->date(\$myconfig, $form->current_date(\$myconfig), 0) =~ /(\d\d\d\d)/; $form->{year} = $1; } #yearly report if ($form->{duetyp} eq "13") { $form->{fromdate} = "1.1.$form->{year}"; $form->{todate} = "31.12.$form->{year}"; } #Quater reports if ($form->{duetyp} eq "A") { $form->{fromdate} = "1.1.$form->{year}"; $form->{todate} = "31.3.$form->{year}"; $form->{'0441'} = "X"; } if ($form->{duetyp} eq "B") { $form->{fromdate} = "1.4.$form->{year}"; $form->{todate} = "30.6.$form->{year}"; $form->{'0442'} = "X"; } if ($form->{duetyp} eq "C") { $form->{fromdate} = "1.7.$form->{year}"; $form->{todate} = "30.9.$form->{year}"; $form->{'0443'} = "X"; } if ($form->{duetyp} eq "D") { $form->{fromdate} = "1.10.$form->{year}"; $form->{todate} = "31.12.$form->{year}"; $form->{'0444'} = "X"; } #Monthly reports SWITCH: { $form->{duetyp} eq "01" && do { $form->{fromdate} = "1.1.$form->{year}"; $form->{todate} = "31.1.$form->{year}"; $form->{'0401'} = "X"; last SWITCH; }; $form->{duetyp} eq "02" && do { $form->{fromdate} = "1.2.$form->{year}"; #this works from 1901 to 2099, 1900 and 2100 fail. my $leap = ($form->{year} % 4 == 0) ? "29" : "28"; $form->{todate} = "$leap.2.$form->{year}"; $form->{"0402"} = "X"; last SWITCH; }; $form->{duetyp} eq "03" && do { $form->{fromdate} = "1.3.$form->{year}"; $form->{todate} = "31.3.$form->{year}"; $form->{"0403"} = "X"; last SWITCH; }; $form->{duetyp} eq "04" && do { $form->{fromdate} = "1.4.$form->{year}"; $form->{todate} = "30.4.$form->{year}"; $form->{"0404"} = "X"; last SWITCH; }; $form->{duetyp} eq "05" && do { $form->{fromdate} = "1.5.$form->{year}"; $form->{todate} = "31.5.$form->{year}"; $form->{"0405"} = "X"; last SWITCH; }; $form->{duetyp} eq "06" && do { $form->{fromdate} = "1.6.$form->{year}"; $form->{todate} = "30.6.$form->{year}"; $form->{"0406"} = "X"; last SWITCH; }; $form->{duetyp} eq "07" && do { $form->{fromdate} = "1.7.$form->{year}"; $form->{todate} = "31.7.$form->{year}"; $form->{"0407"} = "X"; last SWITCH; }; $form->{duetyp} eq "08" && do { $form->{fromdate} = "1.8.$form->{year}"; $form->{todate} = "31.8.$form->{year}"; $form->{"0408"} = "X"; last SWITCH; }; $form->{duetyp} eq "09" && do { $form->{fromdate} = "1.9.$form->{year}"; $form->{todate} = "30.9.$form->{year}"; $form->{"0409"} = "X"; last SWITCH; }; $form->{duetyp} eq "10" && do { $form->{fromdate} = "1.10.$form->{year}"; $form->{todate} = "31.10.$form->{year}"; $form->{"0410"} = "X"; last SWITCH; }; $form->{duetyp} eq "11" && do { $form->{fromdate} = "1.11.$form->{year}"; $form->{todate} = "30.11.$form->{year}"; $form->{"0411"} = "X"; last SWITCH; }; $form->{duetyp} eq "12" && do { $form->{fromdate} = "1.12.$form->{year}"; $form->{todate} = "31.12.$form->{year}"; $form->{"0412"} = "X"; last SWITCH; }; } } #$myconfig = \%myconfig; RP->ustva(\%myconfig, \%$form); #??($form->{department}) = split /--/, $form->{department}; $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1, 0, 0); $form->{todate} = $form->current_date($myconfig) unless $form->{todate}; # if there are any dates construct a where if ($form->{fromdate} || $form->{todate}) { unless ($form->{todate}) { $form->{todate} = $form->current_date($myconfig); } my $longtodate = $locale->date($myconfig, $form->{todate}, 1, 0, 0); my $shorttodate = $locale->date($myconfig, $form->{todate}, 0, 0, 0); my $longfromdate = $locale->date($myconfig, $form->{fromdate}, 1, 0, 0); my $shortfromdate = $locale->date($myconfig, $form->{fromdate}, 0, 0, 0); $form->{this_period} = "$shortfromdate
\n$shorttodate"; $form->{period} = $locale->text('for Period') . qq|
\n$longfromdate | . $locale->text('bis') . qq| $longtodate|; } if ($form->{comparefromdate} || $form->{comparetodate}) { my $longcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 1, 0, 0); my $shortcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 0, 0, 0); my $longcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 1, 0, 0); my $shortcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 0, 0, 0); $form->{last_period} = "$shortcomparefromdate
\n$shortcomparetodate"; $form->{period} .= "
\n$longcomparefromdate " . $locale->text('bis') . qq| $longcomparetodate|; } $form->{Datum_heute} = $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); map { $form->{$_} = $myconfig{$_} } @a; if ($form->{address} ne '') { my $temp = $form->{address}; $temp =~ s/\\n/
/; ($form->{company_street}, $form->{company_city}) = split("
", $temp); } if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') { $form->{padding} = "~~"; $form->{bold} = "\textbf{"; $form->{endbold} = "}"; $form->{br} = '\\\\'; my @numbers = qw(51r 86r 97r 93r 96 43 45 66 62 67); my $number = ''; foreach $number (@numbers) { $form->{$number} =~ s/,/~~/g; } } elsif ($form->{format} eq 'html') { $form->{padding} = "  "; $form->{bold} = ""; $form->{endbold} = ""; $form->{br} = "
"; $form->{address} =~ s/\\n/
/; } if ($form->{format} eq 'elster') { &create_winston(); } else { $form->{templates} = $myconfig{templates}; $form->{templates} = "doc" if ($form->{type} eq 'help'); $form->{IN} = "$form->{type}"; $form->{IN} = "$form->{help}" if ($form->{type} eq 'help'); $form->{IN} .= "-$form->{year}" if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript'); $form->{IN} .= '.tex' if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript'); $form->{IN} .= '.html' if ($form->{format} eq 'html'); #$form->header; #print qq|$myconfig
$path|; $form->parse_template($myconfig, $userspath); } $lxdebug->leave_sub(); } sub edit { $lxdebug->enter_sub(); # edit all taxauthority prefs $form->header; &get_config($userspath, 'finanzamt.ini'); #&create_steuernummer; my $land = $form->{elsterland}; my $amt = $form->{elsterFFFF}; $form->{title} = $locale->text('Finanzamt - Einstellungen'); print qq|
| . $locale->text('Finanzamt - Einstellungen') . qq|

| . $locale->text('Angaben zum Finanzamt') . qq| |; #print qq|$form->{terminal}|; USTVA::fa_auswahl($land, $amt, &elster_hash()); print qq|

|; my $checked = ''; $checked = "checked" if ($form->{method} eq 'accrual'); print qq|
| . $locale->text('Verfahren') . qq|
|; $checked = ''; $checked = "checked" if ($form->{method} eq 'cash'); print qq|

| . $locale->text('Voranmeldungszeitraum') . qq| |; $checked = ''; $checked = "checked" if ($form->{FA_voranmeld} eq 'month'); print qq|
|; $checked = ''; $checked = "checked" if ($form->{FA_voranmeld} eq 'quarter'); print qq|
|; $checked = ''; $checked = "checked" if ($form->{FA_dauerfrist} eq '1'); print qq|

| . $locale->text('Steuerberater/-in') . qq| |; $checked = ''; $checked = "checked" if ($form->{FA_71} eq 'X'); print qq|
| . $locale->text('Name') . qq| | . $locale->text('Straße') . qq| | . $locale->text('PLZ, Ort') . qq| | . $locale->text('Telefon') . qq|


|; my @variables = qw( steuernummer elsterland elstersteuernummer elsterFFFF); my $variable = ''; foreach $variable (@variables) { print qq| |; } my $steuernummer_new = ''; # print qq| {path}> {login}> {password}> |; @variables = qw(FA_Name FA_Strasse FA_PLZ FA_Ort FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten FA_Email FA_Internet); foreach $variable (@variables) { print qq| |; } print qq|
|; $lxdebug->leave_sub(); } sub edit_form { $lxdebug->enter_sub(); $form->header(); print qq| |; my $elsterland = ''; my $elster_amt = ''; my $elsterFFFF = ''; my $elstersteuernummer = ''; &get_config($userspath, 'finanzamt.ini') if ($form->{saved} eq $locale->text('saved')); # Auf Übergabefehler checken USTVA::info( $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. Sind Sie Soll-Versteuert und Bilanzverpflichtet, dann wählen Sie Bilanz aus.' )) if ($form->{method} eq ''); # Klären, ob Variablen bereits befüllt sind UND ob veräderungen auf # der vorherigen Maske stattfanden: $change = 1(in der edit sub, # mittels get_config) my $change = $form->{elsterland} eq $form->{elsterland_new} && $form->{elsterFFFF} eq $form->{elsterFFFF_new} ? '0' : '1'; $change = '0' if ($form->{saved} eq $locale->text('saved')); my $elster_init = &elster_hash(); #my %elster_init = (); my %elster_init = %$elster_init; if ($change eq '1') { # Daten ändern $elsterland = $form->{elsterland_new}; $elsterFFFF = $form->{elsterFFFF_new}; $form->{elsterland} = $elsterland; $form->{elsterFFFF} = $elsterFFFF; $form->{steuernummer} = ''; &create_steuernummer; # rebuild elster_amt my $amt = ''; foreach $amt (keys %{ $elster_init{ $form->{elsterland} } }) { $elster_amt = $amt if ($elster_init{ $form->{elsterland}{$amt} eq $form->{elsterFFFF} }); } # load the predefined hash data into the FA_* Vars my @variables = qw(FA_Name FA_Strasse FA_PLZ FA_Ort FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten FA_Email FA_Internet); for (my $i = 0; $i <= 20; $i++) { $form->{ $variables[$i] } = $elster_init->{$elsterland}->{$elsterFFFF}->[$i]; } } else { $elsterland = $form->{elsterland}; $elsterFFFF = $form->{elsterFFFF}; } my $stnr = $form->{steuernummer}; $stnr =~ s/\D+//g; my $patterncount = $form->{patterncount}; my $elster_pattern = $form->{elster_pattern}; my $delimiter = $form->{delimiter}; my $steuernummer = ''; $steuernummer = $form->{steuernummer} if ($steuernummer eq ''); #Warnung my $warnung = $form->{warnung}; #printout form print qq|
| . $locale->text('Finanzamt - Einstellungen') . qq|

|; &show_fa_daten; print qq|

| . $locale->text('Steuernummer') . qq|
|; $steuernummer = USTVA::steuernummer_input($form->{elsterland}, $form->{elsterFFFF}, $form->{steuernummer}); print qq|


|; if ($form->{warnung} eq "1") { print qq| |; } else { print qq| |; } print qq|

$form->{saved}
|; 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 path login password type elster_init saved ); my $variable = ''; foreach $variable (@variables) { print qq| |; } print qq|
|; $lxdebug->leave_sub(); } sub create_steuernummer { $lxdebug->enter_sub(); my $part = $form->{part}; my $patterncount = $form->{patterncount}; my $delimiter = $form->{delimiter}; my $elster_pattern = $form->{elster_pattern}; # rebuild steuernummer and elstersteuernummer # es gibt eine gespeicherte steuernummer $form->{steuernummer} # und die parts und delimiter my $h = 0; my $i = 0; my $steuernummer_new = $part; my $elstersteuernummer_new = $form->{elster_FFFF}; $elstersteuernummer_new .= '0'; for ($h = 1; $h < $patterncount; $h++) { $steuernummer_new .= qq|$delimiter|; for (my $i = 1; $i <= length($elster_pattern); $i++) { $steuernummer_new .= $form->{"part_$h\_$i"}; $elstersteuernummer_new .= $form->{"part_$h\_$i"}; } } if ($form->{steuernummer} ne $steuernummer_new) { $form->{steuernummer} = $steuernummer_new; $form->{elstersteuernummer} = $elstersteuernummer_new; $form->{steuernummer_new} = $steuernummer_new; } else { $form->{steuernummer_new} = ''; $form->{elstersteuernummer_new} = ''; } $lxdebug->leave_sub(); } sub get_config { $lxdebug->enter_sub(); my ($userpath, $filename) = @_; my ($key, $value) = ''; open(FACONF, "$userpath/$filename") or $form->error("$userpath/$filename : $!"); while () { last if /^\[/; next if /^(#|\s)/; # remove comments s/\s#.*//g; # remove any trailing whitespace s/^\s*(.*?)\s*$/$1/; ($key, $value) = split /=/, $_, 2; #if ($value eq ' '){ # $form->{$key} = " " ; #} elsif ($value ne ' '){ $form->{$key} = "$value"; #} } close FACONF; # Textboxen formatieren: Linebreaks entfernen # #$form->{FA_Oeffnungszeiten} =~ s/\\\\n/
/g; $lxdebug->leave_sub(); } sub save { $lxdebug->enter_sub(); my $filename = $form->{filename}; #zuerst die steuernummer aus den part, parts_X_Y und delimiter herstellen create_steuernummer; # Textboxen formatieren: Linebreaks entfernen # $form->{FA_Oeffnungszeiten} =~ s/\r\n/\\n/g; #URL mit http:// davor? $form->{FA_Internet} =~ s/^http:\/\///; $form->{FA_Internet} = 'http://' . $form->{FA_Internet}; my @config = qw(elster elsterland elstersteuernummer steuernummer elsteramt elsterFFFF FA_Name FA_Strasse FA_PLZ FA_Ort FA_Telefon FA_Fax FA_PLZ_Grosskunden FA_PLZ_Postfach FA_Postfach FA_BLZ_1 FA_Kontonummer_1 FA_Bankbezeichnung_1 FA_BLZ_2 FA_Kontonummer_2 FA_Bankbezeichnung_oertlich FA_Oeffnungszeiten FA_Email FA_Internet FA_voranmeld method FA_steuerberater_name FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel FA_71 FA_dauerfrist); # Hier kommt dann die Plausibilitätsprüfung der ELSTERSteuernummer if ($form->{elstersteuernummer} ne '000000000') { $form->{elster} = '1'; open(CONF, ">$userspath/$filename") or $form->error("$filename : $!"); # create the config file print CONF qq|# Configuration file for USTVA\n\n|; my $key = ''; foreach $key (sort @config) { $form->{$key} =~ s/\\/\\\\/g; $form->{$key} =~ s/"/\\"/g; # strip M $form->{$key} =~ s/\r\n/\n/g; print CONF qq|$key=|; if ($form->{$key} ne 'Y') { print CONF qq|$form->{$key}\n|; } if ($form->{$key} eq 'Y') { print CONF qq|checked \n|; } } print CONF qq|\n\n|; close CONF; $form->{saved} = $locale->text('saved'); } else { $form->{saved} = $locale->text('Bitte eine Steuernummer angeben'); } &edit_form; $lxdebug->leave_sub(); } sub show_fa_daten { $lxdebug->enter_sub(); my $readonly = $_; my $oeffnungszeiten = $form->{FA_Oeffnungszeiten}; $oeffnungszeiten =~ s/\\\\n/\n/g; print qq|
| . $locale->text('Finanzamt') . qq| $form->{FA_Name} |; #print qq|\n

$form->{FA_Ergaenzung_Name} 

# | if ( $form->{FA_Ergaenzung_Name} ); print qq|

| . $locale->text('Address') . qq|

| . $locale->text('Kontakt') . qq| | . $locale->text('Telefon') . qq|


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


| . $locale->text('Internet') . qq|
| . $locale->text('Öffnungszeiten') . qq|

|; my $FA_1 = ( $form->{FA_BLZ_1} ne '' && $form->{FA_Kontonummer_1} ne '' && $form->{FA_Bankbezeichnung_1} ne ''); my $FA_2 = ( $form->{FA_BLZ_2} ne '' && $form->{FA_Kontonummer_2} ne '' && $form->{FA_Bankbezeichnung_oertlich} ne ''); if ($FA_1 && $FA_2) { print qq|
| . $locale->text('Bankverbindungen des Finanzamts') . qq|
| . $locale->text('Kreditinstitut') . qq|


| . $locale->text('Kontonummer') . qq|


| . $locale->text('Bankleitzahl') . qq|
| . $locale->text('Kreditinstitut') . qq|


| . $locale->text('Kontonummer') . qq|


| . $locale->text('Bankleitzahl') . qq|
|; } elsif ($FA_1) { print qq|
| . $locale->text('Bankverbindung des Finanzamts') . qq| | . $locale->text('Kontonummer') . qq|


| . $locale->text('Bankleitzahl (BLZ)') . qq|


| . $locale->text('Kreditinstitut') . qq|

|; } else { print qq|
| . $locale->text('Bankverbindung des Finanzamts') . qq| | . $locale->text('Kontonummer') . qq|


| . $locale->text('Bankleitzahl (BLZ)') . qq|


| . $locale->text('Kreditinstitut') . qq|
|; } print qq|
|; $lxdebug->leave_sub(); } sub create_winston { $lxdebug->enter_sub(); &get_config($userspath, 'finanzamt.ini'); # There is no generic Linux GNU/GPL solution out for using ELSTER. # In lack of availability linux users may use windows pendants. I choose # WINSTON, because it's free of coast, it has an API and its tested under # Linux using WINE. # The author of WINSTON developed some c-code to realize ELSTER under # WINDOWS and Linux (http://www.felfri.de/fa_xml/). Next year (2005) I start to # develop a server side solution for LX-Office ELSTER under Linux and # WINDOWS based on this c-code. # # You need to download WINSTON from http://www.felfri.de/winston/ # There (http://www.felfri.de/winston/download.htm) you'll find instructions # about WINSTON under Linux WINE # More infos about Winstons API: http://www.felfri.de/winston/schnittstellen.htm my $azr = ''; my $file = ''; # Filename for Winstonfile $file .= 'U'; # 1. char 'U' = USTVA SWITCH: { # 2. and 3. char 01-12= Month 41-44= Quarter (azr:Abrechnungszeitraum) $form->{duetyp} eq "01" && do { $azr = "01"; last SWITCH; }; $form->{duetyp} eq "02" && do { $azr = "02"; last SWITCH; }; $form->{duetyp} eq "03" && do { $azr = "03"; last SWITCH; }; $form->{duetyp} eq "04" && do { $azr = "04"; last SWITCH; }; $form->{duetyp} eq "05" && do { $azr = "05"; last SWITCH; }; $form->{duetyp} eq "06" && do { $azr = "06"; last SWITCH; }; $form->{duetyp} eq "07" && do { $azr = "07"; last SWITCH; }; $form->{duetyp} eq "08" && do { $azr = "08"; last SWITCH; }; $form->{duetyp} eq "09" && do { $azr = "09"; last SWITCH; }; $form->{duetyp} eq "10" && do { $azr = "10"; last SWITCH; }; $form->{duetyp} eq "11" && do { $azr = "11"; last SWITCH; }; $form->{duetyp} eq "12" && do { $azr = "12"; last SWITCH; }; $form->{duetyp} eq "A" && do { $azr = "41"; last SWITCH; }; $form->{duetyp} eq "B" && do { $azr = "42"; last SWITCH; }; $form->{duetyp} eq "C" && do { $azr = "43"; last SWITCH; }; $form->{duetyp} eq "D" && do { $azr = "44"; last SWITCH; }; do { $form->error( "Ungültiger Anmeldezeitraum.\n Sie können für ELSTER nur einen monatlichen oder quartalsweisen Anmeldezeitraum auswählen." ); }; } $file .= $azr; #4. and 5. char = year modulo 100 $file .= sprintf("%02d", $form->{year} % 100); #6. to 18. char = Elstersteuernummer #Beispiel: Steuernummer in Bayern #111/222/33334 ergibt für UStVA Jan 2004: U01049111022233334 $file .= $form->{elsterFFFF}; $file .= $form->{elstersteuernummer}; #file suffix $file .= '.xml'; $form->{elsterfile} = $file; #Calculations my $k51 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"51"})) ; # Umsätze zu 16% USt my $k86 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"86"})) ; # Umsätze zu 7% USt my $k97 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"97"})) ; # 16% Steuerpflichtige innergemeinsachftliche Erwerbe my $k93 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"93"})) ; # 16% Steuerpflichtige innergemeinsachftliche Erwerbe my $k94 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"94"})) ; # neuer Fahrzeuge von Lieferern my $k66 = $form->parse_amount(\%myconfig, $form->{"66"}) * 100; # Vorsteuer 7% plus 16% my $k83 = $form->parse_amount(\%myconfig, $form->{"67"}) * 100; # Umsätze zu 7% USt my $k96 = $form->parse_amount(\%myconfig, $form->{"96"}) * 100; # # # Now build the xml content # $form->{elster} = qq| $form->{elstersteuernummer} $form->{year} $azr |; $form->{elster} .= qq|$k51\n| if ($k51 ne '0'); $form->{elster} .= qq|$k86\n| if ($k86 ne '0'); $form->{elster} .= qq|$k97\n| if ($k97 ne '0'); $form->{elster} .= qq|$k93\n| if ($k93 ne '0'); $form->{elster} .= qq|$k94\n| if ($k94 ne '0'); $form->{elster} .= qq|$k96\n| if ($k96 ne '0'); $form->{elster} .= qq|$k66\n| if ($k66 ne '0'); $form->{elster} .= qq|$k83\n| if ($k83 ne '0'); $form->{elster} .= qq|\n\n\n|; #$form->header; #print qq|$form->{elsterfile}|; #print qq|$form->{elster}|; $SIG{INT} = 'IGNORE'; &save_winston; $lxdebug->leave_sub(); } sub save_winston { $lxdebug->enter_sub(); my $elster = $form->{elster}; my $elsterfile = $form->{elsterfile}; open(OUT, ">-") or $form->error("STDOUT : $!"); print OUT qq|Content-Type: application/file; Content-Disposition: attachment; filename="$elsterfile"\n\n|; print OUT $elster; close(OUT); $lxdebug->leave_sub(); } sub continue { $lxdebug->enter_sub(); # allow Symbolic references just here: no strict 'refs'; &{ $form->{nextsub} }; use strict 'refs'; $lxdebug->leave_sub(); } sub back { &{ $form->{lastsub} } } sub elster_hash { $lxdebug->enter_sub(); my $finanzamt = USTVA::query_finanzamt(\%myconfig, \%$form); $lxdebug->leave_sub(); return $finanzamt; } sub test { $lxdebug->enter_sub(); # biegt nur den Testeintrag in Programm->Test auf eine Routine um $form->header; &elster_send; $lxdebug->leave_sub(); } sub elster_send { $lxdebug->enter_sub(); #read config my $elster_conf = &elster_conf(); &elster_xml(); use Cwd; $form->{cwd} = cwd(); $form->{tmpdir} = $form->{cwd} . '/' . $elster_conf->{'path'}; $form->{tmpfile} = $elster_conf->{'err'}; my $caller = $elster_conf->{'call'}[0]; chdir("$form->{tmpdir}") or $form->error($form->cleanup . "chdir : $!"); my $send = "faxmlsend $caller -config etc/faxmlsend.cnf -xml faxmlsend.xml -tt faxmlsend.tt -debug"; system("$send > $form->{tmpfile}"); $form->{tmpdir} .= "$elster_conf->{'path'}/"; $form->{tmpfile} = "faxmlsend.err"; $form->error($form->cleanup . "faxmlsend : OFD meldet: Error 404 \n Internetseite nicht vorhanden") if ($? eq '1024'); $form->error($form->cleanup . "faxmlsend : No such File: faxmlsend.xml \n Fehlernummer: $? \n Problem beim öffnen der faxmlsend.xml" ) if ($?); # foreach my $line (&elster_feedback("$elster_conf->{'path'}")){ # print qq|$line\n|; # } print qq|Log:
|; #for (my $i=0; $i<= ) &elster_readlog(); print qq|\n ende\n|; $lxdebug->leave_sub(); } sub elster_readlog { $lxdebug->enter_sub(); my $elster_conf = &elster_conf(); open(LOG, "$elster_conf->{'logfile'}") or $form->error("$elster_conf->{'logfile'}: $!"); print qq||; my $log = ''; my $xml = ''; my $tmp = ''; while () { my $i = 0; #$_ =~ s//>\;/; $_ =~ s/\s+//mg; #$_ =~ s/\015\012//mg; $_ =~ s/|; #} elsif ($_ =~ /(<([^\/]*?)>)/ ) { } elsif ($_ =~ /(<([^\/].*?)>(.*))/g) { #$xml .= qq|$2 = $3\n\n|; #$_ =~ s/\015\012//mg; $_ =~ s/\s+//; $xml .= qq|$_\n|; } else { $tmp .= qq|$_
|; } $i++; } #second parse #my $var=''; #while (<$xml>){ # $var .= qq|$2 = $3\n\n|; #} #print qq|$log|; print qq|$xml|; print qq||; # $_=$log; # s{<(\w+)\b([^<>]*)> # ((?:.(?!) } # { print "markup=",$1," args=",$2," enclosed=",$3," final=",$4 ; "" }gsex; close LOG; $lxdebug->leave_sub(); } sub elster_feedback { $lxdebug->enter_sub(); my ($file) = @_; my @content = (); print qq|feedback:
|; if (-f "$file") { open(FH, "$file"); @content = ; close(FH); } $lxdebug->leave_sub(); return (@content); } sub elster_conf { $lxdebug->enter_sub(); my $elster_conf = { 'path' => 'elster', 'prg' => 'faxmlsend', 'err' => 'faxmlsend.err', 'ttfile' => 'faxmlsend.tt', 'xmlfile' => 'faxmlsend.xml', 'cline' => '-tt $ttfile -xml $xmlfile', 'call' => ['send', 'protokoll', 'anmeldesteuern'], '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 # $k86 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"86"})); # Umsätze zu 7% USt # $k97 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"97"})); # 16% Steuerpflichtige innergemeinsachftliche Erwerbe # $k93 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"93"})); # 16% Steuerpflichtige innergemeinsachftliche Erwerbe # $k94 = sprintf("%d", $form->parse_amount(\%myconfig, $form->{"94"})); # neuer Fahrzeuge von Lieferern # $k66 = $form->parse_amount(\%myconfig, $form->{"66"}) * 100;# Vorsteuer 7% plus 16% # $k83 = $form->parse_amount(\%myconfig, $form->{"67"}) * 100;# Umsätze zu 7% USt # $k96 = $form->parse_amount(\%myconfig, $form->{"96"}) * 100;# my $TransferHeader = qq| ElsterAnmeldung UStVA send-NoSig 700000004 74931 Helmut PKCS#7v1.5 GZIP 123456789012345678901234567890123456789012 0 0 test |; my $DatenTeil = qq| 234234234 9198 ElsterAnmeldung V 1.4 String, der Lieferanteninfo enthaelt .... OFD Muenchen Meiserstr. 6 80335 München 20041127 2005 01 9198011310134 74931*NameSteuerber.*Berufsbez.*089*59958327*Mandantenname \n|; #$DatenTeil .= qq| $k51\n| if ($k51 ne '0'); #$DatenTeil .= qq| $k86\n| if ($k86 ne '0'); #$DatenTeil .= qq| $k97\n| if ($k97 ne '0'); #$DatenTeil .= qq| $k93\n| if ($k93 ne '0'); #$DatenTeil .= qq| $k94\n| if ($k94 ne '0'); #$DatenTeil .= qq| $k96\n| if ($k96 ne '0'); #$DatenTeil .= qq| $k66\n| if ($k66 ne '0'); #$DatenTeil .= qq| $k83\n| if ($k83 ne '0'); my $filename = "$elster_conf->{'path'}/$elster_conf->{'xmlfile'}"; open(XML, ">$elster_conf->{'path'}/$elster_conf->{'xmlfile'}") or $form->error("$filename : $!"); print XML qq|$TransferHeader $DatenTeil|; close XML; $lxdebug->leave_sub(); }