neu

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -4,6 +4,9 @@ Public Class cAllgemein
     Public Shared FIRMA As String
     Public Shared NIEDERLASSUNG As String 'SUB, WAI, ...
     Public Shared ABTEILUNG As String 'QS ZOLL ...
+    Public Shared STAMMFILIALE As String 'IMEX,UNISPED;ATILLA...
+
+    ' Public Shared SPECIFIC As cSPECIFIC = New cSPECIFIC
 
     Public Shared ERR_OP_GLOBAL As String = ERROR_OP.SHOW
 
@@ -54,6 +57,20 @@ Public Class cAllgemein
             USR_HrFrNAME &= MITARBEITER.mit_nname
 
             If FIRMA = "" Then FIRMA = If(MITARBEITER.mit_firma = "BEIDE", "VERAG", MITARBEITER.mit_firma)
+
+
+            cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(0, 54, 128)
+            Select Case FIRMA
+                'Case "VERAG"
+                Case "IMEX"
+                    STAMMFILIALE = "5501"
+                Case "UNISPED"
+                    STAMMFILIALE = "5601"
+                    cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(200, 0, 0)
+                Case "AMBAR"
+                    STAMMFILIALE = "5701"
+            End Select
+
             USRNAME = (MITARBEITER.mit_vname & " " & MITARBEITER.mit_nname)
             If NIEDERLASSUNG = "" Then NIEDERLASSUNG = MITARBEITER.mit_niederlassung
             If ABTEILUNG = "" Then ABTEILUNG = MITARBEITER.mit_abteilung
@@ -122,6 +139,25 @@ Public Class cAllgemein
 
 
 
+    Class cSPECIFIC
+        Public Shared FIRMA_BgColor As System.Drawing.Color = Drawing.Color.FromArgb(0, 54, 128)
+        Public Shared FIRMA_ForeColor As System.Drawing.Color = Drawing.Color.White
+    End Class
 
 
+    Public Shared Sub buildConnectionDATENARCHIV()
+        Try
+            Dim netuse As New System.Diagnostics.ProcessStartInfo()
+
+            netuse.FileName = "C:\Windows\system32\net"
+            netuse.Arguments = "use \\192.168.0.91\Datenarchiv /User:VERAGOST\AVISOSMB BmWr501956"
+            netuse.CreateNoWindow = True
+            netuse.WindowStyle = ProcessWindowStyle.Hidden
+            System.Diagnostics.Process.Start(netuse)
+
+        Catch ex As Exception
+            MsgBox("ERR: DATENARCHIV Netzwerkzugriff fehlgeschlagen...")
+        End Try
+    End Sub
+
 End Class