20200108

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -6,6 +6,7 @@ Public Class cAllgemein
     Public Shared ABTEILUNG As String 'QS ZOLL ...
     Public Shared STAMMFILIALE As String 'IMEX,UNISPED;ATILLA...
 
+    Public Shared CLUSTER As String = "" 'Firmenverbund
     ' Public Shared SPECIFIC As cSPECIFIC = New cSPECIFIC
 
     Public Shared ERR_OP_GLOBAL As String = ERROR_OP.SHOW
@@ -61,14 +62,20 @@ Public Class cAllgemein
 
             cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(0, 54, 128)
             Select Case FIRMA
-                'Case "VERAG"
+                Case "VERAG"
+                    CLUSTER = "FRONTOFFICE"
                 Case "IMEX"
                     STAMMFILIALE = "5501"
+                    CLUSTER = "FRONTOFFICE"
                 Case "UNISPED"
                     STAMMFILIALE = "5601"
                     cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(200, 0, 0)
+                    CLUSTER = "FRONTOFFICE"
                 Case "AMBAR"
                     STAMMFILIALE = "5701"
+                Case "FRONTOFFICE"
+                    STAMMFILIALE = "5801"
+                    CLUSTER = "FRONTOFFICE"
             End Select
 
             USRNAME = (MITARBEITER.mit_vname & " " & MITARBEITER.mit_nname)
@@ -132,6 +139,18 @@ Public Class cAllgemein
         Return returnValue
     End Function
 
+
+
+    Public Shared Function isCLUSTER() As Boolean
+        Return (FIRMA = CLUSTER)
+    End Function
+
+    Public Shared Function getFirmaFromFiliale(FilialenNr As Integer, Optional defaultVERAG As Boolean = True) As String
+        Dim FirmaTMP = SQL.getValueTxtBySql("SELECT TOP 1 [Firma] FROM [Filialen] WHERE  FilialenNr='" & FilialenNr & "' AND ( Firma='" & FIRMA & "' OR Cluster='" & CLUSTER & "')", "FMZOLL")
+        If defaultVERAG AndAlso FirmaTMP = "" Then FirmaTMP = "VERAG"
+        Return FirmaTMP
+    End Function
+
     Public Shared Function SpedBuchExists(FilialenNr As Integer, AbfertigungsNr As Integer) As Boolean
         Return (CInt(SQL.getValueTxtBySql("SELECT count(*) FROM Speditionsbuch WHERE FilialenNr=" & FilialenNr & " AND AbfertigungsNr=" & AbfertigungsNr & " ", "FMZOLL")) > 0)