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

Verbesserungen

Browse Source
This commit is contained in:
Developer01
2025-12-05 14:02:41 +01:00
parent 5c0120cca8
commit a34f55702b
23 changed files with 529 additions and 188 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
app/DD-Record-Organizer/Classes/ClassDocGrid.vb
View File

@@ -136,14 +136,19 @@ Public Class ClassDocGrid
For Each oRowHandle In oSelectedRows
Dim oDocId = pGridView.GetRowCellValue(oRowHandle, "DocID")
Dim oSQL = $"Select dwParentID FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
Dim odwParentID = MYDB_ECM.GetScalarValue(oSQL)
Dim oDisplayName = pGridView.GetRowCellValue(oRowHandle, "Displayname")
Dim oSQL = $"Select * FROM TBPMO_DOCRESULT_LIST where DocID = {oDocId}"
Dim oDTRow As DataTable = MYDB_ECM.GetDatatable(oSQL)
Dim odwParentID = oDTRow.Rows(0).Item("dwParentID")
Dim oDisplayName = oDTRow.Rows(0).Item("Display_name")
Dim oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULLPATH")
Dim oObjecttype = pGridView.GetRowCellValue(oRowHandle, "OBJECTTYPE")
Dim oFilename = pGridView.GetRowCellValue(oRowHandle, "Dateiname")
Dim oInWork = pGridView.GetRowCellValue(oRowHandle, "in work?")
Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "in work User")
If IsNothing(oDocPath) Then
oDocPath = pGridView.GetRowCellValue(oRowHandle, "FULL_FILENAME")
End If
Dim oObjecttype = oDTRow.Rows(0).Item("Objecttype")
Dim oFilename = oDTRow.Rows(0).Item("Filename")
Dim oInWork = pGridView.GetRowCellValue(oRowHandle, "IN_WORK")
Dim oInWorkUser = pGridView.GetRowCellValue(oRowHandle, "IN_WORK_USER")
oDocuments.Add(New clsWMDoc With {
.DocId = oDocId,
.ParentID = odwParentID,