Correciones apliacion de encuesta CRM y actaulizacion de tipo de pregunta CRM

CRM/CatTipoProceso.aspx.cs

@@ -555,6 +555,9 @@ public partial class CRM_CatTipoProceso : ClsPaginas
     protected void LbAgregarPregunta_Click(object sender, EventArgs e)
     {   
         ClsEncuestas Objeto = new ClsEncuestas();
+        
+        Objeto.IniciaTransacSQL();//ESTA TRANSACCIONADO POR QUE EL UPDATE ELIMINA RESPUESTAS CUANDO SE CAMBIA EL TIPO DE PREGUNTA
+
         bool errorProceso = true;
 
         int RespuestaDefault = -1;
@@ -563,9 +566,10 @@ public partial class CRM_CatTipoProceso : ClsPaginas
             RespuestaDefault = ChkRespuestaDefault.Checked ? 1 : 0;
         }
 
+
+
         if (CvePregunta> 0)
         {
-
             if (Objeto.UpdatePreguntas(CvePregunta, TxtPregunta.Text, DdlTipoPregunta.SelectedValue.ToEntero(), CveTema, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RespuestaDefault))
             {
                 Alert("La Pregunta se actualizó correctamente.", ModExtensiones.TipoMensaje.ToastInformacion);
@@ -580,6 +584,19 @@ public partial class CRM_CatTipoProceso : ClsPaginas
                 errorProceso = false;                
             }
         }
+
+        
+        
+        if (errorProceso)//ESTA TRANSACCIONADO POR QUE EL UPDATE ELIMINA RESPUESTAS CUANDO SE CAMBIA EL TIPO DE PREGUNTA
+        {
+            Objeto.RollBack();
+        }
+        else
+        {
+            Objeto.Commit();
+        }
+
+
         Objeto.Dispose();