mejora si es bci ajuste de motobaterias

Inventarios/RecepcionUsados.aspx.vb

@@ -159,6 +159,15 @@ Partial Class Inventarios_RecepcionUsados
             ViewState("TieneSalida") = value
         End Set
     End Property
+
+    Private Property DTBCIUsados As DataTable
+        Get
+            Return If(IsNothing(ViewState("DTBCIUsados")), Nothing, CType(ViewState("DTBCIUsados"), DataTable))
+        End Get
+        Set(value As DataTable)
+            ViewState("DTBCIUsados") = value
+        End Set
+    End Property
     Private Property DtBitacora As DataTable
         Get
             Return CType(ViewState("DtBitacora"), DataTable)
@@ -2843,6 +2852,7 @@ Partial Class Inventarios_RecepcionUsados
             Dim CveMarca As Integer = -1
             Dim CveClasificacion As Integer = -1
             Dim PrecioSugerido As Decimal = 0
+            Dim CveTamanio As Integer = -1
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
 
             If drPS IsNot Nothing Then
@@ -2857,6 +2867,7 @@ Partial Class Inventarios_RecepcionUsados
                 Dim PS As String = drPS("PS").ToString
                 CveMarca = drPS("CveMarca").ToString.ToEntero
                 CveClasificacion = drPS("CveClasificacion").ToString.ToEntero
+                CveTamanio = drPS("CveTamaño").ToString.ToEntero
 
                 Dim Arr = PS.Split("-"c)
                 If Arr.Count > 1 Then
@@ -2918,6 +2929,19 @@ 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"))
@@ -2961,6 +2985,7 @@ Partial Class Inventarios_RecepcionUsados
         If ObjGral.BCIUsadoGet(UsuarioActual.CveEmpresa) Then
             DdlBCIAjuste.DataSource = ObjGral.DtResultados
             DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DTBCIUsados = ObjGral.DtResultados.Copy()
         End If
         ObjGral.Dispose()
         DdlBCIAjuste.DataBind()