BCI Sugerido

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)