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

MS Update Globix Renaming

Browse Source
This commit is contained in:
Developer01
2024-09-23 17:14:28 +02:00
parent ad46bae4f4
commit d903658c13
17 changed files with 88 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Global_Indexer/frmAdministration.vb
View File

@@ -212,9 +212,9 @@ Public Class frmAdministration
Dim oNewID As Integer
oNewID = DATABASE_ECM.GetScalarValue("SELECT MAX(GUID) FROM TBDD_DOKUMENTART")
If IsNumeric(oNewID) Then
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX', {oNewID}"
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'fileFLOW', {oNewID}"
If DATABASE_ECM.ExecuteNonQuery(osql) = False Then
MsgBox("Fehler beim zuweisen des neuen Profils zum Modul Global-Indexer!", MsgBoxStyle.Critical, Text)
MsgBox("Fehler beim zuweisen des neuen Profils zum Modul fileFLOW/GI!", MsgBoxStyle.Critical, Text)
End If
End If
End If
@@ -299,9 +299,9 @@ Public Class frmAdministration
End Sub
Private Sub btnadd_Click(sender As Object, e As EventArgs)
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{DOKART_GUIDTextBox.Text}"
Dim osql = $"EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'fileFLOW',{DOKART_GUIDTextBox.Text}"
DATABASE_ECM.ExecuteNonQuery(osql)
LoadGlobix_Doctypes()
LoadfileFLOW_Doctypes()
End Sub
Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged
@@ -789,7 +789,7 @@ Public Class frmAdministration
Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
End Sub
Sub LoadGlobix_Doctypes()
Sub LoadfileFLOW_Doctypes()
Dim oFocusedRow = GridViewProfile.FocusedRowHandle
Load_Dokart()
GridViewProfile.FocusedRowHandle = oFocusedRow
@@ -1021,8 +1021,8 @@ Public Class frmAdministration
If result = MsgBoxResult.Yes Then
Try
Dim oGlobixId = DATABASE_ECM.GetScalarValue("SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'GLOBIX'")
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", " & oGlobixId
Dim oFF_ID = DATABASE_ECM.GetScalarValue("SELECT GUID FROM TBDD_MODULES WHERE SHORT_NAME = 'fileFLOW'")
Dim copy = "exec PRDD_COPY_DOKPROFILE " & DOKART_GUIDTextBox.Text & ", " & oFF_ID
If DATABASE_ECM.ExecuteNonQuery(copy) Then
If USER_LANGUAGE = "de-DE" Then
@@ -1040,7 +1040,7 @@ Public Class frmAdministration
End Sub
Private Sub BarButtonItem7_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem7.ItemClick
LoadGlobix_Doctypes()
LoadfileFLOW_Doctypes()
End Sub
Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
@@ -1471,4 +1471,6 @@ Public Class frmAdministration
chkPreventMultipleValues.Enabled = False
End If
End Function
End Class