From 5a2a1f4d55dc07eac684f74a44c35dbf53e56e26 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 1 Feb 2022 17:56:31 -0700
Subject: [PATCH] Metodo para obtener las garantias pendientes

---
 App_Code/ClsVentas.vb | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index fe1026c75..1ca94d92f 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -5083,6 +5083,27 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
+    Public Function GetVentasGarantiaPendiente(CveVenta As Integer, CveSubProyecto As Integer, Fecha As DateTime, CveEmpresa As Integer, Optional ServicioDomicilio As Boolean = False) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_VentasGarantiasPendienteGet", CommandType.StoredProcedure)
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las ventas con usados.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
     Public Function GetVentasUsadosDetalle(CveVenta As Integer) As Boolean
         Dim Retorno As Boolean = False