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

-anios pue a 4

Browse Source
This commit is contained in:
Rene Molina
2020-01-29 11:15:52 -07:00
parent c2cff3970b
commit 66e98d5081
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inicio.aspx.vb
View File

@@ -203,7 +203,7 @@ Partial Class Inicio
Private Sub MuestraVentasPUE() Private Sub MuestraVentasPUE()
Dim objVentas As New ClsVentas Dim objVentas As New ClsVentas
If objVentas.GetPUESinPago(Now.addyears(-2), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objVentas.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objVentas.DtResultados.Rows.Count > 0 Then If objVentas.DtResultados.Rows.Count > 0 Then
GvVtaPUE.DataSource = objVentas.DtResultados GvVtaPUE.DataSource = objVentas.DtResultados
@@ -217,7 +217,7 @@ Partial Class Inicio
Private Sub MuestraComprasPUE() Private Sub MuestraComprasPUE()
Dim objCompras As New ClsCompras Dim objCompras As New ClsCompras
If objCompras.GetPUESinPago(Now.addyears(-2), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then If objCompras.GetPUESinPago(Now.AddYears(-4), Now, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If objCompras.DtResultados.Rows.Count > 0 Then If objCompras.DtResultados.Rows.Count > 0 Then
GvCompPUE.DataSource = objCompras.DtResultados GvCompPUE.DataSource = objCompras.DtResultados