-- E140 - candado de información completa

Ventas/Clientes.aspx.vb

@@ -2582,16 +2582,35 @@ Partial Class Clientes
         End If
 
         Dim InformacionCompleta As Boolean = True
-
+        'validación de información completa
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
 
-            If TxtRFC.Text.Trim() = "" Then
-                InformacionCompleta = False
+            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
             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
+            Next
+            If tPagare = 0 Then InformacionCompleta = False
 
-            If DivInfoCompleta.Visible Then
-                InformacionCompleta = ChkInformacionCompleta.Checked
-            End If
+            'If DivInfoCompleta.Visible Then
+            '    InformacionCompleta = ChkInformacionCompleta.Checked
+            'End If
         End If
 
         'CargaSucursal()
@@ -2647,8 +2666,6 @@ Partial Class Clientes
             Dim FechaLimiteCredito As Date = If(TxtFechaLimiteCredito.Text.Trim.Length > 0, TxtFechaLimiteCredito.Text.ToDate, New Date(1900, 1, 1))
             Dim GeneroCliente As Boolean = If(DdlGeneroCliente.SelectedValue.ToEntero = 1 Or DdlGeneroCliente.SelectedValue.ToEntero = -1, True, False)
 
-
-
             'If DivCrearPrecioLista.Visible AndAlso ChkCrearPrecioLista.Checked Then
             '    CvePrecioListaNuevo = ObjVentas.AddPrecioLista(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtPrecioLista.Text, 0)
             '    If CvePrecioListaNuevo > 0 Then