Bandera de garantia en PV

Ventas/PV.aspx.vb

@@ -3744,6 +3744,10 @@ Partial Class PV
                     ObjFactura.ErrorList.Add("No existe un almacen configurado como 'Servicio a Domicilio' en esta sucursal.")
                 End If
 
+                If TmpDTAjustes IsNot Nothing AndAlso TmpDTAjustes.Rows.Count > 0 Then
+                    ObjFactura.EsGarantia = True
+                End If
+
             End If
         Catch ex As Exception
             OnError("Ocurrió un error al generar la venta", ex)
@@ -6773,12 +6777,12 @@ Partial Class PV
                 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