WARENORT-AVISO, EN-Anpassung, Benachrichtigungen, ATILLA-Indonesien, AVISO-TV

Aviso/frmLogin.vb

@@ -239,7 +239,7 @@ Public Class frmLogin
                 cboWarenort.Visible = True
                 picWO.Visible = True
                 lblWO.Visible = True
-            Case "FO_Wiesentheid", "WO_GE", "WO_IST_LOL", "WO_IST_LOG", "WO_KITA", "WO_MERIS"
+            Case "FO_WIHD", "FO_Wiesentheid", "WO_GE", "WO_IST_LOL", "WO_IST_LOG", "WO_KITA", "WO_MERIS"
 
                 'picLogin.Size = New Size(picLogin.Width, 71)
                 picLogin.Image = Nothing
@@ -425,6 +425,16 @@ Public Class frmLogin
     End Sub
 
     Private Sub loginOK()
+
+        'Prüfen, ob sich eein WO Nutzer in den Firmen-Login schmuggeln möchte:
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
+            If Not VERAG_PROG_ALLGEMEIN.cAllgemein.WARENORT_ZUGANG Then
+                MsgBox("Keine Berechtigung!")
+                Exit Sub
+            End If
+        End If
+
+
         'Prüfen, ob Passwort erneuert werden muss
         If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_PasswortChanged Is Nothing Then
             Dim f As New frmChangePWD(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER)
@@ -679,7 +689,7 @@ Public Class frmLogin
         picWO.BackgroundImage = Nothing
         picWO.Visible = True
         Select Case cboWarenort._value
-            Case "FO_Wiesentheid" : picWO.BackgroundImage = My.Resources.Koerfez61
+            Case "FO_Wiesentheid", "FO_WIHD" : picWO.BackgroundImage = My.Resources.Koerfez61
             Case "WO_GE" : picWO.BackgroundImage = My.Resources.ge_transport
             Case "WO_IST_LOL" : picWO.BackgroundImage = My.Resources.istLog
             Case "WO_KITA" : picWO.BackgroundImage = My.Resources.kita