-

Ventas/Clientes.aspx.vb

@@ -1765,8 +1765,6 @@ Partial Class Clientes
                     If array(4) = "1" Then ChkRevViernes.Checked = True
                     If array(5) = "1" Then ChkRevSabado.Checked = True
                 End If
-
-
                 ChkInformacionCompleta.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("InformacionCompleta").ToString())
 
                 'Horario
@@ -2578,7 +2576,6 @@ Partial Class Clientes
 
             Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
             Exit Sub
-
         End If
 
         Dim InformacionCompleta As Boolean = True
@@ -2599,33 +2596,22 @@ Partial Class Clientes
                     End If
                 Next
                 If tPagare = 0 Then InformacionCompleta = False
+                If GvClentesPersonalEntrega.Rows.Count = 0 Then InformacionCompleta = False
 
             End If
-
             If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False
             If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False
 
-            'SOLO VALIDA EN CLIENTES FRENCUENTE
+            'SOLO VALIDA EN CLIENTES FRECUENTE
             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
-            'End If
         End If
 
         'CargaSucursal()