BugFix und WMFileCreate
This commit is contained in:
Digital Data - Marlon Schreiber
95
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
95
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb
generated
@@ -17831,7 +17831,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
|
||||
Private Sub InitCommandCollection()
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(11) {}
|
||||
Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(10) {}
|
||||
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(0).Connection = Me.Connection
|
||||
Me._commandCollection(0).CommandText = "SELECT GUID, FILE_PATH, DMS_ERSTELLT_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FI"& _
|
||||
@@ -17869,55 +17869,49 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(6).Connection = Me.Connection
|
||||
Me._commandCollection(6).CommandText = "SELECT FILE_PATH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE GUID = @"& _
|
||||
"GUID"
|
||||
Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(7).Connection = Me.Connection
|
||||
Me._commandCollection(7).CommandText = "SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID ="& _
|
||||
Me._commandCollection(6).CommandText = "SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID ="& _
|
||||
" @Profil_id) AND (EDIT = 0) AND (UPPER(FILE_PATH) <> UPPER(@FILEPATH)) AND (IN_W"& _
|
||||
"ORK = 0) AND (FILE_PATH NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT FILE"& _
|
||||
"_PATH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPM_FILES_USER_NOT_INDEXE"& _
|
||||
"D"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (PROFIL_ID = @Profil_id) AND (UPP"& _
|
||||
"ER(USR_NAME) = UPPER(@User))))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DMS_ERSTELLT_DATE,FILE_PATH"
|
||||
Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILEPATH", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(7).Connection = Me.Connection
|
||||
Me._commandCollection(7).CommandText = "SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID ="& _
|
||||
" @Profil_id) AND (EDIT = 0) AND (IN_WORK = 0) AND (UPPER(FILE_PATH) <> UPPER(@FI"& _
|
||||
"LEPATH)) AND (FILE_PATH NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT FILE"& _
|
||||
"_PATH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPM_FILES_USER_NOT_INDEXE"& _
|
||||
"D"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (PROFIL_ID = @Profil_id) AND (UPP"& _
|
||||
"ER(USR_NAME) = UPPER(@User))))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DMS_ERSTELLT_DATE DESC"
|
||||
Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILEPATH", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(8).Connection = Me.Connection
|
||||
Me._commandCollection(8).CommandText = "SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID ="& _
|
||||
" @Profil_id) AND (EDIT = 0) AND (IN_WORK = 0) AND (UPPER(FILE_PATH) <> UPPER(@FI"& _
|
||||
"LEPATH)) AND (FILE_PATH NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT FILE"& _
|
||||
"_PATH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPM_FILES_USER_NOT_INDEXE"& _
|
||||
"D"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (PROFIL_ID = @Profil_id) AND (UPP"& _
|
||||
"ER(USR_NAME) = UPPER(@User))))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY DMS_ERSTELLT_DATE DESC"
|
||||
Me._commandCollection(8).CommandText = "UPDATE TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET EDIT = 1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _
|
||||
"= @GUID)"
|
||||
Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILEPATH", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@User", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(9) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(9).Connection = Me.Connection
|
||||
Me._commandCollection(9).CommandText = "UPDATE TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET EDIT = 1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID "& _
|
||||
"= @GUID)"
|
||||
Me._commandCollection(9).CommandText = "UPDATE TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET IN_WORK = @WORK, WORK_USER = "& _
|
||||
"@USer"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
|
||||
Me._commandCollection(9).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IN_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USer", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(9).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(10) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(10).Connection = Me.Connection
|
||||
Me._commandCollection(10).CommandText = "UPDATE TBPM_PROFILE_FILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET IN_WORK = @WORK, WORK_USER = "& _
|
||||
"@USer"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
|
||||
Me._commandCollection(10).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "IN_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USer", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(11) = New Global.System.Data.SqlClient.SqlCommand()
|
||||
Me._commandCollection(11).Connection = Me.Connection
|
||||
Me._commandCollection(11).CommandText = "SELECT DMS_ERSTELLT_DATE, FILE_PATH, GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FI"& _
|
||||
Me._commandCollection(10).CommandText = "SELECT DMS_ERSTELLT_DATE, FILE_PATH, GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_FI"& _
|
||||
"LES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (EDIT = 0) AND (PROFIL_ID = @Profil_id) AND (ACTIVE = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDE"& _
|
||||
"R BY DMS_ERSTELLT_DATE DESC"
|
||||
Me._commandCollection(11).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(11).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
Me._commandCollection(10).CommandType = Global.System.Data.CommandType.Text
|
||||
Me._commandCollection(10).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Profil_id", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
@@ -17951,7 +17945,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _
|
||||
Public Overloads Overridable Function FillBy_Newest(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable, ByVal Profil_id As Integer) As Integer
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(11)
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(10)
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Profil_id,Integer)
|
||||
If (Me.ClearBeforeFill = true) Then
|
||||
dataTable.Clear
|
||||
@@ -17965,7 +17959,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _
|
||||
Public Overloads Overridable Function GetDataBy_Newest(ByVal Profil_id As Integer) As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(11)
|
||||
Me.Adapter.SelectCommand = Me.CommandCollection(10)
|
||||
Me.Adapter.SelectCommand.Parameters(0).Value = CType(Profil_id,Integer)
|
||||
Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable = New DD_DMSLiteDataSet.TBPM_PROFILE_FILESDataTable()
|
||||
Me.Adapter.Fill(dataTable)
|
||||
@@ -18127,38 +18121,11 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
End If
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Public Overloads Overridable Function CmdGetFilePath_2_GUID(ByVal GUID As Integer) As String
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6)
|
||||
command.Parameters(0).Value = CType(GUID,Integer)
|
||||
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
||||
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
<> Global.System.Data.ConnectionState.Open) Then
|
||||
command.Connection.Open
|
||||
End If
|
||||
Dim returnValue As Object
|
||||
Try
|
||||
returnValue = command.ExecuteScalar
|
||||
Finally
|
||||
If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then
|
||||
command.Connection.Close
|
||||
End If
|
||||
End Try
|
||||
If ((returnValue Is Nothing) _
|
||||
OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then
|
||||
Return Nothing
|
||||
Else
|
||||
Return CType(returnValue,String)
|
||||
End If
|
||||
End Function
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Public Overloads Overridable Function cmdGetNextFile_GUID(ByVal Profil_id As Integer, ByVal FILEPATH As String, ByVal User As String) As Object
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7)
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6)
|
||||
command.Parameters(0).Value = CType(Profil_id,Integer)
|
||||
If (FILEPATH Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("FILEPATH")
|
||||
@@ -18195,7 +18162,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Public Overloads Overridable Function cmdgetNextFile_GUID_Newest(ByVal Profil_id As Integer, ByVal FILEPATH As String, ByVal User As String) As Object
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8)
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7)
|
||||
command.Parameters(0).Value = CType(Profil_id,Integer)
|
||||
If (FILEPATH Is Nothing) Then
|
||||
Throw New Global.System.ArgumentNullException("FILEPATH")
|
||||
@@ -18233,7 +18200,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
|
||||
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _
|
||||
Public Overloads Overridable Function CmdSetEdit(ByVal GUID As Integer) As Integer
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9)
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8)
|
||||
command.Parameters(0).Value = CType(GUID,Integer)
|
||||
Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State
|
||||
If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _
|
||||
@@ -18255,7 +18222,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
|
||||
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _
|
||||
Public Overloads Overridable Function CmdSETWORK(ByVal WORK As Boolean, ByVal USer As String, ByVal GUID As Integer) As Object
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(10)
|
||||
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(9)
|
||||
command.Parameters(0).Value = CType(WORK,Boolean)
|
||||
If (USer Is Nothing) Then
|
||||
command.Parameters(1).Value = Global.System.DBNull.Value
|
||||
|
||||
Reference in New Issue
Block a user