Option Strict On
Option Explicit On

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

    Private Property DtDatos As DataTable
        Get
            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
        End Get

        Set(ByVal value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property
    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            TxtFechaMes.Text = NowADS().ToString("dd/MM/yyyy")
        End If
    End Sub

    Private Sub CargarDatos()
        Dim ObjInventarios As New ClsInventarios
        If ObjInventarios.GetRepResumenMovimientosDiario(TxtFechaMes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
            DtDatos = ObjInventarios.DtResultados.Copy()
            GvDatos.DataSource = DtDatos
        End If
        ObjInventarios.Dispose()
        GvDatos.DataBind()
    End Sub

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

    Private Sub GenerarPDF(Optional Formato As String = "PDF")
        If GvDatos.Rows.Count > 0 Then
            If DtDatos IsNot Nothing Then
                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("Fecha", TxtFechaMes.Text))
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
                params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                ImprimirPDF("Empresas/Grales/Formatos/RepResumenMovimientosDiario.rdlc", DtDatos, params, "Reporte Diario", Formato)
            End If
        Else
            Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia)
        End If

    End Sub

    Protected Sub LnkImprimir_Click(sender As Object, e As EventArgs)
        GenerarPDF("PDF")
    End Sub
End Class