BDH Scoreboard

App_Code/ClsVentas.vb

@@ -4507,11 +4507,16 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
-    Public Function GetMetasVendedores(CveEmpresa As Integer) As Boolean
+    Public Function GetMetasVendedores(CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1, Optional CveVendedor As Integer = -1, Optional CveMarca As Integer = -1, Optional Mes As Integer = -1, Optional Anio As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_MetasVendedoresGet", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@Mes", SqlDbType.Int).Value = Mes
+            .Add("@Anio", SqlDbType.Int).Value = Anio
         End With
         Try
             SqlAdapter.Fill(Data)

Ventas/CatMetasVendedores.aspx

@@ -18,8 +18,56 @@
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
+    <li>
+        <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="True" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                <div class="portlet-title portlet-filterT smalltitle">
+                    <div class="tools">
+                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultar_Click" />
+                        <a href="javascript:;" class="expand"></a>
+                    </div>
+                    <div class="titlefiltros  caption">
+                        <div class="row">
+                            <label class="col-md-1 truncate">Sucursal:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                </asp:DropDownList>
+                            </div>
+                            <label class="col-md-1 truncate">Mes/Año:</label>
+                            <div class="col-md-1" style="min-width: 115px">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <asp:TextBox Width="80px" ID="txtMesAnio" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MEEMesAnio" runat="server" TargetControlID="txtMesAnio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtMesAnio" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                            </div>
+                            <label title="Vendedor" data-toggle="tooltip" class="col-md-1 truncate">Vendedor:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlVendedor" runat="server" Width="100%" DataTextField="Vendedor" DataValueField="CveVendedor" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                </asp:DropDownList>
+                            </div>
+                            <label title="Marca" data-toggle="tooltip" class="col-md-1 truncate">Marca:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlMarca" runat="server" Width="100%" DataTextField="Marca" DataValueField="CveMarca" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-1"></div>
+                        </div>
+                    </div>
+                </div>
+                <div class="portlet-body" style="display: none">
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveMeta,CveVendedor,CveMarca,CveClasificacion,CveClasificacionSup,Vendedor,MesAño,Marca,Clasificacion,MetaCantidad,MetaImporte" EmptyDataText="No se encontraron metas registradas" ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
@@ -64,9 +112,9 @@
                             <ajax:ValidatorCalloutExtender ID="VCMarca" runat="server" HighlightCssClass="vco" TargetControlID="RFVMarca" Width="300px"></ajax:ValidatorCalloutExtender>
                         </EditItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText ="MesAño">
+                    <asp:TemplateField HeaderText="Mes/Año">
                         <ItemTemplate>
-                            <asp:Literal ID="LtlMesAño" runat="server" Text='<%# Eval("MesAño", "{0:mm/yyyy}") %>'></asp:Literal>
+                            <asp:Literal ID="LtlMesAño" runat="server" Text='<%# Eval("MesAño", "{0:MM/yyyy}") %>'></asp:Literal>
                         </ItemTemplate>
                         <EditItemTemplate>
                             <asp:TextBox ID="TxtMesAño" runat="server" CausesValidation="true" MaxLength="50" Text='<%# Eval("MesAño") %>' ValidationGroup="GrpGV" Width="234px"></asp:TextBox>
@@ -166,6 +214,48 @@
             </asp:UpdatePanel>
         </div>
     </div>
+    <%--CARGA EXCEL--%>
+    <div id="DivCargaExcel" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <!-- Modal content-->
+            <div class="modal-content">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Agregar Excel</h4>
+                </div>
+                <div class="modal-body">
+                    <div class="row">
+                        <div class="col-md-12">
+                            <h3>Arraste o haga click para subir el archivo Excel</h3>
+                        </div>
+                    </div>
+                    <div class="row">
+                        <div class="col-md-11" style="margin-left: 30px; margin-right: 30px;">
+                            <asp:TextBox ID="TxtExcel" CssClass="ADSdropzone hidden" Text="" data-maxFile="1" runat="server"></asp:TextBox>
+                        </div>
+                    </div>
+                </div>
+                <div class="modal-footer">
+                    <div class="row">
+                        <div class="col-md-2" style="text-align: left">
+                            <asp:UpdatePanel ID="UpDescargar" runat="server" UpdateMode="Conditional">
+                                <ContentTemplate>
+                                    <asp:Button ID="BtnDescargarFormato" runat="server" CssClass="btn btn-warning" Text="Descargar Formato" />
+                                </ContentTemplate>
+                                <Triggers>
+                                    <asp:PostBackTrigger ControlID="BtnDescargarFormato" />
+                                </Triggers>
+                            </asp:UpdatePanel>
+                        </div>
+                        <div class="col-md-10" style="text-align: right">
+                            <asp:Button ID="BtnCargaExcel" runat="server" CssClass="btn btn-success" Text="Aceptar" ValidationGroup="GrpCargarExcel"></asp:Button>
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </div>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Ventas/CatMetasVendedores.aspx.vb

