Kundenanlage VERIMEX (AMVAR); cbo Erwe. hasItems

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -338,6 +338,18 @@ Public Class cAllgemein
         Return FirmaTMP
     End Function
 
+    Public Shared Function getClusterFromFiliale(FilialenNr As Object, Optional usedefaultCLUSTER As Boolean = True, Optional defaultCLUSTER As String = "VERAG") As String
+        Dim FirmaTMP = ""
+        If FilialenNr IsNot Nothing AndAlso IsNumeric(FilialenNr) Then
+            ' FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE  FilialenNr='" & FilialenNr & "' ", "FMZOLL")
+            If FILIALEN Is Nothing Then LOAD_FILIALEN()
+            Dim FILIALE = FILIALEN.Find(Function(x) x.FilialenNr = FilialenNr)
+            If FILIALE IsNot Nothing Then FirmaTMP = If(FILIALE.Cluster, "")
+        End If
+        If usedefaultCLUSTER AndAlso FirmaTMP = "" Then FirmaTMP = defaultCLUSTER
+        Return FirmaTMP
+    End Function
+
 
     Public Shared Function getFirmaFromFiliale(FilialenNr As Object, Optional defaultVERAG As Boolean = True) As String
         Dim FirmaTMP = ""