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

Release für ewa

Browse Source
This commit is contained in:
Developer01
2026-03-24 12:42:53 +01:00
parent 1469063ad7
commit e9cb352674
18 changed files with 1585 additions and 314 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
app/DD-Record-Organizer/frmDocRecordLink.vb
View File

@@ -33,41 +33,11 @@ Public Class frmDocRecordLink
If CURRENT_LINK_ENTITY_ID = 0 Then
CURRENT_LINK_ENTITY_ID = CURRENT_ENTITY_ID
End If
'Try
' DT_RECORDS.Columns.Add("already linked", Type.GetType("System.Boolean")).SetOrdinal(0)
' DT_RECORDS.Columns("already linked").DefaultValue = False
'Catch ex As Exception
'End Try
'Try
' For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
' Dim DOC_ID = row.Item("DOC_ID")
' Dim sel = String.Format("select T.RECORD_ID FROM TBPMO_DOC_RECORD_LINK T, TBPMO_RECORD T1 WHERE T.RECORD_ID = T1.GUID AND T1.FORM_ID = {0} AND T.DOC_ID = {1}", CURRENT_LINK_ENTITY_ID, DOC_ID)
' Dim DTRECS_LINKED As DataTable = MYDB_ECM.GetDatatable(sel)
' For Each recrow As DataRow In DTRECS_LINKED.Rows
' For Each rowrecsdisplay As DataRow In DT_RECORDS.Rows
' If rowrecsdisplay.Item("Record-ID") = recrow.Item("RECORD_ID") Then
' rowrecsdisplay.Item("already linked") = True
' Else
' rowrecsdisplay.Item("already linked") = False
' End If
' Next
' Next
' Next
'Catch ex As Exception
' ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in displaying already linked", ex.Message, ex.StackTrace)
'End Try
Try
grvwGrid.Columns.Clear()
dgEntityRecords.DataSource = DT_RECORDS
' grvwGrid.Columns.Item("already linked").Fixed = True
'grvwGrid.PopulateColumns()
'dgEntityRecords.RefreshDataSource()
'grvwGrid.OptionsView.ColumnAutoWidth = False
'grvwGrid.Columns(0).Fixed = FixedStyle.Left
'grvwGrid.BestFitColumns()
Catch ex As Exception
ClassHelper.MSGBOX_Handler("ERROR", "Unexpected Error in format grid", ex.Message, ex.StackTrace)
@@ -306,17 +276,17 @@ Public Class frmDocRecordLink
End If
Try
For Each oRow As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = oRow.Item("DOC_ID")
LOGGER.Info("DocID {0} will be linked with Record {1} ", CURRENT_DOC_ID.ToString, oSelectedRecordID.ToString)
Dim oDocID As Integer
oDocID = oRow.Item("DOC_ID")
LOGGER.Info("DocID {0} will be linked with Record {1} ", oDocID.ToString, oSelectedRecordID.ToString)
Dim DOC_PATH = oRow.Item("FILEPATH")
Dim _objecttype = oRow.Item("OBJECTTYPE")
WMOBJECTTYPE = _objecttype
Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", oSelectedRecordID, CURRENT_DOC_ID, "MANUAL RECORD-LINK", USER_USERNAME)
Dim sql_Exec = String.Format("EXEC PRPMO_CHECK_DOC_RECORD_LINK {0},{1},'{2}','{3}'", oSelectedRecordID, oDocID, "MANUAL RECORD-LINK", USER_USERNAME)
If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then
MsgBox("Unexpected Error in Inserting Record-Doc Link. Please check logfile!", MsgBoxStyle.Critical)
Else
ClassHelper.InsertEssential_Log(CURRENT_DOC_ID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & oSelectedRecordID.ToString)
ClassHelper.InsertEssential_Log(oDocID, "DOC-ID", "FILE LINK CREATED FOR RECORD: " & oSelectedRecordID.ToString)
oLinkCount += 1
End If
Dim sql = String.Format("SELECT * FROM TBPMO_WD_OBJECTTYPE WHERE OBJECT_TYPE = '{0}'", _objecttype)