From: Udo Spallek <info@wissensvermittlung.com>
Date: Wed, 16 Nov 2005 10:24:55 +0000 (+0000)
Subject: USTVA: Zahlenformatierung in Tex-Reports erweitert für alle Zahlenformate
X-Git-Tag: release-2.4.0^2~458
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=d5f355978a4b0a5e7ce29305559534bea9e3ddd1;p=kivitendo-erp.git

USTVA: Zahlenformatierung in Tex-Reports erweitert für alle Zahlenformate
---

diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl
index a40388a98..e6268a67c 100644
--- a/bin/mozilla/ustva.pl
+++ b/bin/mozilla/ustva.pl
@@ -1011,13 +1011,25 @@ sub generate_ustva {
     $form->{endbold} = "}";
     $form->{br}      = '\\\\';
 
+    
     my @numbers = qw(51r 86r 97r 93r 96 43 45
       66 62 67);
     my $number = '';
-    foreach $number (@numbers) {
-      $form->{$number} =~ s/,/~~/g;
+    # Zahlenformatierung für Latex USTVA Formulare
+    if ($myconfig{numberformat} eq '1.000,00' or 
+         $myconfig{numberformat} eq '1000,00') {
+      foreach $number (@numbers) {
+        $form->{$number} =~ s/,/~~/g;
+      }
+    }  
+    if ($myconfig{numberformat} eq '1000.00' or 
+         $myconfig{numberformat} eq '1,000.00') {
+      foreach $number (@numbers) {
+        $form->{$number} =~ s/\./~~/g;
+      }
     }
-      } elsif ($form->{format} eq 'html') {
+  # Formatierungen für HTML Ausgabe
+  } elsif ($form->{format} eq 'html') {
     $form->{padding} = "&nbsp;&nbsp;";
     $form->{bold}    = "<b>";
     $form->{endbold} = "</b>";