- varios de global

- clientes abonar. funcionalidad

Ventas/CatUnidadesMedida.aspx.vb

@@ -51,7 +51,7 @@ Partial Class CatUnidadesMedida
             TxtAlias.Text = ""
             Alert("El nueva Alias Unidad de Medida se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpDatosAlias.Update()
-            GlobalDTUnidadesMedidaAlias = ObjUnidadesMedida.DtResultados
+            GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa) = Nothing
             ViewState("DTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & cve)
         End If
         CargaGridAlias()
@@ -281,7 +281,7 @@ Partial Class CatUnidadesMedida
                 TxtAbreviatura.Text = ""
                 Alert("La nueva Unidad de Medida se guardó correctamente.", TipoMensaje.MsgInformacion)
                 UpAddUnidadMedida.Update()
-                GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
+                GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
                 ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
                 If ViewState("Orden").ToString() <> String.Empty Then
                     CargaGrid()
@@ -344,7 +344,7 @@ Partial Class CatUnidadesMedida
         UpDatos.Update()
         If ObjUnidadesMedida.RemoveUnidadMedida(HdnID.Value.ToEntero) Then
             GvDatos.EditIndex = -1
-            GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
+            GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
             ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If