SIG/Compras/ProveedoresAuxiliar.aspx.vb

Option Explicit On
Option Strict On

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

Partial Class Compras_ProveedoresAuxiliar
    Inherits ClsPaginas

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

    Private ReadOnly Property CveActivoFijo As Integer
        Get
            Return ViewState("CveActivoFijo").ToString.ToEntero
        End Get
    End Property

    Private Property DTAFCaracteristicas As DataTable
        Get
            Return CType(ViewState("DTAFCaracteristicas"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DTAFCaracteristicas") = value
        End Set
    End Property

    Private Property DtDatos As DataTable
        Get
            Return DirectCast(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
            CargaFiltros()
        End If
    End Sub



    Private Sub CargaFiltros()

        If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
            DdlProveeedores.setEsWebService(True)
            DdlProveeedores.Attributes.Add("data-metodo", "getproveedores")
            DdlProveeedores.SelectedText = "Todos"
            DdlProveeedores.SelectedValue = "-1"
        Else
            DdlProveeedores.setEsWebService(False)
            DdlProveeedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
            DdlProveeedores.ddl.DataBind()
            DdlProveeedores.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        End If

        'DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
        'DdlConceptosContables.DataBind()
        'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))


        txtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
        txtFechaF.Text = Now.ToString("dd/MM/yyyy")

    End Sub

    Private Sub CargaDatos()

        Dim ObjConta As New ClsContabilidad

        'Falta PA
        If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa,
                                           DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, DdlOpcionContabilizable.SelectedValue.ToEntero) Then
            If DdlOpcion.SelectedValue.ToEntero = 2 Then
                GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ")
            Else
                GvP.DataSource = ObjConta.DtResultados
            End If

        Else
            GvP.DataSource = Nothing
        End If
        DtDatos = ObjConta.DtResultados
        ObjConta.Dispose()

        GvP.DataBind()

        UpDatos.Update()

    End Sub

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

#Region "I M P R I M I R"
    Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
        GenerarPDF("EXCEL")
    End Sub

    Private Sub GenerarPDF(Opcion As String)
        Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"
        Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"
        If txtFechaI.Text = "" Then FechaIn = ""
        If txtFechaF.Text = "" Then FechaFn = ""
        Dim Proveedor = If(DdlProveeedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveeedores.SelectedText}")
        If DtDatos IsNot Nothing AndAlso DtDatos.Rows.Count > 0 Then
            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 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.ToString))
            params.Add(New ReportParameter("Filtros", $"<b>Filtros:</b> {Proveedor}{FechaIn}{FechaFn}"))
            If Imagen.Exists Then
                params.Add(New ReportParameter("LogoPath", logouri))
            Else
                params.Add(New ReportParameter("LogoPath", ""))
            End If
            ImprimirPDF("Empresas/Grales/Formatos/AuxiliarProveedor.rdlc", DtDatos, params, "AuxiliarProveedor", Opcion)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If
    End Sub
    Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
        GenerarPDF("PDF")
    End Sub
#End Region

    Protected Sub GvP_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            If DdlOpcion.SelectedValue.ToEntero = 2 Then
                If Not e.Row.DBCampo("CveConceptoContable").ToEntero > 0 Then
                    e.Row.CssClass = "Totales"
                Else
                    e.Row.Cells(0).Text = ""
                    e.Row.Cells(7).Text = ""
                End If
            End If
            If e.Row.DBCampo("TipoReferencia").ToEntero = 1 Then
                e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Bancos/IE.aspx?CveIE={e.Row.DBCampo("CveReferencia").ToEntero}"
            ElseIf e.Row.DBCampo("TipoReferencia").ToEntero = 2 Then
                e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Compras/Compras.aspx?CveCompra={e.Row.DBCampo("CveReferencia").ToEntero}"
            ElseIf e.Row.DBCampo("TipoReferencia").ToEntero = 3 Then
                e.Row.FCHyperLink("HplReferencia").NavigateUrl = $"/Ventas/Ventas.aspx?CveVenta={e.Row.DBCampo("CveReferencia").ToEntero}"
            End If
            If e.Row.DBCampo("CveConceptoContable").ToEntero = 5 AndAlso e.Row.DBCampo("Importe").ToString.ToDouble < 0 Then
                e.Row.ForeColor = Drawing.Color.Red
            End If
        End If
    End Sub
End Class