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

Rep Compras AF

Browse Source
This commit is contained in:
rakcsle
2021-12-20 08:30:40 -07:00
parent 623095bd9b
commit 0622c46318
5 changed files with 63 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Compras/RepComprasAF.aspx.vb
View File

@@ -90,9 +90,22 @@ Partial Class Compras_RepComprasAF
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
DdlClasificacion.DataBind()
DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
Dim ObjClasificacion As New ClsClasificaciones
If ObjClasificacion.GetClasificacion2ProductoServicio(UsuarioActual.CveEmpresa) Then
DdlClasificacion2.DataSource = ObjClasificacion.DtResultados
Else
DdlClasificacion2.DataSource = Nothing
End If
ObjClasificacion.Dispose()
DdlClasificacion2.DataBind()
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlActivoFijo.DataBind()