From 68df958f9d646bcf814df048c4f080ba22884f92 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ra=C3=BAl=20Pimienta?= <dany_pimi@hotmail.com>
Date: Tue, 4 Jan 2022 01:06:59 -0700
Subject: [PATCH] Cambios en ClsEncuestas

---
 App_Code/ClsEncuestas.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsEncuestas.vb b/App_Code/ClsEncuestas.vb
index 119c69534..a5848e63b 100644
--- a/App_Code/ClsEncuestas.vb
+++ b/App_Code/ClsEncuestas.vb
@@ -411,7 +411,7 @@ Public Class ClsEncuestas
         Dim Retorno As Boolean = False
         DataAdapter("PA_Enc_EncuestasRespuestasGet", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveEncuesta", SqlDbType.VarChar).Value = CveEncuesta
+            .Add("@CveEncuesta", SqlDbType.Int).Value = CveEncuesta
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -426,7 +426,7 @@ Public Class ClsEncuestas
         Dim Retorno As Boolean = False
         DataAdapter("PA_Enc_EncuestasRespuestasUpdate", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveRespuesta", SqlDbType.VarChar).Value = CveRespuesta
+            .Add("@CveRespuesta", SqlDbType.Int).Value = CveRespuesta
             .Add("@Respuesta", SqlDbType.VarChar).Value = Respuesta
             .Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta
         End With
@@ -444,7 +444,7 @@ Public Class ClsEncuestas
         Dim Retorno As Boolean = False
         DataAdapter("PA_Enc_EncuestasRespuestasRemove", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveRespuesta", SqlDbType.VarChar).Value = CveRespuesta
+            .Add("@CveRespuesta", SqlDbType.Int).Value = CveRespuesta
         End With
         Try
             SqlAdapter.Fill(Data)