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

Personalakte

Browse Source
This commit is contained in:
Developer01
2025-06-18 09:33:52 +02:00
parent 0159fa79c4
commit cfe631a568
18 changed files with 561 additions and 345 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -303,12 +303,12 @@ Public Class frmDocRecordLink
Continue For
End If
Try
For Each row As DataRow In CURRENT_DT_SELECTED_FILES.Rows
For Each oRow As DataRow In CURRENT_DT_SELECTED_FILES.Rows
CURRENT_DOC_ID = row.Item("DOC_ID")
CURRENT_DOC_ID = oRow.Item("DOC_ID")
LOGGER.Info("DocID {0} will be linked with Record {1} ", CURRENT_DOC_ID.ToString, oSelectedRecordID.ToString)
Dim DOC_PATH = row.Item("FILEPATH")
Dim _objecttype = row.Item("OBJECTTYPE")
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)
If MYDB_ECM.ExecuteNonQuery(sql_Exec) = False Then