projekt kivitendo

  if ($self->{"form"}->{"format"} =~ /elsterwinston/i) {

    return "application/xml ";

  } elsif ($self->{"form"}->{"format"} =~ /elstertaxbird/i) {

    return "application/x-taxbird";

  } else {

    return "text";

  }

    . $::locale->text('Preview')

  if ($::lx_office_conf{print_templates}{latex}) {

    $format .=

        qq|    <option value=pdf>|

      . $::locale->text('UStVA (PDF-Dokument)')

      . qq|</option>|;

  }

  #my $disabled= qq|disabled="disabled"|;

  #$disabled='' if ($form->{elster} eq '1' );

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

    $format .=

        qq|<option value=elsterwinston>|

      . $::locale->text('ELSTER Export (Winston)')

      . qq|</option>|

      . qq|<option value=elstertaxbird>|

      . $::locale->text('ELSTER Export (Taxbird)')

      . qq|</option>|;

  }

  #$format .= qq|<option value=elster>|.$locale->text('ELSTER Export nach Winston').qq|</option>|;

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

      $form->{IN} = 'winston.xml';

      #

      # Build Winston filename

      #

      my $file = 'U';     # 1. char 'U' = USTVA

      $file .= $form->{period};

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

      $file =~ s|.*/||;

      $form->{attachment_filename} = $file;

      # Zahlenformatierung für Winston

      my $temp_numberformat = $myconfig{numberformat};

      # Numberformat must be '1000,00' for Winston

      $myconfig{numberformat} = '1000,00';

      foreach my $number (@category_cent) {

        $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';

      }

      foreach my $number (@category_euro) {

        $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';

      }

      # Re-set Numberformat

      $myconfig{numberformat} = $temp_numberformat;

      # push Kennziffern to <%foreach Array fo easyer

      # output in xml format. Thx to Moritz.

      my %winston_id_for = (

         # No Winston remap?!

      );

      foreach my $kennziffer (@category_cent, @category_euro) {

        next if ( $kennziffer =~ m/Z\d\d/);

        next if (   $form->{$kennziffer} == 0 );

        if (defined $winston_id_for{$kennziffer} ) {

          push(@{ $form->{id}}, $winston_id_for{$kennziffer});

        } else {

          push(@{ $form->{id}}, "Kz$kennziffer");

        }

        push(@{ $form->{amount}}, $form->{$kennziffer});

      }

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

      # Define serveral filenames

      $form->{IN} = 'taxbird.txb';

      $form->{attachment_filename} = "USTVA-" . ($form->{period} * 1) . sprintf("%02d", $form->{year} % 100) . ".txb";

      $form->{attachment_filename} =~ s|.*/||;

      if ($form->{period} =~ /^[4]\d$/ ){

        my %periods = ( # Lx => taxbird

                     '41' => '12',

                     '42' => '13',

                     '43' => '14',

                     '44' => '15',

                   );

        foreach my $quarter ( keys %periods ) {

          $form->{taxbird_period} = $periods{$quarter} if ( $form->{period} eq $quarter);

        }

      } elsif ($form->{period} =~ /^\d+$/ ) {

        $form->{period} =~ s/^0//g;

        my $period = $form->{period};

        $period *= 1;

        $period--;

        $form->{taxbird_period} = $period;

      } else {

        $form->header;

        USTVA::error( $locale->text('Wrong Period' ));

        ::end_of_request();

      }

      # heuristics for address splitting

      # lx-office holds the entire address in a single field.

      # taxbird expects it to be splitted into street, zipcode and city

      if ($form->{co_street} =~ /\n/) {

        my $new_co_street;

        for (split /\n/, $form->{co_street}) {

          if (/(\d{3,5})\s+(\w+)/) {

            $form->{co_zip}  = $1;

            $form->{co_city} = $2;

          } else {

            $new_co_street .= $_;

          }

        }

        $form->{co_street} = $new_co_street;

      } else {

        $form->{co_zip} = $form->{co_city};

        $form->{co_zip} =~ s/\D//g;

        $form->{co_city} =~ s/\d//g;

        $form->{co_city} =~ s/^\s//g;

      }

      my $tax_office           = first { $_->{name} eq $form->{elsterland} } @{ $ustva->{tax_office_information} };

      $form->{taxbird_land_nr} = $tax_office->{taxbird_nr} if $tax_office;

      ($form->{co_phone_prefix}, $form->{co_phone}) = split("-", $form->{tel});

      $form->{co_phone_prefix} =~ s/\s//g;

      $form->{co_phone} =~ s/\s//g;

       $form->{taxbird_steuernummer} = $form->{steuernummer};

      #      $form->{taxbird_steuernummer} =~ s/\D//g;

