X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fustva.pl;h=3b799e6e00f50d7f749c84b5d2988325cbe8605a;hb=d3287e3265b566f110eb9734c8ab26b8036d22f4;hp=daecb8d88af648e8e8847758916dc96a6bf1b273;hpb=a205ed210bf303bff2af7abcedf128c61d957f3a;p=kivitendo-erp.git

diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl
index daecb8d88..3b799e6e0 100644
--- a/bin/mozilla/ustva.pl
+++ b/bin/mozilla/ustva.pl
@@ -738,12 +738,16 @@ sub generate_ustva {
   # Outputformat specific customisation's
   #
 
-  my @category_cent = qw(511 861 36 80 971 931 98 96 53 74
-    85 65 66 61 62 67 63 64 59 69 39 83
-    Z43 Z45 Z53 Z62 Z65 Z67);
+  my @category_cent = qw(
+    511 861 36  80  971 931 98  96 53 74
+    85  65  66  61  62  67  63  64 59 69 
+    39  83  Z43 Z45 Z53 Z62 Z65 Z67
+  );
 
-  my @category_euro = qw(41 44 49 43 48 51 86 35 77 76 91 97 93
-    95 94 42 60 45 52 73 84);
+  my @category_euro = qw(
+    41 44 49 43 48 51 86 35 77 76 91 
+    97 93 95 94 42 60 45 52 73 84
+  );
 
   if ( $form->{format} eq 'pdf' or $form->{format} eq 'postscript') {
 
@@ -829,6 +833,7 @@ sub generate_ustva {
 
   elsif ( $form->{format} eq 'elstertaxbird' ) {
 
+    # Define serveral filenames
     $form->{IN} = 'taxbird.txb';
 
     $form->{attachment_filename} = "USTVA-" . $form->{period} 
@@ -836,6 +841,11 @@ sub generate_ustva {
     
     $form->{tmpfile} = "$userspath/" . $form->{attachment_filename};
 
+    # TODO: set Output to UTF-8 or system Preference
+    #$form->{"iconv"} = Text::Iconv->new($myconfig{dbcharset}, "UTF-8");
+    #my $iconv = $self->{"iconv"};
+    #$iconv->convert($variable);
+
     if ($form->{period} =~ /^[4]\d$/ ){
       my %periods = ( # Lx => taxbird
                    '41' => '12',
@@ -871,8 +881,6 @@ sub generate_ustva {
         $form->{taxbird_land_nr} = $lands{$land} if ($form->{elsterland} eq $land );
       }
       
-
-      
       $form->{co_zip} = $form->{co_city};
       $form->{co_zip} =~ s/\D//g;
       $form->{co_city} =~ s/\d//g;
@@ -887,11 +895,10 @@ sub generate_ustva {
       $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';
+      # 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', '') : '';