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

MS WISAG

Browse Source
This commit is contained in:
SchreiberM
2019-12-10 17:27:39 +01:00
parent 5babf515ee
commit ad1611802a
29 changed files with 4212 additions and 3310 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/frmMonitor.vb
View File

@@ -36,6 +36,8 @@ Public Class frmMonitor
Dim oDetailSQL = GRID2_SQL
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT2 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
If Not IsNothing(oDT2) Then
GridView2.Columns.Clear()
@@ -45,6 +47,8 @@ Public Class frmMonitor
oDetailSQL = GRID3_SQL
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT3 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
If Not IsNothing(oDT3) Then
GridView3.Columns.Clear()
@@ -54,6 +58,8 @@ Public Class frmMonitor
oDetailSQL = GRID4_SQL
oDetailSQL = oDetailSQL.Replace("@DocID", oDocID)
oDetailSQL = oDetailSQL.ToLower.Replace("@idbobjid", oDocID)
oDetailSQL = oDetailSQL.Replace("@UserID", USER_ID)
oDetailSQL = oDetailSQL.Replace("@UserName", USER_USERNAME)
Dim oDT4 As DataTable = ClassDatabase.Return_Datatable(oDetailSQL)
If Not IsNothing(oDT4) Then
GridView4.Columns.Clear()