Option Explicit On
Option Strict On

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

Partial Class Contabilidad2_PolizasImpresion
    Inherits ClsPaginas


    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
        If Not IsPostBack Then
            TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
            TxtFechaFin.Text = Now.ToShortDateString

            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
            DdlUsuarioRegistro.DataBind()
            cargaddlpolizas()
            CargaSubProyectos()
            CargaCuentas()
        End If
    End Sub
    Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click
        Dim foli As Integer = -1
        Dim folf As Integer = -1
        If Not FolioInicio.Text = "" Then
            foli = FolioInicio.Text.ToEntero()
        End If
        If Not FolioFin.Text = "" Then
            folf = FolioFin.Text.ToEntero()
        End If

        Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc"

        If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then
            ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
        End If

        Dim ObjConta As New ClsContabilidad
        If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
                                           FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero,
                                           CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
                                           CveTipoProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
            If ObjConta.DtResultados.Rows.Count < 10000 Then

                If ObjConta.DtResultados.Rows.Count > 0 Then
                    Dim dr As DataRow
                    dr = ObjConta.DtResultados.Rows(0)
                    Dim params As New List(Of ReportParameter)
                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                    params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
                    params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text))
                    params.Add(New ReportParameter("FFin", TxtFechaFin.Text))
                    params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
                    'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
                    'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
                    params.Add(New ReportParameter("Numero", dr("Folio").ToString))
                    params.Add(New ReportParameter("Moneda", ""))
                    params.Add(New ReportParameter("CodigoPostal", ""))

                    If UsuarioActual.CveEmpresa = 119 Then
                        params.Add(New ReportParameter("UsuarioRegistro", dr("NombreUsuario").ToString))
                    End If

                    ImprimirPDF(ArchivoReporte, ObjConta.DtResultados, params)

                Else
                    Alert("Los Filtros Actuales no contienen datos")
                End If

            Else
                Alert("Los Filtros Actuales contienen muchos datos")
            End If
        End If
        ObjConta.Dispose()

    End Sub
    Private Sub cargaddlpolizas()
        Dim objcont As New ClsContabilidad
        If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
            ddlTipoPoliza.DataSource = objcont.DtResultados
            ddlTipoPoliza.DataBind()
            ddlTipoPoliza.Items.Insert(0, New ListItem("Todos", "-1"))

        End If
        objcont.Dispose()
        DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Private Sub CargaSubProyectos()
        DdlSubProyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
        DdlSubProyectos.DataBind()
        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlSubProyectos.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
    End Sub

    Private Sub CargaCuentas()

        Dim objconta As New ClsContabilidad
        If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
            DdlCuenta.DataSource = objconta.DtResultados
        End If
        objconta.Dispose()
        DdlCuenta.DataBind()

        DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

End Class