From 4f99d54c9c45b91b1020bc9305f58714660522d7 Mon Sep 17 00:00:00 2001
From: JPerez <jonathan.perez@asdsistemas.mx>
Date: Tue, 17 Jun 2025 12:01:01 -0700
Subject: [PATCH] =?UTF-8?q?--Cambios=20informaci=C3=B3n=20completa?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Clientes.aspx    |  2 +-
 Ventas/Clientes.aspx.vb | 18 +++++++++++++-----
 2 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 97a0b5725..e3f74c920 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -2569,7 +2569,7 @@
                             <div class="portlet-body ">
                                 <asp:UpdatePanel ID="UpCuentasBancos" runat="server" UpdateMode="Conditional">
                                     <ContentTemplate>
-                                        <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,CveMoneda,Estatus" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
+                                        <asp:GridView ID="GvBancosCuentas" GridLines="None" BorderColor="#D3D3D3" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" runat="server" DataKeyNames="CveCuentaDeposito,BancoNombre,Sucursal,Cuenta,CLABE,SWIFT,Plaza,CIE,Referencia,CveMoneda,Estatus,EstatusTexto" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Cuentas Bancarias">
                                             <Columns>
                                                 <asp:TemplateField ItemStyle-HorizontalAlign="Left" HeaderText="Banco" ItemStyle-CssClass="Excede">
                                                     <ItemTemplate>
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 52440f082..3b4e5846f 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2592,6 +2592,7 @@ Partial Class Clientes
                 If TxtLimiteCredito.Text.ToDecimal = 0 OrElse TxtCobranzaContacto.Text.Trim = "" OrElse TxtCobranzaTelefono.Text.Trim = "" OrElse TxtDiasEspecifico.Text.Trim = "" OrElse TxtCobranzaCorreo.Text.Trim = "" Then
                     InformacionCompleta = False
                 End If
+                If DdlTipoPago.SelectedValue.ToEntero <= 0 Then InformacionCompleta = False
                 'si es el concepto de pagaré
                 tPagare = 0
                 For Each dRow As GridViewRow In GvDocumentosCliente.Rows
@@ -2601,18 +2602,25 @@ 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 FRECUENTE
             If DdlTipoCliente.SelectedValue = "1" Then
+                If GvClentesPersonalEntrega.Rows.Count = 0 Then InformacionCompleta = False
+                'VALIDACIONES DE BANCOS
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("EstatusTexto") = "Activo") Then InformacionCompleta = False
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("CLABE") <> "") Then InformacionCompleta = False
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("BancoNombre") <> "") Then InformacionCompleta = False
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("Sucursal") <> "") Then InformacionCompleta = False
+                If Not GvBancosCuentas.Rows.Cast(Of GridViewRow).Any(Function(c) c.DataKey("Cuenta") <> "") Then InformacionCompleta = False
+
                 If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
                 If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
-
             End If
+
+            If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False
+            If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False
+
         End If
 
         'CargaSucursal()