diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 320c35caf..97a0b5725 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -1901,9 +1901,9 @@
- - - + + +
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 66f54796e..314227341 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -2609,18 +2609,6 @@ Partial Class Clientes 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