SIG/Ventas/MetasVendedoresDetalle.aspx.vb

Imports Extensiones

Partial Class MetasVendedoresDetalle
    Inherits ClsPaginas

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

        End If
    End Sub
    Private Sub CargaDatosFiltros()

        TxtFechaMes.Text = IfNull(Request("Fecha"), "2000/01/01").ToString

        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyectoFiltro.DataBind()
        DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlMarcaFiltro.DataSource = GlobalDTGralMarcas(UsuarioActual.CveEmpresa)
        DdlMarcaFiltro.DataBind()
        DdlMarcaFiltro.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
        DdlVendedorFiltro.DataBind()
        DdlVendedorFiltro.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
        DdlCategoria.DataBind()
        DdlCategoria.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=1)
        DdlClasificaciones.DataBind()
        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))

        DdlClasificacion2.DataSource = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
        DdlClasificacion2.DataBind()
        DdlClasificacion2.Items.Insert(0, New ListItem("Todos", "-1"))


        DdlSubProyectoFiltro.SelectedValueExist(IfNull(Request("CveSubProyecto"), "-1").ToString)
        DdlMarcaFiltro.SelectedValueExist(IfNull(Request("CveMarca"), "-1").ToString)
        DdlVendedorFiltro.SelectedValueExist(IfNull(Request("CveVendedor"), "-1").ToString)
        DdlCategoria.SelectedValueExist(IfNull(Request("CveCategoria"), "-1").ToString)
        DdlClasificaciones.SelectedValueExist(IfNull(Request("CveClasificacion"), "-1").ToString)
        DdlClasificacion2.SelectedValueExist(IfNull(Request("CveClasificacion2"), "-1").ToString)
        CargarDatos()

    End Sub

    Private Sub CargarDatos()
        Dim CveCliente As Integer = -1
        If DdlClientes.SelectedValue.ToEntero > 0 Then
            CveCliente = DdlClientes.SelectedValue.ToEntero
        End If

        Dim ObjVentas As New ClsVentas
        If ObjVentas.GetRepMetasVendedoresDetalle(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
                                           DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
                                           DdlSubProyectoFiltro.SelectedValue.ToEntero, CveCliente, DdlDistribuidor.SelectedValue.ToEntero, DdlGrupo.SelectedValue.ToEntero) Then
            GV.DataSource = ObjVentas.DtResultados

        End If
        ObjVentas.Dispose()
        GV.DataBind()
    End Sub

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



    'Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) Handles LnkPDF.Click
    '    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("pEmp", UsuarioActual.Empresa.Empresa))
    '    params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
    '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
    '    params.Add(New ReportParameter("FechaImpresion", Today))
    '    params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
    '    params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))

    '    ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "PDF", RDSName:="DataSet1")
    'End Sub

    'Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
    '    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("pEmp", UsuarioActual.Empresa.Empresa))
    '    params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
    '    params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
    '    params.Add(New ReportParameter("FechaImpresion", Today))
    '    params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
    '    params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))

    '    ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "Excel", RDSName:="DataSet1")
    'End Sub

    Private Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
        DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveCategoria:=DdlCategoria.SelectedValue.ToEntero, UsoClasificacion:=1)
        DdlClasificaciones.DataBind()
        DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub
End Class