Option Explicit On
Option Strict On

Imports System.Data
Imports System.IO
Imports DocumentFormat.OpenXml.Office2013.Excel
Imports Extensiones
Imports Microsoft.Reporting.WebForms

Partial Class Inventarios_ReporteEntradasSalidas
    Inherits ClsPaginas
#Region "propiedades"
    'Private ReadOnly Property reporteador As Microsoft.Reporting.WebForms.ReportViewer
    '    Get
    '        Return CType(Master.FindControl("ReportMaster"), Microsoft.Reporting.WebForms.ReportViewer)
    '    End Get
    'End Property
    Private Property dt As DataTable
        Get
            Try
                dt = DirectCast(ViewState("dt"), DataTable)
                Return DirectCast(ViewState("dt"), DataTable)
            Catch ex As Exception
                Return Nothing
            End Try
        End Get
        Set(value As DataTable)
            ViewState("dt") = value
        End Set
    End Property
    Public Property DtEquivalencias() As DataTable
        Get
            Return CType(ViewState("dtReporte"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("dtReporte") = value
        End Set
    End Property
    Public Property FechaInicial As String
        Get
            Return ViewState("FechaInicial").ToString
        End Get
        Set(value As String)
            ViewState("FechaInicial") = value
        End Set
    End Property
    Public Property FechaFinal As String
        Get
            Return ViewState("FechaFinal").ToString
        End Get
        Set(value As String)
            ViewState("FechaFinal") = value
        End Set
    End Property

    Private ReadOnly Property PermiteClasificacion2 As Boolean
        Get
            Return (UsuarioActual.CveEmpresa.Contiene(72, 80))
        End Get
    End Property

#End Region

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

            If UsuarioActual.CveEmpresa.Contiene(119) Then
                LnkFormatoInventario.Visible = True
            End If

            TxtFechaI.Text = NowADS().AddMonths(-1).ToShortDateString
            TxtFechaF.Text = NowADS().ToString("dd/MM/yyyy")
            FechaInicial = "-1"
            FechaFinal = "-1"

            CargaCombos()

            GvM.DataBind(True)
            If Not IsNothing(Request("CveAlmacen")) Then
                DdlAlmacen.SelectedValue = Request("CveAlmacen").ToString()
                TxtFechaI.Text = "01/01/2000"
                If Not IsNothing(Request("FechaCorte")) Then
                    TxtFechaF.Text = Request("FechaCorte")
                End If

                If Not IsNothing(Request("FechaInicio")) And IsDate(Request("FechaInicio")) Then
                    TxtFechaI.Text = Request("FechaInicio")
                End If

                If Not IsNothing(Request("Tipo")) Then
                    DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
                End If

                btConsultar_Click(Nothing, Nothing)
            End If
            CargaPermisos()
            CargaGvBitacora()
            ' Lnkcompuxlsinventarios.Visible = UsuarioActual.CveEmpresa = 72
        End If
    End Sub

    Private Sub CargaPermisos()
        Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)

        If Not TienePermisoImportes Then
            GvM.Columns(0).HeaderStyle.Width = 268
            GvM.Columns(4).HeaderStyle.Width = 269
            GvM.Columns(6).HeaderStyle.Width = 133
            GvM.Columns(7).HeaderStyle.Width = 133
            GvM.Columns(8).HeaderStyle.Width = 133
            GvM.Columns(10).HeaderStyle.Width = 134
            GvM.CssClass = "table table-smallpadding table-striped table-hover ScrollAD"
            GvM.Width = 1074
            dvArt.Attributes.Add("style", "text-align:center!important; font-size:14px;width:537px;")
            dvCan.Attributes.Add("style", "text-align:center!important; font-size:14px; border-right-color: white!important;border-left-color: white!important;width:537px;border-style: solid;")
            dTable.Attributes.Add("class", "correcto table")
            dTable.Attributes.Add("style", "width:1074px;")
        End If

        dvImp.Visible = TienePermisoImportes

        GvM.Columns(11).Visible = TienePermisoImportes
        GvM.Columns(12).Visible = TienePermisoImportes
        GvM.Columns(13).Visible = TienePermisoImportes
        GvM.Columns(14).Visible = TienePermisoImportes
        GvM.Columns(15).Visible = TienePermisoImportes



        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
            GvM.Columns(9).Visible = True
        End If

    End Sub
    Private Sub CargaCombos()

        DdlTipoMovimiento.DataSource = GlobalDTInvConceptos()
        DdlTipoMovimiento.DataBind()
        DdlTipoMovimiento.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
        DdlAlmacen.DataBind()
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
        If Not IsNothing(Request("CveAlmacen")) Then
            If DdlAlmacen.Items.FindByValue(Request("CveAlmacen").ToString) Is Nothing Then
                Dim CveAlmacen = Request("CveAlmacen").ToString
                Dim Almacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Almacen", $"CveAlmacen = {Request("CveAlmacen").ToString}")
                DdlAlmacen.Items.Insert(0, New ListItem(Almacen, CveAlmacen))
            End If
        Else
            DdlAlmacen.SelectedValuesIfExistM("-1")
        End If

        'Llenar dropdownlist de monedas
        DdlMoneda.DataSource = GlobalDTMonedas
        DdlMoneda.DataBind()
        DdlMoneda.Items.Insert(0, New ListItem("Todos", "-1"))

        'Llenar dropdownlist de proveedores
        'DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        'DdlProveedor.DataBind()
        'DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))

        'CARGA CLASIFICACIONES
        Dim ObjClasificaciones As New ClsClasificaciones
        If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
            DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
        End If
        ObjClasificaciones.Dispose()
        DdlClasificacion.DataBind()
        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
        DdlCategoria.DataBind()

        DdlCategoria.Items.Insert(0, New ListItem("Todas", "-1"))
        DdlSubFamilia.Items.Insert(0, New ListItem("Todas", "-1"))

        'Carga Productos
        DdlPS.setEsWebService(True)
        DdlProveedor.setEsWebService(True)
        DdlProveedor.SelectedText = ""
        DdlProveedor.SelectedValue = "-1"

        'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
        DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
        DdlPS.SelectedText = ""
        DdlPS.SelectedValue = "-1"
        'Else
        '    DdlPS.ddl.Items.Clear()
        '    DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
        '    DdlPS.ddl.DataBind()
        '    DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
        'End If

        DdlMovs.SelectedValue = "3"

        'Llenar dropdownlist de personal
        DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
        DdlPersonal.DataBind()
        DdlPersonal.Items.Insert(0, New ListItem("Todos", "-1"))


        DdlClasificacion2.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
        DdlClasificacion2.DataBind()
        DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlClasificacion2.SelectedValueExist("-1")
        'BLOQUEA DDL CLASIFICACION
        DivClaisficacionLabel.Visible = PermiteClasificacion2
        DdlClasificacion2.Visible = PermiteClasificacion2
        TdModalClasificacion2.Visible = PermiteClasificacion2

        CargarMarcas()

        DdlTipoAlmacen.DataSource = GlobalDTTipoAlmacen(1)
        DdlTipoAlmacen.DataBind()
        DdlTipoAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))

    End Sub
    Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs)

        CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)

    End Sub

    Private Sub CargaClasificaciones(CveCategoria As Integer)
        Dim ObjClasificaciones As New ClsClasificaciones
        If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
            DdlClasificacion.DataSource = ObjClasificaciones.DtResultados
        End If
        ObjClasificaciones.Dispose()
        DdlClasificacion.DataBind()
        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
        CargaDatos()
    End Sub

    Private Sub CargaDatos()
        Dim Reporte As New ClsInventarios
        Dim rpt As DataTable = Nothing
        Dim CveMarca As Integer = -1

        'Dim fechaI As String = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
        'Dim fechaF As String = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
        FechaInicial = If(TxtFechaI.Text.Trim <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
        FechaFinal = If(TxtFechaF.Text.Trim <> "" AndAlso TxtFechaF.Text <> "__/__/____", TxtFechaF.Text, "-1")
        Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
        Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM)
        Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)

        If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
            CveMarca = DdlMarca.SelectedValue.ToEntero
        End If

        If Reporte.RepMovimientos(UsuarioActual.CveEmpresa, DdlMoneda.SelectedValue.ToEntero, FechaInicial, FechaFinal, DdlTipoMovimiento.SelectedValue.ToEntero, DdlProveedor.SelectedValue.ToEntero,
                                  Almacenes, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero,
                                  DdlMovs.SelectedValue.ToEntero, CveMarca:=Marcas, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero, CveTipoAlmacen:=TipoAlmacen,
                                  Modalidad:=DdlModalidadFiltro.SelectedValue.ToEntero) Then
            dt = Reporte.DtResultados


            GvM.DataSource = dt
            ViewState("dtReporte") = dt
            rpt = dt
        End If

        Reporte.Dispose()
        GvM.DataBind(True)
        UPPMov.Update()
    End Sub

    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
            DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
            DdlPS.SelectedText = ""
            DdlPS.SelectedValue = "-1"
        Else
            DdlPS.ddl.Items.Clear()
            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
            DdlPS.ddl.DataBind()
            DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
        End If
    End Sub

    Protected Sub GvM_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowCreated

        'If e.Row.RowType = DataControlRowType.Header Then
        '    'GENERO ENCABEZADO
        '    Dim FC As New SortedList
        '    FC.Add(0, "Código,1,2,Titulos")

        '    If ChkCodigoAlterno.Checked Then
        '        FC.Add(1, "Código Alterno,1,2,Titulos")
        '    End If

        '    FC.Add(10, "Descripción,1,2,Titulos")
        '    FC.Add(20, "CANTIDAD,4,1,Titulos")
        '    FC.Add(30, "IMPORTE,4,1,Titulos")

        '    Dim FC2 As New SortedList
        '    FC2.Add(0, "Exist. inicial,1,1,Titulos")
        '    FC2.Add(1, "Entradas,1,1S,Titulos")
        '    FC2.Add(2, "Salidas,1,1,Titulos")
        '    FC2.Add(3, "Exist. final,1,1,Titulos")
        '    FC2.Add(4, "Saldo inicial,1,1,Titulos")
        '    FC2.Add(5, "Entradas,1,1,Titulos")
        '    FC2.Add(6, "Salidas,1,1,Titulos")
        '    FC2.Add(7, "Saldo final,1,1,Titulos")

        '    GetMultiRowHeader(DirectCast(sender, GridView), e, FC2, "Titulosfijos")
        '    GetMultiRowHeader(DirectCast(sender, GridView), e, FC, "Titulosfijos")

        ''End If

    End Sub

    Protected Sub gvMovimientos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvM.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            If e.Row.DBCampo("CvePS").ToEntero <= 0 Then

                e.Row.CssClass = "Totales"
                Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
                'e.Row.Cells(0).Text = $"<a Class='Texto' href='./RepExistenciasCostos.aspx?CvePS={e.Row.DataKey("CvePS")}&CveMoneda={e.Row.DataKey("CveMoneda")}&CveProveedor={e.Row.DataKey("CveProveedor")}&CveConcepto={e.Row.DataKey("CveConcepto")}&FechaI={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&FechaF={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CvePersonal={e.Row.DataKey("CvePersonal")}'>{e.Row.DataKey("Codigo")}</a>"
                e.Row.Cells(4).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={DdlPS.txtValue.Value}&CveMoneda={DdlMoneda.SelectedValue}&CveProveedor={DdlProveedor.txtValue.Value}&CveConcepto={DdlTipoMovimiento.SelectedValue}&FechaI={TxtFechaI.Text}&FechaF={TxtFechaF.Text}&CveAlmacen={Almacenes}&CvePersonal={DdlPersonal.SelectedValue}&Tipo={DdlMovs.SelectedValue.ToEntero}'>{e.Row.DataKey("PS")}</a>"
                'e.Row.Cells(4).Text = $"<a class='Texto' href='./RepExistenciasCostos.aspx?CvePS={e.Row.DataKey("CvePS")}&CveMoneda={e.Row.DataKey("CveMoneda")}&CveProveedor={e.Row.DataKey("CveProveedor")}&CveConcepto={e.Row.DataKey("CveConcepto")}&FechaI={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&FechaF={e.Row.DataKey("FechaF").ToDate().ToString("dd/MM/yyyy")}&CveAlmacen={e.Row.DataKey("CveAlmacen")}&CvePersonal={e.Row.DataKey("CvePersonal")}'>{e.Row.DataKey("PS")}</a>"

            Else
                e.Row.Cells(10).BackColor = Drawing.Color.LightGray
                e.Row.Cells(14).BackColor = Drawing.Color.LightGray

                'e.Row.FCLabel("lbSaldoI").Text = If(e.Row.DBCampo("SaldoIniCant").ToString().ToEntero = 0, "-", e.Row.DBCampo("SaldoIniCant").ToDouble.ToString("N2"))
                'e.Row.FCLabel("lbEntradasCant").Text = If(e.Row.DBCampo("EntradaCant").ToString().ToEntero = 0, "-", e.Row.DBCampo("EntradaCant").ToDouble.ToString("N2"))
                'e.Row.FCLabel("lbSalidasCant").Text = If(e.Row.DBCampo("SalidaCant").ToString().ToEntero = 0, "-", e.Row.DBCampo("SalidaCant").ToDouble.ToString("N2"))
                'e.Row.FCLabel("lbSaldoF").Text = If(e.Row.DBCampo("SaldoFCant").ToString().ToEntero = 0, "-", e.Row.DBCampo("SaldoFCant").ToDouble.ToString("N2"))
                e.Row.FCLabel("lbSaldoI2").Text = If(e.Row.DBCampo("SaldoIniImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SaldoIniImp").ToDouble.ToString("N2"))
                e.Row.FCLabel("lbEntradaImp").Text = If(e.Row.DBCampo("EntradaImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("EntradaImp").ToDouble.ToString("N2"))
                e.Row.FCLabel("lbSalidaImp").Text = If(e.Row.DBCampo("SalidaImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SalidaImp").ToDouble.ToString("N2"))
                e.Row.FCLabel("lbSaldoF2").Text = If(e.Row.DBCampo("SaldoFImp").ToString().ToDecimal = 0, "-", e.Row.DBCampo("SaldoFImp").ToDouble.ToString("N2"))

            End If
        End If
    End Sub


#Region "MARCA"
    Protected Sub CargarMarcas()

        If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
            DivMarca.Visible = True
            'Dim ObjMarcas As New ClsProductosServicios
            'ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
            DdlMarca.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
            '  ObjMarcas.Dispose()
            DdlMarca.DataBind()
        End If

        DdlMarca.Items.Insert(0, New ListItem(" Todas ", "-1"))
    End Sub
#End Region


#Region " EXPORTAR - PDF - EXCEL "
    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
        ' GvM.ExportToExcel("Reporte de Entradas y Salidas")
        ImprimiReporte("EXCEL")
    End Sub
    Private Sub LnkExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles LnkExcelPersonalizado.Click
        GvM.ExportToExcel("EntradasSalidas_" + NowADS().ToShortDateString)
    End Sub
    Private Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
        ImprimiReporte()
    End Sub

    Protected Sub ImprimiReporte(Optional Formato As String = "PDF", Optional FormatoInventario As Boolean = False)
        Dim FechaI As String = FechaInicial
        Dim FechaF As String = FechaFinal

        Dim Almacen = If(DdlAlmacen.GetSelectedValuesM = "", "", $"&emsp;<b>Almacenes:</b>&nbsp;{DdlAlmacen.GetSelectedText()}")
        Dim TipoMov = If(DdlTipoMovimiento.SelectedValue = "-1", "", $"&emsp;<b>Tipo&nbsp;Movimiento:</b>&nbsp;{DdlTipoMovimiento.SelectedItem.Text}")
        Dim Moneda = If(DdlMoneda.SelectedValue = "-1", "", $"&emsp;<b>Moneda:</b>&nbsp;{DdlMoneda.SelectedItem.Text}")
        Dim SoloConMov = If(DdlMovs.SelectedValue = "-1", "", $"&emsp;<b>Solo&nbsp;Movimientos:</b>&nbsp;{DdlMovs.SelectedItem.Text}")
        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
        Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DdlClasificacion.SelectedItem.Text}")
        Dim Familia = If(DdlCategoria.SelectedValue = "-1", "", $"&emsp;<b>Categoria:</b>&nbsp;{DdlCategoria.SelectedItem.Text}")
        Dim SubFamilia = If(DdlSubFamilia.SelectedValue = "-1", "", $"&emsp;<b>SubFamilia:</b>&nbsp;{DdlSubFamilia.SelectedItem.Text}")
        Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>PS:</b>&nbsp;{DdlPS.SelectedText}")
        Dim FechaIn As String = $"&emsp;<b>Fecha&nbsp;Inicio:</b>&nbsp;{TxtFechaI.Text}"
        Dim FechaFn As String = $"&emsp;<b>Fecha&nbsp;Fin:</b>&nbsp;{TxtFechaF.Text}"

        If TxtFechaI.Text = "" Then FechaIn = ""
        If TxtFechaF.Text = "" Then FechaFn = ""

        If FechaI = "-1" Then
            FechaI = "01-01-0001"
        End If
        If FechaF = "-1" OrElse FechaFinal.ToDate > NowADS().ToDate Then
            FechaF = NowADS().ToString("dd/MM/yyyy")
        End If
        Dim RutaPDF As String
        Dim Ruta As String = UsuarioActual.Empresa.Ruta
        Dim NombreArchivoDescarga = "ReporteEntradas-Salidas"

        Dim params As New List(Of ReportParameter)

        If UsuarioActual.CveEmpresa.Contiene(119) Then

            If FormatoInventario Then
                RutaPDF = $"{Ruta}\Formatos\FormatoAlmacen.rdlc"
                NombreArchivoDescarga = "Formato Inventario"
            Else
                If DdlTipoMovimiento.SelectedValue.ToEntero = 2 Then
                    RutaPDF = $"{Ruta}\Formatos\EntradaAlmacen.rdlc"
                ElseIf DdlTipoMovimiento.SelectedValue.ToEntero = 3 Then
                    RutaPDF = $"{Ruta}\Formatos\SalidaAlmacen.rdlc"
                Else
                    RutaPDF = $"{Ruta}\Formatos\EntradasSalidas.rdlc"
                End If
            End If
        Else
            RutaPDF = $"{Ruta}\Formatos\EntradasSalidas.rdlc"
        End If

        If Not File.Exists(RutaPDF) Then
            RutaPDF = "Empresas/Grales/Formatos/EntradasSalidas.rdlc"
        End If



        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
        If FormatoInventario Then
            params.Add(New ReportParameter("Sucursal", DdlAlmacen.SelectedItem.Text))
            params.Add(New ReportParameter("Bodega", DdlAlmacen.SelectedItem.Text))
        Else
            params.Add(New ReportParameter("FechaInicial", FechaI))
            params.Add(New ReportParameter("FechaFinal", FechaF))
            params.Add(New ReportParameter("AgrupadoPor", $"{Almacen}{TipoMov}{Moneda}{SoloConMov}{Proveedor}{Clasificacion}{Familia}{SubFamilia}{PS}{FechaIn}{FechaFn}"))
        End If
        params.Add(New ReportParameter("OcultarImportes", UsuarioActual.TienePermisoProceso(201).ToString))

        ImprimirPDF(RutaPDF, If(FormatoInventario, dt.FiltraParametros("", "RazonSocial, PS  ASC"), dt), params, NombreArchivoDescarga, Formato:=Formato)

    End Sub

    Private Sub LnkFormatoInventario_Click(sender As Object, e As EventArgs) Handles LnkFormatoInventario.Click
        ImprimiReporte("EXCEL", True)
    End Sub
#End Region

#Region "PERSONALIZAR"
    Private Sub MostrarOcultarColumnas(Optional Personalizo As Boolean = True)
        GvM.Columns(1).Visible = ChkCodigoAlterno.Checked
        GvM.Columns(2).Visible = ChkCodigoBarras.Checked
        GvM.Columns(3).Visible = ChkClasificacion2.Checked
        GvM.Columns(5).Visible = ChkSeccionAlmacen.Checked

        GvM.Columns(16).Visible = ChkFechaUltimaCompra.Checked
        GvM.Columns(17).Visible = ChkFechaUltimaVenta.Checked
        GvM.Columns(18).Visible = ChkPUPromedio.Checked

        'GvM.Columns(4).Visible = ChkSeccionAlmacen.Checked
        If ChkSeccionAlmacen.Checked OrElse ChkCodigoBarras.Checked OrElse ChkCodigoAlterno.Checked Then
            dvArt.Style.Add("width", "39%")
            dvCan.Style.Add("width", "25%")

            If ChkFechaUltimaCompra.Checked OrElse ChkFechaUltimaVenta.Checked Then
                dvArt.Style.Add("width", "34%")
                dvCan.Style.Add("width", "23%")
            End If

            If ChkFechaUltimaCompra.Checked AndAlso ChkFechaUltimaVenta.Checked Then
                dvArt.Style.Add("width", "32%")
                dvCan.Style.Add("width", "22%")

            End If

        ElseIf ChkClasificacion2.Checked Then
            dvArt.Style.Add("width", "38%")
            dvCan.Style.Add("width", "26%")

            If ChkFechaUltimaCompra.Checked Or ChkFechaUltimaVenta.Checked Then
                dvArt.Style.Add("width", "35%")
                dvCan.Style.Add("width", "22%")

            End If

        Else
            If ChkFechaUltimaCompra.Checked OrElse ChkFechaUltimaVenta.Checked Then
                dvArt.Style.Add("width", "30%")
                dvCan.Style.Add("width", "26%")
                dvImp.Style.Add("width", "44%")

            End If
            If ChkFechaUltimaCompra.Checked And ChkFechaUltimaVenta.Checked Then
                dvArt.Style.Add("width", "28%")
                dvCan.Style.Add("width", "25%")
                dvImp.Style.Add("width", "50%")
            End If
        End If


        If (ChkSeccionAlmacen.Checked AndAlso ChkCodigoBarras.Checked) Then
            dvArt.Style.Add("width", "50%")
            dvCan.Style.Add("width", "21%")
        ElseIf (ChkSeccionAlmacen.Checked AndAlso ChkCodigoAlterno.Checked) Then
            dvArt.Style.Add("width", "42%")
            dvCan.Style.Add("width", "22%")
        ElseIf (ChkCodigoBarras.Checked AndAlso ChkCodigoAlterno.Checked) Then
            dvArt.Style.Add("width", "45%")
            dvCan.Style.Add("width", "22%")
        End If

        If (ChkSeccionAlmacen.Checked AndAlso ChkCodigoBarras.Checked AndAlso ChkCodigoAlterno.Checked) Then
            dvArt.Style.Add("width", "54%")
            dvCan.Style.Add("width", "22%")
        ElseIf (Not ChkSeccionAlmacen.Checked AndAlso Not ChkCodigoBarras.Checked AndAlso Not ChkCodigoAlterno.Checked AndAlso Not ChkFechaUltimaCompra.Checked AndAlso Not ChkFechaUltimaVenta.Checked) Then
            dvArt.Style.Add("width", "32%")
            dvCan.Style.Add("width", "30%")
        End If

        If (ChkSeccionAlmacen.Checked AndAlso ChkCodigoBarras.Checked AndAlso ChkCodigoAlterno.Checked AndAlso ChkClasificacion2.Checked) Then
            dvArt.Style.Add("width", "62%")
            dvCan.Style.Add("width", "21%")
        End If

        If Personalizo Then
            LnkExcelPersonalizado.Visible = True
        Else
            LnkExcelPersonalizado.Visible = False
        End If
        UPAcciones.Update()

        UpEncabezado.Update()
        UPPMov.Update()
    End Sub

    Private Sub BtnPersonalizar_Click(sender As Object, e As EventArgs) Handles BtnPersonalizar.Click
        MostrarOcultarColumnas()
        RegistraScript("$('#DivPersonalizar').modal('hide')")
        'CargaDatos()
    End Sub

#End Region

#Region "B I T A C O R A"
    Private Sub CargaGvBitacora()
        Dim ObjGral As New ClsGenerales
        If ObjGral.GetHistorialBitacoraRemoveGet("Inventarios", UsuarioActual.CveEmpresa) Then
            GvBitacora.DataSource = ObjGral.DtResultados
            ObjGral.Dispose()
        End If
        GvBitacora.DataBind()
    End Sub

    Private Sub BtnMostrar_Click(sender As Object, e As EventArgs) Handles BtnMostrar.Click
        GvBitacora.Visible = True
        BtnOcultar.Visible = True
        BtnMostrar.Visible = False
        UpBitacora.Update()
    End Sub

    Private Sub BtnOcultar_Click(sender As Object, e As EventArgs) Handles BtnOcultar.Click
        GvBitacora.Visible = False
        BtnOcultar.Visible = False
        BtnMostrar.Visible = True
        UpBitacora.Update()
    End Sub
#End Region
    'Protected Sub Lnkcompuxlsinventarios_Click(sender As Object, e As EventArgs)
    '    Dim continuar = True
    '    Try

    '        Dim wb As New ClosedXML.Excel.XLWorkbook()
    '        Dim libro As ClosedXML.Excel.IXLWorksheet = wb.AddWorksheet("Reporte de inventarios")



    '        Dim Fila As Integer = 0
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 7)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
    '        libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 7)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
    '        libro.Cell(Fila + 3, 5).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166))
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 7)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 7)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
    '        libro.Column(1).Width = 34.43
    '        libro.Cell(Fila + 1, 1).Value = "TIPO DO REGISTRO"
    '        libro.Cell(Fila + 2, 1).Value = "RECORD Type"
    '        libro.Cell(Fila + 3, 1).Value = "OBLIGATORIO"

    '        libro.Column(2).Width = 24
    '        libro.Cell(Fila + 1, 2).Value = "Codigo del Partner"
    '        libro.Cell(Fila + 2, 2).Value = "Reporter_id	"
    '        libro.Cell(Fila + 3, 2).Value = "OBLIGATORIO"

    '        libro.Column(3).Width = 28.71
    '        libro.Cell(Fila + 1, 3).Value = "Nombre de la Empresa"
    '        libro.Cell(Fila + 2, 3).Value = "Reporter Company Name"
    '        libro.Cell(Fila + 3, 3).Value = "OBLIGATORIO"

    '        libro.Column(4).Width = 23.57
    '        libro.Cell(Fila + 1, 4).Value = "CÓDIGO DEL PAÍS"
    '        libro.Cell(Fila + 2, 4).Value = "COUNTRY CD"
    '        libro.Cell(Fila + 3, 4).Value = "OBLIGATORIO"

    '        libro.Column(5).Width = 17.57
    '        libro.Cell(Fila + 1, 5).Value = "Ubicación"
    '        libro.Cell(Fila + 2, 5).Value = "LOCATION"
    '        libro.Cell(Fila + 3, 5).Value = "OPCIONAL"

    '        libro.Column(6).Width = 35.29
    '        libro.Cell(Fila + 1, 6).Value = "FECHA DEL INVENTARIO"
    '        libro.Cell(Fila + 2, 6).Value = "Period End Date"
    '        libro.Cell(Fila + 3, 6).Value = "OBLIGATORIO"

    '        libro.Column(7).Width = 23.43
    '        libro.Cell(Fila + 1, 7).Value = "REENVIO"
    '        libro.Cell(Fila + 2, 7).Value = "RESUBMIT"
    '        libro.Cell(Fila + 3, 7).Value = "OBLIGATORIO"

    '        libro.Column(8).Width = 29.29
    '        libro.Column(9).Width = 25
    '        libro.Column(10).Width = 18.14
    '        libro.Column(11).Width = 32.71
    '        libro.Column(12).Width = 13.57
    '        libro.Column(13).Width = 13
    '        libro.Column(14).Width = 32
    '        libro.Column(15).Width = 12.71
    '        libro.Column(16).Width = 13



    '        Fila = Fila + 3

    '        libro.Cell(Fila + 1, 1).Value = "IH"
    '        libro.Cell(Fila + 1, 2).Value = "10245068"
    '        libro.Cell(Fila + 1, 3).Value = "COMPUPROVEEDORES SA DE CV"
    '        libro.Cell(Fila + 1, 4).Value = "MX"
    '        libro.Cell(Fila + 1, 5).Value = ""
    '        libro.Cell(Fila + 1, 6).Value = String.Format("{0:yyyyMMdd}", TxtFechaF.Text.ToDate())
    '        libro.Cell(Fila + 1, 7).Value = "N"


    '        Fila = Fila + 1
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 16)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
    '        libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 16)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
    '        libro.Range(libro.Cell(Fila + 3, 3), libro.Cell(Fila + 3, 15)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166))
    '        libro.Cell(Fila + 3, 7).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
    '        libro.Cell(Fila + 3, 10).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 16)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 16)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
    '        libro.Cell(Fila + 1, 1).Value = "TIPO DO REGISTRO"
    '        libro.Cell(Fila + 1, 2).Value = "NÚMERO DEL PRODUCTO"
    '        libro.Cell(Fila + 1, 3).Value = "OPCION DEL PRODUCTO"
    '        libro.Cell(Fila + 1, 4).Value = "UPC"
    '        libro.Cell(Fila + 1, 5).Value = "CODIGO SKU"
    '        libro.Cell(Fila + 1, 6).Value = "ORDENES DE COMPRAS EN ABIERTO "
    '        libro.Cell(Fila + 1, 7).Value = "INVENTARIO DISPONIBLE"
    '        libro.Cell(Fila + 1, 8).Value = "DEVOLUCIONES"
    '        libro.Cell(Fila + 1, 9).Value = "INVENTARIO RESERVADO"
    '        libro.Cell(Fila + 1, 10).Value = "INVENTARIO TOTAL"
    '        libro.Cell(Fila + 1, 11).Value = "EN TRANSITO"
    '        libro.Cell(Fila + 1, 12).Value = "VALOR UNITARIO DEL PRODUCTO HP"
    '        libro.Cell(Fila + 1, 13).Value = "VALOR TOTAL DEL INVENTARIO"
    '        libro.Cell(Fila + 1, 14).Value = "NOMBRE DE LA TIENDA"
    '        libro.Cell(Fila + 1, 15).Value = "Codigo de la tienda"
    '        libro.Cell(Fila + 1, 16).Value = "MONEDA"

    '        Fila = Fila + 1
    '        libro.Cell(Fila + 1, 1).Value = "RECORD TYPE "
    '        libro.Cell(Fila + 1, 2).Value = "Partner Reported Product ID"
    '        libro.Cell(Fila + 1, 3).Value = "PROD_OPTION"
    '        libro.Cell(Fila + 1, 4).Value = "UPC"
    '        libro.Cell(Fila + 1, 5).Value = "Reseller product number "
    '        libro.Cell(Fila + 1, 6).Value = "Quantity on Order"
    '        libro.Cell(Fila + 1, 7).Value = "Quantity on Hand"
    '        libro.Cell(Fila + 1, 8).Value = "Quantity in stock allocated to be returned to supplier"
    '        libro.Cell(Fila + 1, 9).Value = "Reserved Inventory"
    '        libro.Cell(Fila + 1, 10).Value = "Quantity avail. for sale"
    '        libro.Cell(Fila + 1, 11).Value = "Quantity in float  (In transit between partner warehouses)"
    '        libro.Cell(Fila + 1, 12).Value = "INVENTORY UNIT VALUE"
    '        libro.Cell(Fila + 1, 13).Value = "INVENTORY VALUATION"
    '        libro.Cell(Fila + 1, 14).Value = "Sell from name (For retailers, ""Store Name / Site Name"")"
    '        libro.Cell(Fila + 1, 15).Value = "Sell From Location ID"
    '        libro.Cell(Fila + 1, 16).Value = "CURRENCY"

    '        Fila = Fila + 1
    '        libro.Cell(Fila + 1, 1).Value = "OBLIGATORIO"
    '        libro.Cell(Fila + 1, 2).Value = "OBLIGATORIO"
    '        libro.Cell(Fila + 1, 3).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 4).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 5).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 6).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 7).Value = "OBLIGATORIO"
    '        libro.Cell(Fila + 1, 8).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 9).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 10).Value = "OBLIGATORIO"
    '        libro.Cell(Fila + 1, 11).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 12).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 13).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 14).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 15).Value = "OPCIONAL"
    '        libro.Cell(Fila + 1, 16).Value = "OBLIGATORIO"


    '        If Not IsNothing(dt) AndAlso dt.Rows.Count > 0 Then

    '            For Each row As DataRow In dt.Select("CvePS>0 AND SaldoFCant >0")

    '                Fila = Fila + 1
    '                libro.Cell(Fila + 1, 1).Value = "ID" ' "TIPO DO REGISTRO"
    '                libro.Cell(Fila + 1, 2).Value = String.Format("'{0}", row("Codigo"))  ' "NÚMERO DEL PRODUCTO"
    '                libro.Cell(Fila + 1, 3).Value = "" ' "OPCION DEL PRODUCTO"
    '                libro.Cell(Fila + 1, 4).Value = "" ' "UPC"
    '                libro.Cell(Fila + 1, 5).Value = "" ' "CODIGO SKU"
    '                libro.Cell(Fila + 1, 6).Value = "" ' "ORDENES DE COMPRAS EN ABIERTO "
    '                libro.Cell(Fila + 1, 7).Value = String.Format("{0}", row("SaldoFCant")) ' "INVENTARIO DISPONIBLE"
    '                'libro.Cell(Fila + 1, 7).Style.NumberFormat.Format = "N2"
    '                libro.Cell(Fila + 1, 8).Value = "" ' "DEVOLUCIONES"
    '                libro.Cell(Fila + 1, 9).Value = "" ' "INVENTARIO RESERVADO"
    '                libro.Cell(Fila + 1, 10).Value = String.Format("{0}", row("SaldoFCant")) ' "INVENTARIO TOTAL"
    '                'libro.Cell(Fila + 1, 10).Style.NumberFormat.Format = "$ #,##0.00"
    '                libro.Cell(Fila + 1, 11).Value = "" ' "EN TRANSITO"
    '                libro.Cell(Fila + 1, 12).Value = "" ' "VALOR UNITARIO DEL PRODUCTO HP"
    '                libro.Cell(Fila + 1, 13).Value = "" ' "VALOR TOTAL DEL INVENTARIO"
    '                libro.Cell(Fila + 1, 14).Value = "" ' "NOMBRE DE LA TIENDA"
    '                libro.Cell(Fila + 1, 15).Value = "" ' "Codigo de la tienda"
    '                libro.Cell(Fila + 1, 16).Value = "MXN" ' "MONEDA"
    '            Next
    '        End If

    '        Fila = Fila + 1
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 2, 4)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(217, 225, 242))
    '        libro.Range(libro.Cell(Fila + 3, 1), libro.Cell(Fila + 3, 4)).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(0, 176, 80))
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 4)).Style.Border.InsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
    '        libro.Range(libro.Cell(Fila + 1, 1), libro.Cell(Fila + 3, 4)).Style.Border.OutsideBorder = ClosedXML.Excel.XLBorderStyleValues.Thin
    '        libro.Cell(Fila + 1, 1).Value = "TIPO DEL REGISTRO"
    '        libro.Cell(Fila + 1, 2).Value = "TOTAL DE REGISTROS"
    '        libro.Cell(Fila + 1, 3).Value = "Suma del Inventario Disponible"
    '        libro.Cell(Fila + 1, 4).Value = "Suma del Inventario Total"

    '        Fila = Fila + 1
    '        libro.Cell(Fila + 1, 1).Value = "RECORD TYPE"
    '        libro.Cell(Fila + 1, 2).Value = "COUNT OF RECORDS"
    '        libro.Cell(Fila + 1, 3).Value = "SUM OF “"On Hand”""
    '        libro.Cell(Fila + 1, 4).Value = "SUM OF “"Total Inventory"”"


    '        Fila = Fila + 1
    '        libro.Cell(Fila + 1, 1).Value = "OBLIGATORIO"
    '        libro.Cell(Fila + 1, 2).Value = "OBLIGATORIO"
    '        libro.Cell(Fila + 1, 3).Value = "OBLIGATORIO"
    '        libro.Cell(Fila + 1, 4).Value = "OBLIGATORIO"

    '        Dim Codigo As Double = 0
    '        Dim SaldoFCant As Double = 0
    '        Dim SaldoFImp As Double = 0
    '        If Not IsNothing(dt) AndAlso dt.Rows.Count > 0 Then
    '            Codigo = dt.COUNT("Codigo", "CvePS>0")
    '            SaldoFCant = dt.SUM("SaldoFCant", "CvePS>0")
    '            SaldoFImp = dt.SUM("SaldoFImp", "CvePS>0")
    '        End If
    '        Fila = Fila + 1
    '        libro.Cell(Fila + 1, 1).Value = "IT"
    '        libro.Cell(Fila + 1, 2).Value = String.Format("{0}", Codigo)
    '        'libro.Cell(Fila + 1, 2).Style.NumberFormat.Format = "N2"
    '        libro.Cell(Fila + 1, 3).Value = String.Format("{0}", SaldoFCant)
    '        'libro.Cell(Fila + 1, 3).Style.NumberFormat.Format = "N2"
    '        libro.Cell(Fila + 1, 4).Value = String.Format("{0}", SaldoFCant)
    '        'libro.Cell(Fila + 1, 4).Style.NumberFormat.Format = "$ #,##0.00"


    '        ''Guarda streem y descarga
    '        Dim fs As Stream = New MemoryStream()
    '        wb.SaveAs(fs)
    '        fs.Position = 0
    '        Dim memoryStream As New MemoryStream()
    '        Using input As Stream = fs
    '            input.CopyTo(memoryStream)
    '        End Using
    '        memoryStream.Position = 0

    '        Response.Clear()
    '        Response.Buffer = True

    '        Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
    '        Response.AddHeader("content-disposition", String.Format("attachment;filename={0}.xlsx", "Reporte de Inventarios HP"))
    '        Response.BinaryWrite(memoryStream.ToArray())
    '        Response.End()

    '        ''endGuarda streem y descarga
    '    Catch

    '        continuar = False
    '    End Try
    '    If Not continuar Then
    '        Alert("Ocurrió un error al gener el excel", TipoMensaje.MsgAdvertencia)
    '    End If
    'End Sub

End Class