From b6f772d0e854a52a63d5c8ad10d1dd5ed2d73b39 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Fri, 30 Apr 2021 10:43:25 -0700
Subject: [PATCH] Error al guardar por conexion cerrada

---
 Sistemas/PopUpAddUsuario.aspx.vb | 38 ++++++++++++++++----------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/Sistemas/PopUpAddUsuario.aspx.vb b/Sistemas/PopUpAddUsuario.aspx.vb
index 1ec6d9763..04d76c490 100644
--- a/Sistemas/PopUpAddUsuario.aspx.vb
+++ b/Sistemas/PopUpAddUsuario.aspx.vb
@@ -522,30 +522,13 @@ Partial Class Sistemas_PopUpAddUsuario
                 Alert("Ocurrió un error al agregar el usuario.", TipoMensaje.MsgInformacion)
             End If
         Catch ex As Exception
+            HuboError = true
             OnError("Ocurrió un error al agregar el usuario.", ex)
         End Try
 
         If Not HuboError Then
             ObjUsuarios.Commit()
 
-            If UsuarioActual.Empresa.CvePlataforma = 3 Then
-
-                Using ObjNotificaciones As New ClsSisNotificaciones()
-                    ObjNotificaciones.DeleteNotificacion(-1, CveUsuario)
-                    For Each row As GridViewRow In GVNotificaciones.Rows
-                        If row.FCCheckBox("chkCorreo").Checked OrElse row.FCCheckBox("chkVentana").Checked OrElse row.FCCheckBox("chkSMS").Checked OrElse
-                                                                             row.FCCheckBox("chkApp").Checked OrElse row.FCCheckBox("chkCampana").Checked Then
-                            If Not ObjNotificaciones.AddUsuariosNotificacion(CveUsuario, row.DataKey("CveNotificacion"), row.FCCheckBox("chkCorreo").Checked, row.FCCheckBox("chkVentana").Checked, row.FCCheckBox("chkSMS").Checked,
-                                                                             row.FCCheckBox("chkApp").Checked, row.FCCheckBox("chkCampana").Checked) Then
-                                HuboError = True
-                            End If
-                        End If
-                    Next
-                End Using
-
-            End If
-
-
             Dim JSBTN As String = ""
 
             If UsuarioActual.Empresa.CvePlataforma = 3 AndAlso UsuarioActual.CveCliente > 0 Then
@@ -566,7 +549,24 @@ Partial Class Sistemas_PopUpAddUsuario
             ObjUsuarios.RollBack()
             Alert("Ocurrió un error al agregar el usuario.", TipoMensaje.MsgInformacion)
         End If
-        ObjUsuarios.Dispose()
+        ObjUsuarios.Dispose()
+
+        If Not HuboError AndAlso UsuarioActual.Empresa.CvePlataforma = 3 Then
+
+            Using ObjNotificaciones As New ClsSisNotificaciones()
+                ObjNotificaciones.DeleteNotificacion(-1, CveUsuario)
+                For Each row As GridViewRow In GVNotificaciones.Rows
+                    If row.FCCheckBox("chkCorreo").Checked OrElse row.FCCheckBox("chkVentana").Checked OrElse row.FCCheckBox("chkSMS").Checked OrElse
+                                                                             row.FCCheckBox("chkApp").Checked OrElse row.FCCheckBox("chkCampana").Checked Then
+                        If Not ObjNotificaciones.AddUsuariosNotificacion(CveUsuario, row.DataKey("CveNotificacion"), row.FCCheckBox("chkCorreo").Checked, row.FCCheckBox("chkVentana").Checked, row.FCCheckBox("chkSMS").Checked,
+                                                                             row.FCCheckBox("chkApp").Checked, row.FCCheckBox("chkCampana").Checked) Then
+                            HuboError = True
+                        End If
+                    End If
+                Next
+            End Using
+
+        End If
 
         RecargarGlobalUsuarios()
         RecargarGlobal()