ATEZ API: NCTS-TR, Tariff: TELOTEC-API

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTariffKN8.vb

@@ -16,6 +16,18 @@ Public Class cTariffKN8_Interface
 
 
 
+    Public Shared Function getKN8FromTNR(TNR)
+        If TNR Is Nothing Then Return ""
+        If TNR Is DBNull.Value Then Return ""
+        If TNR.ToString = String.Empty Then Return ""
+        TNR = TNR.ToString.Replace(".", "")
+        TNR = TNR.ToString.Replace(" ", "")
+        If TNR.ToString.Length > 8 Then TNR = TNR.ToString.Substring(0, 8)
+        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
+
+
     Public Shared Function UPDATE_KN8()
         ' URL zur Datei
         Dim fileUrl As String = "https://www.statistik.at/kdb/downloads/csv/prod/KN" & Now.Year & "_DE_CKT.txt"