From 5992f79e09d7b47a0d99d5d8ba4e5a2f03864a7c Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 28 Aug 2021 13:25:25 -0700
Subject: [PATCH] =?UTF-8?q?-validaci=C3=B3n=20de=20contro,=20que=20no=20va?=
 =?UTF-8?q?lide=20por=20la=20fecha=20del=20contrato?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx.vb | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index f64750c45..6ad12601f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -3246,7 +3246,12 @@ Partial Class Ventas
         If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, CveCliente, -1, 1) Then
             If ObjContratos.DtResultados.FiltraParametros("Estatus = True").Rows.Count > 0 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Ped") Or DdlTipoComprobante.SelectedValue.Contiene("Egs", "Dev")) Then
 
-                DtContratos = ObjContratos.DtResultados.FiltraParametros($"Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
+                If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+                    DtContratos = ObjContratos.DtResultados.FiltraParametros($"Estatus = True AND FechaFinal >= '{Now.ToShortDateString}' AND FechaInicial <= '{Now.ToShortDateString}'")
+                Else
+                    DtContratos = ObjContratos.DtResultados.FiltraParametros($"Estatus = True ")
+                End If
+
 
                 If AfterPageLoad Then
                     RegistraScript("window.onload = function MuestraContratos() { document.getElementById(""C_BtnMostrarContrato"").click(); }")
@@ -31426,7 +31431,7 @@ Partial Class Ventas
 
         Dim Respuesta As Boolean = False
 
-        If EscontratoObra Then
+        If EscontratoObra AndAlso PorAmortizacionAnticipo > 0 Then ' si es contrato de obra  y tiene amortización de anticipo
 
             If DdlTipoComprobante.SelectedValue = "Ing" Then
 
@@ -31447,7 +31452,7 @@ Partial Class Ventas
                         Respuesta = True
                     Else
                         Respuesta = False
-                        Alert("Debe de seleccioanr un importe  de amortización.", TipoMensaje.MsgAdvertencia)
+                        Alert("Debe de seleccionar un importe  de amortización.", TipoMensaje.MsgAdvertencia)
                     End If
 
                 Else