Qualitaetskontrolle, Barbelege + Qualitätskontrolle, ProgrammID wird nun beim start korrekt geladen, etc.

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -280,6 +280,7 @@ Public Class cDATENSERVER
         s = s.Replace("І", "I") 'cyrillic I
         s = s.Replace("Ј", "J") 'cyrillic J
         s = s.Replace("Е", "E") 'cyrillic E
+        s = s.Replace("?", "")
 
         Dim temp = s
         s = Regex.Replace(s, "[бБвгГдДёЁжЖзЗиИйЙкКлЛмнпПртфФхХцЦчЧшШщЩъЪыЫьЬэЭюЮяЯ]", "").Replace("""", "") 'REMOVE cyrillic letters 
@@ -287,6 +288,7 @@ Public Class cDATENSERVER
 
         Dim tempBytes = System.Text.Encoding.GetEncoding("ISO-8859-8").GetBytes(s)
         s = System.Text.Encoding.UTF8.GetString(tempBytes)
+        s = s.Replace("<EFBFBD>", "")
 
         Return s
     End Function