Hola,
Tengo una duda...
Estoy generando un código para un sistema de tickets web, sin embargo, tengo un detalle al momento de querer incluir en el cuerpo del correo el No. de ticket ya que deseo heredar el Id de la base de datos de SQL donde guardo el ticket pero no encuentro la manera, tengo un Procedure donde hago el SELECT:
Código vb:
Ver originalELSE IF @Action = 'GetRec_SugerenciasBuzon'
BEGIN
SELECT max(IdComentario) FROM HI_BuzonSugerencias WHERE IdComentario=@IdComentario;
END
Ahora tengo un código para mandar llamar este select en un programa .asp.vb
Código ASP:
Ver originalProtected Sub doSendNotification()
Dim Params(2) As SqlParameter
Dim MailParams(2) As String
Dim MailTo(0) As String
Dim MailToCC(0) As String
Dim MailTo_Client(0) As String
Dim MailParams_Client(1) As String
Dim Contents As SqlDataReader = Nothing
Try
' Primero obtendremos la información del area orgánica (Página de Inicio)
With Me.Master.QMngr.Cmd
.Connection = Me.Master.QMngr.Cn
.CommandType = Data.CommandType.StoredProcedure
.CommandText = "[HV_HI_ContenedoresInfo]"
.Parameters.Clear()
.Parameters.AddWithValue("Action", "GetRec_SugerenciasBuzon")
.Parameters.AddWithValue("IdComentario", Me.Master.HI_BuzonSugerencias.Value)
Contents = .ExecuteReader()
End With
' El registro existe...
If Contents.Read() Then ' Si Hay información...
End If
Catch ex As Exception
Finally
End Try
' Obtenemos el destinatario...
Params(0) = New SqlParameter("Action", "scl_CatGral_AltCode")
Params(1) = New SqlParameter("IdCatalogo", "GEN_Configuracion")
Params(2) = New SqlParameter("Clave", 2) 'Destinatario Buzón de Sugerencias
MailTo(0) = Query_Manager.Get_ScalarValue("[HV_GEN_Catalogos_Admin]", Params)
MailTo_Client(0) = Me.txtCorreo.Text
'Establecemos los parámetros del correo
MailParams(0) = Me.txtTitulo.Text
MailParams(1) = Me.txtComentario.Text
MailParams(2) = mid(Request.ServerVariables("LOGON_USER"),9,3)
' MailToCC(0) = Query_Manager.Get_ScalarValue("[HV_GEN_Catalogos_Admin]", Params)
' Enviamos el correo...
Query_Manager.SendMail(MailTo, Nothing, "HI_NuevoMsjBuzonSugerencias", MailParams)
MailParams_Client(0) = Me.txtTitulo.Text
MailParams_Client(1) = IdComentario
' Enviamos el correo...
Query_Manager.SendMail(MailTo_Client, Nothing, "HI_NuevoMsjBuzonSugerencias_Client", MailParams_Client)
End Sub
me está mandando un error en la línea de .Parameters.AddWithValue("IdComentario", Me.Master.HI_BuzonSugerencias.Value) no sé si tengan una solución sugerida para resolver este tema ya que es lo único que me hace falta para completar el ejercicio.
Gracias!!