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

filtro por subproyecto

Browse Source
This commit is contained in:
rrene
2022-04-13 10:42:17 -07:00
parent 7b3037d875
commit bebacfd376
3 changed files with 16 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Inventarios/RepAlmacenCompras.aspx.vb
View File

@@ -70,10 +70,12 @@ Partial Class Inventarios_RepAlmacenCompras
Private Sub CargaCombos()
'Llena Almacen
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen IN ( 1, 22, 27)")
DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, Nothing)
End Sub
#End Region
@@ -90,7 +92,7 @@ Partial Class Inventarios_RepAlmacenCompras
Dim FechaF As Date = If(TxtFechaFin.Text = "" Or TxtFechaFin.Text = "__/__/____", MaxFecha, TxtFechaFin.Text.ToDate)
If ObjInventarios.RepAlmacenCompras(DdlAlmacen.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CveEmpresa) Then
If ObjInventarios.RepAlmacenCompras(DdlAlmacen.SelectedValue.ToEntero, FechaI, FechaF, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
DtDatos = ObjInventarios.DtResultados
DtAlmacenCompra = ObjInventarios.DtResultados
Else