-

Ventas/Clientes.aspx.vb

@@ -2584,24 +2584,28 @@ Partial Class Clientes
         Dim InformacionCompleta As Boolean = True
         'validación de información completa
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
+            Dim tPagare As Integer = 0
             If TxtRFC.Text.Trim() = "" Then InformacionCompleta = False
             If ChkPermiteCredito.Checked Then
                 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
+                'si es el concepto de pagaré
+                tPagare = 0
+                For Each dRow As GridViewRow In GvDocumentosCliente.Rows
+                    Dim CveDocumentacion As Integer = dRow.DataKey("CveDocumentacion").ToEntero()
+                    If CveDocumentacion = 265 Then
+                        If dRow.FCTextBox("TxtFechaVigencia").Text.ToDate > Now Then tPagare = 1
+                    End If
+                Next
+                If tPagare = 0 Then InformacionCompleta = False
+
             End If
             If TxtContacto.Text.Trim() = "" Then InformacionCompleta = False
             If TxtTelefono.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é
+
-            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