From 6f2c45d8d5c9b7b5f08d40f043096052987951b7 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 7 Dec 2023 13:17:48 -0700 Subject: [PATCH] =?UTF-8?q?-=20nuevo=20m=C3=A9todo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsMovimientos.vb | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/App_Code/ClsMovimientos.vb b/App_Code/ClsMovimientos.vb index 32eda4c1c..937f5cfc6 100644 --- a/App_Code/ClsMovimientos.vb +++ b/App_Code/ClsMovimientos.vb @@ -1875,5 +1875,24 @@ Public Class ClsMovimientos Return Retorno End Function + + Public Function GetRemisionesCobranza(CveEmpresa As Integer, CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_RemisionesCobranza") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio + .Add("@FechaFin", SqlDbType.Date).Value = FechaFin + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al consultar las Compras Pagadas de Caja Chica.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function End Class