AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--FIX informacion completa

Browse Source
This commit is contained in:
JPerez
2025-06-18 18:34:23 -07:00
parent 51d2175d80
commit 9e01f6f848
2 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/Clientes.aspx.vb
View File

@@ -2592,7 +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
If DdlTipoPago.SelectedValue = "-1" Then InformacionCompleta = False
'si es el concepto de pagaré
tPagare = 0
For Each dRow As GridViewRow In GvDocumentosCliente.Rows
@@ -2611,11 +2611,12 @@ Partial Class Clientes
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("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
If DdlClasificacion.SelectedValue.ToEntero() <= 0 Then InformacionCompleta = False
End If
If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False

3
Ventas/Ventas.aspx.vb
View File

@@ -8423,7 +8423,8 @@ Partial Class Ventas
Dim ObjClie As New ClsClientes
If ObjClie.GetClienteInformacionCompleta(CveCliente, UsuarioActual.CveEmpresa) Then
If Not CBool(ObjClie.DtResultados.FiltroPrimeroValor("InformacionCompleta")) Then
Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0}", "Información incompleta")
Dim Faltante As String = ObjClie.DtResultados.FiltroPrimeroValor("Faltante")
Dim OpcionMsg As String = String.Format("El Cliente se encuentra bloqueado por la siguiente razón: <br> <br> {0} <br><br> Falta la siguiente información: <br>{1}", "Información incompleta", Faltante)
Alert(OpcionMsg, TipoMensaje.MsgAdvertencia)
TieneBloqueoPorCreditoVencimiento = 1
End If