SIG/Inventarios/RepAlmacenPeriodo.aspx.vb

Option Strict On
Option Explicit On

Imports Extensiones
Imports System.Data
Imports Microsoft.Reporting.WebForms
Partial Class Inventarios_RepAlmacenPeriodo
    Inherits ClsPaginas

#Region "PROPIEDADES"
    Private Property TmpDT As DataTable
        Get
            Return CType(ViewState("TmpDT"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("TmpDT") = value
        End Set
    End Property

    Private Property Ver As Integer
        Get
            Return CType(ViewState("VerEn"), Integer)
        End Get
        Set(value As Integer)
            ViewState("VerEn") = value
        End Set
    End Property

#End Region

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Ver = 1
            CargaTipoAlmacen()
        End If
    End Sub

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

        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
        DdlAlmacen.DataBind()
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlSucursal.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1)
        DdlSucursal.DataBind()
        DdlSucursal.Items.Insert(0, New ListItem("Todas", "-1"))

    End Sub

    Private Sub CargaDatos()
        Dim objInv As New ClsInventarios
        Dim FechaCorte As Date
        FechaCorte = If(IsDate(TxtFechaCorte.Text.Trim()), TxtFechaCorte.Text.ToDate, MaxFecha)
        Dim TipoAlmacen As String = If(DdlTipoAlmacen.GetSelectedValuesM = "", "-1", DdlTipoAlmacen.GetSelectedValuesM)
        Dim Almacenes As String = If(DdlAlmacen.GetSelectedValuesM = "", "-1", DdlAlmacen.GetSelectedValuesM)
        Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero()

        If RblTotal.Checked Then Ver = 1
        If RblExistencia.Checked Then Ver = 2

        If objInv.GetRepAlmacenesPeriodo(FechaCorte, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, ChkInventariable.Checked, Ver,
                                         Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
            GVAlmacen.DataSource = objInv.DtResultados
            TmpDT = objInv.DtResultados
        End If
        objInv.Dispose()
        GVAlmacen.DataBind()
        UpDatos.Update()
    End Sub

    Protected Sub GVAlmacen_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            If Not e.Row.DBCampo("CveAlmacen").ToEntero > 0 Then
                e.Row.CssClass = "Totales"
            End If
            If TxtFechaCorte.Text <> "" Then
                If TxtFechaCorte.Text.ToDate.Month < 12 Then
                    e.Row.Cells(12).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 11 Then
                    e.Row.Cells(11).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 10 Then
                    e.Row.Cells(10).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 9 Then
                    e.Row.Cells(9).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 8 Then
                    e.Row.Cells(8).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 7 Then
                    e.Row.Cells(7).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 6 Then
                    e.Row.Cells(6).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 5 Then
                    e.Row.Cells(5).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 4 Then
                    e.Row.Cells(4).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 3 Then
                    e.Row.Cells(3).Text = ""
                End If
                If TxtFechaCorte.Text.ToDate.Month < 2 Then
                    e.Row.Cells(2).Text = ""
                End If
            End If
        End If
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub

    Protected Sub BtnVerEn_Click(sender As Object, e As EventArgs)
        CargaDatos()
    End Sub

    Private Sub GenerarPDF()
        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
        Dim StrFiltro As New StringBuilder
        If TxtFechaCorte.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Corte </b>: {0}", TxtFechaCorte.Text.ToDate.ToShortDateString)
        If DdlTipoAlmacen.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Tipo Almacen</b>: {0}", DdlTipoAlmacen.GetSelectedText)

        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
        params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
        params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
        If Imagen.Exists Then
            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
        ImprimirPDF("Empresas/Grales/Formatos/RepAlmacenPeriodo.rdlc", TmpDT, params, "ReporteAlmacenPeriodo")
    End Sub
    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs)
        GenerarPDF()
    End Sub
    Protected Sub LnkEXCEL_Click(sender As Object, e As EventArgs)
        GenerarPDF()
    End Sub

    Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
        If Not TmpDT IsNot Nothing AndAlso TmpDT.Rows.Count > 0 Then
            Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
            Exit Sub
        End If

        RegistraScript("$('#DivModalGrafica').modal('show')")
        CargaGrafica()
    End Sub

    Private Sub CargaGrafica()
        Dim Dt As New DataTable()
        Dt.Columns.Add("mes")

        Dim Dt2 As New DataTable()
        Dt2.Columns.Add("balloonText")
        Dt2.Columns.Add("bullet")
        Dt2.Columns.Add("title")
        Dt2.Columns.Add("valueField")
        Dt2.Columns.Add("fillAlphas")


        Dim Cont As Integer = 1
        For Each Dr As DataRow In TmpDT.Rows
            If Dr("CveAlmacen").ToString.ToEntero > 0 Then
                Dt.Columns.Add(Dr("Almacen").ToString)
                Dim Row4 As DataRow = Nothing
                Row4 = Dt2.NewRow()
                Select Case Ver
                    Case 1
                        Row4("balloonText") = "Total [[category]]: [[value]]"
                    Case 2
                        Row4("balloonText") = "Existencia [[category]]: [[value]]"
                End Select
                Row4("bullet") = "round"
                Row4("title") = Dr("Almacen").ToString
                Row4("valueField") = Dr("Almacen").ToString
                Row4("fillAlphas") = 0
                Dt2.Rows.Add(Row4)
                Cont += 1
            End If
        Next

        Dim RowEnero As DataRow = Nothing
        RowEnero = Dt.NewRow()
        Dim RowFebrero As DataRow = Nothing
        RowFebrero = Dt.NewRow()
        Dim RowMarzo As DataRow = Nothing
        RowMarzo = Dt.NewRow()
        Dim RowAbril As DataRow = Nothing
        RowAbril = Dt.NewRow()
        Dim RowMayo As DataRow = Nothing
        RowMayo = Dt.NewRow()
        Dim RowJunio As DataRow = Nothing
        RowJunio = Dt.NewRow()
        Dim RowJulio As DataRow = Nothing
        RowJulio = Dt.NewRow()
        Dim RowAgosto As DataRow = Nothing
        RowAgosto = Dt.NewRow()
        Dim RowSeptiembre As DataRow = Nothing
        RowSeptiembre = Dt.NewRow()
        Dim RowOctubre As DataRow = Nothing
        RowOctubre = Dt.NewRow()
        Dim RowNoviembre As DataRow = Nothing
        RowNoviembre = Dt.NewRow()
        Dim RowDiciembre As DataRow = Nothing
        RowDiciembre = Dt.NewRow()
        For Each Dr As DataRow In TmpDT.Rows
            If Dr("CveAlmacen").ToString.ToEntero > 0 Then
                RowEnero(Dr("Almacen").ToString) = Dr("Enero").ToString
                RowEnero("mes") = "Enero"
                RowFebrero(Dr("Almacen").ToString) = Dr("Febrero").ToString
                RowFebrero("mes") = "Febrero"
                RowMarzo(Dr("Almacen").ToString) = Dr("Marzo").ToString
                RowMarzo("mes") = "Marzo"
                RowAbril(Dr("Almacen").ToString) = Dr("Abril").ToString
                RowAbril("mes") = "Abril"
                RowMayo(Dr("Almacen").ToString) = Dr("Mayo").ToString
                RowMayo("mes") = "Mayo"
                RowJunio(Dr("Almacen").ToString) = Dr("Junio").ToString
                RowJunio("mes") = "Junio"
                RowJulio(Dr("Almacen").ToString) = Dr("Julio").ToString
                RowJulio("mes") = "Julio"
                RowAgosto(Dr("Almacen").ToString) = Dr("Agosto").ToString
                RowAgosto("mes") = "Agosto"
                RowSeptiembre(Dr("Almacen").ToString) = Dr("Septiembre").ToString
                RowSeptiembre("mes") = "Septiembre"
                RowOctubre(Dr("Almacen").ToString) = Dr("Octubre").ToString
                RowOctubre("mes") = "Octubre"
                RowNoviembre(Dr("Almacen").ToString) = Dr("Noviembre").ToString
                RowNoviembre("mes") = "Noviembre"
                RowDiciembre(Dr("Almacen").ToString) = Dr("Diciembre").ToString
                RowDiciembre("mes") = "Diciembre"
            End If
        Next
        Dt.Rows.Add(RowEnero)
        Dt.Rows.Add(RowFebrero)
        Dt.Rows.Add(RowMarzo)
        Dt.Rows.Add(RowAbril)
        Dt.Rows.Add(RowMayo)
        Dt.Rows.Add(RowJunio)
        Dt.Rows.Add(RowJulio)
        Dt.Rows.Add(RowAgosto)
        Dt.Rows.Add(RowSeptiembre)
        Dt.Rows.Add(RowOctubre)
        Dt.Rows.Add(RowNoviembre)
        Dt.Rows.Add(RowDiciembre)

        RegistraScript($"CargaGraficaLineas({Dt.ToJson},{Dt2.ToJson.Replace($"{Chr(34)}True{Chr(34)}", "true").Replace($"{Chr(34)}False{Chr(34)}", "false")})", "44")
        UpGrafica.Update()
    End Sub

End Class