Vermerke

Aviso/usrCntlHauptfenster_Suche_AVISO.vb

@@ -12,6 +12,8 @@ Public Class usrCntlHauptfenster_Suche_AVISO
 
     Private AvisoDAL As New cAvisoDAL
     Private FUNC As New AvisoStatusFunctions
+    Dim OptionenDAL As New VERAG_PROG_ALLGEMEIN.cOptionenDAL
+
 
     Public Sub RESET()
         cboGrenzstelle.SelectedIndex = 0
@@ -157,6 +159,35 @@ Public Class usrCntlHauptfenster_Suche_AVISO
             initEAviso()
         End If
 
+
+        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "ATILLA" ' Case "VERAG", "IMEX"
+            Case Else
+
+                'If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_Weiterleiten", "AVISO") Then
+                '    SplitContainer3.Panel1Collapsed = True
+                'End If
+
+                'AVISO vom PC übernehmen
+                Dim zeilen As Integer = OptionenDAL.setAVISOFromPcName()
+
+                Select Case zeilen
+                    Case 0 : lblAkte.Visible = False
+                    Case 1 : lblAkte.Text = zeilen & " Akt vom Arbeitsplatz übernommen"
+                    Case Else : lblAkte.Text = zeilen & " Akte vom Arbeitsplatz übernommen"
+                End Select
+
+                If Not (VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_abteilung = "QS" And VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "SUB") Then
+                    cboGrenzstelle._value = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                End If
+
+        End Select
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
+            cbx_My_Brexit.Checked = True
+        End If
+
+
         tbcntrAvisoLKW.Width = Panel1.Width
 
         'tbcntrAvisoSND.Location = New Point(tbcntrAvisoLKW.Location.X + getTbControlWidth(tbcntrAvisoLKW) + 80, tbcntrAvisoSND.Location.Y)