From 0297a9201870990ec7932ea289b9b4d81e1f3ab6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 6 Dec 2023 17:58:25 -0700 Subject: [PATCH] SMS -Mostrar precio por lista de precios --- Inventarios/PopUpExistenciasAlmacen.aspx | 475 ++++++++++---------- Inventarios/PopUpExistenciasAlmacen.aspx.vb | 30 ++ Ventas/CatPreciosLista.aspx.vb | 8 +- 3 files changed, 260 insertions(+), 253 deletions(-) diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx index fbf6c963d..cf6a2dbd4 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx +++ b/Inventarios/PopUpExistenciasAlmacen.aspx @@ -1,156 +1,159 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpExistenciasAlmacen.aspx.vb" Inherits="Inventarios_Default" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Filtros para búsqueda
Producto/Servicio: - - - - - - - -
Medida: - - -
- - - - - - - - - -
-
Rin: - - - -
C. Barras: - - - - - - - - -
Sucursal: - -
Compuesto: - -
- -
- - - - - - -
-
-
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopUpExistenciasAlmacen.aspx.vb" Inherits="Inventarios_Default" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Filtros para búsqueda
Producto/Servicio: + + + + + + + +
Medida: + + +
+ + + + + + + + + +
+
Rin: + +
Lista de precio: + +
C. Barras: + + + + + + + +
Sucursal: + +
Compuesto: + +
+ +
+ + + + + +
+
+
     - + +      - + +    - -      - + + +      + +   - - -
-
- -
-
-
-
- - - - - - - - - -<%-- - --%> - - -
-
- - - - <%----%> + + + +
+
+ +
+
+
+
+ + + + + + + + + + + +
+
+ + + @@ -158,13 +161,10 @@ - - <%----%> - <%-- --%> - - - - <%----%> + + + + @@ -172,7 +172,7 @@ - + @@ -180,111 +180,88 @@ - - + + - +
- - - -
-
-
- - - - - - - + + + - - - - - - + + - - + + + diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index d12d6cc59..956d566e3 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -44,6 +44,17 @@ Partial Class Inventarios_Default If UsuarioActual.CveEmpresa.Contiene(119) Then LtPrecioPS.Visible = True DivSucursal.Visible = True + End If + + If UsuarioActual.CveEmpresa.Contiene(119) Then + LtPrecioPS.Visible = True + DivSucursal.Visible = True + End If + + + If UsuarioActual.CveEmpresa.Contiene(186) Then + LtPrecioPS.Visible = True + DivListasPrecios.Visible = True End If If UsuarioActual.CveRol = 1 Then @@ -83,6 +94,10 @@ Partial Class Inventarios_Default Dim Txt As String = IfNull(Request("Txt"), "").ToString If Txt <> "" Then LblTitulo.Text = String.Format("Búsqueda de {0}", Txt) + If UsuarioActual.CveEmpresa = 186 Then + CargaListasPrecios() + End If + End Sub Private Sub CargaSubProyecto() DdlSubProyecto.Items.Clear() @@ -94,6 +109,13 @@ Partial Class Inventarios_Default End Sub + Private Sub CargaListasPrecios() + DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa) + DdlPrecioLista.DataBind() + DdlPrecioLista.Items.Insert(0, New ListItem("-", "-1")) + + End Sub + Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then CargarDatosMedRin() @@ -150,6 +172,14 @@ Partial Class Inventarios_Default CvePrecioLista = -2 End If + If UsuarioActual.CveEmpresa = 186 Then + If DdlPrecioLista.SelectedValue.ToEntero() > 0 Then + CvePrecioLista = DdlPrecioLista.SelectedValue.ToEntero() + Else + CvePrecioLista = -2 + End If + End If + Dim ObjVta As New ClsVentas Dim objPS As New ClsProductosServicios If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then diff --git a/Ventas/CatPreciosLista.aspx.vb b/Ventas/CatPreciosLista.aspx.vb index cc62aeb6d..564ef9145 100644 --- a/Ventas/CatPreciosLista.aspx.vb +++ b/Ventas/CatPreciosLista.aspx.vb @@ -45,10 +45,8 @@ Partial Class Ventas_CatPreciosLista GvDatos.DataSource = Nothing End If ObjVta.Dispose() - GvDatos.DataBind() - - GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing - + GvDatos.DataBind() + End Sub Protected Sub imgE_Click(sender As Object, e As EventArgs) @@ -84,6 +82,8 @@ Partial Class Ventas_CatPreciosLista dvEstatus.Visible = False BtnAgregarCatalogo.Text = "Agregar" End If + GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing + RegistraScript("$('#divAgregar').modal('hide')") ObjVta.Dispose() TxtPrecioLista.Text = ""