MS Sync Hakan

This commit is contained in:
2024-06-25 13:26:35 +02:00
parent 2f8aed8640
commit 54b246f8e4
10 changed files with 104 additions and 134 deletions

View File

@@ -374,27 +374,6 @@ Public Class frmMain
End Try
Me.Cursor = Cursors.Default
End Sub
'Private Sub GetFileStreamByte(ByVal pEnvID As Long)
' Dim strSql As String
' 'For Document
' Try
' 'Get image data from gridview column.
' strSql = "Select [DOC1] from [TBSIG_ENVELOPE] WHERE GUID =" & pEnvID
' 'Get image data from DB
' Dim fileData As Byte() = DirectCast(DB_DD_ECM.GetScalarValue(strSql), Byte())
' If Not fileData Is Nothing Then
' myFileData = fileData
' Else
' myFileData = Nothing
' End If
' Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in GetFileStreamByte")
' myFileData = Nothing
' End Try
'End Sub
Private Sub GetResRepFileStreamByte(ByVal pEnvID As Long)
Dim strSql As String
@@ -504,6 +483,7 @@ Public Class frmMain
Else
BarCheckItem1.Checked = False
End If
bbtnitmEB.Enabled = False
RefreshTimer.Start()
End Sub