MIC, Fahrerdata, Formulare(VM),divers

VERAG_PROG_ALLGEMEIN/cAllgemein.vb

@@ -66,7 +66,7 @@ Public Class cAllgemein
     Public Shared FILIALEN As List(Of cFilialen)
     Public Const LeerDatum As Date = #12/30/1899#   'wird als leerer Datumswert verwendet, da sonst Probleme bei Null/Date
 
-    Public Shared Sub LOAD_DATA()
+    Public Shared Sub LOAD_DATA(Optional switchCompany = False, Optional firmaTmp = False, Optional NLTmp = "")
         MITARBEITER = New cMitarbeiter
         If MITARBEITER.LOAD(USRID) Then
             USR_NNAME = MITARBEITER.mit_nname
@@ -80,7 +80,15 @@ Public Class cAllgemein
             End Select
             USR_HrFrNAME &= MITARBEITER.mit_nname
 
-            If FIRMA = "" Then FIRMA = If(MITARBEITER.mit_firma = "BEIDE", "VERAG", MITARBEITER.mit_firma)
+
+            If switchCompany Then
+                FIRMA = firmaTmp
+                NIEDERLASSUNG = If(NLTmp <> "", NLTmp, MITARBEITER.mit_niederlassung)
+            Else
+                If FIRMA = "" Then FIRMA = If(MITARBEITER.mit_firma = "BEIDE", "VERAG", MITARBEITER.mit_firma)
+
+            End If
+
 
 
             cSPECIFIC.FIRMA_BgColor = Drawing.Color.FromArgb(0, 54, 128)
@@ -115,6 +123,9 @@ Public Class cAllgemein
         Else
             MITARBEITER = Nothing
         End If
+
+
+
         LOAD_PARAM()
         LOAD_TRANSLATE()
         LOAD_FIRMEN()