USTVA und IDS MWST-Sätze

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -268,7 +268,7 @@ Public Class cDATENSERVER
         End Try
     End Function
 
-    Public Shared Function replaceInvalidCahr(ByRef s As String) As String
+    Public Shared Function replaceInvalidCahr(ByRef s As String, Optional useISO88598 As Boolean = True) As String
         Try
 
 
@@ -296,9 +296,11 @@ Public Class cDATENSERVER
             Dim temp = s
             s = Regex.Replace(s, "[бБвгГдДёЁжЖзЗиИйЙкКлЛмнпПртфФхХцЦчЧшШщЩъЪыЫьЬэЭюЮяЯ]", "").Replace("""", "") 'REMOVE cyrillic letters 
             'If s = "" Then s = temp
+            If useISO88598 Then
+                Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s)
+                s = System.Text.Encoding.UTF8.GetString(tempBytes)
+            End If
 
-            Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s)
-            s = System.Text.Encoding.UTF8.GetString(tempBytes)
             s = s.Replace("<EFBFBD>", "")
             s = s.Replace("?", "")