reporte metas por vendedor

2020-03-07 00:29:12 -07:00
parent 10e88ccca2
commit 8d1d4be53d
3 changed files with 103 additions and 6 deletions
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4307,7 +4307,7 @@ Public Class ClsVentas
    End Function

    Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer,
-                                          CveClasificacion2 As Integer, CveMarca As Integer) As Boolean
+                                          CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer) As Boolean
        Dim retorno As Boolean = False
        DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure)
        With SqlAdapter.SelectCommand.Parameters
@@ -4318,6 +4318,7 @@ Public Class ClsVentas
            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
        End With
        Try
            SqlAdapter.Fill(Data)
--- a/Ventas/MetasVendedores.aspx
+++ b/Ventas/MetasVendedores.aspx
@@ -68,9 +68,7 @@
                    <div class="titlefiltros caption magindate">
                        <div class="row">

-                            
-
-                            <div class="col-md-1 truncate">Fecha del mes: </div>
+                            <div class="col-md-1 truncate text-right">Fecha del mes: </div>
                            <div class="col-md-2 col-sm-2">
                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
                                    <asp:TextBox Style="width: 80px !important;" ID="TxtFechaMes" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -89,7 +87,7 @@
                            </div>
                        </div>
                        <div class="row" style="margin-top: 10px">
-                            <label class="col-md-1 ">Marca: </label>
+                            <label class="col-md-1 text-right">Marca: </label>
                            <div class="col-md-3">
                                <asp:DropDownList ID="DdlMarcaFiltro" runat="server" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me"></asp:DropDownList>
                            </div>
@@ -104,7 +102,7 @@
                                <asp:DropDownList ID="DdlCategoria" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCategoria" DataTextField="Categoria"></asp:DropDownList>
                            </div>
                        </div>
-                        <div class="row">
+                        <div class="row" style="margin-top: 10px">
                            <label class="col-md-1 text-right">Clasificaciones: </label>
                            <div class="col-md-3">
                                <asp:DropDownList ID="DdlClasificaciones" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
@@ -129,6 +127,43 @@
            </div>
        </ContentTemplate>
    </asp:UpdatePanel>
+    <div id="dvCuerpo" style="width: 100%">
+        <asp:UpdatePanel ID="UPDatos" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+            <ContentTemplate>
+                <asp:GridView ID="GV" runat="server" GridLines="None" BorderWidth="0" UseAccessibleHeader="true" DataKeyNames="Titulo,Etiqueta,RealMes,VtaMesAA,RealAcumulado,RealMesPorcentaje"
+                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                    AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                    <Columns>
+                        <asp:TemplateField HeaderText="Grupo" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="HlkGrupo" runat="server" Target="_blank" Text='<%# Eval("Titulo").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Mes" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Ventata Mes Año Anterior" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblVtaMesAA" runat="server" Target="_blank" Text='<%# Eval("VtaMesAA").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Acumulado" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealAcumulado" runat="server" Target="_blank" Text='<%# Eval("RealAcumulado").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Mes Porcentaje" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealMesPorcentaje" runat="server" Target="_blank" Text='<%# Eval("RealMesPorcentaje").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                    </Columns>
+                </asp:GridView>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
    <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
        <div class="modal-dialog" style="width: 450px;">
            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -4,14 +4,26 @@ Imports Microsoft.Reporting.WebForms

 Partial Class MetasVendedores
    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
            CargaDatosModal()
            CargaDatosFiltros()
+            CargarDatosReporte()
        End If
    End Sub
    Private Sub CargaDatosFiltros()
+        Dim dNow As Date = Now
+        TxtFechaMes.Text = dNow.ToString("dd/MM/yyyy")
+
        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
        DdlSubProyectoFiltro.DataBind()
        DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -55,6 +67,17 @@ Partial Class MetasVendedores
        DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

+    Private Sub CargarDatosReporte()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
+                                           DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
    Private Sub ResetDatosSeleccionadosModal()
        DdlVendedores.SelectedValue = "-1"
        TxtFechaI.Text = ""
@@ -83,4 +106,42 @@ Partial Class MetasVendedores
        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
        ResetDatosSeleccionadosModal()
    End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        CargarDatosReporte()
+        UPDatos.Update()
+    End Sub
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Select Case e.Row.DataKey("Etiqueta")
+                Case "Categoria"
+                    e.Row.CssClass = "Totales"
+                Case "Clasificacion"
+                    e.Row.CssClass = "SubTotales2"
+                Case "Clasificacion2"
+                    e.Row.CssClass = "SubTotales"
+                Case "Marca"
+            End Select
+        End If
+    End Sub
+
+    Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) Handles LnkPDF.Click
+        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("pEmp", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        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
 End Class