- limpieza de tabs

Ventas/RepComisionesSMS.aspx.vb

@@ -61,8 +61,6 @@ Partial Class Ventas_RepComisionesSMS
 
     Public Sub CargaDatos()
 
-
-
         LnkExportar.Visible = False
 
         Dim ObjVentas As New ClsVentas
@@ -85,39 +83,11 @@ Partial Class Ventas_RepComisionesSMS
 
     End Sub
 
-    Public Sub CargaDatosEspeciales()
-
-
-
-        LnkExportar.Visible = False
-
-        Dim ObjVentas As New ClsVentas
-
-        If ObjVentas.GetComisionesMedicasRep(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, -1, -1, DdlMedico.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, -1, 2) Then
-            GvDatosEspeciales.DataSource = ObjVentas.DtResultados
-
-            If ObjVentas.DtResultados IsNot Nothing AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
-                LnkExportar.Visible = True
-            End If
-        Else
-            GvDatosEspeciales.DataSource = Nothing
-        End If
-
-        ObjVentas.Dispose()
-
-        GvDatosEspeciales.DataBind()
-
-        UpDatosEspeciales.Update()
-
-    End Sub
-
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
 
-        If Tabs.ActiveTabIndex = 0 Then
-            CargaDatos()
-        Else
-            CargaDatosEspeciales()
-        End If
+
+        CargaDatos()
+
 
     End Sub
 
@@ -125,19 +95,12 @@ Partial Class Ventas_RepComisionesSMS
 
     Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
 
-
         Dim SbFiltros As New StringBuilder()
         SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
 
-
-        If Tabs.ActiveTabIndex = 0 Then
-            GvDatos.Columns(10).Visible = False
+        GvDatos.Columns(10).Visible = False
             GvDatos.ExportToExcelGembox("Comisiones", UsuarioActual, "Comisiones", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
-            GvDatos.Columns(10).Visible = True
-        Else
-            GvDatosEspeciales.ExportToExcelGembox("Comisiones", UsuarioActual, "Comisiones Especiales", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
-        End If
-
+        GvDatos.Columns(10).Visible = True
 
     End Sub