--FIX, verificar credito aunque cliente no permita credito

Ventas/Ventas.aspx.vb

@@ -7893,6 +7893,13 @@ Partial Class Ventas
                     If (ValidaRemision AndAlso DdlTipoComprobante.SelectedValue = "Rem") AndAlso RBLPago.SelectedValue = "1" Then
                         ValidaCondicionesCredito = True
                     End If
+                Else
+                    'SI ES VENTA NUEVA VALIDA AUNQUE NO PERMITA CREDITO
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                        If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot") Then
+                            ValidaCondicionesCredito = True
+                        End If
+                    End If
                 End If
 
                 If ValidaCondicionesCredito Then
@@ -7931,6 +7938,7 @@ Partial Class Ventas
                                 Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
                                 BtnsFacturar.Visible = False
                                 BtnGenerarRemision.Visible = False
+                                BtnEmitirImprimir.Visible = False
 
                                 If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ClienteEsDistribuidor AndAlso Opcion.Contiene(2, 3) Then
                                     TieneBloqueoPorCreditoVencimiento = 1
@@ -18164,18 +18172,18 @@ Partial Class Ventas
         'VALIDA ESTATUS CLIENTE - SOLO SE PUEDE USAR EL CLIENTE PARA COTIZAR EN CASO DE ESTAR INACTIVO
         If EsCreaApartirDe OrElse ModalidadEdicion OrElse CveVenta <= 0 Then
             If DdlTipoComprobante.SelectedValue.Contiene("Cot", "DPe") Or TipoContrato >= 0 Then 'SI VIENE DE PEDIDO DE AF DESDE CONTRATO NO BLOQUEA CUANDO EL CLIENTE ESTA INACTIVO
-                BtnEmitirImprimir.Visible = True
-                TrVistaPrevia.Visible = True
+                BtnEmitirImprimir.Visible = TieneBloqueoPorCreditoVencimiento = 0
+                TrVistaPrevia.Visible = TieneBloqueoPorCreditoVencimiento = 0
             Else
                 If LblCliente.Text <> "Cliente" And Not EstatusCliente Then
                     Alert("El Cliente seleccionado no esta activo", TipoMensaje.MsgAdvertencia)
                 End If
                 If Not CveEmpresaCRM > 0 Then
-                    BtnEmitirImprimir.Visible = EstatusCliente
-                    TrVistaPrevia.Visible = EstatusCliente
+                    BtnEmitirImprimir.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
+                    TrVistaPrevia.Visible = EstatusCliente AndAlso TieneBloqueoPorCreditoVencimiento = 0
                 Else
-                    BtnEmitirImprimir.Visible = True
-                    TrVistaPrevia.Visible = True
+                    BtnEmitirImprimir.Visible = TieneBloqueoPorCreditoVencimiento = 0
+                    TrVistaPrevia.Visible = TieneBloqueoPorCreditoVencimiento = 0
                 End If
 
             End If