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

Nuevo Filtro: deducible

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-06-18 19:07:54 -07:00
parent 64cf22220e
commit e584f992a7
4 changed files with 32 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -73,7 +73,7 @@ Partial Class Compras_RepProductosServiciosDetalle
Private Sub InicializaValores()
Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto As String
Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto As String
Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF, TipoDocto, Deducible As String
Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
Proyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString
@@ -105,6 +105,8 @@ Partial Class Compras_RepProductosServiciosDetalle
ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToString.ToEntero
TipoDocto = If(Request("TipoDocto") IsNot Nothing, Request("TipoDocto").ToString, "-1").ToString
Deducible = If(Request("Deducible") IsNot Nothing, Request("Deducible").ToString, "-1").ToString
Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString
Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString
AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
@@ -158,6 +160,7 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlProveedor.SelectedText = "Todos"
End If
DdlTipoDocto.SelectedValueExist(TipoDocto)
DdlDeducible.SelectedValueExist(Deducible)
DdlEstatus.SelectedValueExist(Estatus)
DdlUsuario.SelectedValueExist(Usuario)
'DdlTipoAF.SelectedValueExist(TipoActivoFijo)
@@ -359,7 +362,9 @@ Partial Class Compras_RepProductosServiciosDetalle
If ObjCompras.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero, SubProyectos, Categoria, DdlClasificacion.SelectedValue.ToEntero,
DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF, DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoDocto.SelectedValue) Then
UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, TipoAF, SubTipoAF,
DdlAF.SelectedValue.ToEntero, CveMoneda, TipoCambio, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
TipoDocto:=DdlTipoDocto.SelectedValue, Deducible:=DdlDeducible.SelectedValue.ToEntero) Then
DtDatos = ObjCompras.DtResultados
Else
DtDatos = Nothing