From 080c7cc673f60fd9365a45bcb1bf2764a76a6659 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Jul 2023 13:42:45 -0700
Subject: [PATCH] -- mejora

---
 Ventas/RepVentaDetalle.aspx.vb | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 4e097c201..303f97a9a 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -4,9 +4,6 @@ Option Strict On
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-Imports System.IO
-Imports System.IO.Compression
-Imports System.Net
 Imports System.Net.Http
 
 Partial Class RepVentaDetalle
@@ -368,7 +365,7 @@ Partial Class RepVentaDetalle
     End Sub
     Private Sub CargaDatos()
 
-        Dim AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
+        Dim AnioMes = "-1" ' If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
         Dim Fecha = If(Request("Fecha") IsNot Nothing, Request("Fecha").ToString, "-1").ToString
         Dim IVA = If(Request("IVA") IsNot Nothing, Request("IVA").ToString, "-1").ToString
 
@@ -387,7 +384,7 @@ Partial Class RepVentaDetalle
 
         'Anio = txtFechaI.Text.ToDate.Year.ToString
         'Mes = txtFechaI.Text.ToDate.Month.ToString
-        AnioMes = String.Format("{0}/{1}", txtFechaI.Text.ToDate.Year.ToString, txtFechaI.Text.ToDate.Month.ToString)
+        AnioMes = "-1" 'String.Format("{0}/{1}", txtFechaI.Text.ToDate.Year.ToString, txtFechaI.Text.ToDate.Month.ToString)
 
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha)
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
@@ -416,7 +413,7 @@ Partial Class RepVentaDetalle
         End If
         ObjVentas.Dispose()
 
-        If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io
+        If DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 AndAlso DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io
         Agrupador = DdlGrupo.SelectedItem.Text
 
         GvDatos.DataBind()