+<%@ 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 @@
-
-
+
+
-
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- Buscar Por Serie:
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+ Buscar Por Serie:
+
+
+
+
+
+
+
+
-
+
+
-
-
+
+
+
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 = ""