-- cambios al cargar lista de precios en busqueda de existencia

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