No verificar limite de credito al facturar , funcionalidad 702

Ventas/Ventas.aspx.vb

@@ -7647,6 +7647,8 @@ Partial Class Ventas
         'No exceder el limite de credito, Si no tiene contrato limita el credito, si tiene no hace nada. Si no tiene remisiones tampoco hace nada.
         If (Not CveContrato > 0 Or CveContratoTipo.Contiene(28)) AndAlso (Not NuevaFactura = 1) AndAlso RBLPago.SelectedValue = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ant") AndAlso RemisionesLista.Count <= 0 AndAlso TxtTotal.Text.ToDecimal > 0 AndAlso Not CvePedidoA > 0 Then
             'If UsuarioActual.Empresa.Funcionalidad(518) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(185) Then
+
+            If Not UsuarioActual.Empresa.Funcionalidad(702) = "1" Then
                 Dim ObjVentas As New ClsVentas
 
                 If ObjVentas.ObtenerCreditoRestante(CveCliente, DdlSucursalCliente.SelectedValue.ToEntero()) Then
@@ -7677,6 +7679,8 @@ Partial Class Ventas
                     Exit Sub
                 End If
                 ObjVentas.Dispose()
+            End If
+
             'End If
         End If