edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-26 22:22:40 +01:00
parent 3c0d99a279
commit a40477b387
5 changed files with 161 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
UID/Dienstplan/usrCntlDienstplan.vb
View File

@@ -96,12 +96,14 @@ Public Class usrCntlDienstplan
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "IMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "IMEX" Then tbFirmen.TabPages.Remove(tbImex)
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "VERAG" Then tbFirmen.TabPages.Remove(tbVerag)
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "FRONTOFFICE" Then tbFirmen.TabPages.Remove(tbFrontOffice)
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "AMBAR" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "AMBAR" Then tbFirmen.TabPages.Remove(tbAMBAR)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma
Case "ATILLA" : tbFirmen.SelectedTab = tbAtilla2
Case "IMEX" : tbFirmen.SelectedTab = tbImex
Case "VERAG" : tbFirmen.SelectedTab = tbVerag
Case "FRONTOFFICE" : tbFirmen.SelectedTab = tbFrontOffice
Case "AMBAR" : tbFirmen.SelectedTab = tbAMBAR
' Case "ALLE" : tbFirmen.SelectedTab = tbVerag : tbFirmen.Enabled = True
Case Else : tbFirmen.SelectedTab = tbVerag
End Select