Option Explicit On
Option Strict On

Imports System.Data
Imports System.IO
Imports Extensiones
Imports GemBox.Spreadsheet
Imports Microsoft.Reporting.WebForms

Partial Class AF_TipoOrdenTrabajo
    Inherits ClsPaginas

#Region " PROPIEDADES"

    Property CveOrdenTrabajo As Integer
        Get
            If ViewState("CveOrdenTrabajo") Is Nothing Then
                Return -1
            Else
                Return ViewState("CveOrdenTrabajo").ToString.ToEntero
            End If
        End Get
        Set(value As Integer)
            ViewState("CveOrdenTrabajo") = value
        End Set
    End Property




#End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then


            If Request("CveOrdenTrabajo") IsNot Nothing Then
                CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero
            End If

            CargaCombos()
        End If
    End Sub


#Region " CARGA PARAMETROS "

#End Region

#Region "  CARGA COMBOS  "
    Protected Sub CargaCombos()

        Dim ObjAF As New ClsAF

        If ObjAF.GetTiposMantenimiento(-1) Then
            DdlTipoMantenimiento.DataSource = ObjAF.DtResultados
        Else
            DdlTipoMantenimiento.DataSource = Nothing
        End If

        ObjAF.Dispose()

        DdlTipoMantenimiento.DataBind()
        DdlTipoMantenimiento.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

        UpFiltro.Update()



    End Sub


#End Region

#Region "  CARGA DATOS  "
    'Protected Sub BtnFiltrar_Click(sender As Object, e As EventArgs)
    '    CargaDatos()

    'End Sub


#End Region

#Region "  GV DATOS  "

    Private Sub CargaDatos()

        Dim ObjAF As New ClsAF


        ObjAF.Dispose()


    End Sub



    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs)

        If e.Row.RowType = DataControlRowType.DataRow Then



        End If

    End Sub

#End Region




    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)

    End Sub




#Region "DESCARGA EXCEL"

    'Public Sub ExportToExcelG(Gv1 As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100, Optional filtros As String = "")



    '    For Each GvRow As GridViewRow In Gv1.Rows

    '        Dim IDX_LIMPIAR As Integer = 1

    '        For IDX_LIMPIAR = 1 To 15
    '            GvRow.Cells(IDX_LIMPIAR).Text = GvRow.FCTextBox($"TxtMetrica{IDX_LIMPIAR}").Text
    '        Next

    '        If GvRow.FCDropDownList("DDLPersonal").SelectedValue.ToEntero > 0 Then
    '            GvRow.Cells(16).Text = GvRow.FCDropDownList("DDLPersonal").SelectedItem.Text
    '        Else
    '            GvRow.Cells(16).Text = ""
    '        End If

    '    Next



    '    Dim sw1 As New StringWriter()
    '    Dim htw1 As New HtmlTextWriter(sw1)
    '    Gv1.RenderControl(htw1)

    '    Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
    '    Dim htmlStream1 = New MemoryStream(options.Encoding.GetBytes(sw1.ToString()))

    '    htmlStream1.Position = 0
    '    Dim sr1 As New StreamReader(htmlStream1)
    '    Dim myStr1 = sr1.ReadToEnd()

    '    sr1.Dispose()
    '    htmlStream1.Dispose()
    '    sw1.Dispose()

    '    Dim HtmlCompleto As String = myStr1


    '    HtmlCompleto = Regex.Replace(HtmlCompleto, "\<[\/]*a[^\>]*\>", "")

    '    Dim asd As String = ""


    '    Dim htmlStream5 = New MemoryStream(options.Encoding.GetBytes(HtmlCompleto))

    '    GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet())

    '    Dim excel As GemBox.Spreadsheet.ExcelFile

    '    excel = GemBox.Spreadsheet.ExcelFile.Load(htmlStream5, options)

    '    If Usuario IsNot Nothing Then
    '        Dim TotalRowHeader As Integer = 8
    '        Dim TotalRowFooter As Integer = 2

    '        Dim worksheet = excel.Worksheets(0)
    '        worksheet.Rows.InsertEmpty(0, TotalRowHeader)
    '        Dim celdasConTexto = worksheet.GetUsedCellRange(True)
    '        celdasConTexto.Style.Font.Name = "Calibri Light"

    '        Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
    '        RangoNombreEmpresa.Merged = True
    '        RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
    '        RangoNombreEmpresa.Style.Font.Size = 18 * 20
    '        RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
    '        RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
    '        RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center


    '        Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
    '        RangoFiltros.Merged = True
    '        RangoFiltros.Value = filtros
    '        RangoFiltros.Style.Font.Size = 15 * 20
    '        RangoFiltros.Style.Font.Name = "Calibri Light"
    '        RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
    '        RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center


    '        Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
    '        RangoTitulo.Merged = True
    '        RangoTitulo.Value = Titulo
    '        RangoTitulo.Style.Font.Size = 20 * 20
    '        RangoTitulo.Style.Font.Name = "Calibri Light"
    '        RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
    '        RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center

    '        For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
    '            worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20
    '            worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
    '            worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center

    '            worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
    '            worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)




    '            If i > 0 Then
    '                Try
    '                    worksheet.Columns(i).AutoFit(1)
    '                Catch ex As Exception
    '                End Try
    '            End If

    '        Next

    '        Dim IndexEndTable As Integer = Gv1.Rows.Count + 4 + TotalRowHeader + TotalRowFooter

    '        worksheet.Rows(IndexEndTable).Cells(0).Value = "Usuario Imprimió"
    '        worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre

    '        worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
    '        worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")

    '        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))

    '        If Imagen.Exists Then
    '            Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)
    '            Using sr As New StreamReader(Ruta)
    '                Dim ms As New MemoryStream()
    '                sr.BaseStream.CopyTo(ms)
    '                worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel)
    '            End Using
    '        End If

    '    End If




    '    Dim memoryStream As New MemoryStream()
    '    excel.Save(memoryStream, SaveOptions.XlsxDefault)
    '    ReporteBytes = memoryStream.ToArray()
    '    memoryStream.Dispose()

    'End Sub


    'Protected Sub LnkDescargaReporte_Click(sender As Object, e As EventArgs)


    '    Response.ContentType = "application/force-download"
    '    Response.AppendHeader("Content-Disposition", $"attachment;filename=RegistroRevision{Now.ToString("yyyyMMddmmss")}.xlsx")
    '    Response.BinaryWrite(ReporteBytes)
    '    Response.End()

    'End Sub


    'Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
    'End Sub

#End Region



End Class