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

E119 Filtros Lineas Adicionales

Browse Source 
-Por Comercializador
-Por Estatus

CAMBIOS BD:
-PA_Vta_LineasAdicionalesGet en SIG_Resp_MLR y Ventas
 + @CveProveedor = -1
This commit is contained in:
MLopez
2023-02-10 17:19:23 -07:00
parent 10ef572c92
commit b57f471229
3 changed files with 70 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Ventas/Clientes.aspx
View File

@@ -4535,7 +4535,35 @@
<ajax:TabPanel ID="TabLineasAdicionales" runat="server" HeaderText="Lineas Adicionales" Visible="false">
<ContentTemplate>
<asp:UpdatePanel ID="UpFiltrosLA" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria3">
<div class="portlet-title portlet-filterT smalltitle">
<div class="tools">
<asp:Button ID="BtnConsultarLineas" OnClick="BtnConsultarLineas_Click" ValidationGroup="Valida" runat="server" Text="Consultar" class="btn btn-primary" />
<a href="javascript:;" class="expand"></a>
</div>
<div class="titlefiltros caption">
<div class="row">
<label class="col-md-1 " style="width: 120px; text-align: right">Comercializador:</label>
<div class="col-md-2" style="width: 250px">
<ADS:Dropdownlost ID="DdlProveedorLineaAdicional" SelectedText="-" IncluyeTodos="true" runat="server" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"
DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
</div>
<label class="col-md-1 truncate" style="width: 120px; text-align: right">Estatus:</label>
<div class="col-md-2" style="width: 120px">
<asp:DropDownList ID="DdlEstatusLineaAdicional" runat="server" Cssclass="table-group-action-input form-control select2me">
<asp:ListItem value="-1" Text="Todos"/>
<asp:ListItem value="1" Text="Vinculado"/>
<asp:ListItem Selected="True" value="0" Text="Sin Registrar"/>
</asp:DropDownList>
</div>
</div>
</div>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
<div class="row ">
<div class="col-md-12">

44
Ventas/Clientes.aspx.vb
View File

@@ -452,7 +452,16 @@ Partial Class Clientes
Set(value As DataTable)
ViewState("DtAnticipoHistorial") = value
End Set
End Property
Private Property DtLineaAdicional As DataTable
Get
Return CType(ViewState("DtLineaAdicional"), DataTable)
End Get
Set(value As DataTable)
ViewState("DtLineaAdicional") = value
End Set
End Property
'Private Property EstatusAnteriorCliente As Boolean
' Get
' If ViewState("EstatusAnteriorCliente") Is Nothing Then
@@ -10318,6 +10327,11 @@ Partial Class Clientes
Private Sub CargaCombosLineasAdicionales()
DdlProveedorLineaAdicional.setEsWebService(True)
DdlProveedorLineaAdicional.Attributes.Add("data-metodo", "getproveedores")
DdlProveedorLineaAdicional.SelectedText = "-"
DdlProveedorLineaAdicional.SelectedValue = "-1"
DdlProveedorLineaAdicionalModal.setEsWebService(True)
DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
DdlProveedorLineaAdicionalModal.SelectedText = "-"
@@ -10326,22 +10340,42 @@ Partial Class Clientes
DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoriaLineaAdicionalModal.DataBind()
DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
End Sub
Protected Sub BtnConsultarLineas_Click(sender As Object, e As EventArgs)
FiltrarLineasAdicionales()
End Sub
Protected Sub FiltrarLineasAdicionales()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, DdlEstatusLineaAdicional.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvLineasAdicionales.DataSource = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
GvLineasAdicionales.DataBind()
UpLineasAdicionales.Update()
End Sub
'Protected Sub DdlProveedorLineaAdicional_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedorLineaAdicional.selectedindexchange
' FiltrarLineasAdicionales()
'End Sub
'Protected Sub DdlEstatusLineasAdicionales_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusLineaAdicional.SelectedIndexChanged
' FiltrarLineasAdicionales()
'End Sub
Private Sub GetLineasAdicionales()
Dim ObjVentas As New ClsVentas
If ObjVentas.GetLineasAdicionales(CveCliente, -1, -1, -1, UsuarioActual.CveEmpresa) Then
If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa) Then
GvLineasAdicionales.DataSource = ObjVentas.DtResultados
End If
ObjVentas.Dispose()
GvLineasAdicionales.DataBind()
FiltrarLineasAdicionales()
UpLineasAdicionales.Update()
End Sub
Protected Sub LnkAgregarLineaAdicional_Click(sender As Object, e As EventArgs)