merge PV

Ventas/PV.aspx.vb

@@ -6768,10 +6768,19 @@ Partial Class PV
 
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
 
+            DdlBCIAjuste.Items.Clear()
             If DTBCIUsados IsNot Nothing AndAlso CveTamanio > 0 Then
-                DdlBCIAjuste.Items.Clear()
                 DdlBCIAjuste.DataSource = DTBCIUsados.FiltraParametros($"CveTamaño={CveTamanio}")
                 DdlBCIAjuste.DataBind()
+                DdlBCIAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                RFVAnio.Enabled = True
+                If CveTamanio = 16 Then 'motobaterias
+                    DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
+                    RFVAnio.Enabled = False
+                End If
+                UPPDatosUsado.Update() ''refresca el RFV
+            Else
+                DdlBCIAjuste.Items.Insert(0, New ListItem(" - ", "0"))
             End If
 
             DdlTipoUso.Items.Clear()