Contratos Autorizacion

Contratos/ContratoObraAutorizacion.aspx.vb

@@ -0,0 +1,659 @@
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.IO
+Imports System.Data
+Imports Newtonsoft.Json
+Imports ClosedXML.Excel
+
+Partial Class Contratos_ContratoObraAutorizacion
+    Inherits ClsPaginas
+
+#Region "Propiedades"
+    Private Property DtDatos As DataTable
+        Get
+            If ViewState("DtDatos") Is Nothing Then
+                Return Nothing
+            Else
+                Return CType(ViewState("DtDatos"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
+
+    Private Property CveContrato As Integer
+        Get
+            If ViewState("CveContrato") Is Nothing Then
+                Return Nothing
+            Else
+                Return ViewState("CveContrato").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveContrato") = value
+        End Set
+    End Property
+
+
+    Private Property CveContratoEstimacion As Integer
+        Get
+            If ViewState("CveContratoEstimacion") Is Nothing Then
+                Return Nothing
+            Else
+                Return ViewState("CveContratoEstimacion").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveContratoEstimacion") = value
+        End Set
+    End Property
+
+    'fecha seleccionada del historico de avances
+    Private Property fecha As String
+        Get
+            If ViewState("fecha") Is Nothing Then
+                Return ""
+            Else
+                Return ViewState("fecha").ToString
+            End If
+        End Get
+        Set(value As String)
+            ViewState("fecha") = value
+        End Set
+    End Property
+
+    Property CveEstimacionNueva As Integer
+        Get
+            If ViewState("CveEstimacionNueva") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveEstimacionNueva").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstimacionNueva") = value
+        End Set
+    End Property
+
+    Property NuemeroEstimacionNuevo As Integer
+        Get
+            If ViewState("NuemeroEstimacionNuevo") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("NuemeroEstimacionNuevo").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("NuemeroEstimacionNuevo") = value
+        End Set
+    End Property
+
+
+    Property CveEstimacionActual As Integer
+        Get
+            If ViewState("CveEstimacionActual") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("CveEstimacionActual").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstimacionActual") = value
+        End Set
+    End Property
+
+    Property NuemeroEstimacionActual As Integer
+        Get
+            If ViewState("NuemeroEstimacionActual") Is Nothing Then
+                Return -1
+            Else
+                Return ViewState("NuemeroEstimacionActual").ToString.ToEntero
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("NuemeroEstimacionActual") = value
+        End Set
+    End Property
+
+
+
+
+#End Region
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+
+        If Not IsPostBack Then
+            CargaContrato()
+        End If
+
+    End Sub
+
+
+
+    Private Sub CargaContrato()
+        DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}"))
+        DDlContratosEstimaciones.DataBind()
+    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 btn As LinkButton = DirectCast(sender, LinkButton)
+        Dim gvr As GridViewRow = DirectCast(btn.NamingContainer, GridViewRow)
+        Dim CveContratoDetalle As Integer = gvr.DataKey("CveContratoDetalle").ToString.ToEntero
+        Dim CveContratoAvance As Integer = gvr.DataKey("CveContratoAvance").ToEntero
+        Dim Fecha As Date = gvr.DataKey("Fecha").ToDate
+
+        Dim objContrato As New ClsContratos
+        If objContrato.GetContratosAvanceAnexos(CveContratoDetalle, UsuarioActual.CveUsuario, CveContratoAvance:=CveContratoAvance) 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)
+
+            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\{DDlContratosEstimaciones.SelectedValue.ToEntero}\Anexos\{Archivo}")
+        Response.End()
+
+    End Sub
+
+
+
+#Region "ESTIMACION"
+
+
+    Private Sub CargaAvancesParaEstimar()
+        CveContratoEstimacion = -1
+
+        Dim ObjContratos As New ClsContratos()
+        Dim DTEstimaciones As New DataTable
+        Dim NumeroEstimacionActual As Integer = 0
+
+        If ObjContratos.GetContratosAvanceEstimacion(DDlContratosEstimaciones.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then
+            DTEstimaciones = ObjContratos.DtResultados
+
+            CveContratoEstimacion = DDlContratosEstimaciones.SelectedValue.ToEntero
+
+
+        End If
+
+
+        ObjContratos.Dispose()
+
+
+        If DTEstimaciones.Rows.Count > 0 Then
+            GvEstimaciones.DataSource = DTEstimaciones
+            ' BtnGuardarEstimacion.Visible = True
+            BtnAutoriza.Visible = True
+        Else
+            GvEstimaciones.DataSource = Nothing
+            BtnGuardarEstimacion.Visible = False
+        End If
+        GvEstimaciones.DataBind()
+
+        UpEstimaciones.Update()
+    End Sub
+
+    Private Sub BtnConsultarEstimaciones_Click(sender As Object, e As EventArgs) Handles BtnConsultarEstimaciones.Click
+
+        CargaAvancesParaEstimar()
+
+    End Sub
+
+    Private Sub GvEstimaciones_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstimaciones.RowDataBound
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero = 0 Then
+
+
+                If e.Row.DBCampo("CveSubFamilias").ToString.ToEntero = 0 Then
+                    If e.Row.DBCampo("CveFamilias").ToString.ToEntero = 0 Then
+                        e.Row.CssClass = "SubTotales"
+                    Else
+                        e.Row.CssClass = "SubTotales2"
+                    End If
+                Else
+                    e.Row.CssClass = "SubTotales3"
+                End If
+
+
+
+
+            End If
+
+            If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero > 0 Then
+                Dim LnkAnexo As LinkButton = e.Row.FCLinkButton("LnkAnexo")
+                Dim LnkEliminarAvance As LinkButton = e.Row.FCLinkButton("LnkEliminarAvance")
+                LnkAnexo.Visible = True
+                LnkEliminarAvance.Visible = True
+            End If
+
+
+
+
+        End If
+
+    End Sub
+
+    Private Sub BtnGuardarEstimacion_Click(sender As Object, e As EventArgs) Handles BtnGuardarEstimacion.Click
+
+        CveEstimacionNueva = -1
+        NuemeroEstimacionNuevo = -1
+
+        Dim ObjContratos As New ClsContratos()
+        Dim ErrorProceso As Boolean = False
+
+        ObjContratos.IniciaTransacSQL()
+
+
+        If ObjContratos.AddContratosAvanceEstimacion(CveContratoEstimacion, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+
+            CveEstimacionNueva = ObjContratos.CveEstimacionNueva
+            NuemeroEstimacionNuevo = ObjContratos.NumeroEstimacionNueva
+
+            For Each GvRow As GridViewRow In GvEstimaciones.Rows
+
+                If GvRow.DataKey("CveContratoAvance").ToEntero > 0 Then
+                    If Not ObjContratos.UpdateContratosAvanceEstimacion(GvRow.DataKey("CveContratoAvance").ToEntero, ObjContratos.CveEstimacionNueva, UsuarioActual.CveEmpresa) Then
+                        ErrorProceso = True
+                        Exit For
+                    End If
+                End If
+            Next
+
+        Else
+            ErrorProceso = True
+        End If
+
+        'AddContratosAvanceEstimacion
+        'UpdateContratosAvanceEstimacion
+
+
+
+        If Not ErrorProceso Then
+            ObjContratos.Commit()
+            Alert($"Estimación {NuemeroEstimacionNuevo} agregada correctamente.")
+
+            BtnGuardarEstimacion.Visible = False
+            BtnDescargarGenerado.Visible = True
+
+        Else
+            ObjContratos.RollBack()
+        End If
+
+        ObjContratos.Dispose()
+
+        UpEstimaciones.Update()
+    End Sub
+
+    Private Sub BtnDescargarGenerado_Click(sender As Object, e As EventArgs) Handles BtnDescargarGenerado.Click
+
+        GeneraAnexo(CveEstimacionNueva, NuemeroEstimacionNuevo, Now, DDlContratosEstimaciones.SelectedItem.Text)
+
+    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
+        Dim Lugar As String = ""
+        Dim DescripcionContrato As String = ""
+
+
+        If ObjContratos.GetContratosObraAvancesControlAcumulativo(CveContrato, CveEstimacion, UsuarioActual.CveEmpresa) Then
+            DtControl = ObjContratos.DtResultados
+            If DtControl.Rows.Count > 0 Then
+                Lugar = DtControl(0)("Lugar").ToString
+                DescripcionContrato = DtControl(0)("DescripcionContrato").ToString
+            End If
+        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(18, 2).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Left)
+            WSControl.Cell(18, 2).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Top)
+
+            WSControl.Cell(17, 6).Value = "" 'Periodo Fecha Inicial
+            WSControl.Cell(17, 7).Value = "" 'Periuodo Fecha Final
+            WSControl.Cell(20, 2).Value = DescripcionContrato
+            WSControl.Cell(20, 2).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Left)
+            WSControl.Cell(20, 2).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Top)
+
+            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.Cell(6, 6).Value = DescripcionContrato
+
+                    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, 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 As DataRow In DTArchivos.Rows
+
+                        Dim Archivo As String = ""
+                        Archivo = 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).ToEntero
+
+                            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
+
+
+
+
+
+
+#End Region
+
+
+
+
+
+    Protected Sub LnkEliminarAvance_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+        Dim CveContratoAvance As Integer = GvRow.DataKey("CveContratoAvance").ToEntero
+        Dim ErrorProceso As Boolean = True
+
+
+
+        Dim ObjContrato As New ClsContratos
+
+        If ObjContrato.RemoveContratosAvance(CveContratoAvance, UsuarioActual.CveEmpresa) Then
+            ErrorProceso = False
+        End If
+
+        ObjContrato.Dispose()
+
+        If Not ErrorProceso Then
+
+            CargaAvancesParaEstimar()
+            Alert("Avance elimiando correctamente.")
+        End If
+
+
+
+    End Sub
+End Class
+
+
+