diff --git a/Ventas/CatClasificaciones.aspx.vb b/Ventas/CatClasificaciones.aspx.vb
index bf140a196..4043ffbbd 100644
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -214,8 +214,8 @@ Partial Class CatClasificaciones
             End If
         End If
 
-        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
         ObjClasificaciones.Dispose()
+        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
         CargaDatos()
 
         UpDatos.Update()