From 865a41e1041e08e8ce7ac2ef254ee28103517ca1 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 19 Jul 2021 13:37:24 -0700 Subject: [PATCH] Reporte de comisiones de servec --- App_Code/ClsPaginas.vb | 2 + App_Code/ClsVentas.vb | 44 +++++++++ Ventas/RepComisionesServec.aspx | 104 ++++++++++++++++++++ Ventas/RepComisionesServec.aspx.vb | 63 +++++++++++++ Ventas/RepComisionesServecDetalle.aspx | 110 ++++++++++++++++++++++ Ventas/RepComisionesServecDetalle.aspx.vb | 85 +++++++++++++++++ 6 files changed, 408 insertions(+) create mode 100644 Ventas/RepComisionesServec.aspx create mode 100644 Ventas/RepComisionesServec.aspx.vb create mode 100644 Ventas/RepComisionesServecDetalle.aspx create mode 100644 Ventas/RepComisionesServecDetalle.aspx.vb diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index e9dae6449..7c3e1743f 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -5085,6 +5085,8 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/CatMetasVendedores.aspx".ToUpper(), 723) PaginaDict.Add("/Ventas/RepAuxiliarFacturas.aspx".ToUpper(), 567) PaginaDict.Add("/Ventas/CatAutorizacionLimites.aspx".ToUpper(), 781) + PaginaDict.Add("/Ventas/RepComisionesServec.aspx".ToUpper(), 782) + PaginaDict.Add("/Ventas/RepComisionesServecDetalle.aspx".ToUpper(), 783) #End Region diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index d2d08206d..576c9b935 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -3825,6 +3825,50 @@ Public Class ClsVentas Return Retorno End Function + Public Function GetRepComisionesServec(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ReporteComisionesServecGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Comisiones.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetRepComisionesServecDetalle(CveVendedor As Integer, FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_ReporteComisionesServecDetalleGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor + .Add("@FechaI", SqlDbType.Date).Value = FechaI + .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Comisiones Detalle.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region #Region "REPORTE DE PRODUCTOS SERVICIOS PERIODO" diff --git a/Ventas/RepComisionesServec.aspx b/Ventas/RepComisionesServec.aspx new file mode 100644 index 000000000..86fcd5566 --- /dev/null +++ b/Ventas/RepComisionesServec.aspx @@ -0,0 +1,104 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComisionesServec.aspx.vb" Inherits="Ventas_RepComisionesServec" %> + + + + + + + Reporte de comisiones + + + + + + + + + + +
+
+
+ +
+
+
+ +
+ + + +
+ +
+ + + +
+ +
+
+ + + + +
+ + + + + + +
+ +
+
+ + + + +
+ + + + + + +
+
+
+ +
+
+ + +
+
+

Importes expresados en moneda nacional

+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
+ + + + + + + + + + + + + + + + + + + + + diff --git a/Ventas/RepComisionesServec.aspx.vb b/Ventas/RepComisionesServec.aspx.vb new file mode 100644 index 000000000..594a94faa --- /dev/null +++ b/Ventas/RepComisionesServec.aspx.vb @@ -0,0 +1,63 @@ +Option Explicit On +Option Strict On + +Imports Extensiones +Imports System.Data + +Partial Class Ventas_RepComisionesServec + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataBind() + + InicializaValores() + End If + End Sub + +#Region " INICIALIZA VALORES " + + Private Sub InicializaValores() + txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString + txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DdlVendedor.DataBind() + + End Sub + +#End Region + + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click + CargaDatos() + UPDatos.Update() + End Sub + + Private Sub CargaDatos() + Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) + Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) + Dim ObjVentas As New ClsVentas() + + If ObjVentas.GetRepComisionesServec(DdlVendedor.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjVentas.DtResultados + Else + GvDatos.DataSource = Nothing + End If + ObjVentas.Dispose() + GvDatos.DataBind() + End Sub + + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + Select Case e.Row.DBCampo("TipoFila").ToString.ToEntero() + Case 1 + e.Row.CssClass = "Totales" + Case Else + e.Row.CssClass = "Texto" + End Select + + e.Row.FCHyperLink("HLVendedor").NavigateUrl = String.Format("/Ventas/RepComisionesServecDetalle.aspx?CveVendedor={0}&CveSubProyecto={1}&FechaI={2:dd/MM/yyy}&FechaF={3:dd/MM/yyy}", e.Row.DBCampo("CveVendedor"), DdlSubProyecto.SelectedValue, If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha), If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)) + End If + End Sub +End Class diff --git a/Ventas/RepComisionesServecDetalle.aspx b/Ventas/RepComisionesServecDetalle.aspx new file mode 100644 index 000000000..11d57435d --- /dev/null +++ b/Ventas/RepComisionesServecDetalle.aspx @@ -0,0 +1,110 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComisionesServecDetalle.aspx.vb" Inherits="Ventas_RepComisionesServecDetalle" %> + + + + + + + Reporte de comisiones - Detalle + + + + + + + + + + +
+
+
+ +
+
+
+ +
+ + + +
+ +
+ + + +
+ +
+
+ + + + +
+ + + + + + +
+ +
+
+ + + + +
+ + + + + + +
+
+
+ +
+
+ + +
+
+

Importes expresados en moneda nacional

+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Ventas/RepComisionesServecDetalle.aspx.vb b/Ventas/RepComisionesServecDetalle.aspx.vb new file mode 100644 index 000000000..9ba00bafd --- /dev/null +++ b/Ventas/RepComisionesServecDetalle.aspx.vb @@ -0,0 +1,85 @@ +Option Explicit On +Option Strict On + +Imports Extensiones +Imports System.Data + +Partial Class Ventas_RepComisionesServecDetalle + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataBind() + + InicializaValores() + CargaParametrosDetalle() + End If + End Sub + +#Region " INICIALIZA VALORES " + + Private Sub InicializaValores() + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DdlVendedor.DataBind() + End Sub + + Private Sub CargaParametrosDetalle() + Dim CveVendedor, CveSubProyecto, FechaI, FechaF As String + + CveVendedor = If(Request("CveVendedor") IsNot Nothing AndAlso Request("CveVendedor").ToEntero() > 0, Request("CveVendedor").ToEntero(), -1).ToString + CveSubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString + + FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString + FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString + + DdlVendedor.SelectedValueExist(CveVendedor) + DdlSubProyecto.SelectedValueExist(CveSubProyecto) + + If FechaI <> "-1" Then + txtFechaI.Text = FechaI + End If + If FechaF <> "-1" Then + txtFechaF.Text = FechaF + End If + CargaDatos() + End Sub + +#End Region + + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click + CargaDatos() + UPDatos.Update() + End Sub + + Private Sub CargaDatos() + Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha) + Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha) + Dim ObjVentas As New ClsVentas() + + If ObjVentas.GetRepComisionesServecDetalle(DdlVendedor.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjVentas.DtResultados + Else + GvDatos.DataSource = Nothing + End If + ObjVentas.Dispose() + GvDatos.DataBind() + End Sub + + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + Select Case e.Row.DBCampo("TipoFila").ToString.ToEntero() + Case 1 + e.Row.CssClass = "Totales" + Case 2 + e.Row.CssClass = "SubTotales" + Case 3 + e.Row.CssClass = "SubTotales2" + Case 4 + e.Row.FCHyperLink("HLGrupo").NavigateUrl = String.Format("/Ventas/Ventas.aspx?CveVenta={0}", e.Row.DBCampo("CveVenta")) + End Select + + End If + End Sub + +End Class