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

13
UID/Dienstplan/usrCntlDienstplan.Designer.vb generated
View File

@@ -48,6 +48,7 @@ Partial Class usrCntlDienstplan
Me.tbAtilla2 = New System.Windows.Forms.TabPage()
Me.tbImex = New System.Windows.Forms.TabPage()
Me.tbFrontOffice = New System.Windows.Forms.TabPage()
Me.tbAMBAR = New System.Windows.Forms.TabPage()
CType(Me.dgvMA, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
@@ -300,6 +301,7 @@ Partial Class usrCntlDienstplan
Me.tbFirmen.Controls.Add(Me.tbAtilla2)
Me.tbFirmen.Controls.Add(Me.tbImex)
Me.tbFirmen.Controls.Add(Me.tbFrontOffice)
Me.tbFirmen.Controls.Add(Me.tbAMBAR)
Me.tbFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbFirmen.Location = New System.Drawing.Point(0, 42)
Me.tbFirmen.Name = "tbFirmen"
@@ -347,6 +349,16 @@ Partial Class usrCntlDienstplan
Me.tbFrontOffice.Text = "FRONTOFFICE"
Me.tbFrontOffice.UseVisualStyleBackColor = True
'
'tbAMBAR
'
Me.tbAMBAR.Location = New System.Drawing.Point(4, 33)
Me.tbAMBAR.Name = "tbAMBAR"
Me.tbAMBAR.Padding = New System.Windows.Forms.Padding(3)
Me.tbAMBAR.Size = New System.Drawing.Size(950, 0)
Me.tbAMBAR.TabIndex = 4
Me.tbAMBAR.Text = "AMBAR"
Me.tbAMBAR.UseVisualStyleBackColor = True
'
'usrCntlDienstplan
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(96.0!, 96.0!)
@@ -391,4 +403,5 @@ Partial Class usrCntlDienstplan
Friend WithEvents cboMonat As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxInaktiv As CheckBox
Friend WithEvents tbFrontOffice As TabPage
Friend WithEvents tbAMBAR As TabPage
End Class

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