diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 68b4135f7..24f10f87e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4664,6 +4664,7 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/CatCobranzaEstatus.aspx".ToUpper(), 7003) PaginaDict.Add("/Ventas/CatCobranzaEstatusTurno.aspx".ToUpper(), 7004) PaginaDict.Add("/Ventas/RepVentasMensuales.aspx".ToUpper(), 720) + PaginaDict.Add("/Ventas/RepVentasMensualesDetalle.aspx".ToUpper(), 721) #End Region diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 08e6787ab..11ddf58d4 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -4238,6 +4238,27 @@ Public Class ClsVentas End Try Return retorno End Function + Public Function GetRepVentasMensualesDetalle(CveEmpresa As Integer, CveCliente As Integer, FechaInicio As Date, FechaFin As Date, Optional CveSubProyecto As Integer = -1, + Optional CveVendedor As Integer = -1, Optional CveMarca As Integer = -1) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_VentasMensualesDetalleGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@FechaInicio", SqlDbType.DateTime).Value = FechaInicio + .Add("@FechaFin", SqlDbType.DateTime).Value = FechaFin + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el reporte de ventas mensuales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function #Region "Conciliación emitidas SAT" Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean diff --git a/Ventas/RepVentasMensuales.aspx b/Ventas/RepVentasMensuales.aspx index ab8d6d231..248ffec8c 100644 --- a/Ventas/RepVentasMensuales.aspx +++ b/Ventas/RepVentasMensuales.aspx @@ -150,72 +150,72 @@ - + - + - + - + - + - + - + - + - + - + - + - + - + - + @@ -227,106 +227,4 @@ - <%-- --%> diff --git a/Ventas/RepVentasMensuales.aspx.vb b/Ventas/RepVentasMensuales.aspx.vb index d8f37b22f..70ad49927 100644 --- a/Ventas/RepVentasMensuales.aspx.vb +++ b/Ventas/RepVentasMensuales.aspx.vb @@ -85,4 +85,36 @@ Partial Class RepVentasMensuales Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls") End Sub + + Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + Dim CveCliente As Integer = -1 + Dim CveSubProyecto As Integer = -1 + If DdlModalidad.SelectedValue = "0" Then + CveCliente = e.Row.DataKey("Clave").ToEntero + CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero + Else + CveSubProyecto = e.Row.DataKey("Clave") + End If + Dim FechaInicio As Date = TxtFechaI.Text + Dim FechaFin As Date = TxtFechaF.Text + Dim CveMarca As Integer = DdlMarca.SelectedValue.ToEntero + Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero + Dim URL As String = String.Format("/Ventas/RepVentasMensualesDetalle.aspx?CveCliente={0}&CveSubProyecto={1}&FechaInicio={2}&FechaFin={3}&CveMarca={4}&CveVendedor={5}", + CveCliente, CveSubProyecto, FechaInicio, FechaFin, CveMarca, CveVendedor) + e.Row.FCHyperLink("HlkNombre").NavigateUrl = URL + e.Row.FCHyperLink("LblEne").NavigateUrl = URL + e.Row.FCHyperLink("LblFeb").NavigateUrl = URL + e.Row.FCHyperLink("LblMzo").NavigateUrl = URL + e.Row.FCHyperLink("LblAbr").NavigateUrl = URL + e.Row.FCHyperLink("LblMay").NavigateUrl = URL + e.Row.FCHyperLink("LblJun").NavigateUrl = URL + e.Row.FCHyperLink("LblJul").NavigateUrl = URL + e.Row.FCHyperLink("LblAgo").NavigateUrl = URL + e.Row.FCHyperLink("LblSep").NavigateUrl = URL + e.Row.FCHyperLink("LblOct").NavigateUrl = URL + e.Row.FCHyperLink("LblNov").NavigateUrl = URL + e.Row.FCHyperLink("LblDic").NavigateUrl = URL + End If + End Sub End Class diff --git a/Ventas/RepVentasMensualesDetalle.aspx b/Ventas/RepVentasMensualesDetalle.aspx new file mode 100644 index 000000000..2aaaad5be --- /dev/null +++ b/Ventas/RepVentasMensualesDetalle.aspx @@ -0,0 +1,142 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepVentasMensualesDetalle.aspx.vb" Inherits="RepVentasMensualesDetalle" %> + + + + + + + + + + Rep. Detalle de la Venta Mensual + + +
  • + PDF +
    • +
  • + Excel +
    • +     + +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +     + + + + diff --git a/Ventas/RepVentasMensualesDetalle.aspx.vb b/Ventas/RepVentasMensualesDetalle.aspx.vb new file mode 100644 index 000000000..e707f66b6 --- /dev/null +++ b/Ventas/RepVentasMensualesDetalle.aspx.vb @@ -0,0 +1,74 @@ +Imports System.Data +Imports Extensiones +Imports Microsoft.Reporting.WebForms + +Partial Class RepVentasMensualesDetalle + 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 + CargaDatos() + End If + End Sub + + Private Sub CargaDatos() + 'URL DE PRUEBA + '/Ventas/RepVentasMensualesDetalle.aspx?CveCliente=270821&CveSubProyecto=-1&FechaInicio=2020-02-15&FechaFin=2020-02-20&CveMarca=-1&CveVendedor=-1 + Dim FechaInicio As Date = Request.QueryString("FechaInicio") + Dim FechaFin As Date = Request.QueryString("FechaFin") + Dim CveCliente As Integer = Request.QueryString("CveCliente") + Dim CveSubProyecto As Integer = Request.QueryString("CveSubProyecto") + Dim CveMarca As Integer = Request.QueryString("CveMarca") + Dim CveVendedor As Integer = Request.QueryString("CveVendedor") + + Dim ObjVentas As New ClsVentas + If ObjVentas.GetRepVentasMensualesDetalle(UsuarioActual.CveEmpresa, CveCliente, FechaInicio, FechaFin, CveSubProyecto, CveVendedor, CveMarca) Then + GV.DataSource = ObjVentas.DtResultados + DtDatos = ObjVentas.DtResultados + End If + ObjVentas.Dispose() + GV.DataBind() + End Sub + + Public Sub LnkPDF_Click() 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("Modalidad", 2)) + + ImprimirPDF("Empresas/Grales/Formatos/RepVentasMensualesDetalle.rdlc", DtDatos, params, "Rep. Ventas Mensuales", "PDF", RDSName:="DataSet1") + End Sub + + Public Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + GV.ExportToExcel("Evaluaciones de Proveedores" & Now.ToShortDateString & ".xls") + End Sub + + Public Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + If e.Row.DataKey("Etiqueta") = "Padre" Then + e.Row.CssClass = "Totales" + ElseIf e.Row.DataKey("Etiqueta") = "SubPadre" Then + e.Row.CssClass = "SubTotales" + End If + End If + End Sub +End Class