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

MS

Browse Source
This commit is contained in:
SchreiberM 2021-03-12 10:26:49 +01:00
parent 6a4ed2cc1c
commit db0bb54790
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/frmValidator.resx
View File

@ -319,7 +319,7 @@
<value>DocumentViewerValidator</value> <value>DocumentViewerValidator</value>
</data> </data>
<data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve"> <data name="&gt;&gt;DocumentViewerValidator.Type" xml:space="preserve">
<value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.4.2.1, Culture=neutral, PublicKeyToken=null</value> <value>DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.4.4.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve"> <data name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value> <value>SplitContainer1.Panel2</value>

20
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2303,7 +2303,7 @@ Public Class frmValidator
Function Get_Next_GUID() As Integer Function Get_Next_GUID() As Integer
Try Try
LOGGER.Debug("Get_Next_GUID...") LOGGER.Debug("Get_Next_GUID...")
Dim newGUID As Integer Dim oNewGUID As Integer
LOGGER.Debug("Old Document_Path: " & OLD_Document_Path) LOGGER.Debug("Old Document_Path: " & OLD_Document_Path)
Dim oBIT As Integer = 0 Dim oBIT As Integer = 0
@ -2314,27 +2314,27 @@ Public Class frmValidator
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL, "Get_Next_GUID") Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL, "Get_Next_GUID")
If oDT.Rows.Count > 0 Then If oDT.Rows.Count > 0 Then
newGUID = oDT.Rows(0).Item(0) oNewGUID = oDT.Rows(0).Item(0)
CURRENT_DOC_ID = oDT.Rows(0).Item(1) CURRENT_DOC_ID = oDT.Rows(0).Item(1)
Else Else
LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(1)") LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(1)")
newGUID = 0 oNewGUID = 0
Return newGUID Return oNewGUID
End If End If
'newGUID = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, True) 'newGUID = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, True)
WMDocPathWindows = "" WMDocPathWindows = ""
CURRENT_DOC_PATH = "" CURRENT_DOC_PATH = ""
CURRENT_WMFILE = Nothing CURRENT_WMFILE = Nothing
If newGUID > 0 Then If oNewGUID > 0 Then
LOGGER.Debug("newGUID: " & newGUID.ToString) LOGGER.Debug("newGUID: " & oNewGUID.ToString)
ElseIf newGUID <> 0 Then ElseIf oNewGUID <> 0 Then
LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(2)") LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(2)")
newGUID = 0 oNewGUID = 0
End If End If
Return newGUID Return oNewGUID
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
oErrMsgMissingInput = "Unexpected error in Get_Next_GUID: " & ex.Message oErrMsgMissingInput = "Unexpected error in Get_Next_GUID: " & ex.Message
@ -3687,7 +3687,7 @@ Public Class frmValidator
Next Next
Return 'Return
Finish_WFStep() Finish_WFStep()
btnSave.Enabled = True btnSave.Enabled = True