From 398dddd4dc13ff6eab0de9f491eeea3e07b62cdf Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 11 Feb 2023 08:35:46 -0700 Subject: [PATCH] - warnings --- Contabilidad2/RepEstadoResultados.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad2/RepEstadoResultados.aspx.vb b/Contabilidad2/RepEstadoResultados.aspx.vb index 87b1df7e3..03ad46471 100644 --- a/Contabilidad2/RepEstadoResultados.aspx.vb +++ b/Contabilidad2/RepEstadoResultados.aspx.vb @@ -177,10 +177,10 @@ Partial Class Contabilidad2_RepEstadoResultados TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero) 'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString + Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero Dim ObjConta As New ClsContabilidad - If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, -1, CveSubProyecto, UsuarioActual.CveEmpresa) Then DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") Else DtDatos = Nothing