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

dropdownlost, proveedor

Browse Source
This commit is contained in:
rrene
2021-08-04 18:31:56 -07:00
parent bcac73b6a8
commit f1f0e36923
1 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -149,17 +149,21 @@ Partial Class Compras_RepProductosServiciosDetalle
'DdlCategoria.SelectedValueExist(Categoria) 'DdlCategoria.SelectedValueExist(Categoria)
DdlClasificacion.SelectedValueExist(Clasificacion) DdlClasificacion.SelectedValueExist(Clasificacion)
If PS <> "-1" Then If PS.ToEntero > 1 Then
DdlPS.SelectedValue = PS DdlPS.SelectedValue = PS
DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero).FiltroPrimeroValor("PSCodigo")
End If End If
'DdlSubProyecto.SelectedValueExist(SubProyecto) 'DdlSubProyecto.SelectedValueExist(SubProyecto)
DdlFamilia.SelectedValueExist(Familia) DdlFamilia.SelectedValueExist(Familia)
DdlSubFamilia.SelectedValueExist(SubFamilia) DdlSubFamilia.SelectedValueExist(SubFamilia)
DdlProveedor.SelectedValue = Proveedor
If Proveedor.ToEntero > 0 Then If Proveedor.ToEntero > 0 Then
DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString Dim Dr As DataRow = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Proveedor.ToEntero).FiltroPrimero("")
If Dr IsNot Nothing Then
DdlProveedor.SelectedText = Dr("RazonSocial").ToString
DdlProveedor.SelectedValue = Proveedor
End If
Else Else
DdlProveedor.SelectedText = "Todos" DdlProveedor.SelectedText = "Todos"
End If End If
@@ -200,8 +204,10 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
'CargaProveedor 'CargaProveedor
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedor.setEsWebService(True)
DdlProveedor.DataBind() DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
DdlProveedor.SelectedText = "Todos"
DdlProveedor.SelectedValue = "-1"
'CargaUsuarios 'CargaUsuarios
DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)