diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb
index 915212911..29c1f6564 100644
--- a/Sistemas/CatSesiones.aspx.vb
+++ b/Sistemas/CatSesiones.aspx.vb
@@ -268,7 +268,7 @@ Partial Class Sistemas_CatSesiones
         If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing
 
         ObjVentas.Dispose()
-        GlobalDTTipoVenta(-1) = Nothing
+        GlobalDTTipoVenta(UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
     Private Sub CargaProductosServicios()