#      $form->{taxbird_steuernummer} =~ s/\///; # ersten Querstrich ersetzen

      # Numberformatting for Taxbird

      my $temp_numberformat = $myconfig{numberformat};

      # Numberformat must be '1000,00' for Taxbird ?!

      $myconfig{numberformat} = '1000,00';

      foreach my $number (@category_cent) {

        $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '2', '') : '';

      }

      foreach my $number (@category_euro) {

        $form->{$number} = ( $form->{$number} !=0 ) ? $form->format_amount(\%myconfig, $form->{$number}, '0', '') : '';

      }

      # Re-set Numberformat

      $myconfig{numberformat} = $temp_numberformat;

      # push Kennziffern to <%foreach Array fo easyer

      # output in xml format. Thx to Moritz.

      my %taxbird_id_for = (

          '511'  =>  'Kz51-calc',

          '861'  =>  'Kz86-calc',

          '971'  =>  'Kz97-calc',

          '931'  =>  'Kz93-calc',

          '811'  =>  'Kz81-calc',

          '891'  =>  'Kz89-calc',

          'Z45'  =>  'uebertrag',

          'Z53'  =>  'ust-sum',

          'Z62'  =>  'ust-minus-vost',

          'Z65'  =>  'ust-sum+69',

          'Z67'  =>  'ust-vz',

      );

      for my $kennziffer (@category_cent, @category_euro) {

        next if ($kennziffer eq 'Z43');

        if ($form->{$kennziffer} != 0){

          if (defined $taxbird_id_for{$kennziffer}) {

            push(@{ $form->{id}}, $taxbird_id_for{$kennziffer});

          } else {

            push(@{ $form->{id}}, "Kz$kennziffer");

          }

          push(@{ $form->{amount}}, $form->{$kennziffer});

        }

      }

;; This file was produced by lx-office

;; for using in taxbird. 

;; You probably don't want to touch this 

;; file. In case you do want it anyway, 

;; be warned: BE CAREFUL!!

;;

'("Umsatzsteuervoranmeldung <%year%>" (

("vend-id" . "74931")

("land-lieferant" . "<%elsterland%>")

("name-lieferant" . "<%company%>")

("berufsbez" . "")

("strasse-lieferant" . "<%co_street%>")

("plz-lieferant" . "<%co_zip%> ")

("ort-lieferant" . "<%co_city%>")

("vorwahl" . "<%co_phone_prefix%>")

("anschluss" . "<%co_phone%>")

("land" . "<%taxbird_land_nr%>")

("zeitraum" . "<%taxbird_period%>")

("stnr" . "<%taxbird_steuernummer%>")

<%foreach id%>

("<%id%>" . "<%amount%>")<%end%>

))

<?xml version="1.0" encoding="UTF-8" ?>

<!-- Diese Datei ist mit kivitendo <%version%> generiert -->

<WinstonAusgang>

  <Formular Typ="UST"></Formular>

  <Ordnungsnummer><%elsterFFFF%><%elstersteuernummer%></Ordnungsnummer>

  <AnmeldeJahr><%year%></AnmeldeJahr>

  <AnmeldeZeitraum><%period%></AnmeldeZeitraum>

<%foreach id%>

  <Kennzahl nr="<%id%>"><%amount%></Kennzahl>

<%end%>

</WinstonAusgang>

;; This file was produced by lx-office

;; for using in taxbird. 

;; You probably don't want to touch this 

;; file. In case you do want it anyway, 

;; be warned: BE CAREFUL!!

;;

'("Umsatzsteuervoranmeldung <%year%>" (

("vend-id" . "74931")

("land-lieferant" . "<%elsterland%>")

("name-lieferant" . "<%company%>")

("berufsbez" . "")

("strasse-lieferant" . "<%co_street%>")

("plz-lieferant" . "<%co_zip%> ")

("ort-lieferant" . "<%co_city%>")

("vorwahl" . "<%co_phone_prefix%>")

("anschluss" . "<%co_phone%>")

("land" . "<%taxbird_land_nr%>")

("zeitraum" . "<%taxbird_period%>")

("stnr" . "<%taxbird_steuernummer%>")

<%foreach id%>

("<%id%>" . "<%amount%>")<%end%>

))

<?xml version="1.0" encoding="UTF-8" ?>

<!-- Diese Datei ist mit kivitendo <%version%> generiert -->

<WinstonAusgang>

  <Formular Typ="UST"></Formular>

  <Ordnungsnummer><%elsterFFFF%><%elstersteuernummer%></Ordnungsnummer>

  <AnmeldeJahr><%year%></AnmeldeJahr>

  <AnmeldeZeitraum><%period%></AnmeldeZeitraum>

<%foreach id%>

  <Kennzahl nr="<%id%>"><%amount%></Kennzahl>

<%end%>

</WinstonAusgang>

;; This file was produced by lx-office

;; for using in taxbird. 

;; You probably don't want to touch this 

;; file. In case you do want it anyway, 

;; be warned: BE CAREFUL!!

;;

'("Umsatzsteuervoranmeldung <%year%>" (

("vend-id" . "74931")

("land-lieferant" . "<%elsterland%>")

("name-lieferant" . "<%company%>")

("berufsbez" . "")

("strasse-lieferant" . "<%co_street%>")

("plz-lieferant" . "<%co_zip%> ")

("ort-lieferant" . "<%co_city%>")

("vorwahl" . "<%co_phone_prefix%>")

("anschluss" . "<%co_phone%>")

("land" . "<%taxbird_land_nr%>")

("zeitraum" . "<%taxbird_period%>")

("stnr" . "<%taxbird_steuernummer%>")

<%foreach id%>

("<%id%>" . "<%amount%>")<%end%>

))

<?xml version="1.0" encoding="UTF-8" ?>

<!-- Diese Datei ist mit kivitendo <%version%> generiert -->

<WinstonAusgang>

  <Formular Typ="UST"></Formular>

  <Ordnungsnummer><%elsterFFFF%><%elstersteuernummer%></Ordnungsnummer>

  <AnmeldeJahr><%year%></AnmeldeJahr>

  <AnmeldeZeitraum><%period%></AnmeldeZeitraum>

<%foreach id%>

  <Kennzahl nr="<%id%>"><%amount%></Kennzahl>

<%end%>

</WinstonAusgang>