EXG GEstellung automatisieren

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTariffKN8.vb

@@ -23,6 +23,11 @@ Public Class cTariffKN8_Interface
         TNR = TNR.ToString.Replace(".", "")
         TNR = TNR.ToString.Replace(" ", "")
         If TNR.ToString.Length > 8 Then TNR = TNR.ToString.Substring(0, 8)
+
+        'If TNR.Length < 8 Then
+        '    ' Mit Nullen auffüllen
+        '    TNR = TNR.PadRight(8, "0"c)
+        'End If
         Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
         Return sql.getValueTxtBySql("SELECT TOP 1 [Kurztitel] FROM [tblEZTKN8] where EDV_Code like '" & TNR & "'", "FMZOLL",,, "")
     End Function