From e73320ddf91514c12fb3573f2af7a40ffd8e6b6a Mon Sep 17 00:00:00 2001
From: Rene Molina <Rene.Molina@adssistemas.mx>
Date: Tue, 7 Jan 2020 12:09:42 -0700
Subject: [PATCH] BCI Sugerido

---
 Inventarios/RecepcionUsados.aspx.vb | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index a22ed7047..2034619c5 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2535,6 +2535,15 @@ Partial Class Inventarios_RecepcionUsados
 
             If drPS IsNot Nothing Then
                 PrecioSugerido = drPS("Precio").ToString.ToDecimal
+                Dim PS As String = drPS("PS").ToString
+                Dim Arr = PS.Split("-"c)
+                If Arr.Count > 0 Then
+                    If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then
+                        DdlBCIAjuste.SelectedValueExist(DdlBCIAjuste.Items.FindByText(Arr(1).ToString).Value)
+                    End If
+
+                End If
+
             End If
             txtPrecio.Text = PrecioSugerido.FormatoNumero(2)
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)