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:
Jonathan Alexis Perez Morales
2025-04-12 11:54:05 -07:00
parent 2b7f38ebe9
commit 86b999d521
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Ventas/Clientes.aspx.vb
View File

@@ -2591,22 +2591,27 @@ Partial Class Clientes
InformacionCompleta = False InformacionCompleta = False
End If End If
End If End If
If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False If TxtTelefono.Text.Trim() = "" Then InformacionCompleta = False
If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False If TxtEmail.Text.Trim() = "" Then InformacionCompleta = False
If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
'si es el concepto de pagaré 'SOLO VALIDA EN CLIENTES FRENCUENTE
Dim tPagare As Integer = 0 If DdlTipoCliente.SelectedValue = "1" Then
For Each dRow As GridViewRow In GvDocumentosCliente.Rows If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
Dim CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToEntero() If TxtRepresentanteLegal.Text.Trim() = "" Then InformacionCompleta = False
If CveDocumentacion = 265 Then tPagare = 1 'si es el concepto de pagaré
Next Dim tPagare As Integer = 0
If tPagare = 0 Then InformacionCompleta = False For Each dRow As GridViewRow In GvDocumentosCliente.Rows
tPagare = 0 'valida que cuando menos tenga una cuenta Dim CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToEntero()
For Each dRow As GridViewRow In GvBancosCuentas.Rows If CveDocumentacion = 265 Then tPagare = 1
tPagare = 1 Next
Next If tPagare = 0 Then InformacionCompleta = False
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 'If DivInfoCompleta.Visible Then
' InformacionCompleta = ChkInformacionCompleta.Checked ' InformacionCompleta = ChkInformacionCompleta.Checked