From d2207475af5268a7bb88780cf70807f3ec7b9fa1 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 17 Sep 2024 09:20:34 -0700 Subject: [PATCH] Promociones --- Transportes/RepContratoDetalle.aspx.vb | 29 ++++++++--- Ventas/Promociones.aspx | 20 ++++++-- Ventas/Promociones.aspx.vb | 70 ++++++++++++++++++++------ 3 files changed, 96 insertions(+), 23 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index b766777c9..d40cd7769 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -350,19 +350,36 @@ Partial Class RepContratoDetalle New ReportParameter("Servicio", TxtDescripcion.Text), New ReportParameter("Observaciones", TxtObservaciones.Text), New ReportParameter("Ubicacion", TxtUbicacion.Text), - New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy")), - New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy")), + New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy HH:mm tt")), + New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy HH:mm tt")), New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text), New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()), - New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), + New ReportParameter("Pesos", TxtImporte.Text.ToDecimal.ToString("###,###,###.00")), New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString), - New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal), 2).ToString), - New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString), - New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "), + New ReportParameter("Anticipo", TxtAnticipo.Text.ToDecimal.ToString("###,###,###.00")), + New ReportParameter("Total", (TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal)).ToString("###,###,###.00")), + New ReportParameter("DiaSalida", TxtFechaSalida.Text.ToDate.ToString("HH:mm tt")), New ReportParameter("TelefonoEmpresa", TelefonoEmpresa), New ReportParameter("FechaImpresion", Date.Now.ToString("dd/MM/yyyy HH:mm:ss")), New ReportParameter("Usuario", UsuarioActual.Nombre) } + 'New ReportParameter("Folio", TxtFolio.Text), + ' New ReportParameter("Cliente", DdlClientes.SelectedText), + ' New ReportParameter("Servicio", TxtDescripcion.Text), + ' New ReportParameter("Observaciones", TxtObservaciones.Text), + ' New ReportParameter("Ubicacion", TxtUbicacion.Text), + ' New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy")), + ' New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy")), + ' New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text), + ' New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()), + ' New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), + ' New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString), + ' New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal), 2).ToString), + ' New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString), + ' New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "), + ' New ReportParameter("TelefonoEmpresa", TelefonoEmpresa), + ' New ReportParameter("FechaImpresion", Date.Now.ToString("dd/MM/yyyy HH:mm:ss")), + ' New ReportParameter("Usuario", UsuarioActual.Nombre) ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:=TxtFolio.Text) End Sub diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index dd2461ac2..b3f400918 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -205,21 +205,35 @@ OnRowDataBound="GvDatos_RowDataBound" > - - <%----%> + <%--0--%> + + <%--1--%> + <%--2--%> + <%--3--%> + <%--4--%> + <%--5--%> + + + + + <%--6--%> + <%--7--%> + <%--8--%> + <%--9--%> + <%--10--%> @@ -301,7 +315,7 @@

Agregar Producto/Servicio

