diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 6a418e56b..9c6ca77d2 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -1639,7 +1639,8 @@ Public Class ClsProductosServicios #Region "Precios Lista" - Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1, Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional CveMarca As Integer = -1) As Boolean + Public Function GetPSPreciosLista(CveEmpresa As Integer, CvePrecioLista As Integer, Optional CveClasificacion As Integer = -1, Optional CvePS As Integer = -1, + Optional CveProveedor As Integer = -1, Optional Estado As Integer = -1, Optional Marcas As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PSPrecioListaGet") With SqlAdapter.SelectCommand.Parameters @@ -1649,7 +1650,7 @@ Public Class ClsProductosServicios .Add("@CvePS", SqlDbType.Int).Value = CvePS .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@Estado", SqlDbType.Int).Value = Estado - .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@Marcas", SqlDbType.VarChar).Value = Marcas End With Try SqlAdapter.Fill(Data) diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index f1a40e0eb..e11bc84a5 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -1,373 +1,377 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ActualizarPrecios.aspx.vb" Inherits="Ventas_ActualizarPrecios" %> - - - - - - - - Actualizar Precios - - - - -
  • - Importar Listado -
    • -     - - - - -
    -
    -
    - - -
    -
    -
    - -
    - -
    - -
    - -
    - -
    - -
    - - - - -
    -
    -
    - -
    -     -     - - -
    -
    -
    -
    -
    - - Actualizar Precio de Lista -
    -
    -
    -
    -
    -
    - -
    -
    -
    -
    -
    - - - - -
    -
    -
    -
    -
    - - - - $ -
    -
    -
    - Aplicar Importe -
    -
    -
    -
    -
    - - - - $ -
    -
    -
    - Aplicar Precio Min. -
    -
    - - -
    - - - -
    -
    - -
    -
    -
    -
    -
    -     -     - - -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    -     -     - - - <%--CARGA EXCEL--%> - -     - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ActualizarPrecios.aspx.vb" Inherits="Ventas_ActualizarPrecios" %> + + + + + + + + Actualizar Precios + + + + +
  • + Importar Listado +
    • +     + + + + +
    +
    +
    + + +
    +
    +
    + +
    + +
    + +
    + +
    + +
    + +
    + +
    + + + +
    +
    +
    +
    +
    +
    + +
    + +
    + +
    + + Todos + Activos + Incativos + +
    +
    +
    +
    +     +     + + +
    +
    +
    +
    +
    + + Actualizar Precio de Lista +
    +
    +
    +
    +
    +
    + +
    +
    +
    +
    +
    + + + + +
    +
    +
    +
    +
    + + + + $ +
    +
    +
    + Aplicar Importe +
    +
    +
    +
    +
    + + + + $ +
    +
    +
    + Aplicar Precio Min. +
    +
    + + +
    + + + +
    +
    + +
    +
    +
    +
    +
    +     +     + + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
    +     +     + + + <%--CARGA EXCEL--%> + +     + - - + +     + diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 566773a6b..f170c6462 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -130,7 +130,7 @@ Partial Class Ventas_ActualizarPrecios If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then Dim ObjMarcas As New ClsProductosServicios If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then - DdlMarca.DataSource = ObjMarcas.DtResultados + DdlMarca.DataSource = ObjMarcas.DtResultados.Copy End If ObjMarcas.Dispose() DdlMarca.DataBind() @@ -145,6 +145,7 @@ Partial Class Ventas_ActualizarPrecios Dim objPS As New ClsProductosServicios Dim CveProveedor As Integer = -1 Dim CvePS As Integer = -1 + Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM) If DDlPs.SelectedValue.ToEntero > 0 Then CvePS = DDlPs.SelectedValue.ToEntero @@ -155,7 +156,7 @@ Partial Class Ventas_ActualizarPrecios End If If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS, - CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then + CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas) Then GVPrecios.DataSource = objPS.DtResultados End If objPS.Dispose()