From b9ad9e8b47f9b33e813259c6b63d93269c9a3b62 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 5 Nov 2020 20:03:08 -0700 Subject: [PATCH] Rep portes Contratos obra --- App_Code/ClsContratos.vb | 5 +- Contratos/RepContratosObraAvances.aspx | 4 +- Contratos/RepContratosObraAvances.aspx.vb | 5 ++ Contratos/RepContratosObraAvancesDetalle.aspx | 10 ++- .../RepContratosObraAvancesDetalle.aspx.vb | 5 ++ Contratos/RepContratosObraAvancesPartida.aspx | 62 ++++++++++++++- .../RepContratosObraAvancesPartida.aspx.vb | 79 +++++++++++++++++++ 7 files changed, 160 insertions(+), 10 deletions(-) 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 @@
-
+
+ +
+ +
" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> " class="btn btn-circle btn-sm label-info"> @@ -114,12 +118,12 @@
- + diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx.vb b/Contratos/RepContratosObraAvancesDetalle.aspx.vb index 92000aff3..d17028e61 100644 --- a/Contratos/RepContratosObraAvancesDetalle.aspx.vb +++ b/Contratos/RepContratosObraAvancesDetalle.aspx.vb @@ -26,6 +26,7 @@ Partial Class RepContratosObraAvancesDetalle If Not Page.IsPostBack Then CveContrato = If(Request("CveContrato") IsNot Nothing AndAlso Request("CveContrato").ToString.ToEntero > 0, Request("CveContrato").ToString.ToEntero, -1) + LblNumeroContrato.Text = If(Request("NumeroContrato") IsNot Nothing AndAlso Request("NumeroContrato").ToString.Length > 0, $"Numero Contrato: {Request("NumeroContrato").ToString}", "") If CveContrato > 0 Then CargaDatos() @@ -83,6 +84,10 @@ Partial Class RepContratosObraAvancesDetalle If e.Row.RowType = DataControlRowType.DataRow Then + Dim HplNumeroEstimacion As HyperLink = e.Row.FCHyperLink("HplNumeroEstimacion") + HplNumeroEstimacion.NavigateUrl = $"./RepContratosObraAvancesPartida.aspx?CveEstimacion={e.Row.DataKey("CveEstimacion")}&NumeroEstimacion={ e.Row.DataKey("NumeroEstimacion")}&CveContrato={ CveContrato }" + + ' NavigateUrl='<%# Eval("CveEstimacion", "RepContratosObraAvancesPartida.aspx?CveEstimacion={0}")%>' End If End Sub diff --git a/Contratos/RepContratosObraAvancesPartida.aspx b/Contratos/RepContratosObraAvancesPartida.aspx index 942b61561..31ffcfad3 100644 --- a/Contratos/RepContratosObraAvancesPartida.aspx +++ b/Contratos/RepContratosObraAvancesPartida.aspx @@ -54,8 +54,12 @@
+ +
+ +
-
+
" style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> " class="btn btn-circle btn-sm label-info"> @@ -70,7 +74,7 @@
@@ -103,10 +107,15 @@ - + + + + + + <%-- @@ -149,6 +158,53 @@ + 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