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

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