-

Ventas/RepVentaDetalle.aspx.vb

@@ -130,9 +130,7 @@ Partial Class RepVentaDetalle
             InicializaValores()
             ConfiguraEmpresa()
 
-            If ConsultaAlCargar Then
+            If ConsultaAlCargar Then CargaDatos()
-                CargaDatos()
-            End If
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                 LblServicioDomicilioFiltro.Visible = True
@@ -150,24 +148,22 @@ Partial Class RepVentaDetalle
 
 
     Private Sub InicializaValores()
-        ConsultaAlCargar = True
 
         Dim Grupo, CveCliente, CveSucursal, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatusFactura, CveCorte, IVA, TipoDocto, CveClienteClasificacion, CveCondicionesPago, CveTipoRelacion As String
         Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String
         Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String
-        'Dim CveSubProyecto As Integer
+
         Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
+        ConsultaAlCargar = If(Grupo <> "-1", True, False)
         CveCliente = If(Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToEntero() > 0, Request("CveCliente").ToEntero(), -1).ToString
         CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing, Request("CveClienteClasificacion").ToEntero(), -1).ToString
         CveSucursal = If(Request("CveSucursal") IsNot Nothing AndAlso Request("CveSucursal").ToEntero() > 0, Request("CveSucursal").ToEntero(), -1).ToString
         CveSubProyectoEjecucion = If(Request("CveSubProyectoEjecucion") IsNot Nothing AndAlso Request("CveSubProyectoEjecucion").ToEntero() > 0, Request("CveSubProyectoEjecucion").ToEntero(), -1).ToString
 
         CveUsuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString
-
         CveCorte = If(Request("CveCorte") IsNot Nothing AndAlso Request("CveCorte").ToEntero() > 0, Request("CveCorte").ToEntero(), -1).ToString
         IVA = If(Request("IVA") IsNot Nothing, Request("IVA").ToString, "-1").ToString
 
-
         Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString
         Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString
         AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString