Imports Extensiones Imports System.Data Imports System.IO Imports ClosedXML.Excel Partial Class RepContratosObraAvancesDetalle Inherits ClsPaginas 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 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() End If End If End Sub Private Sub CargaDatos() Dim Con As New ClsContratos If Con.GetContratosObraRepAvancesDetalle(CveContrato, UsuarioActual.CveEmpresa) Then GVDatos.DataSource = Con.DtResultados If Con.DtResultados.Rows.Count = 0 Then Alert("No se encontraron estimaciones.", TipoMensaje.MsgAdvertencia) End If Else GVDatos.DataSource = Nothing End If Con.Dispose() GVDatos.DataBind() UpDatos.Update() End Sub '#Region "C O M B O S" ' 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 ' Private Sub CargaClientes() ' Dim dt As DataTable = Nothing ' Dim Cli As New ClsClientes ' If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then ' dt = Cli.DtResultados ' End If ' Cli.Dispose() ' DdlCliente.DataSource = dt ' DdlCliente.DataBind() ' DdlCliente.Items.Insert(0, New ListItem("Todos", "-1")) ' End Sub '#End Region Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound 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 }" Dim LnkAnexo As LinkButton = e.Row.FCLinkButton("LnkAnexo") ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkAnexo) ' NavigateUrl='<%# Eval("CveEstimacion", "RepContratosObraAvancesPartida.aspx?CveEstimacion={0}")%>' End If End Sub 'Protected Sub CmdConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click ' CargaDatos() 'End Sub Protected Sub LnkAnexo_Click(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) Dim CveEstimacion As Integer = GvRow.DataKey("CveEstimacion").ToEntero Dim NumeroEstimacion As Integer = GvRow.DataKey("NumeroEstimacion").ToEntero Dim FechaEstimacion As Date = GvRow.DataKey("FechaEstimacion").ToDate Dim NumeroContrato As String = GvRow.DataKey("NumeroContrato") If CveEstimacion > 0 Then GeneraAnexo(CveEstimacion, NumeroEstimacion, FechaEstimacion, NumeroContrato) End If End Sub Private Sub GeneraAnexo(CveEstimacion As Integer, NumeroEstimacion As Integer, FechaEstimacion As Date, NumeroContrato As String) Dim PlantillaAnexo As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Anexo.xlsx" If Not System.IO.File.Exists(PlantillaAnexo) Then Alert("No se encuentra la platilla de anexos.", TipoMensaje.MsgAdvertencia) Exit Sub End If Dim DtControl As New DataTable Dim ObjContratos As New ClsContratos If ObjContratos.GetContratosObraAvancesControlAcumulativo(CveContrato, CveEstimacion, UsuarioActual.CveEmpresa) Then DtControl = ObjContratos.DtResultados End If ObjContratos.Dispose() If DtControl.Rows.Count > 0 Then Dim WBAnexo = New ClosedXML.Excel.XLWorkbook(PlantillaAnexo) Dim WBAnexoSalvar = New ClosedXML.Excel.XLWorkbook Dim WSControl = WBAnexo.Worksheet(1) Dim WSDetalle = WBAnexo.Worksheet(2) Dim CuerrentRow As Integer = 28 WSControl.Cell(17, 2).Value = NumeroEstimacion 'Estimacion WSControl.Cell(20, 9).Value = FechaEstimacion.ToString("dd/MM/yyyy") 'Fecha estimacion WSControl.Cell(19, 8).Value = "$ " & DtControl.SUM("Importe").ToString("###,###,###.00") 'Total WSControl.Cell(19, 8).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right) WSControl.Cell(20, 6).Value = NumeroContrato WSControl.Cell(18, 2).Value = "" 'Lugar WSControl.Cell(17, 6).Value = "" 'Periodo Fecha Inicial WSControl.Cell(17, 7).Value = "" 'Periuodo Fecha Final WSControl.Cell(20, 2).Value = "" 'Obra WSControl.Cell(22, 7).Value = "" 'Presupuesto segun contrato WSControl.Cell(19, 5).Value = "" 'Contrtatista Dim RowCountControl As Integer = 1 For Each Drow As DataRow In DtControl.Rows WSControl.Cell(CuerrentRow, 1).Value = Drow("Codigo").ToString WSControl.Cell(CuerrentRow, 2).Value = Drow("PS").ToString WSControl.Cell(CuerrentRow, 3).Value = Drow("Abreviatura").ToString WSControl.Cell(CuerrentRow, 4).Value = Drow("Cantidad").ToString.ToDecimal WSControl.Cell(CuerrentRow, 5).Value = Drow("AcumuladoTotal").ToString.ToDecimal WSControl.Cell(CuerrentRow, 6).Value = Drow("AcumuladoAnterior").ToString.ToDecimal WSControl.Cell(CuerrentRow, 7).Value = Drow("CantidadActual").ToString.ToDecimal WSControl.Cell(CuerrentRow, 8).Value = Drow("PU").ToString.ToDecimal WSControl.Cell(CuerrentRow, 9).Value = Drow("Total").ToString.ToDecimal WSControl.Cell(CuerrentRow, 9).Style.NumberFormat.Format = "$ ###,###,###.00" WSControl.Cell(CuerrentRow, 1).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 2).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 3).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 4).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 5).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 6).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 7).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 8).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 9).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 1).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 2).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 3).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 4).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 5).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 6).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 7).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 8).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow, 9).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium 'ultimo Row If DtControl.Rows.Count = RowCountControl Then WSControl.Cell(CuerrentRow + 1, 1).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 2).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 3).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 4).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 5).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 6).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 7).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 8).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 9).Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 1).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 2).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 3).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 4).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 5).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 6).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 7).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 8).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin WSControl.Cell(CuerrentRow + 1, 9).Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium WSControl.Cell(CuerrentRow + 1, 8).Value = "Total:" WSControl.Cell(CuerrentRow + 1, 8).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Right) WSControl.Cell(CuerrentRow + 1, 8).Style.Font.Bold = True WSControl.Cell(CuerrentRow + 1, 9).Value = DtControl.SUM("Total") WSControl.Cell(CuerrentRow + 1, 9).Style.Font.Bold = True WSControl.Cell(CuerrentRow + 1, 9).Style.NumberFormat.Format = "$ ###,###,###.00" Dim range = WSControl.Range($"A{CuerrentRow + 3}:D{CuerrentRow + 3}") range.Merge() range.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) range = WSControl.Range($"E{CuerrentRow + 3}:I{CuerrentRow + 3}") range.Merge() range.Style.Border.TopBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) range = WSControl.Range($"A{CuerrentRow + 4}:D{CuerrentRow + 4}") range.Merge() range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) range.Value = "ING. WALTER ROBERTO VILLEGAS LARES" range = WSControl.Range($"E{CuerrentRow + 4}:I{CuerrentRow + 4}") range.Merge() range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) range.Value = "C. SALVADOR SUAREZ" range = WSControl.Range($"A{CuerrentRow + 5}:D{CuerrentRow + 5}") range.Merge() range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) range.Value = "SERVICIOS ELECTRICOS Y CONTROL DE HERMOSILLO S.A. DE C.V." range.Style.Font.Bold = True range = WSControl.Range($"E{CuerrentRow + 5}:I{CuerrentRow + 5}") range.Merge() range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin range.Style.Border.RightBorder = ClosedXML.Excel.XLBorderStyleValues.Medium range.Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Center) range.Value = "GASERVICIO MATAMOROS SA DE CV" range.Style.Font.Bold = True End If CuerrentRow = CuerrentRow + 1 RowCountControl = RowCountControl + 1 Next WBAnexo.Worksheet(1).CopyTo(WBAnexoSalvar, "CONTROL") For Each Drow As DataRow In DtControl.Rows If Drow("CantidadActual").ToString.ToDecimal > 0 Then WSDetalle.Cell(3, 6).Value = NumeroContrato WSDetalle.Cell(4, 9).Value = "" 'Fecha de WSDetalle.Cell(4, 10).Value = "" 'Fecha a WSDetalle.Cell(4, 11).Value = NumeroEstimacion 'WSDetalle.Picture("Logo").Name = $"Logo{Drow("CveContratoDetalle").ToString}" 'WSDetalle.Picture("Firma").Name = $"Firma{Drow("CveContratoDetalle").ToString}" WSDetalle.Cell(14, 2).Value = Drow("Codigo").ToString WSDetalle.Cell(14, 3).Value = Drow("PS").ToString WSDetalle.Cell(14, 4).Value = Drow("Abreviatura").ToString WSDetalle.Cell(12, 3).Value = "" 'Concepto WSDetalle.Cell(14, 10).Value = Drow("CantidadActual").ToString.ToDecimal WSDetalle.Cell(14, 11).Value = Drow("CantidadActual").ToString.ToDecimal 'WSDetalle.Cell(61, 6).Value = "" 'Empresario WSDetalle.Cell(61, 9).Value = Drow("Nombre").ToString 'Cliente Dim objContrato As New ClsContratos Dim DTArchivos As New DataTable If objContrato.GetContratosAvanceAnexos(Drow("CveContratoDetalle").ToString.ToEntero, Drow("Fecha").ToString, UsuarioActual.CveUsuario, CveEstimacion:=CveEstimacion) Then DTArchivos = objContrato.DtResultados End If objContrato.Dispose() Dim Imagenes As New List(Of ClosedXML.Excel.Drawings.IXLPicture) Dim CurrectRowImg As Integer = 19 'Row 19 primera imggen Dim RowH As Double = WSDetalle.Row(19).Height For Each drowArchivos In DTArchivos.Rows Dim Archivo As String = drowArchivos("Archivo").ToString Dim RutaArchivo As String = $"{UsuarioActual.Empresa.Ruta}\Contrato\{CveContrato}\Anexos\{Archivo}" If File.Exists(RutaArchivo) Then Dim Imagen = WSDetalle.AddPicture(RutaArchivo).MoveTo(WSDetalle.Cell(CurrectRowImg, 3)) Imagen.Scale(WSDetalle.Column(3).Width / (Imagen.OriginalWidth * 0.145D)) Dim ImgWidth As Double = Imagen.Height Dim nRowmas As Integer = ImgWidth / RowH CurrectRowImg = CurrectRowImg + nRowmas Imagenes.Add(Imagen) End If Next WBAnexo.Worksheet(2).CopyTo(WBAnexoSalvar, If(Drow("Codigo").ToString.Trim.Length > 0, Drow("Codigo").ToString, Drow("CvePS").ToString)) For Each img As ClosedXML.Excel.Drawings.IXLPicture In Imagenes img.Delete() Next End If Next Dim msB = New MemoryStream() WBAnexoSalvar.SaveAs(msB) Dim BB As Byte() = msB.ToArray msB.Dispose() Response.Clear() Response.Buffer = True Response.AddHeader("content-disposition", "attachment; filename=Anexo_Estimacion" & NumeroEstimacion & ".xlsx") Response.ContentType = "application/vnd.ms-excel" Response.BinaryWrite(BB) Response.End() Else Alert("No se encontraron datos des control", TipoMensaje.MsgAdvertencia) End If End Sub 'Public Function GetStream(excelWorkbook As ClosedXML.Excel.XLWorkbook) As Stream ' Dim fs = New MemoryStream() ' excelWorkbook.SaveAs(fs) ' fs.Position = 0 ' Return fs 'End Function End Class