diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 0fe3e20d1..277667dc0 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -195,7 +195,8 @@ Public Class ClsCompras
                               AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer, CvePrePoliza As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional IdPoliza As Integer = -1,
                               Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
                               Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
-                              Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1) As Boolean
+                              Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
+                              Optional CveContrato As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -246,6 +247,7 @@ Public Class ClsCompras
             .Add("@TotalOriginal", SqlDbType.Money).Value = TotalOriginal
             .Add("@CveTipoConcepto", SqlDbType.Int).Value = CveTipoConcepto
             .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
         End With
 
         Try
@@ -267,10 +269,9 @@ Public Class ClsCompras
         Return Retorno
     End Function
     Public Function UpdateCompra(Descripcion As String, FolioSecundario As String, FechaVencimiento As Date, AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer,
-                                 Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer,
-                                 CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1,
-                                 Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0,
-                                 Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveFactura As Integer = -1) As Boolean
+                                 Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer, CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1,
+                                 Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0, Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False,
+                                 Optional CveFactura As Integer = -1, Optional CveContrato As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -297,6 +298,7 @@ Public Class ClsCompras
             .Add("@CveTipoCompra", SqlDbType.Int).Value = CveTipoCompra
             .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
             .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
         End With
 
         Try
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index d0118d925..b5bfea7dd 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -80,6 +80,17 @@
                 </ContentTemplate>
             </asp:UpdatePanel>
 
+
+            <asp:UpdatePanel runat="server" ID="UpAccionesContratos" UpdateMode="Conditional">
+                <ContentTemplate>
+
+                    <li runat="server" visible="false" id="LiAccionesContratos">
+                        <asp:LinkButton ID="LnkContratos" OnClick="LnkContratos_Click"  runat="server"><i class='fa fa-th-list'></i> Contratos</asp:LinkButton>
+                    </li>
+
+                </ContentTemplate>
+            </asp:UpdatePanel>
+
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkExportaGv" />
@@ -5134,10 +5145,60 @@
                         </div>
                     </div>
                 </div>
+
+
+
+
+
+
+
+
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
 
+
+ <div id="DvModalContratos" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+
+            <!-- Modal content-->
+            <div class="modal-content" style="width: 500px; margin-left: 50px;">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Contratos de Obra</h4>
+                </div>
+
+                <div class="modal-body">
+                    <asp:UpdatePanel runat="server" ID="UpModalcontratos">
+                        <ContentTemplate>
+                           
+                            
+                            <div class="row">
+                                 
+                                <div class="col-md-2" style="text-align: center; margin-top: 5px">
+                                   Contrato:
+                                </div>
+                                <div class="col-md-10">
+                                     <asp:DropDownList ID="DdlContrato" runat="server"  DataTextField="ContratoCompleto" DataValueField="CveContrato" Class="select2me" Width="100%" ></asp:DropDownList>                                    
+                                </div>
+                                <div class="col-md-5"></div>
+                            </div>
+                          
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server">
+                        <ContentTemplate>
+                            <asp:Button ID="BtnModalContratos" OnClick="BtnModalContratos_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
+        </div>
+    </div>
+
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="server">
     <script src="/Metronic/assets/global/plugins/jquery.pulsate.min.js"></script>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index af6b2a37b..596aa860d 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1165,6 +1165,26 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+
+    Private Property CveContratoObra As Integer
+        Get
+            If ViewState("CveContratoObra") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveContratoObra").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveContratoObra") = value
+        End Set
+    End Property
+
+
+
+
+
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip")
@@ -1186,6 +1206,7 @@ Partial Class Compras_Compras
             CveConceptoContableAlmacen = 0
             EsNoDeducible = False
             CveTipoConcepto = 1
+            CargaContratos()
             '******** Prorrateo ********************************************
             If UsuarioActual.Empresa.Funcionalidad(117) <> "" Then
                 btnProrateo.Visible = True
@@ -1442,6 +1463,8 @@ Partial Class Compras_Compras
                 DivEsNoDeducible.Visible = True
                 DivActualizarVincular.Visible = True
 
+                'LiAccionesContratos.Visible = False
+
             Else
 
                 ViewState("CveProveedor") = -1
@@ -4636,7 +4659,7 @@ Partial Class Compras_Compras
                               TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
                                                     CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
                                                     AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
-                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto) Then
+                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto, CveContrato:=CveContratoObra) Then
 
                                 ViewState("CveCompra") = ObjCompras.CveCompra
                                 If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
@@ -16597,12 +16620,19 @@ Partial Class Compras_Compras
 
     Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
 
+        LiAccionesContratos.Visible = False
 
         If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
 
             If DdlTipoComprobante.SelectedValue = "NC" Then
                 DivReembolso.Visible = False
                 RBLPago.Items(2).Enabled = False
+
+
+                If Not CveCompra > 0 Then
+                    LiAccionesContratos.Visible = True
+                End If
+
             Else
                 DivReembolso.Visible = True
                 RBLPago.Items(2).Enabled = True
@@ -16626,6 +16656,8 @@ Partial Class Compras_Compras
 
         End If
 
+
+        UpAccionesContratos.Update()
         UPCondicionesPago.Update()
 
     End Sub
@@ -20441,6 +20473,24 @@ Partial Class Compras_Compras
         End If
         Return True
     End Function
+
+
+    Private Sub CargaContratos()
+        DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31)	")
+        DdlContrato.DataBind()
+        DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
+    End Sub
+
+    Protected Sub BtnModalContratos_Click(sender As Object, e As EventArgs)
+
+        RegistraScript("$('#DvModalContratos').modal('hide');")
+        CveContratoObra = DdlContrato.SelectedValue.ToEntero
+
+
+    End Sub
+    Protected Sub LnkContratos_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DvModalContratos').modal('show');")
+    End Sub
 End Class
 
 Public Class MMensajeDevolucion