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

- ventas relacionadas

Browse Source
This commit is contained in:
Rene Molina
2020-01-31 13:26:15 -07:00
parent f03cb6bc69
commit 80ab861146
5 changed files with 50 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Inicio.aspx.vb
View File

@@ -203,7 +203,9 @@ Partial Class Inicio
Private Sub MuestraVentasPUE()
Dim objVentas As New ClsVentas
If objVentas.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
Dim FechaInicio As Date = Now.AddYears(-2)
LblVentasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString
If objVentas.GetPUESinPago(FechaInicio, Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objVentas.DtResultados.Rows.Count > 0 Then
GvVtaPUE.DataSource = objVentas.DtResultados
@@ -216,8 +218,10 @@ Partial Class Inicio
End Sub
Private Sub MuestraComprasPUE()
Dim objCompras As New ClsCompras
If objCompras.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
Dim objCompras As New ClsCompras
Dim FechaInicio As Date = Now.AddYears(-2)
LblComprasPUE.Text = "Facturas apartir de " & FechaInicio.ToShortDateString
If objCompras.GetPUESinPago(FechaInicio, Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objCompras.DtResultados.Rows.Count > 0 Then
GvCompPUE.DataSource = objCompras.DtResultados