- globaldt

OS/CatEstatusOrdenServicio.aspx.vb

@@ -80,9 +80,8 @@ Partial Class OS_CatEstatusOrdenServicio
         DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         Using ObjEstatusOrdenServicios As New ClsOS
             If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then
-                DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+                DtEstatusOS = ObjEstatusOrdenServicios.DtResultados
                 GvDatos.DataSource = DtEstatusOS
-                GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
             End If
 
             If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
@@ -110,13 +109,15 @@ Partial Class OS_CatEstatusOrdenServicio
 
         If HdnModalidad.Value = "I" Then
             If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtBackgroundColor.Text.Replace("#", "")) Then
-                'CargaDatos()
+                GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing
                 Alert("Estatus agregado")
             End If
         Else
             If HdnID.Value.ToEntero <> -1 Then
                 If Not ObjEstatusOrdenServicios.UpdateEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), HdnID.Value.ToEntero, TxtBackgroundColor.Text.Replace("#", "")) Then
                     TieneError = True
+                Else
+                    GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing
                 End If
             End If
 
@@ -171,7 +172,7 @@ Partial Class OS_CatEstatusOrdenServicio
         If ObjEstatusOrdenServicios.RemoveEstatusOrdenServicio(CveEstatusOrdenServicio) Then
             GvDatos.EditIndex = -1
             DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
+            GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Estatus de Orden de Servicio se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If