projekt kivitendo

# German Tax authority Module and later ELSTER Interface

#======================================================================

require "bin/mozilla/common.pl";

#use strict;

  $ustva->get_config($userspath, 'finanzamt.ini');

  # Hier Einlesen der user-config

  my @a = qw(

    signature      name          company       address        businessnumber

    tel            fax           email         co_chief       co_department

  # Anpassungen der Variablennamen auf pre 2.1.1 Namen

  if ($form->{address} ne '') {

    my $temp = $form->{address};

    $temp =~ s/\n/<br \/>/;

    $sel    = '';

    my $dfv = '';

    $dfv = '100' if ($form->{FA_dauerfrist} eq '1');

  SWITCH: {

    my $yy = $form->{year} * 10000;

    $yymmdd = "$form->{year}$form->{month}$form->{day}" * 1;

    $sel    = '';

    $dfv = '100' if ($form->{FA_dauerfrist} eq '1');

  SWITCH: {

      };

    }

  $form->{'year2007'} = ($form->{year} >= 2007 ) ? "1":"0";

      $form->{endbold} = "}";

      $form->{br}      = '\\\\';

      foreach my $number (@category_euro) {

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

        $form->{$number} =~ s/${decimal_comma}/~~/g;

      }

      $form->{IN} = $form->{type} . '.html';

      $form->{padding} = "  ";

      $file .= sprintf("%02d", $form->{year} % 100);

      #6. to 18. char = Elstersteuernummer

      #Beispiel: Steuernummer in Bayern

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

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

      #file suffix

      $form->{attachment_filename} = $file;

      my $temp_numberformat = $myconfig{numberformat};

    $form->{USTVA} = [];

      my $rec_ref = {};

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

  $ustva->get_coa($form, \%myconfig);

  my $steuernummer_new = '';

  my $template_ref = {

     select_tax_office               => $select_tax_office,

     checked_accrual                 => $checked_accrual,

  $ustva->get_config($userspath, 'finanzamt.ini')

    if ($form->{saved} eq $locale->text('saved'));

  USTVA::info(  $locale->text('Missing Tax Authoritys Preferences') . "\n"

              . $locale->text('USTVA-Hint: Tax Authoritys'))

    if (   $form->{elsterFFFF_new} eq 'Auswahl'

              . $locale->text('USTVA-Hint: Method'))

    if ($form->{method} eq '');

  # der vorherigen Maske stattfanden: $change = 1(in der edit sub,

  # mittels get_config)

  if ($change eq '1') {

    $elsterland           = $form->{elsterland_new};

    $elsterFFFF           = $form->{elsterFFFF_new};

    $form->{elsterland}   = $elsterland;

    FA_steuerberater_street FA_steuerberater_city FA_steuerberater_tel

    FA_71 FA_dauerfrist);

  if ($form->{elstersteuernummer} ne '000000000') {

    $form->{elster} = '1';