--FIX informacion completa

Ventas/Clientes.aspx.vb

@@ -2591,9 +2591,13 @@ 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
+
+            '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
@@ -2607,6 +2611,7 @@ Partial Class Clientes
                     tPagare = 1
                 Next
                 If tPagare = 0 Then InformacionCompleta = False
+            End If
 
             'If DivInfoCompleta.Visible Then
             '    InformacionCompleta = ChkInformacionCompleta.Checked