diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index c86542405..1ab731944 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -827,7 +827,7 @@ Partial Class Bancos_ProveedoresAbonar
 
 
                 'cheque
-                If DdlTipoTransaccion.SelectedValue = "1" Then FolioFijo = TxtFolio.Text.ToEntero
+                If DdlTipoTransaccion.SelectedValue = "1" AndAlso UsuarioActual.CveEmpresa.Contiene(13, 83) Then FolioFijo = TxtFolio.Text.ToEntero
 
                 CvePrePoliza = ObjMov.AddPrePolizas("Bancos/ProveedoresAbonar", 2, ImporteSeleccionado, ImporteSeleccionado, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjComp.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, Nothing, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjMov.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, "-1", UsuarioActual.CveEmpresa))
 
diff --git a/Ventas/CatVendedores.aspx.vb b/Ventas/CatVendedores.aspx.vb
index 0de634028..0b9743043 100644
--- a/Ventas/CatVendedores.aspx.vb
+++ b/Ventas/CatVendedores.aspx.vb
@@ -137,11 +137,12 @@ Partial Class Ventas_CatVendedores
 
 #Region "CARGA GLOBAL"
     Private Sub CargaGlobal()
-        Dim ObjVendedores As New ClsVtaVendedores
-        If ObjVendedores.GetVendedores(-1) Then
-            GlobalDTVendedores(-1) = ObjVendedores.DtResultados
-        End If
-        ObjVendedores.Dispose()
+        GlobalDTVendedores(UsuarioActual.CveEmpresa) = Nothing
+        'Dim ObjVendedores As New ClsVtaVendedores
+        'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then
+        '    GlobalDTVendedores(-1) = ObjVendedores.DtResultados
+        'End If
+        'ObjVendedores.Dispose()
     End Sub
 #End Region