MS Sync Hakan
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user