-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|<?xml version="1.0" encoding="ISO-8859-1" ?>
-<!-- Diese Datei ist mit Lx-Office $form->{version} generiert -->
-<WinstonAusgang>
- <Formular Typ="UST"></Formular>
- <Ordnungsnummer>$form->{elstersteuernummer}</Ordnungsnummer>
- <AnmeldeJahr>$form->{year}</AnmeldeJahr>
- <AnmeldeZeitraum>$azr</AnmeldeZeitraum>
- |;
-
- $form->{elster} .= qq|<Kennzahl Nr="51">$k51</Kennzahl>\n| if ($k51 ne '0');
- $form->{elster} .= qq|<Kennzahl Nr="86">$k86</Kennzahl>\n| if ($k86 ne '0');
- $form->{elster} .= qq|<Kennzahl Nr="97">$k97</Kennzahl>\n| if ($k97 ne '0');
- $form->{elster} .= qq|<Kennzahl Nr="93">$k93</Kennzahl>\n| if ($k93 ne '0');
- $form->{elster} .= qq|<Kennzahl Nr="94">$k94</Kennzahl>\n| if ($k94 ne '0');
- $form->{elster} .= qq|<Kennzahl Nr="96">$k96</Kennzahl>\n| if ($k96 ne '0');
- $form->{elster} .= qq|<Kennzahl Nr="66">$k66</Kennzahl>\n| if ($k66 ne '0');
- $form->{elster} .= qq|<Kennzahl Nr="83">$k83</Kennzahl>\n| if ($k83 ne '0');
- $form->{elster} .= qq|\n</WinstonAusgang>\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();
-}