SMS -Mostrar precio por lista de precios

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