AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

BCI Sugerido

Browse Source
This commit is contained in:
Rene Molina
2020-01-07 12:09:42 -07:00
parent 15e8368569
commit e73320ddf9
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -2535,6 +2535,15 @@ Partial Class Inventarios_RecepcionUsados
If drPS IsNot Nothing Then If drPS IsNot Nothing Then
PrecioSugerido = drPS("Precio").ToString.ToDecimal 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 End If
txtPrecio.Text = PrecioSugerido.FormatoNumero(2) txtPrecio.Text = PrecioSugerido.FormatoNumero(2)
TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2) TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)