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

MS

Browse Source
This commit is contained in:
SchreiberM
2023-04-13 17:11:20 +02:00
parent aa7c68a4ce
commit 2db575d944
20 changed files with 584 additions and 4214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1059,7 +1059,7 @@ Public Class frmConstructor_Main
End If
CURRENT_RECORD_ID = RECID
CURRENT_SEARCH_TYPE = "RECORD"
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
If RECID = RECORD_ID And ENTITY_RECORD_COUNT > 1 And _refresh = False And ERROR_WHILE_SAVING = False Then
Exit Sub
End If
@@ -2104,6 +2104,7 @@ Public Class frmConstructor_Main
SELECTED_RECORD_ID = recid
RECORD_ID = recid
CURRENT_RECORD_ID = RECORD_ID
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
If RECORD_ID = 0 Then
ClassHelper.MSGBOX_Handler("ERROR", "Attention:", "No Current row selected")
Me.Cursor = Cursors.Default
@@ -2235,7 +2236,7 @@ Public Class frmConstructor_Main
msg = "Are You sure You want to delete the selected record '" & SELECTED_RECORD_ID.ToString & "'?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
RECORD_ID = SELECTED_RECORD_ID
ClassRightManagement.Check_Set_Rights(RECORD_ID, ENTITY_ID)
@@ -2357,6 +2358,7 @@ Public Class frmConstructor_Main
End If
CURRENT_RECORD_ID = RECORD_ID
ClassHelper.GetDocrecordLinks(CURRENT_RECORD_ID)
CtrlCommandUI.IsEdit = True
' Abhängige Listen laden
CtrlBuilder.WatchRecordChanges = False
@@ -3744,7 +3746,7 @@ Public Class frmConstructor_Main
msg = "Do You want to delete the related files (" & DT_RESULT.Rows.Count.ToString & ")?"
End If
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result1 = MsgBoxResult.Yes Then
For Each row As DataRow In DT_RESULT.Rows
Dim DOC_ID = row.Item(0)
@@ -5494,7 +5496,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "Would You like to delete only the references?" & vbNewLine & "File(s) will stay in ECM/Archive/Explorer!"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
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
@@ -6205,7 +6207,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "Are You sure You want to permanently delete this file(s)?"
End If
Dim result1 As MsgBoxResult
result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
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
If row.Item("DOC_PATH") <> "" Then
@@ -6218,7 +6220,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "This file is also linked to other records! Would You like to delete these links also?"
End If
Dim result2 As MsgBoxResult
result2 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result2 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Dim oDElWMFile As Boolean = False
If result2 = MsgBoxResult.Yes Then
oDElWMFile = True
@@ -6309,7 +6311,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = String.Format("Do You really want to change the entity-link of the selected record to '{0}'?", ENTITY_STRING.ToString)
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Save_Grid_Layout()
@@ -6803,7 +6805,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "Are You sure You want to delete the node'" & TreeViewMain.SelectedNode.Text & "'?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Dim oDelete = String.Format("EXEC PRPMO_DELETE_NODE {0},'{1}'", NODE_GUID, USER_USERNAME)
If ClassDatabase.Execute_non_Query(oDelete) Then
@@ -6901,7 +6903,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
msg = "Are You sure You want to delete this position?"
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
If ClassHelper.DeleteRecord(POS_RECORD_ID) = True Then
Load_Pos_Data()
@@ -7167,7 +7169,7 @@ WHERE T2.SHORT_NAME = 'ADDI' AND T.EMAIL IS NOT NULL order by USERNAME")
OMsg = "Are You sure You want to rename the node'" & TreeViewMain.SelectedNode.Text & "'?"
End If
Dim oResult As MsgBoxResult
oResult = MessageBox.Show(OMsg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
oResult = MessageBox.Show(OMsg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If oResult = MsgBoxResult.Yes Then
Dim oUpdate = String.Format("UPDATE TBPMO_STRUCTURE_NODES SET NODE_CAPTION = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", Me.tstxtRenameNode.Text, USER_USERNAME, NODE_GUID)
If ClassDatabase.Execute_non_Query(oUpdate) Then