SIG/Contabilidad/FiltraPolizas.aspx.vb

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

Partial Class Contabilidad_FiltraPolizas
    Inherits ClsPaginas
#Region "Propiedades"
    Private Property DtDatos As DataTable
        Get
            Return CType(ViewState("DtDatos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property
#End Region


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            ViewState("Orden") = ""
            DdlPeriodo.SelectedValue = Now.Month.ToString
            TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
            TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
            If UsuarioActual.Empresa.UsaContabilidad Then
                CargaSegmentoNeg()
                CargaEjercicios()
                CargaDatos()
                CargaGvBitacora()
            Else
                Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
                BtnConsultar.Enabled = False
                LnkImprimir.Visible = False
                LnkExcel.Visible = False
            End If

            'Dim httpApps As HttpApplication = HttpContext.ApplicationInstance

            ''Get list of active modules
            'Dim httpModuleCollections As HttpModuleCollection = httpApps.Modules
            '' ViewBag.ModulesCount = httpModuleCollections.Count
            'gvv.DataSource = httpModuleCollections
            'gvv.DataBind()

        End If
    End Sub
    Public Sub CargaDatos()
        Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
        Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
        Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)

        If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero()) Then
            DtDatos = ObjConta.DtResultados
            Gv.DataSource = ObjConta.DtResultados
            'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
            '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
            '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
            'Else
            '    ViewState("DTPolizas") = ObjConta.DtResultados
            '    DtDatos = ObjConta.DtResultados
            'End If

        End If

        Gv.DataBind()

        ObjConta.Dispose()
        UpDatos.Update()
    End Sub

    Private Sub CargaSegmentoNeg()
        Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
        If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
            DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
            DdlSegmentoNeg.DataBind()
        End If
        ObjContPAQ.Dispose()
        DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Private Sub CargaEjercicios()
        Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
        If ClsConta.GetEjercicios() Then
            DdlEjercicio.DataSource = ClsConta.DtResultados
        Else
            DdlEjercicio.DataSource = Nothing
        End If
        ClsConta.Dispose()
        DdlEjercicio.DataBind()

        DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub

    Private Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEjercicio.SelectedIndexChanged
        CargaDatos()
    End Sub

    Private Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged
        CargaDatos()
    End Sub

    'Private Sub DdlTipoPoliza_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPoliza.SelectedIndexChanged
    '    CargaDatos()
    'End Sub

#Region "O R D E N A M I E N T O"
    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim Orden As String = ""
        Dim Campo As String = ""
        Dim Literal As Literal = Nothing
        Const OrdenInicial As String = ""
        Dim Arg(2) As String

        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
        Campo = Arg(0)
        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)

        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
        Else
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
        End If
        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
        ViewState("Orden") = Orden
        'CargaGrid(Orden)
    End Sub
    'Private Sub CargaGrid(Orden As String)
    '    If Orden <> String.Empty Then
    '        Dim DV As New DataView(CType(ViewState("DTPolizas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
    '        Gv.DataSource = DV.ToTable()
    '        DV.Dispose()
    '    Else
    '        Gv.DataSource = CType(ViewState("DTPolizas"), DataTable)
    '    End If
    '    Gv.DataBind()
    'End Sub

#End Region

#Region "IMPRIMIR"
    Private Sub ImprimirPoliza(Optional Formato As String = "PDF")
        If DtDatos IsNot Nothing Then
            Dim params As New List(Of ReportParameter)
            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 dt As DataTable = DtDatos


            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("Ejercicio", DdlEjercicio.SelectedItem.ToString))
            params.Add(New ReportParameter("Periodo", DdlPeriodo.SelectedItem.ToString))

            If Imagen.Exists Then
                params.Add(New ReportParameter("LogoPath", logouri))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If
            ImprimirPDF("Empresas/Grales/Formatos/PolizasPeriodo.rdlc", dt, params, String.Format("ReporteDePolizas-{0} {1}", DdlEjercicio.SelectedItem, DdlPeriodo.SelectedItem), Formato:=Formato)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If


    End Sub

    Private Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
        ImprimirPoliza("PDF")
    End Sub

    Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
        ImprimirPoliza("EXCEL")
    End Sub
#End Region

#Region "HISTORIAL DE ELIMINACION"

    Private Sub CargaGvBitacora()
        Dim ObjGral As New ClsGenerales
        If ObjGral.GetHistorialBitacoraRemoveGet("Polizas", UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, DdlTipoPolizaFiltro.SelectedValue.ToEntero) Then
            GvBitacora.DataSource = ObjGral.DtResultados
        End If
        ObjGral.Dispose()
        GvBitacora.DataBind()
    End Sub

    Private Sub BtnMostrar_Click(sender As Object, e As EventArgs) Handles BtnMostrar.Click
        GvBitacora.Visible = True
        DivBusquedaBitacora.Visible = True
        DivFiltrosBitacora.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
        DivBusquedaBitacora.Visible = False
        DivFiltrosBitacora.Visible = False
        BtnOcultar.Visible = False
        BtnMostrar.Visible = True
        UpBitacora.Update()
    End Sub

    Protected Sub BtnConsultarBitacora_Click(sender As Object, e As EventArgs)
        CargaGvBitacora()
        UpBitacora.Update()
    End Sub

#End Region


End Class