From 53dc47f11eeaabb999813022c71b68a65d02c0fe Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 15 Jan 2022 19:48:42 -0700
Subject: [PATCH] Bandera de garantia en PV

---
 Ventas/PV.aspx.vb | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index b96148299..800941a59 100644
--- a/Ventas/PV.aspx.vb
+++ b/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