MS Update logit

This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-28 14:07:31 +01:00
parent 24d01a8933
commit a56087cab3
8 changed files with 181 additions and 163 deletions

View File

@@ -8,6 +8,7 @@ Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraEditors.Controls
Public Class ClassWindreamDocGrid
Private Shared _Helper As ClassHelper
Public Shared SELECTED_DOC_PATH As String
'Public Shared RESULT_OBJECTTYPE As String
Public Shared SELECTED_INWORK As Boolean
@@ -47,6 +48,7 @@ Public Class ClassWindreamDocGrid
End Function
Public Shared Sub GetDocItems(gridView As GridView)
_Helper = New ClassHelper
SELECTED_DOC_ID = 0
If Init_Table() = True Then
SELECTED_DOC_ID = 0
@@ -71,7 +73,7 @@ Public Class ClassWindreamDocGrid
newRow("ACCESS_RIGHT") = 1
End Try
Try
SELECTED_DOC_PATH = gridView.GetRowCellValue(row, "FULLPATH")
SELECTED_DOC_PATH = _Helper.FORMAT_WM_PATH(gridView.GetRowCellValue(row, "FULLPATH"))
newRow("DOC_PATH") = gridView.GetRowCellValue(row, "FULLPATH")
Catch ex As Exception
newRow("DOC_PATH") = ""