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

MS clswindream entfernt Umstieg auf Modulwindream

Browse Source
This commit is contained in:
Developer01
2024-11-21 18:02:41 +01:00
parent b5ab9c5e1f
commit f05f6d46f8
85 changed files with 416997 additions and 1790 deletions
Download Patch File Download Diff File Expand all files Collapse all files

306
app/DD-Record-Organizer/frmConstructor_Main.vb
View File

@@ -9,11 +9,11 @@ Imports DevExpress.XtraScheduler
Imports System.Text
Imports System.IO
Imports WINDREAMLib
'Imports WINDREAMLib
Imports System.Runtime.InteropServices
Imports DD_Rights
Imports DD_LIB_Standards
Imports DevExpress.LookAndFeel
'Imports DD_Rights
'Imports DD_LIB_Standards
'Imports DevExpress.LookAndFeel
Imports System.ComponentModel
Imports System.Threading
Imports DevExpress.XtraTreeList
@@ -312,10 +312,10 @@ Public Class frmConstructor_Main
FormDesignerToolStripMenuItem.Visible = False
End If
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY"
DT_PROXY_ENTITY = MYDB_ECM.GetDatatable(SQL)
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' SQL = "SELECT * FROM TBPROXY_SYNC_ENTITY"
' DT_PROXY_ENTITY = MYDB_ECM.GetDatatable(SQL)
'End If
ClassWindowLocation.LoadFormLocationSize(Me, CONSTRUCTORID, CURRENT_SCREEN_ID, "CONSTRUCTOR_MAIN")
' VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
@@ -328,37 +328,37 @@ Public Class frmConstructor_Main
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", ex.Message, "Error in Loading Form part 1")
End Try
Try
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 0 Then
ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" & vbNewLine &
"Actually there is no data for this view synchronized or configured! Please inform Digital Data!" & vbNewLine &
"View will now be terminated!"))
ERROR_FORM_LOAD = True
Exit Sub
Else
Dim Entity_Exists As Boolean = False
Dim Entity_Name As String
For Each Constr_row As DataRow In DT_VWPMO_CONSTRUCTOR_FORMS.Rows
Entity_Name = Constr_row.Item("FORM_TITLE")
Dim Constr_FORM = Constr_row.Item("FORM_ID")
ENTITY_ID = Constr_row.Item("FORM_ID")
CURRENT_ENTITY_ID = ENTITY_ID
Dim expression As String = String.Format("ENTITY_ID = {0}", Constr_FORM)
Dim matchingRows() As DataRow = DT_PROXY_ENTITY.Select(expression)
'Prüfen ob Form in Config Proxy vorhanden
For Each matchingRow As DataRow In matchingRows
Entity_Exists = True
Next
If Entity_Exists = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" &
"The entity '{0}' used in this view is not configured for Your proxy-server! Please inform Digital Data!" &
"View will now be terminated!", Entity_Name))
ERROR_FORM_LOAD = True
Exit Sub
End If
Next
End If
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' If DT_VWPMO_CONSTRUCTOR_FORMS.Rows.Count = 0 Then
' ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" & vbNewLine &
' "Actually there is no data for this view synchronized or configured! Please inform Digital Data!" & vbNewLine &
' "View will now be terminated!"))
' ERROR_FORM_LOAD = True
' Exit Sub
' Else
' Dim Entity_Exists As Boolean = False
' Dim Entity_Name As String
' For Each Constr_row As DataRow In DT_VWPMO_CONSTRUCTOR_FORMS.Rows
' Entity_Name = Constr_row.Item("FORM_TITLE")
' Dim Constr_FORM = Constr_row.Item("FORM_ID")
' ENTITY_ID = Constr_row.Item("FORM_ID")
' CURRENT_ENTITY_ID = ENTITY_ID
' Dim expression As String = String.Format("ENTITY_ID = {0}", Constr_FORM)
' Dim matchingRows() As DataRow = DT_PROXY_ENTITY.Select(expression)
' 'Prüfen ob Form in Config Proxy vorhanden
' For Each matchingRow As DataRow In matchingRows
' Entity_Exists = True
' Next
' If Entity_Exists = False Then
' ClassHelper.MSGBOX_Handler("ERROR", "Missing Proxy-Configuration", String.Format("Attention: You are using Proxy-Server with synchronized data:" &
' "The entity '{0}' used in this view is not configured for Your proxy-server! Please inform Digital Data!" &
' "View will now be terminated!", Entity_Name))
' ERROR_FORM_LOAD = True
' Exit Sub
' End If
' Next
' End If
'End If
CURRENT_DT_TBPMO_ENTITY_RIGHT_CONTROLS = MYDB_ECM.GetDatatable(String.Format("SELECT T.* FROM TBPMO_ENTITY_RIGHT_CONTROLS T INNER JOIN VWPMO_CONSTRUCTOR_FORMS T1 ON T.ENTITY_ID = T1.FORM_ID where T1.CONSTRUCT_ID = {0}", CONSTRUCTORID))
@@ -1417,7 +1417,7 @@ Public Class frmConstructor_Main
LOGGER.Debug($"NODES: StructureNodes-Count (asyn.newTreeviewc): {async.newTreeview.Nodes.Count}")
MyTreeview = async.newTreeview
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Async NodeBuild", ex.Message & vbNewLine & "ADDI will try an alternative method!", ex.StackTrace)
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in Async NodeBuild", ex.Message & vbNewLine & "orgFLOW will try an alternative method!", ex.StackTrace)
MyTreeview = ClassNodeNavigation.CreateTreeViewNodes(DT_TREEVIEW_NODES_ALL, TREEVIEW_IMAGELIST)
End Try
@@ -1919,7 +1919,7 @@ Public Class frmConstructor_Main
Private Sub tsButtonAdd_Click(sender As Object, e As EventArgs) Handles tsButtonAdd.Click
If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Adding records is not allowed!")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using orgFLOW in personified mode! Adding records is not allowed!")
Exit Sub
End If
'If ClassProxy.IS_PROXY_BUSY = True Then
@@ -1987,12 +1987,12 @@ Public Class frmConstructor_Main
CURRENT_RECORD_ID = NEW_RECORD_ID
RECORD_ID = NEW_RECORD_ID
SELECTED_RECORD_ID = NEW_RECORD_ID
ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, SELECTED_RECORD_ID)
If PARENT_ENTITYID > 0 And PARENT_RECORDID > 0 Then
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, CURRENT_RECORD_ID, "INSERT RECORD") = False Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "In Connecting Record - Check the log!")
Else
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
'Else
' ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, CURRENT_RECORD_ID)
End If
End If
@@ -2089,7 +2089,7 @@ Public Class frmConstructor_Main
ActivateAllTabs()
End If
ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, CURRENT_RECORD_ID)
'ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, CURRENT_RECORD_ID)
End If
Dim recid As Integer
@@ -2219,7 +2219,7 @@ Public Class frmConstructor_Main
Sub Delete_Record()
RECORD_ID = SELECTED_RECORD_ID
If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Deleting records is not allowed!")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using orgFLOW in personified mode! Deleting records is not allowed!")
Exit Sub
End If
'If ClassProxy.IS_PROXY_BUSY = True Then
@@ -3158,12 +3158,12 @@ Public Class frmConstructor_Main
'Die neue Record-ID setzen
RECORD_ID = GRP_SINGLE_REC
SELECTED_RECORD_ID = RECORD_ID
ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, SELECTED_RECORD_ID)
' ClassProxy.PRPROXY_RECORD_UPD_INS(CURRENT_ENTITY_ID, SELECTED_RECORD_ID)
If ClassRecordCommands.ConnectRecord(PARENT_RECORD_ID, RECORD_ID, "PARENT_LINK (Group/Single-Record) for Entity " & ENTITY_ID.ToString) = False Then
MsgBox("Unexpected Error in Connecting Record. Check log", MsgBoxStyle.Critical)
Return False
Else
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, RECORD_ID)
'Else
' ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, RECORD_ID)
End If
Else
Return False
@@ -3528,7 +3528,7 @@ Public Class frmConstructor_Main
If USER_LANGUAGE = "de-DE" Then
stg = "Es gab ein unerwartetes Problem beim Laden der Control-Values! Wollen Sie versuchen die Daten erneut zu laden?" & vbNewLine & "'Nein' beendet die Sicht für einen manuellen Neustart!"
Else
stg = "ADDI encountered an unexpected error while loading the control values for the record! Do You want to try to relaod the entity data?" & vbNewLine & "No is terminating the entity-form to restart it manually!"
stg = "orgFLOW encountered an unexpected error while loading the control values for the record! Do You want to try to relaod the entity data?" & vbNewLine & "No is terminating the entity-form to restart it manually!"
End If
result = MessageBox.Show(stg, "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
@@ -3708,7 +3708,7 @@ Public Class frmConstructor_Main
Dim sw As New SW("Check_windream_Show")
Try
If clsWindream.Create_Session = True Then
If WMMOD.SessionReconnect = True Then
windream_inited = True
End If
Catch ex As Exception
@@ -3766,7 +3766,7 @@ Public Class frmConstructor_Main
End If
MsgBox(msg, MsgBoxStyle.Critical, "Attention:")
Else
If clsWD_SET.Delete_WDFile(path) Then
If WMMOD.RemoveFile(path) Then
ClassHelper.InsertEssential_Log(DOC_ID, "DOC-ID", "FILE DELETED BY USER")
End If
End If
@@ -3939,7 +3939,7 @@ Public Class frmConstructor_Main
LOGGER.Info($"RUN_WDSEARCH_GRID - DT_DOCRESULT_DROPDOWN_ITEMS [{DT_DOCRESULT_DROPDOWN_ITEMS.Rows.Count}]!")
End If
ClassWindreamDocGrid.FillColumns(
ClassDocGrid.FillColumns(
GridViewDoc_Search,
DT_RESULT,
DT_WINDREAM_COLUMNS_GRID,
@@ -4018,7 +4018,7 @@ Public Class frmConstructor_Main
End Function
Private Sub OnCBSelectedValueChanged(sender As Object, e As EventArgs)
Try
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4027,7 +4027,7 @@ Public Class frmConstructor_Main
Dim ComboBox As ComboBoxEdit = sender
'Dim ItemComboBox As RepositoryItemComboBox
'ItemComboBox = sender
Dim item As ClassWindreamDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim item As ClassDocGrid.WindreamDocGridComboboxItem = ComboBox.SelectedItem
Dim value As String = item.Value
If value.ToUpper = "Not displayable in Group-Search".ToUpper Then
Exit Sub
@@ -4039,8 +4039,8 @@ Public Class frmConstructor_Main
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2}, '{3}', '{4}'", docId, RECORD_ID, configId, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
MsgBox("The Update-Command was not successful! Check the log!",, MsgBoxStyle.Critical)
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
'Else
' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
@@ -4077,7 +4077,7 @@ Public Class frmConstructor_Main
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID")
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4088,8 +4088,8 @@ Public Class frmConstructor_Main
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (date): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
'Else
' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnDateSelectedValueChanged: ", ex.Message)
@@ -4112,7 +4112,7 @@ Public Class frmConstructor_Main
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID")
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4122,8 +4122,8 @@ Public Class frmConstructor_Main
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configid, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (textbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
'Else
' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnTextSelectedValueChanged: ", ex.Message)
@@ -4142,7 +4142,7 @@ Public Class frmConstructor_Main
Dim detailRow As DataRowView = detailView.GetRow(detailView.FocusedRowHandle)
Dim configid = detailRow.Item("CONFIG_ID")
Dim docId As Integer = ClassWindreamDocGrid.SELECTED_DOC_ID
Dim docId As Integer = ClassDocGrid.SELECTED_DOC_ID
If docId = 0 Then
MsgBox("Sorry no document was selected! Please try again!", MsgBoxStyle.Exclamation)
Exit Sub
@@ -4152,8 +4152,8 @@ Public Class frmConstructor_Main
Dim Sql As String = String.Format("EXEC PRPMO_DOC_VALUE_UPD_INS {0}, {1}, {2},'{3}','{4}'", docId, RECORD_ID, configid, value, user)
If MYDB_ECM.ExecuteNonQuery(Sql) = False Then
ClassHelper.MSGBOX_Handler("ERROR", "UnexpectedError:", "Error updating doc-metadata (checkbox): " & vbNewLine & "Check the log for further information!")
Else
ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
'Else
' ClassProxy.PRPROXY_DOC_VALUES_UPD(docId, RECORD_ID)
End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in OnCheckboxValueChanged: ", ex.Message)
@@ -4493,11 +4493,11 @@ Public Class frmConstructor_Main
Exit Sub
End If
If USER_PERSONIFIED_TEST = True Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using ADDI in personified mode! Adding files is not allowed!")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "You are using orgFLOW in personified mode! Adding files is not allowed!")
Exit Sub
End If
If clsWindream.Create_Session = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
Exit Sub
End If
If act_FormViewID <> 0 And (RIGHT_READ_ONLY_DOC = False And GridControlDocSearch.ContextMenuStrip.Name = "ContextMenuStripResultFiles") Or RIGHT_ADD_DOC = True Then
@@ -4915,14 +4915,6 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Load_Tree_View()
End Sub
Private Sub DateiimportEntitätToolStripMenuItem_Click(sender As Object, e As EventArgs)
If PARENT_ENTITYID = 0 Then
Exit Sub
End If
CURRENT_ENTITYSTRING = _ENTITYSTRING
CURRENT_ENTITY_ID = ENTITY_ID
frmWM_EntityImport.ShowDialog()
End Sub
Private Sub FormDesignerToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles FormDesignerToolStripMenuItem.Click
Try
Dim SelectedNode As TreeNode = TryCast(TreeViewMain.SelectedNode, TreeNode)
@@ -5140,9 +5132,9 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
If recordId > 0 Then
'Die neue Record-ID setzen
POS_RECORD_ID = recordId
ClassProxy.PRPROXY_RECORD_UPD_INS(POS_ENTITY, POS_RECORD_ID)
'ClassProxy.PRPROXY_RECORD_UPD_INS(POS_ENTITY, POS_RECORD_ID)
If ClassRecordCommands.ConnectRecord(PARENT_RECORDID, POS_RECORD_ID, "POS_LINK for Entity " & POS_ENTITY.ToString) = True Then
ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID)
'ClassProxy.PRPROXY_RECORD_CONNECT(PARENT_RECORDID, POS_RECORD_ID)
End If
Else
MsgBox("Unexpected Error in Creating POS", MsgBoxStyle.Exclamation)
@@ -5405,12 +5397,12 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Private Sub KopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_Copy.Click
If ClassWindreamDocGrid.SELECTED_DOC_PATH <> "" Then
If ClassDocGrid.SELECTED_DOC_PATH <> "" Then
Try
Dim selectedfile(0) As String
selectedfile(0) = ClassWindreamDocGrid.SELECTED_DOC_PATH
selectedfile(0) = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH)
selectedfile(0) = ClassDocGrid.SELECTED_DOC_PATH
selectedfile(0) = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
Dim dataobj As New DataObject
@@ -5427,18 +5419,18 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub GridViewDoc_Search_FocusedColumnChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedColumnChangedEventArgs) Handles GridViewDoc_Search.FocusedColumnChanged
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
Refresh_DocID()
End Sub
Private Sub GridViewDoc_Search_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDoc_Search.FocusedRowChanged
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
Refresh_DocID()
End Sub
Sub Refresh_DocID()
If ClassWindreamDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString
If ClassDocGrid.SELECTED_DOC_ID <> 0 Then
Dim msg = "Doc-ID: " & ClassDocGrid.SELECTED_DOC_ID.ToString
bsitmDocID.Caption = msg
tslblDocIDTab1.Text = msg
Else
@@ -5458,10 +5450,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Missing Selection:", "Please select a record!")
Exit Sub
End If
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
Exit Sub
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count > 0 Then
If ClassDocGrid.DT_RESULTFILES.Rows.Count > 0 Then
Dim msg = "Wollen Sie die Verknüpfung der gewählten Datei/en wirklich entfernen?" & vbNewLine & "Datei/en bleibt/bleiben im DMS/Archiv/Explorer erhalten!"
If USER_LANGUAGE <> "de-DE" Then
msg = "Would You like to delete only the references?" & vbNewLine & "File(s) will stay in ECM/Archive/Explorer!"
@@ -5470,7 +5462,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Try
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 0) = True Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "RECORD LINK REMOVED FROM DOC-SEARCH")
Cursor = Cursors.WaitCursor
@@ -5491,11 +5483,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Show_File_Properties()
End Sub
Sub Show_File_Properties()
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(4)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
Dim oFileFullPath = ClassHelper.FORMAT_WM_PATH(row.Item("DOC_PATH"))
Cursor = Cursors.WaitCursor
@@ -5780,7 +5772,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
LOGGER.Warn("Attention: Could not set DocVariable RENAME_DOC_PATH: " & ex.Message)
RENAME_DOC_PATH = Nothing
End Try
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -5799,8 +5791,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub DateiMitDatensatzVerknüpfenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_linkRecord.Click
Try
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (LinkRecord)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -5915,24 +5907,24 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Private Sub ContextMenuStripResultFiles_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStripResultFiles.Opening
Try
If clsWindream.SESSION_CREATED = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
If WMMOD.SessionLoggedin Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
e.Cancel = True
End If
Me.Cursor = Cursors.WaitCursor
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
ClassDocGrid.GetDocItems(GridViewDoc_Search)
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
e.Cancel = True
End If
Refresh_DocID()
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DOC_ID") = 0 Then
e.Cancel = True
End If
End If
File_in_Work()
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then
ROW_READ_ONLY = False
Select Case Result.ToString
@@ -5965,8 +5957,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
End If
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
DisplaynameUmbenennenToolStripMenuItem.Visible = True
Set_Displayname()
Else
@@ -5992,13 +5984,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
docCM_InWork.Enabled = True
Try
Dim expression As String
expression = "DocID = " & ClassWindreamDocGrid.SELECTED_DOC_ID
expression = "DocID = " & ClassDocGrid.SELECTED_DOC_ID
Dim foundRowsLevel0() As DataRow
' Use the Select method to find all rows matching the filter.
foundRowsLevel0 = CURRENT_DOC_RESULTS.Select(expression)
Try
Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {ClassWindreamDocGrid.SELECTED_DOC_ID}"
Dim oSQLDRList = $"Select COALESCE(IN_WORK_USER,'') IN_WORK_USER, COALESCE(IN_WORK_COMMENT,'') IN_WORK_COMMENT,IN_WORK FROM TBPMO_DOCRESULT_LIST where DocID = {ClassDocGrid.SELECTED_DOC_ID}"
Dim oDT As DataTable = MYDB_ECM.GetDatatable(oSQLDRList)
If Not IsNothing(oDT) Then
If oDT.Rows.Count = 1 Then
@@ -6040,11 +6032,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Try
End Sub
Private Sub TSMI_inWork_Click(sender As Object, e As EventArgs) Handles docCM_InWork.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (3)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID
ClassFileResult.DocID = ClassDocGrid.SELECTED_DOC_ID
If INWORK_FILE = True Then ' Datei ist in Bearbeitung
Dim msglbl As String
Dim msg1 As String
@@ -6062,16 +6054,16 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
Else
frmFileInWork.ShowDialog()
ClassWindreamDocGrid.SELECTED_INWORK = ClassFileResult.InWork
ClassDocGrid.SELECTED_INWORK = ClassFileResult.InWork
RUN_WDSEARCH_GRID(True)
End If
End Sub
Sub Set_Displayname()
Try
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
CMDoc_TextBoxRenameDisplay.Text = ClassWindreamDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME")
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 1 Then
If ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME") <> "" Then
CMDoc_TextBoxRenameDisplay.Text = ClassDocGrid.DT_RESULTFILES.Rows(0).Item("DISPLAYNAME")
CMDoc_TextBoxRenameDisplay.Enabled = True
End If
Else
@@ -6084,13 +6076,13 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub TestToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_CheckRights.Click
Dim msg = "Die Rechte wurden erfolgreich überprüft und aktualisiert!"
CURRENT_RECORD_ID = RECORD_ID
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Could not read file Parameters: ", "Could not read file Parameters (6)")
Exit Sub
End If
Dim err As Boolean = False
Cursor = Cursors.WaitCursor
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
Dim oWMObject As WINDREAMLib.WMObject
Dim oReldocpath = ClassHelper.GetRelPath(row.Item("DOC_PATH"))
LOGGER.Info("oReldocpath: " & oReldocpath)
@@ -6107,7 +6099,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
'Create Session um Fehler bei windows Session icht zu erzeugen
FAU_AD_USER = ""
clsWindream.Create_Session()
Dim OConnect = WMMOD.SessionReconnect()
Next
Cursor = Cursors.Default
If err = False Then
@@ -6154,11 +6146,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
MsgBox("Please select a record!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters (DELETE FILES)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If ClassWindreamDocGrid.DT_RESULTFILES.Rows.Count = 0 Then
If ClassDocGrid.DT_RESULTFILES.Rows.Count = 0 Then
MsgBox("Please choose a file!", MsgBoxStyle.Exclamation)
Exit Sub
End If
@@ -6169,7 +6161,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> "" Then
Try
If Not IsNothing(row.Item("DOC_ID")) Then
@@ -6199,7 +6191,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
RECORD_ID = 0
End If
If ClassFileResult.Delete_ResultFile(row.Item("DOC_ID"), RECORD_ID, 1) = True Then
If clsWD_SET.Delete_WDFile(row.Item("DOC_PATH")) = True Then
If WMMOD.RemoveFile(row.Item("DOC_PATH")) = True Then
ClassHelper.InsertEssential_Log(row.Item("DOC_ID"), "DOC-ID", "FILE DELETED BY USER")
End If
@@ -6214,10 +6206,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End If
End If
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID"))
MYDB_ECM.ExecuteNonQuery(proc)
End If
'If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
' Dim proc = String.Format("EXEC PRPROXY_DOC_CHECK_DELETE {0}", row.Item("DOC_ID"))
' MYDB_ECM.ExecuteNonQuery(proc)
'End If
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error in delete file: ", ex.Message)
End Try
@@ -6296,12 +6288,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Dim upd = String.Format("UPDATE TBPMO_RECORD SET FORM_ID = {0} where GUID = {1}", node_tag, _RECORD)
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(upd)
Dim del = String.Format("DELETE FROM TBPMO_ENTITY_TABLE{1} WHERE [Record-ID] = {0}", _RECORD, ENTITY_ID)
MYDB_ECM.ExecuteNonQuery(del)
End If
msg = String.Format("ENTITY WAS CHANGED TO {0}-{1} by User: {2}", ENTITY_STRING, node_tag, USER_USERNAME)
ClassHelper.InsertEssential_Log(_RECORD, "RECORD-ID", msg)
sql = "SELECT T.* FROM VWPMO_DOC_SEARCH T, TBPMO_DOC_RECORD_LINK T1 WHERE T.DocID = T1.DOC_ID AND T1.RECORD_ID = " & _RECORD
@@ -6314,15 +6301,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
For Each row As DataRow In DT_CHANGE_CTR.Rows
upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET CONTROL_ID = {0}, CHANGED_WHO = '{3}' WHERE CONTROL_ID = {1} AND RECORD_ID = {2}", row.Item("LINKED_CTRL_ID"), row.Item("ORIGIN_CTRL_ID"), _RECORD, USER_USERNAME)
MYDB_ECM.ExecuteNonQuery(upd)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(upd)
End If
Next
Dim execsql = String.Format("EXEC PRPMO_DELETE_RECORD_PMO_TABLE {0},{1}", ENTITY_ID, _RECORD)
If MYDB_ECM.ExecuteNonQuery(execsql) = True Then
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(execsql)
End If
End If
execsql = String.Format("EXEC PRPMO_ENTITY_TABLE_RENEW_RECORD {0},{1}", node_tag, _RECORD)
If MYDB_ECM.ExecuteNonQuery(execsql) = True Then
@@ -6336,13 +6318,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = String.Format("The record/s was/were successfully relinked with entity {0} (if criteria matched)", ENTITY_STRING.ToString)
End If
MsgBox(msg, MsgBoxStyle.Information)
If DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED = True Then
msg = "Sie benutzen einen Proxyserver. Die Daten des neu verlinkten Datensatzes werden Sie evtl. erst nach vollständiger Proxysynchronisation einsehen können!"
If USER_LANGUAGE <> "de-DE" Then
msg = String.Format("You are using a proxy-Server. The new linked record in entity '{0}' might only be displayed after a full synchronisation!", ENTITY_STRING)
End If
MsgBox(msg, MessageBoxIcon.Information)
End If
Load_Datafor_Entity(True)
End If
End If
@@ -6382,7 +6358,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Try
End Sub
Private Sub DateirechteFürUserToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles docCM_GetRights.Click
Dim result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
Dim result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(result) Then
Dim msg = "Das aktuelle Recht für Sie (" & USER_USERNAME & ") ist: "
If USER_LANGUAGE <> "de-DE" Then
@@ -6412,11 +6388,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub Load_Variants()
Try
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = ClassProxy.MyPROXYConnectionString
Else
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
End If
Me.TBPMO_RECORD_VARIANTTableAdapter.Connection.ConnectionString = MYDB_ECM.CurrentConnectionString
Me.TBPMO_RECORD_VARIANTTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_RECORD_VARIANT, ENTITY_ID, RECORD_ID)
Catch ex As System.Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error", "Error while loading variants: ", ex.Message)
@@ -6553,7 +6525,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
table.Columns.Add("FILEPATH", GetType(System.String))
table.Columns.Add("DOC_ID", GetType(System.Int32))
table.Columns.Add("OBJECTTYPE", GetType(System.String))
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If row.Item("DOC_PATH") <> String.Empty Then
'Set the ID column as the primary key column.
Dim newRow As DataRow = table.NewRow()
@@ -6581,11 +6553,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Try
If CMDoc_TextBoxRenameFile.Text <> "" Then
Dim OldName, NewName, OnlyFilename As String
OldName = ClassWindreamDocGrid.SELECTED_DOC_PATH
OldName = ClassDocGrid.SELECTED_DOC_PATH
' Define file names.
NewName = CMDoc_TextBoxRenameFile.Text
OnlyFilename = NewName
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassWindreamDocGrid.SELECTED_DOC_PATH)
Dim oFullFilename = ClassHelper.FORMAT_WM_PATH(ClassDocGrid.SELECTED_DOC_PATH)
Dim name1 = Path.Combine(Path.GetDirectoryName(oFullFilename), NewName)
NewName = NewName & Path.GetExtension(oFullFilename)
OnlyFilename &= Path.GetExtension(oFullFilename)
@@ -6595,12 +6567,10 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
My.Computer.FileSystem.RenameFile(OldName, NewName)
LOGGER.Info($"Renaming FileSystem done!")
Cursor = Cursors.WaitCursor
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassWindreamDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
Dim oEXEC As String = $"EXEC PRPMO_DOC_CREATE_NEW_DOC {ClassDocGrid.SELECTED_DOC_ID}, {CURRENT_RECORD_ID},'{USER_USERNAME}'"
If MYDB_ECM.ExecuteNonQuery(oEXEC) Then
LOGGER.Info($"Exec PRPMO_DOC_CREATE_NEW_DOC done!")
If LICENSE_PROXY = True And DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED Then
MYDB_ECM.ExecuteNonQuery(oEXEC, True)
End If
End If
Dim oRowHandle As Integer = GridViewDoc_Search.FocusedRowHandle
@@ -6629,7 +6599,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub SToolStripMenuItem_KeyUp(sender As Object, e As KeyEventArgs) Handles CMDoc_TextBoxRenameDisplay.KeyUp
If e.KeyCode = Keys.Return Then
Try
ClassFileResult.DocID = ClassWindreamDocGrid.SELECTED_DOC_ID
ClassFileResult.DocID = ClassDocGrid.SELECTED_DOC_ID
If CMDoc_TextBoxRenameDisplay.Text <> "" Then
If ClassFileResult.Set_Displayname(CMDoc_TextBoxRenameDisplay.Text) Then
Cursor = Cursors.WaitCursor
@@ -6703,7 +6673,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
'Dim NEWRECORD As Integer = ClassControlCommandsUI.GetLastRecord(ENTITY_ID)
Dim NEWNODE = New TreeNode(tsmINewText.Text)
If Not IsNothing(NEWRECORD) Then
ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, NEWRECORD)
'ClassProxy.PRPROXY_RECORD_UPD_INS(ENTITY_ID, NEWRECORD)
If Not IsNothing(CURRENT_NODE_CONFIGURABLE_ID) And CURRENT_NODE_CONFIGURABLE_ID > 0 Then
Dim index As Integer = 0
@@ -6786,8 +6756,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Sub Open_File()
Me.Cursor = Cursors.WaitCursor
Dim allow_Open As Boolean = False
ClassWindreamDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
ClassDocGrid.GetDocItems(GridViewDoc_Search)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
@@ -6799,11 +6769,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Select
End If
If allow_Open = True Then
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
If ClassHelper.File_open(row.Item("DOC_PATH"), row.Item("DOC_ID")) = True Then
TimerFileHandle.Enabled = True
End If
@@ -6811,8 +6781,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Next
Else
If clsWD_GET.WDFile_exists(ClassWindreamDocGrid.SELECTED_DOC_PATH, DD_LIB_Standards.clsDatabase.DB_PROXY_INITIALIZED, ClassProxy.MyLinkedServer, True) = True Then
ClassHelper.MSGBOX_Handler("ERROR", "Right-Management", "File is existing, but you do not have the rights to open this file! " & vbNewLine & "Please contact your admin!" & vbNewLine & "DOC-ID: " & ClassWindreamDocGrid.SELECTED_DOC_ID.ToString)
If WMMOD.TestFileExists(ClassDocGrid.SELECTED_DOC_PATH) = True Then
ClassHelper.MSGBOX_Handler("ERROR", "Right-Management", "File is existing, but you do not have the rights to open this file! " & vbNewLine & "Please contact your admin!" & vbNewLine & "DOC-ID: " & ClassDocGrid.SELECTED_DOC_ID.ToString)
Else
ClassHelper.MSGBOX_Handler("ERROR", "", "File does not exist! Please contact your admin!")
End If
@@ -6904,12 +6874,12 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
Private Sub cmsResultFilesBasic_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cmsResultFilesBasic.Opening
Try
If clsWindream.SESSION_CREATED = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart ADDI afterwards.", "Could not create a windream session!")
If WMMOD.SessionLoggedin = False Then
ClassHelper.MSGBOX_Handler("INFO", "Attention", "Check Your windream-connection and restart orgFLOW afterwards.", "Could not create a windream session!")
e.Cancel = True
End If
Me.Cursor = Cursors.WaitCursor
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassWindreamDocGrid.SELECTED_DOC_ID)
Dim Result = ClassDOC_SEARCH.Get_File_Rights(ClassDocGrid.SELECTED_DOC_ID)
If Not IsNothing(Result) Then
Select Case Result.ToString
Case "R"
@@ -6929,11 +6899,11 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
End Sub
Private Sub OrdnerÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OrdnerÖffnenToolStripMenuItem.Click
If IsNothing(ClassWindreamDocGrid.DT_RESULTFILES) Then
If IsNothing(ClassDocGrid.DT_RESULTFILES) Then
MsgBox("Could not read File Parameters(5)!", MsgBoxStyle.Exclamation)
Exit Sub
End If
For Each row As DataRow In ClassWindreamDocGrid.DT_RESULTFILES.Rows
For Each row As DataRow In ClassDocGrid.DT_RESULTFILES.Rows
ClassHelper.Open_Folder(row.Item("DOC_PATH"), row.Item("DOC_ID"))
Next
End Sub
@@ -7305,8 +7275,8 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
frmNewVariant.ShowDialog()
If recid <> CURRENT_RECORD_ID Then
Me.Cursor = Cursors.WaitCursor
ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD_VARIANT")
ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD")
'ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD_VARIANT")
'ClassProxy.PRPROXY_SYNC_DETAIL_OBJECT("TBPMO_RECORD")
Me.Cursor = Cursors.Default
Load_Datafor_Entity(True)
LocateRecordinGridById(CURRENT_RECORD_ID)