@@ -1,6 +1,6 @@
 Imports System.Data
-Imports System.Linq
 Imports Extensiones
+Imports GemBox.Spreadsheet
 
 Partial Class CatMetasVendedores
     Inherits ClsPaginas
@@ -15,20 +15,49 @@ Partial Class CatMetasVendedores
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            CargaDatos()
             CargaDatosModal()
+            CargaCombos()
+            CargaDatos()
         End If
     End Sub
 
     Private Sub CargaDatos()
+        Dim Mes As Integer = -1, Anio As Integer = -1
+        If Not String.IsNullOrEmpty(txtMesAnio.Text) Then
+            Dim FechaRef As DateTime = txtMesAnio.Text.ToDate()
+            Mes = FechaRef.Month
+            Anio = FechaRef.Year
+        End If
+
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetMetasVendedores(UsuarioActual.CveEmpresa, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveVendedor:=DdlVendedor.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero(), Mes:=Mes, Anio:=Anio) Then
             GvDatos.DataSource = ObjVentas.DtResultados
         End If
         ObjVentas.Dispose()
         GvDatos.DataBind()
     End Sub
 
+    Private Sub CargaCombos()
+        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todas", "-1"))
+
+        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+        DdlVendedor.DataBind()
+        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        Dim ObjPS As New ClsProductosServicios
+        If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then
+            DdlMarca.DataSource = ObjPS.DtResultados
+        End If
+        ObjPS.Dispose()
+
+        DdlMarca.DataBind()
+        DdlMarca.Items.Insert(0, New ListItem("Todas", "-1"))
+
+
+    End Sub
+
     Private Sub CargaDatosModal()
         DdlVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedores.DataBind()
@@ -123,4 +152,237 @@ Partial Class CatMetasVendedores
         CargaDatos()
         UpDatos.Update()
     End Sub
