Contatos Compras

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