From 5e94e50381610c52cc2529cdd2e10d97165b7bac Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 3 Aug 2023 12:11:41 -0700
Subject: [PATCH] -- faltaba comit

---
 Ventas/CatClasificaciones.aspx.vb | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Ventas/CatClasificaciones.aspx.vb b/Ventas/CatClasificaciones.aspx.vb
index 954df3b37..fe7b3af49 100644
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -164,6 +164,7 @@ Partial Class CatClasificaciones
                     If DdlCuentaCostos.SelectedValue.ToEntero > 0 Then objConta.AddCuentasAsignaciones(69, UsuarioActual.CveEmpresa, DdlCuentaCostos.SelectedValue.ToEntero, CveClasificacion:=ObjClasificaciones.CveClasificacion)
                     If DdlCuentaIngresos.SelectedValue.ToEntero > 0 Then objConta.AddCuentasAsignaciones(4, UsuarioActual.CveEmpresa, DdlCuentaIngresos.SelectedValue.ToEntero, CveClasificacion:=ObjClasificaciones.CveClasificacion)
                 End If
+                ObjClasificaciones.Commit()
                 TxtClasificacion.Text = ""
                 TxtPrecioBaseCosto.Text = ""
                 DdlCuentaGasto.SelectedValueExist("0")
@@ -171,6 +172,9 @@ Partial Class CatClasificaciones
                 DdlCuentaIngresos.SelectedValueExist("0")
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones"))
                 Alert("La nueva Clasificación se guardó correctamente.", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrió un error al agregar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                ObjClasificaciones.RollBack()
             End If
 
         ElseIf HdnModalidadClasificacion.Value = "U" Then
@@ -316,18 +320,15 @@ Partial Class CatClasificaciones
 
     Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
         Dim ObjClasificaciones As New ClsClasificaciones
-
         If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
-            ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
+            CargaDatos()
             Alert("La Clasificación se eliminó correctamente.", TipoMensaje.MsgInformacion)
         Else
             Alert("Ocurrió un error al eliminar la clasificación. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
-
         ObjClasificaciones.Dispose()
-        CargaGrid()
 
     End Sub