diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index 5b3539533..4aa1fc0a5 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -1154,14 +1154,15 @@ Public Class ClsContratos
Return Retorno
End Function
- Public Function GetContratosAvanceAnexos(CveContratoDetalle As Integer, fecha As String, CveUsuario As Integer) As Boolean
+ Public Function GetContratosAvanceAnexos(CveContratoDetalle As Integer, fecha As String, CveUsuario As Integer, Optional CveEstimacion As Integer = -1) As Boolean
Dim Retorno = False
DataAdapter("PA_Con_ContratosAvanceAnexos")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
.Add("@Fecha", SqlDbType.Date).Value = fecha
- .Add("@CveUsuario", SqlDbType.Float).Value = CveUsuario
+ .Add("@CveUsuario", SqlDbType.Float).Value = CveUsuario
+ .Add("@CveEstimacion", SqlDbType.Float).Value = CveEstimacion
End With
Try
diff --git a/Contratos/RepContratosObraAvances.aspx b/Contratos/RepContratosObraAvances.aspx
index 6d112bbfd..5587ae0af 100644
--- a/Contratos/RepContratosObraAvances.aspx
+++ b/Contratos/RepContratosObraAvances.aspx
@@ -113,7 +113,7 @@
@@ -129,7 +129,7 @@
-
+
diff --git a/Contratos/RepContratosObraAvances.aspx.vb b/Contratos/RepContratosObraAvances.aspx.vb
index 354b94859..6215f5a5a 100644
--- a/Contratos/RepContratosObraAvances.aspx.vb
+++ b/Contratos/RepContratosObraAvances.aspx.vb
@@ -61,6 +61,11 @@ Partial Class RepContratosObraAvances
If e.Row.RowType = DataControlRowType.DataRow Then
+ Dim HplContratado As HyperLink = e.Row.FCHyperLink("HplContratado")
+
+ HplContratado.NavigateUrl = $"./RepContratosObraAvancesDetalle.aspx?CveContrato={e.Row.DataKey("CveContrato")}&NumeroContrato={e.Row.DataKey("NumeroContrato")}"
+
+
End If
End Sub
diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx b/Contratos/RepContratosObraAvancesDetalle.aspx
index 793e02781..9a193cfdc 100644
--- a/Contratos/RepContratosObraAvancesDetalle.aspx
+++ b/Contratos/RepContratosObraAvancesDetalle.aspx
@@ -99,7 +99,11 @@
diff --git a/Contratos/RepContratosObraAvancesPartida.aspx.vb b/Contratos/RepContratosObraAvancesPartida.aspx.vb
index 98e7cab37..07287f5ab 100644
--- a/Contratos/RepContratosObraAvancesPartida.aspx.vb
+++ b/Contratos/RepContratosObraAvancesPartida.aspx.vb
@@ -23,11 +23,32 @@ Partial Class RepContratosObraAvancesPartida
End Property
+
+ Property CveContrato As Integer
+
+ Get
+ If ViewState("CveContrato") Is Nothing Then
+ Return -1
+ Else
+ Return ViewState("CveContrato").ToString.ToEntero
+ End If
+ End Get
+ Set(value As Integer)
+ ViewState("CveContrato") = value
+ End Set
+
+
+ End Property
+
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
CveEstimacion = If(Request("CveEstimacion") IsNot Nothing AndAlso Request("CveEstimacion").ToString.ToEntero > 0, Request("CveEstimacion").ToString.ToEntero, -1)
+ CveContrato = If(Request("CveContrato") IsNot Nothing AndAlso Request("CveContrato").ToString.ToEntero > 0, Request("CveContrato").ToString.ToEntero, -1)
+
+ LblEstimacion.Text = If(Request("NumeroEstimacion") IsNot Nothing AndAlso Request("NumeroEstimacion").ToString.Length > 0, $"Numero Estimacion: {Request("NumeroEstimacion").ToString}", "")
+
If CveEstimacion > 0 Then
CargaDatos()
@@ -68,4 +89,62 @@ Partial Class RepContratosObraAvancesPartida
End Sub
+ Protected Sub GetAnexos(sender As Object, e As System.EventArgs)
+ Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+
+ LblTituloModalAnexo.Text = "Anexo " & GvRow.DataKey("PS")
+
+ 'Get the button that raised the event
+ 'Dim CveContratoDetalle As Integer = gvr.DataKey("CveContratoDetalle").ToString.ToEntero
+ Dim Fecha As Date = GvRow.DataKey("Fecha").ToDate
+ Dim CveEstimacion As Integer = GvRow.DataKey("CveEstimacion").ToEntero
+ Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToEntero
+
+ Dim objContrato As New ClsContratos
+ If objContrato.GetContratosAvanceAnexos(CveContratoDetalle, Fecha, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then
+ GvAnexos.DataSource = objContrato.DtResultados
+ GvAnexos.DataBind()
+ GvAnexos.Visible = True
+ Else
+ GvAnexos.Visible = False
+ End If
+
+ objContrato.Dispose()
+
+ UpModalAnexos.Update()
+
+ RegistraScript("$('#ModalAnexos').modal('show');")
+
+ End Sub
+
+ Protected Sub GvAnexos_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) Handles GvAnexos.RowDataBound
+
+ If e.Row.RowIndex > -1 Then
+ Dim Archivo As String = e.Row.DBCampo("Archivo").ToString
+ Dim start As Integer = Len(Archivo.Split("-"c)(0))
+ Dim LnkArchivo As LinkButton = e.Row.FCLinkButton("LnkArchivo")
+
+ LnkArchivo.Text = Archivo.Substring(start + 1)
+ 'link.NavigateUrl = String.Format("/Empresas/{0}/Contrato/{1}/Anexos/{2}", UsuarioActual.CveEmpresa, CveContrato, Archivo)
+
+ ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkArchivo)
+ End If
+
+ End Sub
+
+ Protected Sub LnkArchivo_Click(sender As Object, e As EventArgs)
+
+ Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+ Dim Archivo As String = GvRow.DataKey("Archivo").ToString
+
+ Response.ContentType = "application/octet-stream"
+ Response.AppendHeader("Content-Disposition", $"attachment; filename={Archivo}")
+ Response.TransmitFile($"{UsuarioActual.Empresa.Ruta}\Contrato\{CveContrato}\Anexos\{Archivo}")
+ Response.End()
+
+ End Sub
+
+
End Class