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

-- SE AGREGÓ E LFILTRO POR CENTRO DE COSTO

Browse Source
This commit is contained in:
rrene
2022-04-13 10:42:06 -07:00
parent c8dba82c1f
commit 7b3037d875
2 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
App_Code/ClsVentas.vb
View File

@@ -3297,13 +3297,14 @@ Public Class ClsVentas
Return Retorno Return Retorno
End Function End Function
Public Function GetCortesDetalleVentasResumen(CveCorte As Integer, CveEmpresa As Integer) As Boolean Public Function GetCortesDetalleVentasResumen(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_CortesDetalleVentasResumenGet") DataAdapter("PA_Vta_CortesDetalleVentasResumenGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveCorte", SqlDbType.Int).Value = CveCorte .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With

4
Bancos/RepCortes.aspx.vb
View File

@@ -151,11 +151,11 @@ Partial Class Bancos_RepCortes
Nombre = gvr.DataKey("Nombre").ToString Nombre = gvr.DataKey("Nombre").ToString
Dim Vent As New ClsPuntoVenta Dim Vent As New ClsPuntoVenta
Dim Vn As New ClsVentas Dim Vn As New ClsVentas
If Vn.GetCortesDetalleVentasResumen(CveCorte, UsuarioActual.CveEmpresa) Then If Vn.GetCortesDetalleVentasResumen(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvP.DataSource = Vn.DtResultados GvP.DataSource = Vn.DtResultados
DtCortesVentasResumen = Vn.DtResultados DtCortesVentasResumen = Vn.DtResultados
End If End If
If Vent.GetCortesDetalleVentas(CveCorte, UsuarioActual.CveEmpresa) Then If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
GvD.DataSource = Vent.DtResultados GvD.DataSource = Vent.DtResultados
DtCortesVentas = Vent.DtResultados DtCortesVentas = Vent.DtResultados
divDetalle.Visible = True divDetalle.Visible = True