#!/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| #
#
#

# # |.$locale->text('Anstehende Voranmeldungen').qq| # #

$stichtag

#

$description

$form->{today}

# #

|; } else { print qq|

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

Die Ausgabefunktionen sind wegen fehlender Daten deaktiviert.

Hilfe:

Bitte 'Einstellungen' wählen um die Erweiterten UStVa Funktionen nutzen zu können.

Firmendaten können bei den Benutzereinstellungen verändert werden.

|; 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| |.$locale->text('accrual').qq|
|; $checked = ''; $checked ="checked" if ( $form->{method} eq 'cash' ); print qq| |.$locale->text('cash').qq|

|.$locale->text('Voranmeldungszeitraum').qq| |; $checked = ''; $checked ="checked" if ( $form->{FA_voranmeld} eq 'month' ); print qq| |.$locale->text('month').qq|
|; $checked = ''; $checked ="checked" if ( $form->{FA_voranmeld} eq 'quarter' ); print qq| |.$locale->text('quarter').qq|
|; $checked = ''; $checked ="checked" if ( $form->{FA_dauerfrist} eq '1' ); print qq| |.$locale->text('Dauerfristverlängerung').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('Ö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|

|; } elsif ( $FA_1 ) { print qq|

|; } else { print 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(); }

\|.$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}