Metodo para obtener las garantias pendientes

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