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

MS V 2.5.3.0

Browse Source
This commit is contained in:
Developer01
2025-02-24 15:19:17 +01:00
parent edb8476a50
commit 3e481d9a94
13 changed files with 2261 additions and 2633 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/TaskFlow/frmMassValidator.vb
View File

@@ -1,7 +1,6 @@
Imports WINDREAMLib
Imports Oracle.ManagedDataAccess.Client
Imports System.ComponentModel
Imports DD_LIB_Standards
Imports DigitalData.Controls.LookupGrid
Imports DigitalData.Modules.Language.Utils
Imports System.IO
@@ -1085,7 +1084,7 @@ Public Class frmMassValidator
oValue = value
Catch ex As Exception
LOGGER.Error(ex)
clsLogger.Add("Error in LoadSimpleData for TextBox: " & ex.Message)
LOGGER.Warn($"Error in LoadSimpleData for TextBox: {ex.Message}")
End Try
ElseIf TypeOf control Is Windows.Forms.ComboBox Then
Try
@@ -1099,7 +1098,7 @@ Public Class frmMassValidator
comboxBox.DataSource = list
Catch ex As Exception
LOGGER.Error(ex)
clsLogger.Add("Error in LoadSimpleData for Combobox: " & ex.Message)
LOGGER.Warn($"Error in LoadSimpleData for Combobox: {ex.Message}")
End Try
ElseIf TypeOf control Is LookupControl3 Then
Try
@@ -1108,7 +1107,7 @@ Public Class frmMassValidator
lookup.Properties.DataSource = dt
Catch ex As Exception
LOGGER.Error(ex)
clsLogger.Add("Error in LoadSimpleData for LookupControl3: " & ex.Message)
LOGGER.Warn($"Error in LoadSimpleData for LookupControl3: {ex.Message}")
End Try
'ElseIf TypeOf control Is GridControl Then
' Try
@@ -1135,7 +1134,6 @@ Public Class frmMassValidator
' End If
' Catch ex As Exception
' LOGGER.Error(ex)
' clsLogger.Add("Error in LoadSimpleData for DataGridView: " & ex.Message)
' End Try
End If
Next
@@ -1163,7 +1161,9 @@ Public Class frmMassValidator
If CreateWMObject() = True Then
If ClassFinalizeDoc.Write_Final_Metadata(CURRENT_WMFILE) = True Then
Dim sql = String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
Dim sql = $"EXEC PRTF_PROFILE_FILES_WORK {CURRENT_DOC_ID},{CURRENT_ProfilGUID},{USER_ID},'Worked'"
'String.Format("UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = '{0}', EDIT = 1 WHERE GUID = {1}", USER_USERNAME, CURRENT_DOC_GUID)
If DatabaseFallback.ExecuteNonQueryECM(sql) = True Then
workedFiles += 1
End If