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

Unificacion de centro de costos en reportes

Browse Source
This commit is contained in:
RPimienta
2023-02-08 22:06:38 -06:00
parent 2af5b00a7f
commit 356c0d1136
1 changed files with 2 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Contabilidad2/RepAnexoCatalogo.aspx.vb
View File

@@ -219,17 +219,9 @@ Partial Class AC2_RepAnexoCatalogo
TipoReporte = DdlTipoReporte.SelectedValue.ToEntero TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
End If End If
'Dim CveSubProyecto As String 'Dim CveSubProyecto As String
If Request("CveSubProyecto") IsNot Nothing Then
CveSubProyecto = Request("CveSubProyecto").ToString
Else
CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
End If
If Request("CveProyecto") IsNot Nothing Then CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
CveProyecto = Request("CveProyecto").ToString CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
Else
CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
End If
If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveProyecto.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte) Then If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveProyecto.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte) Then