SIG/Acumuladores/EntradasUsadosResumenRep.aspx.vb

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

Partial Class Acumuladores_RepEntradasUsados
    Inherits ClsPaginas

    Private DiasSemana(7) As String
    Private Meses(12) As String

    Private Property DatosEntradasUsados() As DataTable
        Get
            Return CType(ViewState("DatosEntradasUsados"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DatosEntradasUsados") = value
        End Set
    End Property

    Protected Sub Page_Load() Handles Me.Load
        If Not IsPostBack Then
            txtFechaI.Text = Today.AddDays((-1) * (Today.Day - 1))
            txtFechaF.Text = Today
            CargarDatos()
            CargarCombos()


        End If
    End Sub

    Protected Sub CargarDatos()
        DdlAlmacenes.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen = 22")
        DdlAlmacenes.DataBind()
    End Sub

    Protected Sub CargarCombos()
        Dim ObjAcum As New ClsAcumuladores
        Dim fecha As Date = Date.Now.AddMonths(-1)
        ObjAcum.GetAñosVentas(UsuarioActual.CveEmpresa)
        DdlAño.DataSource = ObjAcum.DtResultados
        DdlAño.DataBind()
        DdlAño.SelectedValue = fecha.Year.ToEntero
        ObjAcum.Dispose()

        DdlMes.SelectedValue = fecha.Month.ToEntero
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        Dim ObjAcum As New ClsAcumuladores

        If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, DdlAlmacenes.SelectedValue.ToEntero, txtFechaI.Text, txtFechaF.Text) Then
            GvAcum.DataSource = ObjAcum.DtResultados
            DatosEntradasUsados = ObjAcum.DtResultados

        End If
        ObjAcum.Dispose()
        GvAcum.DataBind()

    End Sub

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


        Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2))
        Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1)

        Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today))

        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("Direccion", "dirección"))
        params.Add(New ReportParameter("FechaConFormato", FechaConFormato))
        params.Add(New ReportParameter("FechaInicial", txtFechaI.Text))
        params.Add(New ReportParameter("FechaFinal", txtFechaF.Text))
        params.Add(New ReportParameter("Sucursal", "Sucursal"))

        Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DatosEntradasUsados}

        ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepEntradasUsados.rdlc", UsuarioActual.CveEmpresa), DatosEntradasUsados, params, "Reporte entrada usados", "PDF")

    End Sub

    Protected Sub BtnDescargaSabana_Click(sender As Object, e As EventArgs) Handles BtnDescargaSabana.Click
        RegistraScript(String.Format("$('#{0}').modal('show');", "DivModalSabana"))

        'RegistraScript("$('#DModalEditarFecha').modal('hide')")

    End Sub

    Protected Sub BtnDescargarSabana_Click(sender As Object, e As EventArgs) Handles BtnDescargarSabana.Click
        Dim Retorno As New IO.MemoryStream()
        Dim ObjAcum As New ClsAcumuladores
        Dim Mes As String = DdlMes.SelectedValue.ToString
        Dim Año As String = DdlAño.SelectedValue.ToString
        Dim Fecha As Date = (String.Format("01/{0}/{1}", Mes, Año)).ToDate
        Dim dt As DataTable
        Dim NombreArchivo As String
        Try
            If DdlOpcion.SelectedValue = 1 Then
                ObjAcum.GetSabanaVenta(Fecha, 1, UsuarioActual.CveEmpresa)

            ElseIf DdlOpcion.SelectedValue = 2 Then
                ObjAcum.GetSabanaVenta(Fecha, 2, UsuarioActual.CveEmpresa)

            End If
            dt = ObjAcum.DtResultados

            If dt IsNot Nothing And dt.Rows.Count > 0 Then
                SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
                Dim workbook As New ExcelFile()

                Dim worksheet = workbook.Worksheets.Add("Sabana de ventas")
                worksheet.InsertDataTable(dt, New InsertDataTableOptions() With
                {
                    .ColumnHeaders = True,
                    .StartRow = 0,
                    .StartColumn = 0
                })
                worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
                worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)

                Dim columnCount = worksheet.CalculateMaxUsedColumns()
                For i = 0 To columnCount
                    worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
                Next

                Año = Strings.Right(Año, 2)
                If Mes.ToEntero < 10 Then
                    Mes = String.Format("0{0}", Mes)
                End If
                If DdlOpcion.SelectedValue = 1 Then
                    NombreArchivo = String.Format("700415-{0}{1}-GE", Mes, Año)
                    workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)


                ElseIf DdlOpcion.SelectedValue = 2 Then
                    NombreArchivo = String.Format("700415-{0}{1}-CS", Mes, Año)
                    workbook.Save(Response, $"{NombreArchivo}.xlsx", SaveOptions.XlsxDefault)

                End If
            End If
        Catch ex As Exception
            GuardaLog(String.Format("Ocurrio un error al generar el excel {0}", ex.Message))

        End Try

        ObjAcum.Dispose()
        RegistraScript("$('#DModalEditarFecha').modal('hide')")




    End Sub
End Class