From 555773d044667d8dc5bcd7cef5de639560d99a6d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 5 Feb 2020 13:11:06 -0700 Subject: [PATCH] Comisione cobradas en reporte de comisiones --- Ventas/RepComisiones.aspx | 10 ++-- Ventas/RepComisiones.aspx.vb | 96 +++++++++++++++----------------- Ventas/RepComisionesDetalle.aspx | 3 + 3 files changed, 54 insertions(+), 55 deletions(-) diff --git a/Ventas/RepComisiones.aspx b/Ventas/RepComisiones.aspx index 2b5127d5f..293384f61 100644 --- a/Ventas/RepComisiones.aspx +++ b/Ventas/RepComisiones.aspx @@ -117,6 +117,7 @@ --%> + @@ -191,11 +192,12 @@
-
+<%--
- + + @@ -208,11 +210,11 @@
-
+
--%>
- + diff --git a/Ventas/RepComisiones.aspx.vb b/Ventas/RepComisiones.aspx.vb index 6edfa8fbd..e377dfb71 100644 --- a/Ventas/RepComisiones.aspx.vb +++ b/Ventas/RepComisiones.aspx.vb @@ -24,8 +24,8 @@ Partial Class Ventas_RepComisiones Private Sub InicializaValores() txtFechaI.Text = FirstDayOfMonth(Now).ToShortDateString - txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString - + txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString + TxtAnio.Text = Now.Year.ToString() DdlMes.SelectedValueExist(Now.Month) @@ -35,8 +35,8 @@ Partial Class Ventas_RepComisiones DdlVendedorAjuste.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedorAjuste.DataBind() - DdlVendedorPorcentaje.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) - DdlVendedorPorcentaje.DataBind() + 'DdlVendedorPorcentaje.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) + 'DdlVendedorPorcentaje.DataBind() End Sub @@ -205,65 +205,59 @@ Partial Class Ventas_RepComisiones #End Region Protected Sub BtnGuardarPorcentajeComision_Click(sender As Object, e As EventArgs) - Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() - Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() - Dim Anio As Integer = TxtAnio.Text.ToEntero() - - Dim Porcentaje As Decimal = TxtPorcentajeComision.Text.ToDecimal() / 100 - Dim RowCierre As DataRow = Nothing + Dim TieneError As Boolean = False Dim ObjVentas As New ClsVentas Try - If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - RowCierre = ObjVentas.DtResultados.Rows(0) - End If + ObjVentas.IniciaTransacSQL() + Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() + Dim Anio As Integer = TxtAnio.Text.ToEntero() - If RowCierre IsNot Nothing Then - If ObjVentas.UpdateCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then - Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) + For Each GvRow As GridViewRow In GvDatos.Rows + If GvRow.RowType = DataControlRowType.DataRow Then + + If GvRow.DataKey("CveVendedor").ToEntero() > 0 Then + Dim Porcentaje As Decimal = GvRow.DataKey("Comision").ToDecimal() / 100 + + If ObjVentas.GetCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, UsuarioActual.CveEmpresa) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + RowCierre = ObjVentas.DtResultados.Rows(0) + End If + Else + TieneError = True + End If + + If RowCierre IsNot Nothing Then + TieneError = Not ObjVentas.UpdateCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, Porcentaje) + Else + TieneError = Not ObjVentas.AddCierreComisionVendedor(GvRow.DataKey("CveVendedor").ToEntero(), Mes, Anio, Porcentaje) + End If + + If TieneError Then + Exit For + End If + End If + + RowCierre = Nothing End If - Else - If ObjVentas.AddCierreComisionVendedor(CveVendedor, Mes, Anio, Porcentaje) Then - Alert("El porcentaje de comisiones se guardo correctamente.", TipoMensaje.MsgInformacion) - Else - Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) - End If - End If + Next + Catch ex As Exception + TieneError = True OnError("Ocurrió un error al asginar el porcentaje de la comisión", ex) End Try - ObjVentas.Dispose() - - UpPorcentajeComisiones.Update() - End Sub - Protected Sub DdlVendedorPorcentaje_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaPorcentajeComisiones() - End Sub - Protected Sub DdlMes_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaPorcentajeComisiones() - End Sub - Protected Sub CargaPorcentajeComisiones() - Dim CveVendedor As Integer = DdlVendedorPorcentaje.SelectedValue.ToEntero() - Dim Mes As Integer = DdlMes.SelectedValue.ToEntero() - Dim Anio As Integer = TxtAnio.Text.ToEntero() - - Dim RowCierre As DataRow = Nothing - - Dim ObjVentas As New ClsVentas - If ObjVentas.GetCierreComisionVendedor(CveVendedor, Mes, Anio, UsuarioActual.CveEmpresa) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then - RowCierre = ObjVentas.DtResultados.Rows(0) - End If - ObjVentas.Dispose() - - If RowCierre IsNot Nothing Then - TxtPorcentajeComision.Text = (RowCierre("PorcentajeComision").ToString().ToDecimal() * 100).FormatoNumero(0) + If TieneError Then + ObjVentas.RollBack() + Alert("Ocurrió un error al guardar el porcentaje de comisiones.", TipoMensaje.MsgError) Else - TxtPorcentajeComision.Text = "0" + ObjVentas.Commit() + Alert("El porcentaje de comisiones se guardó correctamente.", TipoMensaje.MsgInformacion) End If + ObjVentas.Dispose() + CargaDatos() + UPDatos.Update() UpPorcentajeComisiones.Update() End Sub End Class diff --git a/Ventas/RepComisionesDetalle.aspx b/Ventas/RepComisionesDetalle.aspx index 2cdebf3bb..918565e84 100644 --- a/Ventas/RepComisionesDetalle.aspx +++ b/Ventas/RepComisionesDetalle.aspx @@ -126,6 +126,9 @@ + + + <%----%>