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