Contratos

AC/CatOGClasificaciones.aspx.vb

@@ -50,6 +50,7 @@ Partial Class AC_CatOGClasificaciones
         If ObjClasificaciones.GetClasificaciones() Then
             ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo")
             GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            GlobalDTACClasificadorObjetoGasto = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -65,6 +66,7 @@ Partial Class AC_CatOGClasificaciones
 
     Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
         Dim ObjClasificaciones As New ClsClasificaciones
+
         If LbAgregar.Text = "Agregar" Then
             If ObjClasificaciones.AddClasificaciones(TxtOGClasificacion.Text.Trim, TxtCodigo.Text.Trim, -1, "", -1, "", -1, "", 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 TxtOGClasificacion.Text = ""
@@ -90,6 +92,10 @@ Partial Class AC_CatOGClasificaciones
         End If
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
         ObjClasificaciones.Dispose()
+
+
+        CargaDatos()
+
     End Sub
 
 #Region "G V  D A T O S"
@@ -278,4 +284,7 @@ Partial Class AC_CatOGClasificaciones
 
 #End Region
 
+
+
+
 End Class