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

fix flackering lol, add msgbox for missing doctype-module assignment, check for missing guid

Browse Source
This commit is contained in:
Jonathan Jenne
2020-03-25 10:49:58 +01:00
parent af4a126720
commit 2da647812a
2 changed files with 23 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Global_Indexer/frmAdministration.vb
View File

@@ -199,23 +199,26 @@ Public Class frmAdministration
MsgBox("Error in EndEdit 2 documenttype: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End If
End Try
TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART)
txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
If IsInsert = True Then
Dim oNewID As Integer
oNewID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString)
If IsNumeric(oNewID) Then
Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{oNewID}"
ClassDatabase.Execute_non_Query(osql)
Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX', {oNewID}"
If ClassDatabase.Execute_non_Query(osql) = False Then
MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text)
End If
End If
End If
txtStatus.Caption = $"Profil gespeichert - {Now.ToString}"
End If
IsInsert = False
Catch ex As Exception
MsgBox("Error in Save_Dokumentart: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub btnNamenkonvention_Click(sender As Object, e As EventArgs) Handles btnNamenkonvention.Click
Save_Dokumentart()
@@ -230,7 +233,7 @@ Public Class frmAdministration
End If
End Sub
Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged, TBDD_DOKUMENTARTBindingSource.BindingComplete
Private Sub TBDD_DOKUMENTARTBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBDD_DOKUMENTARTBindingSource.CurrentChanged
If DOKART_GUIDTextBox.Text <> String.Empty Then
CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
Load_TabData()
@@ -1238,7 +1241,9 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
If DOKART_GUIDTextBox.Text <> String.Empty Then
Load_INDEXMAN(DOKART_GUIDTextBox.Text)
End If
End Sub
Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick