From 9c13736bae9ccb3ffe1296cc8f02f4b08d11be2b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 24 Mar 2020 19:10:14 -0700 Subject: [PATCH 1/6] - cambios promociones --- Ventas/Promociones.aspx.vb | 1 + Ventas/Ventas.aspx.vb | 8 +++++--- vwd.webinfo | 2 ++ 3 files changed, 8 insertions(+), 3 deletions(-) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 326906ac0..28f288585 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -82,6 +82,7 @@ Partial Class Ventas_Promociones 'CARGA SUBPROYECTOS DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 315aade63..7cc809a30 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -14276,6 +14276,7 @@ Partial Class Ventas Dim CantMinima As Integer = 0 Dim CveMarcaPS As Integer = 0 Dim CveClasifPS As Integer = 0 + Dim CveRinTamañoPS As Integer = 0 Dim CvePromocionDetalle As Integer = 0 Dim ObjDescuento As New Descuentos @@ -14284,6 +14285,7 @@ Partial Class Ventas CveMarcaPS = DrPS("CveMarca").ToString.ToEntero CveClasifPS = DrPS("CveClasificacion").ToString.ToEntero + CveRinTamañoPS = DrPS("CveRinTamaño").ToString.ToEntero If CveClasifPS = 20636 Then ValidaCondicionesComerciales = False @@ -14293,7 +14295,7 @@ Partial Class Ventas If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then - Dim dr As DataRow = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue)) + Dim dr As DataRow = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS)) If dr IsNot Nothing Then TipoPromo = dr("TipoPromocion").ToString.ToEntero TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal @@ -14302,7 +14304,7 @@ Partial Class Ventas CvePromocionDetalle = dr("CvePromocionDetalle").ToString.ToEntero Else 'verifica marca, si tiene asignada la promocion - Dim drC As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL)", CveClasifPS, CveMarcaPS)) + Dim drC As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS)) If drC IsNot Nothing Then TipoPromo = drC("TipoPromocion").ToString.ToEntero @@ -14807,7 +14809,7 @@ Partial Class Ventas DrPoliza("PorcentajeIEPS") = DrPSAdicional("IEPSPorcentaje") DrPoliza("ImporteIEPS") = Math.Round(DrPSAdicional("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales) DrPoliza("IEPS") = DrPoliza("ImporteIEPS") - DrPoliza("Descuento") = Math.Round(Descuento, NumeroDecimales) + DrPoliza("Descuento") = 0 DrPoliza("TipoDescuento") = HdnTipoDescuento.Value DrPoliza("Total") = (DrPoliza("Cantidad").ToString.ToDecimal * PU) DrPoliza("TotalImporte") = Math.Round(DrPoliza("Cantidad").ToString.ToDecimal * PU, NumeroDecimales) diff --git a/vwd.webinfo b/vwd.webinfo index c61135231..5455c17b5 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -34,6 +34,8 @@ + + From 432fc7e10e5d15c2865b6bb02f08d25235a3940c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 25 Mar 2020 13:35:47 -0700 Subject: [PATCH 2/6] =?UTF-8?q?faltaba=20un=20metodo=20en=20clsInventarios?= =?UTF-8?q?=20y=20en=20clientes=20se=20agrego=20un=20modal=20para=20el=20p?= =?UTF-8?q?agar=C3=A9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsInventarios.vb | 23 ++++++++++++++++++ Ventas/Clientes.aspx | 48 ++++++++++++++++++++++++++++++++++---- Ventas/Clientes.aspx.vb | 41 +++++++++++++++++++++++++------- 3 files changed, 99 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 0d59da612..4cacc834a 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4899,6 +4899,29 @@ Public Class ClsInventarios Return Retorno End Function #End Region + + Public Function GetExistenciasMedRin(CvePS As Integer, CveEmpresa As Integer, CveRinTamaño As Integer, CveMedida As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_ExistenciaMedRinGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño + .Add("@CveMedida", SqlDbType.Int).Value = CveMedida + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener las existencias.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener las existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function #Region " IDisposable Support " ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index b45f97221..5c4cc70ee 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -840,7 +840,7 @@
- @@ -848,7 +848,7 @@ - +
@@ -1075,8 +1075,8 @@ - - + + @@ -4283,7 +4283,45 @@
- +