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

19
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -186,9 +186,24 @@ Partial Class Compras_RepComprasAFDetalle
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")
'DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
'DdlClasificacion2.DataBind()
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()
DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2"))
DdlClasificacion2.Items.Insert(0, New ListItem("Totas", "-1"))
DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2"))
DdlClasificacion2.SelectedValueExist(-1)
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlActivoFijo.DataBind()