Correcion al cargar bci en recepcion de usados

2021-06-09 15:06:45 -07:00
parent 35e1e7e8a9
commit c3eb04343b
1 changed files with 1 additions and 1 deletions
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2761,7 +2761,7 @@ Partial Class Inventarios_RecepcionUsados
                CveClasificacion = drPS("CveClasificacion").ToString.ToEntero

                Dim Arr = PS.Split("-"c)
-                If Arr.Count > 0 Then
+                If Arr.Count > 1 Then
                    If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then
                        DdlBCIAjuste.SelectedValueExist(DdlBCIAjuste.Items.FindByText(Arr(1).ToString).Value)
                    End If