SIG/Inventarios/RepAlmacenCompras.aspx.vb

Option Explicit On
Option Strict On


Imports System.Data
Imports Extensiones
Imports Microsoft.Reporting.WebForms

Partial Class Inventarios_RepAlmacenCompras
    Inherits ClsPaginas


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

    Private Property DtAlmacenCompra As DataTable
        Get
            Return DirectCast(ViewState("DtAlmacenCompra"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtAlmacenCompra") = value
        End Set
    End Property

#End Region

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

            CargaDatos()
            CargaPermisos()
        End If
    End Sub


#Region "   CARGA VALORES INICIALES   "
    Private Sub CargaPermisos()
        Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
        GvDatos.Columns(3).Visible = TienePermisoImportes
        GvDatos.Columns(7).Visible = TienePermisoImportes
        GvDatos.Columns(8).Visible = TienePermisoImportes
        GvDatos.Columns(9).Visible = TienePermisoImportes
        GvDatos.Columns(10).Visible = TienePermisoImportes
        GvDatos.Columns(11).Visible = TienePermisoImportes

        If TienePermisoImportes Then
            CabeceraAlmacen.Width = "36%"
            CabeceraCompra.Width = "65%"
        Else
            CabeceraAlmacen.Width = "45%"
            CabeceraCompra.Width = "55%"
        End If

    End Sub
    Private Sub CargaDatos()

        TxtFechaFin.Text = NowADS().ToShortDateString
        TxtFechaInicio.Text = NowADS().FirstDayOfMonth.ToShortDateString

        CargaCombos()

    End Sub
    Private Sub CargaCombos()

        'Llena Almacen
        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN ( 1, 22, 27)")
        DdlAlmacen.DataBind()
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))

        CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, Nothing)

    End Sub
#End Region


#Region "  CONSULTAR - CARGA  "
    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        Consultar()
    End Sub

    Private Sub Consultar()
        Dim ObjInventarios As New ClsInventarios

        Dim FechaI As Date = If(TxtFechaInicio.Text = "" Or TxtFechaInicio.Text = "__/__/____", MinFecha, TxtFechaInicio.Text.ToDate)
        Dim FechaF As Date = If(TxtFechaFin.Text = "" Or TxtFechaFin.Text = "__/__/____", MaxFecha, TxtFechaFin.Text.ToDate)


        If ObjInventarios.RepAlmacenCompras(DdlAlmacen.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            DtDatos = ObjInventarios.DtResultados
            DtAlmacenCompra = ObjInventarios.DtResultados
        Else
            DtDatos = Nothing
            Alert("Ocurrió un error al obtener el reporte de almacen compras. Por favor vuelva a intentar.", TipoMensaje.MsgError)
        End If

        ObjInventarios.Dispose()

        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
            GvDatos.DataSource = DtDatos
            GvDatos.DataBind()
            UpDatos.Update()
        End If

    End Sub
#End Region

#Region "PDF"

    Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
        If DtAlmacenCompra IsNot Nothing Then
            Dim StrFiltro As New StringBuilder
            If DdlAlmacen.SelectedValue <> "-1" Then StrFiltro.AppendFormat("<b>Almacen</b>: {0}", DdlAlmacen.SelectedItem.Text)

            If TxtFechaInicio.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", TxtFechaInicio.Text.ToDate.ToShortDateString)
            If TxtFechaFin.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", TxtFechaFin.Text.ToDate.ToShortDateString)


            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

            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", NowADS().ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("Filtros", StrFiltro.ToString))

            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

            ImprimirPDF("Empresas/Grales/Formatos/RepAlmacenCompras.rdlc", DtAlmacenCompra, params, String.Format("ReporteAlmacenCompras-{0}", NowADS().ToDateTime.ToShortDateString))

        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If
    End Sub

#End Region

#Region "EXCEL"
    Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
        GvDatos.ExportToExcel("Reporte de AlmacenCompras" & NowADS().ToShortDateString)
    End Sub
#End Region

End Class