diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index b36cf01da..3b125265b 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -4472,13 +4472,32 @@ Public Class ClsGenerales End Try Return Retorno - End Function + End Function #End Region + + + Public Function GetReporteDiario(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_RepCierreDia") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(DSet) + Retorno = True + Catch ex As Exception + OnError($"Ocurrió un error al obtener los datos del reporte diario.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + #Region "IDisposable Support" - - - ' IDisposable + + + ' IDisposable Protected Overridable Sub Dispose(disposing As Boolean) If Not Me.disposedValue Then If disposing Then diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 4555bc825..6f55e7050 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -3612,10 +3612,10 @@