+    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
+        CargaDatos()
+        UpDatos.Update()
+    End Sub
+
+    Private Sub BtnDescargarFormato_Click(sender As Object, e As EventArgs) Handles BtnDescargarFormato.Click
+
+        Dim DtExcel As New DataTable
+        DtExcel.TableName = "Metas"
+        DtExcel.Columns.Add(New DataColumn("Vendedor", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("Clasificación Superior", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("Clasificación", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("Marca", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("Mes", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("Año", GetType(String)))
+        DtExcel.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
+        DtExcel.Columns.Add(New DataColumn("Importe", GetType(Decimal)))
+
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim FileExcel As New ExcelFile()
+
+        Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+            {
+                .ColumnHeaders = True,
+                .StartRow = 0,
+                .StartColumn = 0
+            })
+        worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
+        worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+
+        worksheet.Cells.Style.Locked = False
+        worksheet.Cells.Style.FormulaHidden = False
+
+        worksheet.Rows(0).Cells.Style.Locked = True
+
+        worksheet.Protected = True
+
+        Dim protectionSettings = worksheet.ProtectionSettings
+        protectionSettings.AllowDeletingColumns = False
+        protectionSettings.AllowDeletingRows = True
+        protectionSettings.AllowEditingObjects = True
+        protectionSettings.AllowEditingScenarios = True
+        protectionSettings.AllowFormattingCells = True
+        protectionSettings.AllowFormattingColumns = True
+        protectionSettings.AllowFormattingRows = True
+        protectionSettings.AllowInsertingColumns = False
+        protectionSettings.AllowInsertingRows = True
+        protectionSettings.AllowSelectingLockedCells = True
+        protectionSettings.AllowSelectingUnlockedCells = True
+        protectionSettings.AllowSelectingUnlockedCells = True
+        protectionSettings.AllowSorting = True
+        protectionSettings.AllowUsingAutoFilter = True
+        protectionSettings.AllowUsingPivotTableReports = True
+        protectionSettings.SetPassword(ModExtensiones.IMEI)
+
+        FileExcel.Save(Response, "Metas.xlsx", SaveOptions.XlsxDefault)
+
+    End Sub
+
+    Private Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
+        If TxtExcel.getfiles().Archivos.Count > 0 Then
+            Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
+            CargarArchivo(Directorio, file.filename)
+        Else
+            Alert("No existe el archivo. Favor de subir un archivo excel a la plataforma.", TipoMensaje.MsgError)
+        End If
+    End Sub
+    Private Sub CargarArchivo(Ruta As String, FileName As String)
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        Dim Tipo As String = "EXCEL"
+        Dim dt As DataTable = Nothing
+        Dim ErrorArchivo = False
+
+        Try
+            dt = ReadExcelFile(Ruta + FileName, True)
+        Catch ex As Exception
+            ErrorArchivo = True
+            OnError("Ocurrio un error al leer el archivo <br/>" & ex.Message, ex)
+        End Try
+        If Not ErrorArchivo AndAlso dt IsNot Nothing Then
+
+            If Not dt.Columns(0).ColumnName = "Vendedor" Then
+                Alert("El nombre de la primera columna debe ser 'Vendedor'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(1).ColumnName = "Clasificación Superior" Then
+                Alert("El nombre de la segunda columna debe ser 'Clasificación Superior'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(2).ColumnName = "Clasificación" Then
+                Alert("El nombre de la tercera columna debe ser 'Clasificación'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(3).ColumnName = "Marca" Then
+                Alert("El nombre de la cuarta columna debe ser 'Marca'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(4).ColumnName = "Mes" Then
+                Alert("El nombre de la quinta columna debe ser 'Marca'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(5).ColumnName = "Año" Then
+                Alert("El nombre de la sexta columna debe ser 'Año'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(6).ColumnName = "Cantidad" Then
+                Alert("El nombre de la sexta columna debe ser 'Cantidad'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            If Not dt.Columns(7).ColumnName = "Importe" Then
+                Alert("El nombre de la septima columna debe ser 'Importe'. Favor de corregirlo", TipoMensaje.MsgError)
+                Exit Sub
+            End If
+            Dim DtMarcas As DataTable = Nothing
+            Dim ObjMarcas As New ClsProductosServicios
+            If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+                DtMarcas = ObjMarcas.DtResultados.Copy()
+            End If
+            ObjMarcas.Dispose()
+
+            dt.TableName = "Datos"
+            Dim ProductosNoCargados As New StringBuilder()
+            Dim RowsCargados As Integer = 0
+            Dim RowsNoCargados As Integer = 0
+            Dim ObjMetas As New ClsVentas
+            'ObjPS.IniciaTransacSQL()
+            Try
+                Dim DtVendedores As DataTable = GlobalDTVendedores(UsuarioActual.CveEmpresa)
+                Dim DtClasificaciones As DataTable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
+                Dim DtClasificaciones2 As DataTable = GlobalDTClasificaciones2(UsuarioActual.CveEmpresa)
+
+                For Each row As DataRow In dt.Rows
+                    Dim Correcto As Boolean = False
+                    Dim TieneError As Boolean = False
+                    Dim CveVendedor As Integer = DtVendedores.FiltroPrimeroValor("CveVendedor", String.Format("Vendedor LIKE '%{0}%'", row("Vendedor").ToString().TrimStart().TrimEnd())).ToEntero
+                    Dim CveClasificacion As Integer = DtClasificaciones.FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion='{0}'", row("Clasificación Superior").ToString().TrimStart().TrimEnd())).ToEntero
+                    Dim CveClasificacion2 As Integer = DtClasificaciones2.FiltroPrimeroValor("CveClasificacion", String.Format("Clasificacion='{0}'", row("Clasificación").ToString().TrimStart().TrimEnd())).ToEntero
+                    Dim CveMarca As Integer = DtMarcas.FiltroPrimeroValor("CveMarca", String.Format("Marca='{0}'", row("Marca").ToString().TrimStart().TrimEnd())).ToEntero
+
+                    Dim Mes As Decimal = row("Mes").ToString().ToDecimal()
+                    Dim Anio As Decimal = row("Año").ToString().ToDecimal()
+                    Dim Cantidad As Decimal = row("Cantidad").ToString().ToDecimal()
+                    Dim Importe As Decimal = row("Importe").ToString().ToDecimal()
+
+                    Dim FechaRef As New DateTime(Anio, Mes, 1)
+                    If CveVendedor > 0 AndAlso CveVendedor > 0 AndAlso CveClasificacion > 0 AndAlso CveClasificacion2 > 0 AndAlso CveMarca > 0 Then
+                        Correcto = ObjMetas.AddMetasVendedores(CveVendedor, FechaRef, CveMarca, Cantidad, Importe, CveClasificacion2, CveClasificacion)
+                        If Correcto Then
+                            RowsCargados += 1
+                        End If
+                    End If
+
+                    If Not Correcto Then
+                        RowsNoCargados += 1
+                    End If
+                Next
+            Catch ex As Exception
+                OnError("Ocurrió un error al cargar los precios.", ex)
+            Finally
+                ObjMarcas.Dispose()
+
+                Dim MensajeFinal As New StringBuilder()
+                If RowsNoCargados = 0 AndAlso RowsCargados > 0 Then
+                    MensajeFinal.Append("Las metas se cargaron correctamente. <br/><br/>")
+                End If
+                If RowsCargados > 0 Then
+                    MensajeFinal.Append("Se cargaron <b>" & RowsCargados & "</b> metas correctamente.")
+                End If
+                If RowsNoCargados > 0 Then
+                    MensajeFinal.Append("No se pudieron actualizar <b>" & RowsNoCargados & "</b> metas. <br/>")
+                End If
+
+                Alert(MensajeFinal.ToString())
+
+            End Try
+
+        End If
+    End Sub
+
+    Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+        Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath)
+
+        Dim unnamed As Integer = 0
+        Dim cols As Integer
+        Dim columns As String()
+        Dim curRow As Integer = 0
+        Dim curCol As Integer = 0
+        Dim dataTable As DataTable = New DataTable()
+        Dim worksheet As ExcelWorksheet = excelFile.Worksheets(0)
+
+        For cols = 0 To worksheet.Rows(0).AllocatedCells.Count - 1
+
+            If firstRowHasHeaders Then
+
+                If worksheet.Rows(0).Cells(cols).Value IsNot Nothing Then
+                    dataTable.Columns.Add(worksheet.Rows(0).Cells(cols).Value.ToString())
+                Else
+                    dataTable.Columns.Add("Unnamed Column " & (System.Threading.Interlocked.Increment(unnamed)))
+                End If
+
+                curRow = 1
+            Else
+                dataTable.Columns.Add("Column " & (cols + 1))
+            End If
+        Next
+
+        While curRow < worksheet.Rows.Count
+            columns = New String(cols - 1) {}
+
+            For curCol = 0 To cols - 1
+
+                If worksheet.Rows(curRow).Cells(curCol).Value Is Nothing Then
+                    columns(curCol) = ""
+                Else
+                    columns(curCol) = worksheet.Rows(curRow).Cells(curCol).Value.ToString()
+                End If
+            Next
+
+            dataTable.Rows.Add(columns)
+            curRow += 1
+        End While
+
+        Return dataTable
+    End Function
 End Class

Ventas/MetasVendedores.aspx.vb

@@ -79,8 +79,8 @@ Partial Class MetasVendedores
             e.Row.FCLabel("lblRealAcumuladoPorcentaje").Text = String.Format("{0}{1}", e.Row.FCLabel("lblRealAcumuladoPorcentaje").Text, "%")
             'e.Row.FCLabel("lblVarVSAAPerc").Text = String.Format("{0}{1}", e.Row.FCLabel("lblVarVSAAPerc").Text, "%")
 
-            Select Case e.Row.DataKey("Etiqueta")
+            Select Case e.Row.DBCampo("TipoFila")
-                Case "GrupoSuperior"
+                Case "1"
                     e.Row.CssClass = "GrupoSuperior"
                 '    e.Row.FCLabel("lblRealMes").Text = ""
                 '    e.Row.FCLabel("lblVtaMesAA").Text = ""
@@ -92,11 +92,11 @@ Partial Class MetasVendedores
                 '    e.Row.FCLabel("lblVarVSAAPerc").Text = ""
                 '    e.Row.FCLabel("lblVarVSAA").Text = ""
                 '    e.Row.FCLabel("lblVarVSObjAcum").Text = ""
-                Case "Categoria"
+                Case "2"
                     e.Row.CssClass = "Totales"
-                Case "Clasificacion"
+                Case "3"
                     e.Row.CssClass = "SubTotales2"
-                Case "Clasificacion2"
+                Case "4"
                     e.Row.CssClass = "SubTotales"
             End Select