AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Correciones warnigs, parametros compilacion productivo

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-11 11:17:29 -07:00
parent 10ef572c92
commit 8487abfda4
5 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Contabilidad2/MovimientosconProveedores.aspx.vb
View File

@@ -189,7 +189,7 @@ Partial Class MovimientosconProveedores
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
End If
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte, 1) Then
If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")

2
Contabilidad2/RepEstadoResultados.aspx.vb
View File

@@ -180,7 +180,7 @@ Partial Class Contabilidad2_RepEstadoResultados
Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
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, DdlSubproyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 0) Then
DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else
DtDatos = Nothing