projekt kivitendo

    print qq|<select id="zeitraum" name="duetyp" title="|

    my %liste = ('A'  => $locale->text('1. Quarter'),

                 'B'  => $locale->text('2. Quarter'),

                 'C'  => $locale->text('3. Quarter'),

                 'D'  => $locale->text('4. Quarter'),

    print qq|<select id="zeitraum" name="duetyp" title="|

    print qq|<select id="zeitraum" name="duetyp" title="|

    my %listea = ('A' => '1. Quarter',

                  'B' => '2. Quarter',

                  'C' => '3. Quarter',

                  'D' => '4. Quarter',);

        qq|<option value=elster>|

      . qq|</option>|;

  my $item = '';

  foreach $item (@anmeldungszeitraum) {

  if ($form->{reporttype} eq "custom") {

    if ($form->{duetyp} eq "13") {

    if ($form->{duetyp} eq "A") {

    if ($form->{duetyp} eq "B") {

    if ($form->{duetyp} eq "C") {

    if ($form->{duetyp} eq "D") {

      $form->{duetyp} eq "01" && do {

      $form->{duetyp} eq "02" && do {

      $form->{duetyp} eq "03" && do {

      $form->{duetyp} eq "04" && do {

      $form->{duetyp} eq "05" && do {

      $form->{duetyp} eq "06" && do {

      $form->{duetyp} eq "07" && do {

      $form->{duetyp} eq "08" && do {

      $form->{duetyp} eq "09" && do {

      $form->{duetyp} eq "10" && do {

      $form->{duetyp} eq "11" && do {

      $form->{duetyp} eq "12" && do {

  }

  $form->{period} =

    unless ($form->{todate}) {

      $form->{todate} = $form->current_date($myconfig);

    }

    $form->{period}      =

    $form->{period} .=

  if (   $form->{format} eq 'pdf'

      or $form->{format} eq 'postscript') {

        or $myconfig{numberformat} eq '1000,00') {

    # Formatierungen f?r HTML Ausgabe

      } elsif ($form->{format} eq 'html') {

  }

  if ($form->{format} eq 'elster') {

    if ($form->{duetyp} eq '13') {

          'Impossible to create yearly Tax Report via Winston.<br \> Not yet implemented!'

        ));

    } else {

      &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} = 'USTE'

      if (   $form->{duetyp} eq '13'

          && $form->{format} ne 'html');

    if ($form->{IN} eq 'USTE') {

      $form->header;

      USTVA::info(

        $locale->text(

          'Impossible to create yearly Tax Report as PDF or PS.<br \> Not yet implemented!'

        ));

    $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<br>$path|;

    $form->parse_template($myconfig, $userspath);

  }

  $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->{"83"}) * 100 ; # Endbetrag

  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->{elsterFFFF}$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();

}

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:<br>|;

  #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|<listing>|;

  my $log = '';

  my $xml = '';

  my $tmp = '';

  while (<LOG>) {

    my $i = 0;

    #$_ =~ s/</&lt\;/;

    #$_ =~ s/>/&gt\;/;

    $_ =~ s/\s+//mg;

    #$_ =~ s/\015\012//mg;

    $_ =~ s/</\n</mg;

    #$_ =~ s/\n\n+//mg;

    if ($_ =~ /^\d\d\d\d\d\d/g) {

      $log .= qq|$_<br>|;

      #} elsif ($_ =~ /(<([^\/]*?)>)/ ) {

    } elsif ($_ =~ /(<([^\/].*?)>(.*))/g) {

      #$xml .= qq|$2 = $3\n\n|;

      #$_ =~ s/\015\012//mg;

      $_ =~ s/\s+//;

      $xml .= qq|$_\n|;

    } else {

      $tmp .= qq|$_<br>|;

    }

    $i++;

  }

  #second parse

  #my $var='';

  #while (<$xml>){

  #  $var .= qq|$2 = $3\n\n|;

  #}

  #print qq|$log|;

  print qq|$xml|;

  print qq|</listing>|;

  # $_=$log;

  #  s{<(\w+)\b([^<>]*)>

  #    ((?:.(?!</?\1\b))*.)

  #      (<\1>) }

  #   { 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:<br>|;

  if (-f "$file") {

    open(FH, "$file");

    @content = <FH>;

    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|<?xml version="1.0" encoding="ISO-8859-1"?>

<?xml-stylesheet type="text/xsl" href="..\\Stylesheet\\ustva.xsl"?>

<Elster xmlns="http://www.elster.de/2002/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.elster.de/2002/XMLSchema

..\\Schemata\\elster_UStA_200501_extern.xsd">

   <TransferHeader version="7">

      <Verfahren>ElsterAnmeldung</Verfahren>

      <DatenArt>UStVA</DatenArt>

      <Vorgang>send-NoSig</Vorgang>

      <Testmerker>700000004</Testmerker>

      <HerstellerID>74931</HerstellerID>

      <DatenLieferant>Helmut</DatenLieferant>

      <Datei>

        <Verschluesselung>PKCS#7v1.5</Verschluesselung>

        <Kompression>GZIP</Kompression>

        <DatenGroesse>123456789012345678901234567890123456789012</DatenGroesse>

        <TransportSchluessel/>

      </Datei>

      <RC>

        <Rueckgabe>

          <Code>0</Code>

          <Text/>

        </Rueckgabe>

        <Stack>

          <Code>0</Code>

          <Text/>

        </Stack>

      </RC>

      <VersionClient/>

      <Zusatz>

        <Info>test</Info>

      </Zusatz>

   </TransferHeader>|;

  my $DatenTeil = qq|

   <DatenTeil>

      <Nutzdatenblock>

         <NutzdatenHeader version="9">

            <NutzdatenTicket>234234234</NutzdatenTicket>

            <Empfaenger id="F">9198</Empfaenger>

            <Hersteller>

               <ProduktName>ElsterAnmeldung</ProduktName>

               <ProduktVersion>V 1.4</ProduktVersion>

            </Hersteller>

            <DatenLieferant>String, der Lieferanteninfo enthaelt</DatenLieferant>

            <Zusatz>

              <Info>....</Info>

            </Zusatz>

         </NutzdatenHeader>

         <Nutzdaten>

            <!--die Version gibt Auskunft ueber das Jahr und die derzeit gueltige Versionsnummer-->

            <Anmeldungssteuern art="UStVA" version="200501">

               <DatenLieferant>

                  <Name>OFD Muenchen</Name>

                  <Strasse>Meiserstr. 6</Strasse>

                  <PLZ>80335</PLZ>

                  <Ort>M?nchen</Ort>

               </DatenLieferant>

               <Erstellungsdatum>20041127</Erstellungsdatum>

               <Steuerfall>

                  <Umsatzsteuervoranmeldung>

                     <Jahr>2005</Jahr>

                     <Zeitraum>01</Zeitraum>

                     <Steuernummer>9198011310134</Steuernummer>

                     <Kz09>74931*NameSteuerber.*Berufsbez.*089*59958327*Mandantenname</Kz09>

                  </Umsatzsteuervoranmeldung>

               </Steuerfall>

            </Anmeldungssteuern>

         </Nutzdaten>

      </Nutzdatenblock>

   </DatenTeil>

</Elster>\n|;

  #$DatenTeil .= qq|                              <Kz51>$k51</Kz51>\n| if ($k51 ne '0');

  #$DatenTeil .= qq|                              <Kz86>$k86</Kz86>\n| if ($k86 ne '0');

  #$DatenTeil .= qq|                              <Kz97>$k97</Kz97>\n| if ($k97 ne '0');

  #$DatenTeil .= qq|                              <Kz93>$k93</Kz93>\n| if ($k93 ne '0');

  #$DatenTeil .= qq|                              <Kz94>$k94</Kz94>\n| if ($k94 ne '0');

  #$DatenTeil .= qq|                              <Kz96>$k96</Kz96>\n| if ($k96 ne '0');

  #$DatenTeil .= qq|                              <Kz66>$k66</Kz66>\n| if ($k66 ne '0');

  #$DatenTeil .= qq|                              <Kz83>$k83</Kz83>\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();

}