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

-

Browse Source
This commit is contained in:
rrene
2025-04-14 17:53:47 -07:00
parent 1204638151
commit d034c3b262
1 changed files with 2 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Ventas/Clientes.aspx.vb
View File

@@ -1765,8 +1765,6 @@ Partial Class Clientes
If array(4) = "1" Then ChkRevViernes.Checked = True If array(4) = "1" Then ChkRevViernes.Checked = True
If array(5) = "1" Then ChkRevSabado.Checked = True If array(5) = "1" Then ChkRevSabado.Checked = True
End If End If
ChkInformacionCompleta.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("InformacionCompleta").ToString()) ChkInformacionCompleta.Checked = Boolean.Parse(ObjClientes.DtResultados(0)("InformacionCompleta").ToString())
'Horario 'Horario
@@ -2578,7 +2576,6 @@ Partial Class Clientes
Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia) Alert("El uso del cfdi debe ser <b>'S01 - Sin efectos fiscales'</b> cuando se utiliza el RFC genérico.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Dim InformacionCompleta As Boolean = True Dim InformacionCompleta As Boolean = True
@@ -2599,33 +2596,22 @@ Partial Class Clientes
End If End If
Next Next
If tPagare = 0 Then InformacionCompleta = False If tPagare = 0 Then InformacionCompleta = False
If GvClentesPersonalEntrega.Rows.Count = 0 Then InformacionCompleta = False
End If End If
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
'SOLO VALIDA EN CLIENTES FRENCUENTE 'SOLO VALIDA EN CLIENTES FRECUENTE
If DdlTipoCliente.SelectedValue = "1" Then If DdlTipoCliente.SelectedValue = "1" Then
If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
If TxtRepresentanteLegal.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 tPagare = 0 'valida que cuando menos tenga una cuenta
For Each dRow As GridViewRow In GvBancosCuentas.Rows For Each dRow As GridViewRow In GvBancosCuentas.Rows
tPagare = 1 tPagare = 1
Next Next
If tPagare = 0 Then InformacionCompleta = False If tPagare = 0 Then InformacionCompleta = False
End If End If
'If DivInfoCompleta.Visible Then
' InformacionCompleta = ChkInformacionCompleta.Checked
'End If
End If End If
'CargaSucursal() 'CargaSucursal()