From 23d2497aba9bafe7b73d39700c0b43b3e4bc5036 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 31 Jan 2020 13:13:43 -0700 Subject: [PATCH 1/3] Promociones aplicadas para grupos de productos en Clasificaciones --- App_Code/ClsVentas.vb | 12 ++++++++++-- Ventas/Promociones.aspx | 1 + Ventas/Promociones.aspx.vb | 13 +++++++------ 3 files changed, 18 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 9a0fd3c83..6ac45f7a1 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1991,7 +1991,10 @@ Public Class ClsVentas Return Retorno End Function - Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean + Public Function AddPromocionesDetalle(CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, + AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, + AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1, + Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesDetalleAdd") @@ -2014,6 +2017,7 @@ Public Class ClsVentas .Add("@HoraInicio", SqlDbType.DateTime).Value = HoraInicio .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try @@ -2025,7 +2029,10 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, Optional CantidadMinima As Integer = 1) As Boolean + Public Function UpdatePromocionesDetalle(CvePromocionDetalle As Integer, CvePromocion As Integer, CvePS As Integer, TipoPromocion As Integer, Promocion As Double, PUAnterior As Double, + PUPromocion As Double, AplicaRestriccion As Boolean, AplicaLunes As Boolean, AplicaMartes As Boolean, AplicaMiercoles As Boolean, + AplicaJueves As Boolean, AplicaViernes As Boolean, AplicaSabado As Boolean, AplicaDomingo As Boolean, HoraInicio As DateTime, HoraFin As DateTime, + Optional CantidadMinima As Integer = 1, Optional CveClasificacion As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesDetalleUpdate") @@ -2049,6 +2056,7 @@ Public Class ClsVentas .Add("@HoraFin", SqlDbType.DateTime).Value = HoraFin .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle .Add("@CantidadMinima", SqlDbType.Int).Value = CantidadMinima + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion End With Try diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 6ed0aabef..4a4d6b944 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -180,6 +180,7 @@ + diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index abb594cff..1d9f1a6b6 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -219,8 +219,8 @@ Partial Class Ventas_Promociones Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs) - If DdlPS.SelectedValue.ToEntero <= 0 Then - Alert("Debe seleccionar un Producto/Servicio.", TipoMensaje.MsgAdvertencia) + If DdlClasificacion.SelectedValue.ToEntero <= 0 Then + Alert("Debe seleccionar una clasificacion", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -242,7 +242,7 @@ Partial Class Ventas_Promociones Dr("Clasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("Clasificacion") End If - Dr("CvePS") = DdlPS.SelectedValue + Dr("CvePS") = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue) Dr("CodigoPS") = DdlPS.SelectedText Dr("PUAnterior") = LbPUActual.Text.ToDecimal @@ -388,7 +388,8 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.Rows If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), - Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, + CveClasificacion:=If(Dr("CvePS").ToString = "", 20, Dr("CveClasificacion").ToString.ToEntero)) Then TieneError = True Exit For End If @@ -417,7 +418,7 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 0").Rows If Not ObjVentas.AddPromocionesDetalle(CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), - Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1)) Then TieneError = True Exit For End If @@ -427,7 +428,7 @@ Partial Class Ventas_Promociones For Each Dr As DataRow In TempDT.FiltraParametros("Estatus = 1").Rows If Not ObjVentas.UpdatePromocionesDetalle(Dr("CvePromocionDetalle").ToString.ToEntero, CvePromocion, Dr("CvePS").ToString.ToEntero, Dr("CveTipoPromocion").ToString.ToEntero, Dr("Promocion").ToString.ToDouble, Dr("PUAnterior").ToString.ToDouble, Dr("PUPromocion").ToString.ToDouble, CBool(Dr("AplicaRestriccion")), CBool(Dr("AplicaLunes")), CBool(Dr("AplicaMartes")), CBool(Dr("AplicaMiercoles")), CBool(Dr("AplicaJueves")), CBool(Dr("AplicaViernes")), CBool(Dr("AplicaSabado")), CBool(Dr("AplicaDomingo")), - Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero) Then + Dr("HoraInicio").ToString.ToDateTime, Dr("HoraFin").ToString.ToDateTime, Dr("CantidadMinima").ToString.ToEntero, CveClasificacion:=If(Dr("CvePS").ToString = "-1", Dr("CveClasificacion").ToString.ToEntero, -1)) Then TieneError = True Exit For End If From 80ab86114698b1134081e6a1c0ed4720555acf94 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Fri, 31 Jan 2020 13:26:15 -0700 Subject: [PATCH 2/3] - ventas relacionadas --- App_Code/ClsVentas.vb | 40 ++++++++++++++++++++++++++++- Contratos/Contrato.aspx | 1 + Inicio.aspx | 2 ++ Inicio.aspx.vb | 10 +++++--- Inventarios/RecepcionUsados.aspx.vb | 2 +- 5 files changed, 50 insertions(+), 5 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 9a0fd3c83..0d8ac4700 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2262,6 +2262,43 @@ Public Class ClsVentas #End Region + + +#Region "Firmas" + + Public Function GetVentasRelacionadas(CveVenta As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasRelacionadasGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las ventas relacionadas. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + Public Function AddVentasRelacionadas(CveVenta As Integer, CveVentaRelacionada As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentasRelacionadasAdd") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveVentaRelacionada", SqlDbType.Int).Value = CveVentaRelacionada + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar las ventas relacionadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function +#End Region + #Region " I M P U E S T O S L O C A L E S" Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Double, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -4233,7 +4270,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdateVentaUsadoRecibido(CveVenta As Integer, CvePS As Integer, Recibido As Boolean) As Boolean + Public Function UpdateVentaUsadoRecibido(CveVenta As Integer, CvePS As Integer, Recibido As Boolean, CveMovimiento As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUsadosRecibidoUpdate", CommandType.StoredProcedure) @@ -4242,6 +4279,7 @@ Public Class ClsVentas .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@Recibido", SqlDbType.Bit).Value = Recibido + .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento End With Try diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx index dbe3e9d5b..c75733b7f 100644 --- a/Contratos/Contrato.aspx +++ b/Contratos/Contrato.aspx @@ -2247,6 +2247,7 @@ + diff --git a/Inicio.aspx b/Inicio.aspx index f2f896e76..6ccfe6a7b 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -604,6 +604,7 @@
@@ -792,6 +793,7 @@
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 822217cdb..eca249ee9 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -203,7 +203,9 @@ Partial Class Inicio Private Sub MuestraVentasPUE() Dim objVentas As New ClsVentas - If objVentas.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + Dim FechaInicio As Date = Now.AddYears(-2) + LblVentasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString + If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objVentas.DtResultados.Rows.Count > 0 Then GvVtaPUE.DataSource = objVentas.DtResultados @@ -216,8 +218,10 @@ Partial Class Inicio End Sub Private Sub MuestraComprasPUE() - Dim objCompras As New ClsCompras - If objCompras.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + Dim objCompras As New ClsCompras + Dim FechaInicio As Date = Now.AddYears(-2) + LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString + If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objCompras.DtResultados.Rows.Count > 0 Then GvCompPUE.DataSource = objCompras.DtResultados diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 5c4248dfb..511cd68a0 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -1138,7 +1138,7 @@ Partial Class Inventarios_RecepcionUsados Exit For End If - If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True) Then + If CveVenta > 0 AndAlso Not ObjVentas.UpdateVentaUsadoRecibido(CveVenta, Dr("CvePS").ToString.ToEntero, True, CveMovimiento) Then Mensaje = "Error al actualizar el recibo de los usados" ErrorMovInv = True Exit For From fc939e0998c1c8a65527b022ffd1419cda5857ba Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 31 Jan 2020 14:02:32 -0700 Subject: [PATCH 3/3] desaparecen opciones del tipo promocion al seleccionar una promocion para toda una clasificacion --- Ventas/Promociones.aspx | 2 +- Ventas/Promociones.aspx.vb | 6 ++++++ 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/Ventas/Promociones.aspx b/Ventas/Promociones.aspx index 4a4d6b944..fac769ab1 100644 --- a/Ventas/Promociones.aspx +++ b/Ventas/Promociones.aspx @@ -234,7 +234,7 @@
- +
diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 1d9f1a6b6..fdf49d14f 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -127,6 +127,8 @@ Partial Class Ventas_Promociones #Region " PS " Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) ChangeDdlProducto() + DdlTipoPromocion.Items.FindByValue("1").Enabled = False + DdlTipoPromocion.Items.FindByValue("3").Enabled = False End Sub Private Sub ChangeDdlProducto() If UsuarioActual.Empresa.Funcionalidad(105) = "" Then @@ -137,6 +139,10 @@ Partial Class Ventas_Promociones DdlPS.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.SelectedValue) End If End Sub + Protected Sub DdlPS_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPS.selectedindexchange + DdlTipoPromocion.Items.FindByValue("1").Enabled = True + DdlTipoPromocion.Items.FindByValue("3").Enabled = True + End Sub #End Region