-
+
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 0d90fe29d..717458325 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -1,13 +1,11 @@ Option Explicit On Option Strict On -Imports System.Activities.Expressions + Imports System.Data -Imports DocumentFormat.OpenXml.Drawing.Diagrams Imports Extensiones -Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl -Imports Microsoft.Owin.Security.Provider -Imports Telerik.Web.UI +Imports Stimulsoft.Report + Partial Class Ventas_Promociones Inherits ClsPaginas @@ -160,7 +158,13 @@ Partial Class Ventas_Promociones PermisoAutorizPromocionPorcentaje = UsuarioActual.TienePermisoProceso(386) EmpresaFnc382 = If(UsuarioActual.Empresa.Funcionalidad(382) = "1", True, False) 'Grupo díaz - 'EmpresaFnc382 = True ''Para pruebas + EmpresaFnc382 = True ''Para pruebas + + If EmpresaFnc382 Then + DVModalClasificacion.Visible = False + GvDatos.Columns(6).Visible = True + GvDatos.Columns(7).Visible = True + End If CvePromocion = -1 CargaValoresIniciales() @@ -187,10 +191,16 @@ Partial Class Ventas_Promociones CargaGvBitacora() + + End If End Sub + Private Sub RemoverClasificacion() + + End Sub + #Region "BITACORA" @@ -260,7 +270,7 @@ Partial Class Ventas_Promociones DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then - GvDatos.Columns(8).Visible = True + GvDatos.Columns(10).Visible = True DivRin.Visible = True 'Dim ObjGral As New ClsGenerales 'If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then @@ -315,6 +325,7 @@ Partial Class Ventas_Promociones TempDT.Columns.Add("UltimoCosto", GetType(Decimal)) TempDT.Columns.Add("CostoPromedio", GetType(Decimal)) + TempDT.Columns.Add("UtilidadPorcentaje", GetType(Decimal)) TempDTOrigial = TempDT.Copy @@ -499,6 +510,8 @@ Partial Class Ventas_Promociones Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) + Dim CveTipoPromocion As Integer = DdlTipoPromocion.SelectedValue.ToEntero + If DdlClasificacion.SelectedValue.ToEntero <= 0 Then If DdlPS.SelectedValue.ToEntero <= 0 Then Alert("Debe seleccionar una clasificacion o un producto y/o servicio", TipoMensaje.MsgAdvertencia) @@ -545,15 +558,11 @@ Partial Class Ventas_Promociones Dr("CodigoPS") = If(String.IsNullOrEmpty(DdlPS.SelectedText), "Todos", DdlPS.SelectedText) Dr("PUAnterior") = LbPUActual.Text.ToDecimal - Dr("UltimoCosto") = LblUltimoCosto.Text.ToDecimal - Dr("CostoPromedio") = LblCostoPromedio.Text.ToDecimal - - - Dr("CveTipoPromocion") = DdlTipoPromocion.SelectedValue.ToEntero - Dr("TipoPromocion") = DdlTipoPromocion.SelectedItem.Text + Dr("CveTipoPromocion") = CveTipoPromocion + Dr("TipoPromocion") = CveTipoPromocion Dr("Promocion") = TxtPromocionConcepto.Text - If DdlTipoPromocion.SelectedValue.ToEntero.Contiene(1, 3) Then + If CveTipoPromocion.Contiene(1, 3) Then Dr("PUPromocion") = TxtPromocionConcepto.Text.ToDecimal Else Dr("PUPromocion") = LbPUActual.Text.ToDecimal - (LbPUActual.Text.ToDecimal * TxtPromocionConcepto.Text.ToDecimal / 100) @@ -596,6 +605,39 @@ Partial Class Ventas_Promociones Dr("CveRinTamaño") = -1 End If + Dim UltimoCosto As Decimal = LblUltimoCosto.Text.ToDecimal + Dim CostoPromedio As Decimal = LblCostoPromedio.Text.ToDecimal + + Dr("UltimoCosto") = UltimoCosto + Dr("CostoPromedio") = CostoPromedio + + + + If UltimoCosto > 0 Then + + Dim Promocion As Decimal = TxtPromocionConcepto.Text.ToDecimal + + If CveTipoPromocion = 1 Then 'importe + Dim porciento As Decimal = (Promocion * 100 / UltimoCosto) - 100 + Dr("UtilidadPorcentaje") = porciento + ElseIf CveTipoPromocion = 2 Then '% descuento + + Dim calculo As Decimal = (UltimoCosto) - (UltimoCosto * (Promocion / 100)) + Dim porciento As Decimal = (calculo * 100 / UltimoCosto) - 100 + Dr("UtilidadPorcentaje") = porciento + + End If + + Else + Dr("UtilidadPorcentaje") = 0.0D + End If + + + + + + + If CveConsecutivo >= 0 Then Dr.AcceptChanges() Else