From f8310f2f103288c9ef2769ef4a277298b355e7ca Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 3 Jan 2024 17:29:04 -0700
Subject: [PATCH] - globaldt

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

diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index ab48bc89e..10142da2e 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/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