This commit is contained in:
2023-02-11 16:53:20 -07:00
17 changed files with 257 additions and 127 deletions

View File

@@ -54,7 +54,7 @@ Partial Class MovimientosconProveedores
End Property
Private Property CveSubProyecto As Integer
Get
CveSubProyecto = ViewState("CveSubProyecto").ToString.ToEntero
CveSubProyecto = ViewState("CveSubProyecto").ToString
End Get
Set(value As Integer)
ViewState("CveSubProyecto") = value
@@ -189,7 +189,7 @@ Partial Class MovimientosconProveedores
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero
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")