AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Changes1500

Browse Source
This commit is contained in:
SchreiberM
2019-12-04 14:56:34 +01:00
parent 07b913be52
commit 27f1a4e327
6 changed files with 160 additions and 488 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/DD_PM_WINDREAM/clsWMDocGrid.vb
View File

@@ -33,7 +33,7 @@ Public Class clsWMDocGrid
Dim oNewDataTable As New DataTable
oNewDataTable.TableName = "TBSELECTED_FILES"
' Create two columns, ID and Name.
oNewDataTable.Columns.Add("DOC_ID", GetType(Integer))
oNewDataTable.Columns.Add("DocID", GetType(Integer))
oNewDataTable.Columns.Add("DOC_PATH", GetType(System.String))
oNewDataTable.Columns.Add("OBJECTTYPE", GetType(System.String))
oNewDataTable.Columns.Add("INWORK", GetType(System.Boolean))
@@ -59,11 +59,11 @@ Public Class clsWMDocGrid
For Each row In ActiveDocGrid.GetSelectedRows
Dim newRow As DataRow = DTDocuments.NewRow()
Try
Dim DOC_ID = ActiveDocGrid.GetRowCellValue(row, "DocID")
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = ActiveDocGrid.GetRowCellValue(row, "DocID")
Dim DocID = ActiveDocGrid.GetRowCellValue(row, "DocID")
SELECTED_DOC_ID = DocID
newRow("DocID") = ActiveDocGrid.GetRowCellValue(row, "DocID")
Catch ex As Exception
newRow("DOC_ID") = 0
newRow("DocID") = 0
SELECTED_DOC_ID = 0
End Try
Try
@@ -105,11 +105,11 @@ Public Class clsWMDocGrid
Else
Dim newRow As DataRow = DTDocuments.NewRow()
Try
Dim DOC_ID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
SELECTED_DOC_ID = DOC_ID
newRow("DOC_ID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
Dim DocID = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
SELECTED_DOC_ID = DocID
newRow("DocID") = ActiveDocGrid.GetFocusedRowCellValue(ActiveDocGrid.Columns("DocID"))
Catch ex As Exception
newRow("DOC_ID") = 0
newRow("DocID") = 0
SELECTED_DOC_ID = 0
End Try
Try