KVI Report

VERAG_PROG_ALLGEMEIN/Classes/cGreendeal_CBAM_Trn.vb

@@ -211,6 +211,29 @@ Public Class cGreendeal_CBAM_Trn
     End Function
 
 
+    Public Shared Function isCBAMTnr(TNR As String, Optional LIST As List(Of String) = Nothing) As Boolean
+
+        If LIST Is Nothing Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST Is Nothing Then VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST = cGreendeal_CBAM_Trn.LoadCBAMTariffNumbers
+            LIST = VERAG_PROG_ALLGEMEIN.cAllgemein.CBAM_LIST
+        End If
+
+        If TNR Is Nothing Then Return False
+        If String.IsNullOrWhiteSpace(TNR) Then Return False
+
+
+        For Each cbamTnr As String In LIST
+            If Not String.IsNullOrWhiteSpace(cbamTnr) Then
+                If TNR.StartsWith(cbamTnr.Replace("%", "").Trim) Then
+                    Return True
+                End If
+            End If
+        Next
+
+        Return False
+
+    End Function
+
     Public Shared Function LoadCBAMTariffNumbers(Optional onlyActive As Boolean = True,
                                              Optional includeExclusions As Boolean = False) _
                                              As List(Of String)