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

dropdownlost en cxp detalle

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-03-10 20:17:26 -07:00
parent 7a8067c1e0
commit 9c1f16f15d
2 changed files with 32 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Compras/RepCxPDetalle.aspx
View File

@@ -75,9 +75,8 @@
<div class="row text-size-12">
<div class="col-md-1"><span>Proveedor:</span></div>
<div class="col-md-1">
<asp:DropDownList ID="DdlProveedores" runat="server" CssClass="select2me" AppendDataBoundItems="true" DataTextField="RazonSocial" DataValueField="CveProveedor" Width="100%">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" CssClassDdl="select2me " DataTextField="RazonSocial" DataValueField="CveProveedor">
</ADS:Dropdownlost>
</div>
<div class="col-md-1"><span>Clasificaciones:</span></div>
<div class="col-md-1">

40
Compras/RepCxPDetalle.aspx.vb
View File

@@ -234,12 +234,18 @@ Partial Class RepCxPDetalle
#Region "CARGAS"
Private Sub CargaCombos()
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.DataBind()
Dim Proveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero
CargaProveedores()
Dim CveProveedor As Integer = IfNull(Request("CveProveedor"), -1).ToString.ToEntero
DdlProveedores.SelectedValue = CveProveedor
Me.CveProveedor = CveProveedor
If DdlProveedores.SelectedValue.ToEntero > 0 Then
DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {CveProveedor}").Rows(0)("RazonSocial").ToString
Else
DdlProveedores.SelectedText = "-"
End If
DdlProveedores.SelectedValueExist(Proveedor)
CveProveedor = Proveedor
CveProveedorClasificacion = IfNull(Request("CveProveedorClasificacion"), -1).ToString.ToEntero
Dim ProveedorClasificacion As Integer = IfNull(Request("CveProveedorClasificacion"), -1).ToString.ToEntero
@@ -447,12 +453,26 @@ Partial Class RepCxPDetalle
'End If
'End If
'ObjEmpresa.Dispose()
End Sub
End Sub
#End Region
Private Sub CargaProveedores()
If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
DdlProveedores.SelectedText = "Seleccione"
DdlProveedores.SelectedValue = "-1"
Else
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.DataBind()
DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
End Sub
#Region "GRIDVIEW"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
@@ -659,7 +679,7 @@ Partial Class RepCxPDetalle
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
'PARA REPORTE
Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedItem.Text}")
Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
Dim FechaIn As String = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}")
Dim FechaFn As String = If(txtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}")