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>
</data>
<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 name="&gt;&gt;DocumentViewerValidator.Parent" xml:space="preserve">
<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
Try
LOGGER.Debug("Get_Next_GUID...")
Dim newGUID As Integer
Dim oNewGUID As Integer
LOGGER.Debug("Old Document_Path: " & OLD_Document_Path)
Dim oBIT As Integer = 0
@ -2314,27 +2314,27 @@ Public Class frmValidator
Dim oDT As DataTable = ClassDatabase.Return_Datatable(oSQL, "Get_Next_GUID")
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)
Else
LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(1)")
newGUID = 0
Return newGUID
oNewGUID = 0
Return oNewGUID
End If
'newGUID = ClassDatabase.Execute_Scalar(oSQL, CONNECTION_STRING, True)
WMDocPathWindows = ""
CURRENT_DOC_PATH = ""
CURRENT_WMFILE = Nothing
If newGUID > 0 Then
LOGGER.Debug("newGUID: " & newGUID.ToString)
If oNewGUID > 0 Then
LOGGER.Debug("newGUID: " & oNewGUID.ToString)
ElseIf newGUID <> 0 Then
ElseIf oNewGUID <> 0 Then
LOGGER.Info(" >> Attention: in GetNextGUID - Could not get a GUID(2)")
newGUID = 0
oNewGUID = 0
End If
Return newGUID
Return oNewGUID
Catch ex As Exception
LOGGER.Error(ex)
oErrMsgMissingInput = "Unexpected error in Get_Next_GUID: " & ex.Message
@ -3687,7 +3687,7 @@ Public Class frmValidator
Next
Return
'Return
Finish_WFStep()
btnSave.Enabled = True