Update 20230215

This commit is contained in:
2023-02-15 21:30:27 +01:00
parent 35df876d21
commit e83b2e6f35
179 changed files with 7274 additions and 7173 deletions

View File

@@ -380,15 +380,18 @@ Public Class Behandlung
End Sub
Sub enable_disable_tabs(ByVal enable As Boolean)
Me.SuperTabControl1.Tabs(1).Enabled = enable
Me.SuperTabControl1.Tabs(0).Enabled = enable
Me.SuperTabControl1.Visible = enable
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
Else
Me.SuperTabControl1.Tabs(2).Visible = False
End If
'Me.SuperTabControl1.Tabs(0).Focus()
Try
Me.SuperTabControl1.Tabs(1).Enabled = enable
Me.SuperTabControl1.Tabs(0).Enabled = enable
Me.SuperTabControl1.Visible = enable
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
Me.SuperTabControl1.Tabs(0).Text = "Projekt"
Else
Me.SuperTabControl1.Tabs(2).Visible = False
End If
'Me.SuperTabControl1.Tabs(0).Focus()
Catch
End Try
End Sub