--FIX clientes
This commit is contained in:
@@ -2606,18 +2606,7 @@ Partial Class Clientes
|
||||
If DdlTipoCliente.SelectedValue = "1" Then
|
||||
If TxtContacto.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
|
||||
For Each dRow As GridViewRow In GvBancosCuentas.Rows
|
||||
tPagare = 1
|
||||
Next
|
||||
If tPagare = 0 Then InformacionCompleta = False
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Reference in New Issue
Block a user