diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx
index cf6a2dbd4..8300aa792 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx
@@ -66,7 +66,7 @@
                 <tr runat="server" id="DivListasPrecios" visible="false">
                     <td class="text-right">Lista de precio: </td>
                     <td>
-                        <asp:DropDownList runat="server" ID="DdlPrecioLista" CssClass="form-control input-sm select2me" Width="150px" DataTextField="PrecioLista" DataValueField="CvePrecioLista"></asp:DropDownList>
+                        <asp:DropDownList runat="server" ID="DdlPrecioLista" CssClass="form-control input-sm select2me" Width="150px" DataTextField="PrecioLista" DataValueField="CvePrecioLista" AutoPostBack="true" OnSelectedIndexChanged="DdlPrecioLista_SelectedIndexChanged"></asp:DropDownList>
                     </td>
                     <td></td>
                 </tr>
@@ -113,26 +113,22 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <div id="TblBusqueda" style="width: 100%" runat="server" border="0" visible="false">
-                <div class="row">
+                <div class="row" style="max-width: 780px;">
                     <div class="col-md-6">
-                        <asp:Literal ID="LtPs" Text="" runat="server" />&nbsp&nbsp&nbsp&nbsp
-                        
-                        <asp:Literal ID="LtPrecioPS" Text="" runat="server" Visible="false" />
-                        &nbsp&nbsp&nbsp&nbsp
-                        
-                        <asp:Literal ID="LtlIEPS" Text="IEPS:" runat="server" Visible="false" />
-                        &nbsp&nbsp
-                        
-                        <asp:Literal ID="LtlIEPSPorcentaje" Text="" runat="server" Visible="false" />
-                        &nbsp&nbsp&nbsp&nbsp
-                        
-                        <asp:Literal ID="LtlIVA" Text="IVA:" runat="server" Visible="false" />
-                        &nbsp
-                        
-                        <asp:Literal ID="LtlIVAPorcentaje" Text="" runat="server" Visible="false" />
+                        <asp:Literal ID="LtPs" Text="" runat="server">&nbsp&nbsp</asp:Literal>
+
+                        <asp:Literal ID="LtlIEPS" Text="IEPS:" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
+
+                        <asp:Literal ID="LtlIEPSPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
+
+                        <asp:Literal ID="LtlIVA" Text="IVA:" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
+
+                        <asp:Literal ID="LtlIVAPorcentaje" Text="" runat="server" Visible="false">&nbsp&nbsp</asp:Literal>
 
                     </div>
                     <div class="col-md-3" style="text-align: right;">
+                        <asp:Literal ID="LtPrecioPS" Text="" runat="server" Visible="false" />
+                        <br />
                         <asp:HyperLink ID="HlPendiente" Style="color: #337ab7;" Visible="false" runat="server" Text="Ventas Pendiente por Surtir" Target="_blank"></asp:HyperLink>
                     </div>
                 </div>
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
index 956d566e3..2af6652b7 100644
--- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb
+++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb
@@ -353,6 +353,28 @@ Partial Class Inventarios_Default
 
         UpModalBuscarPorSerie.Update()
 
-    End Sub
-
+    End Sub
+
+    Protected Sub DdlPrecioLista_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+        Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DDlPS.SelectedValue.ToEntero).FiltroPrimero("")
+        If dr IsNot Nothing Then
+            Dim ObjVta As New ClsVentas
+            Dim objPS As New ClsProductosServicios
+            If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
+                If ObjVta.DtResultados.Rows.Count > 0 Then
+                    If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero(), -1, DDlPS.SelectedValue.ToEntero) Then
+                        If objPS.DtResultados.Rows.Count > 0 Then
+                            LtPrecioPS.Text = $"Precio de venta: <b>$: {objPS.DtResultados.Rows(0)("PrecioLista").ToString.FormatoNumero} {dr("Abreviatura").ToString}</b>"
+                        End If
+                    End If
+                End If
+            End If
+            ObjVta.Dispose()
+            objPS.Dispose()
+        End If
+
+        UPDatos.Update()
+
+    End Sub
 End Class