diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 3a92c0b96..4dbe7f213 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2591,22 +2591,27 @@ Partial Class Clientes
                     InformacionCompleta = False
                 End If
             End If
-            If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
+
             If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False
             If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False
-            If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
-            'si es el concepto de pagaré
-            Dim tPagare As Integer = 0
-            For Each dRow As GridViewRow In GvDocumentosCliente.Rows
-                Dim CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToEntero()
-                If CveDocumentacion = 265 Then tPagare = 1
-            Next
-            If tPagare = 0 Then InformacionCompleta = False
-            tPagare = 0 'valida que cuando menos tenga una cuenta
-            For Each dRow As GridViewRow In GvBancosCuentas.Rows
-                tPagare = 1
-            Next
-            If tPagare = 0 Then InformacionCompleta = False
+
+            'SOLO VALIDA EN CLIENTES FRENCUENTE
+            If DdlTipoCliente.SelectedValue = "1" Then
+                If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
+                If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
+                'si es el concepto de pagaré
+                Dim tPagare As Integer = 0
+                For Each dRow As GridViewRow In GvDocumentosCliente.Rows
+                    Dim CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToEntero()
+                    If CveDocumentacion = 265 Then tPagare = 1
+                Next
+                If tPagare = 0 Then InformacionCompleta = False
+                tPagare = 0 'valida que cuando menos tenga una cuenta
+                For Each dRow As GridViewRow In GvBancosCuentas.Rows
+                    tPagare = 1
+                Next
+                If tPagare = 0 Then InformacionCompleta = False
+            End If
 
             'If DivInfoCompleta.Visible Then
             '    InformacionCompleta = ChkInformacionCompleta.Checked