From 87cf6de01d32dbb139d0edd5997698866920727e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Mar 2024 05:54:48 -0700 Subject: [PATCH] =?UTF-8?q?--=20nueva=20funci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsCompras.vb | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 6c8520fef..e09c65bf0 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -2010,6 +2010,25 @@ Public Class ClsCompras Return Retorno End Function + Public Function GetComprasPagos(CveCompra As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Comp_ComprasPagosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveCompra", SqlDbType.Int).Value = CveCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al refacturar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RefacturacionPoliza(IdPoliza As Integer, CvePrePoliza As Integer, CveCompra As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Comp_RefacturacionPoliza")