diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index d08a8016b..e6c594ee8 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7834,13 +7834,36 @@ Partial Class Ventas
                             Else
                                 'este codigo no es temporal
                                 If Alertas Then Alert("El cliente tiene su límite de crédito agotado.", TipoMensaje.MsgAdvertencia)
+
                                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                                     LnkSolicitarCredito.Visible = True
                                     DdlTipoAutorizacion.SelectedValueExist("1")
 
                                     If Not UsuarioActual.TienePermisoProceso(268) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "PA") Then
-                                        BtnEmitirImprimir.Visible = False
-                                        TieneBloqueoPorCreditoVencimiento = 1
+                                        Dim Autorizacion As Integer = 0
+
+                                        Dim ObjVentas As New ClsVentas
+                                        If ObjVentas.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero, "Ing", CveEstatus:=1) Then
+                                            Dim RowAutorizacion As DataRow = Nothing
+                                            'SI TIENE DIAS VENCIDOS BUSCAR POR TIPO VENCIMIENTO
+                                            If TieneDiasVencidos Then
+                                                RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion IN(1,2) AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
+                                            Else
+                                                RowAutorizacion = ObjVentas.DtResultados.FiltroPrimero($"TipoAutorizacion = 1 AND CveVenta IS NULL AND CveTipoDocumento='Ing'", Orderby:="Importe DESC")
+                                            End If
+
+                                            If RowAutorizacion IsNot Nothing Then
+                                                Autorizacion = RowAutorizacion("CveAutorizacion").ToString().ToEntero()
+                                            End If
+                                        End If
+                                        ObjVentas.Dispose()
+
+                                        'SI NO TIENE AUTORIZACION, MANTIENE EL BLOQUEO POR CONDICIONES DE CREDITO
+                                        If Autorizacion <= 0 Then
+                                            BtnEmitirImprimir.Visible = False
+                                            TieneBloqueoPorCreditoVencimiento = 1
+                                        End If
+
                                     End If
                                 End If
                             End If
@@ -23441,8 +23464,11 @@ Partial Class Ventas
         '    DdlCuentaTarjetaDebito.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND  (CveTipoCuenta <> 1 OR TieneTerminal = 1)", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
         'End If
 
-        DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
-
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0}", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        Else
+            DdlCuentaTransferencia.DataSource = DtCC.FiltraParametros(String.Format("CveMoneda = {0} AND CveTipoCuenta <> 1", If(DdlMoneda.SelectedValue.ToEntero() <= 0, 1, DdlMoneda.SelectedValue.ToEntero())))
+        End If
         DtCC.Dispose()
 
         DdlCuentaEfectivo.DataBind()