AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM 2020-04-27 10:46:10 +02:00
parent 2c80dc196c
commit 59afa60f7b
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Global_Indexer/frmAdministration.vb
View File

@ -1098,7 +1098,8 @@ Public Class frmAdministration
Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(del, True) = True Then If ClassDatabase.Execute_non_Query(del, True) = True Then
Load_Dokart() Load_Dokart()
MaybeDisableUserAndEmailTabs()
TBDD_DOKUMENTARTBindingSource.ResetBindings(True)
If USER_LANGUAGE = "de-DE" Then If USER_LANGUAGE = "de-DE" Then
MsgBox("Das Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information) MsgBox("Das Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
@ -1112,7 +1113,15 @@ Public Class frmAdministration
End Try End Try
End If End If
End Sub End Sub
Private Sub MaybeDisableUserAndEmailTabs()
If MyDataset.TBDD_DOKUMENTART.Rows.Count = 0 Then
XtraTabPageUsersGroups.PageEnabled = False
XtraTabPageEmail.PageEnabled = False
Else
XtraTabPageUsersGroups.PageEnabled = True
XtraTabPageEmail.PageEnabled = True
End If
End Sub
Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
Dim result As MsgBoxResult Dim result As MsgBoxResult