From acd580af52b299c393231cef2019fadecb50157f Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 7 Sep 2022 20:55:25 -0700
Subject: [PATCH] Correcion de error al calcular el BCI

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

diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 17cc978e4..a6f23b581 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2980,6 +2980,9 @@ Partial Class Inventarios_RecepcionUsados
             Dim CveTamanio As Integer = -1
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
 
+            DdlBCIAjuste.SelectedValue = Nothing
+            DdlBCIAjuste.Items.Clear()
+
             If drPS IsNot Nothing Then
                 Dim CvePrecioListaPS As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero).FiltroPrimeroValor("CvePrecioLista").ToEntero()
                 If CvePrecioListaPS > 0 Then
@@ -2994,6 +2997,17 @@ Partial Class Inventarios_RecepcionUsados
                 CveClasificacion = drPS("CveClasificacion").ToString.ToEntero
                 CveTamanio = drPS("CveTamaño").ToString.ToEntero
 
+                If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then
+                    DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}")
+                    DdlBCIAjuste.DataBind()
+                    DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                    If CveTamanio = 16 Then 'motobaterias
+                        DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
+                    End If
+                Else
+                    DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
+                End If
+
                 Dim Arr = PS.Split("-"c)
                 If Arr.Count > 1 Then
                     If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then
@@ -3001,7 +3015,6 @@ Partial Class Inventarios_RecepcionUsados
                     End If
 
                 End If
-
             End If
 
             HdnPSAjusteMarca.Value = CveMarca.ToString()
@@ -3054,19 +3067,6 @@ Partial Class Inventarios_RecepcionUsados
                 'CvePrecioLista = CvePrecioListaPS
             End If
 
-            DdlBCIAjuste.Items.Clear()
-            If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then
-                DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}")
-                DdlBCIAjuste.DataBind()
-                DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                If CveTamanio = 16 Then 'motobaterias
-                    DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
-                End If
-                'UPPDatosUsado.Update() ''refresca el RFV
-            Else
-                DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
-            End If
-
             DdlTipoUso.Items.Clear()
             DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca)
             DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))