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

filtro Cliente pedidos STF

Browse Source
This commit is contained in:
rrene
2024-10-04 16:27:44 -07:00
parent 6cdfc48bc6
commit 697358047d
3 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsVentas.vb
View File

@@ -1766,7 +1766,7 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function End Function
Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer, Opcion As Integer, FechaInicio As Date, FechaFin As Date) As Boolean Public Function GetRepPedidosSTF(CveSubProyecto As Integer, CveVendedor As Integer, CveEmpresa As Integer, Opcion As Integer, FechaInicio As Date, FechaFin As Date, CveCliente As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_PedidosSTFRep") DataAdapter("PA_Vta_PedidosSTFRep")
@@ -1777,6 +1777,7 @@ Public Class ClsVentas
.Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Opcion", SqlDbType.Int).Value = Opcion
.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
.Add("@FechaFin", SqlDbType.Date).Value = FechaFin .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
End With End With
Try Try

5
Ventas/RepPedidosSTF.aspx
View File

@@ -114,6 +114,11 @@
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<label class="col-md-1 ">Cliente:</label>
<div class="col-md-2">
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
</div>
</div> </div>
</div> </div>
</div> </div>

15
Ventas/RepPedidosSTF.aspx.vb
View File

@@ -33,9 +33,6 @@ Partial Class Ventas_RepPedidosSTF
End Set End Set
End Property End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
@@ -64,17 +61,17 @@ Partial Class Ventas_RepPedidosSTF
DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor) DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor)
DdlVendedor.Enabled = False DdlVendedor.Enabled = False
End If End If
DdlClientes.setEsWebService(True)
End Sub End Sub
Protected Sub CargaDatos() Protected Sub CargaDatos()
LnkImprimirPedidos.Visible = False
DatosGV = New DataTable
Dim Opcion As Integer = 1 Dim Opcion As Integer = 1
Dim FechaInicio As Date = MinFecha Dim FechaInicio As Date = MinFecha
Dim FechaFin As Date = MaxFecha Dim FechaFin As Date = MaxFecha
Dim tCveCliente As Integer = DdlClientes.SelectedValue.ToEntero
LnkImprimirPedidos.Visible = False
DatosGV = New DataTable
If TabG.ActiveTabIndex = 1 Then ' entregados If TabG.ActiveTabIndex = 1 Then ' entregados
Opcion = 2 Opcion = 2
@@ -82,7 +79,7 @@ Partial Class Ventas_RepPedidosSTF
FechaFin = txtFechaF.Text.ToDate FechaFin = txtFechaF.Text.ToDate
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin, tCveCliente) Then
GvE.DataSource = ObjVentas.DtResultados GvE.DataSource = ObjVentas.DtResultados
End If End If
@@ -92,7 +89,7 @@ Partial Class Ventas_RepPedidosSTF
FechaInicio = txtFechaI.Text.ToDate FechaInicio = txtFechaI.Text.ToDate
FechaFin = txtFechaF.Text.ToDate FechaFin = txtFechaF.Text.ToDate
Dim ObjVentas As New ClsVentas Dim ObjVentas As New ClsVentas
If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin) Then If ObjVentas.GetRepPedidosSTF(DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion, FechaInicio, FechaFin, tCveCliente) Then
DatosGV = ObjVentas.DtResultados DatosGV = ObjVentas.DtResultados
DatosGV.Columns.Add("CantidadOrg", GetType(Decimal)) DatosGV.Columns.Add("CantidadOrg", GetType(Decimal))