Local

Acumuladores/RepIndicadorDiario.aspx.vb

@@ -40,14 +40,6 @@ Partial Class ACumuladores_RepIndicadorDiario
             ViewState("TCEspecifico") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString
@@ -225,78 +217,6 @@ Partial Class ACumuladores_RepIndicadorDiario
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -318,13 +238,11 @@ Partial Class ACumuladores_RepIndicadorDiario
                     Case 3
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

App_Code/LogicNominas.vb

@@ -346,8 +346,8 @@ Public Class LogicNominas
                     'Obtengo el desglose de horas extras
                     Dim dr As DataRow = DtHorasExtras.FiltroPrimero("")
                     If dr IsNot Nothing Then
-                        If dr("HorasDobles").ToString().ToDouble > 0 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
+                        If dr("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
-                        If dr("HorasTriples").ToString().ToDouble > 0 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
+                        If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
 
                     End If
                 End If

Bancos/ConciliacionesBancarias.aspx.vb

@@ -630,7 +630,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             Dim CveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("CveMoneda").ToString.ToEntero
             Dim ObjConta As New ClsContabilidad
             If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
-                If ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows.Count > 0 Then
+                If ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows.Count > 0 Then
                     CveCuenta = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContable").ToString}").Rows(0)("CveCuenta").ToString.ToEntero
                     If CveMoneda > 1 Then
                         CveCuentaComplementaria = ObjConta.DtResultados.FiltraParametros($"IdCompaq = {GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros($"CveCuenta = {DdlCuenta.SelectedValue}").Rows(0)("IdCtaContableComplementaria").ToString}").Rows(0)("CveCuenta").ToString.ToEntero

CRM/RepAcercamientosProcesos.aspx.cs

@@ -21,12 +21,6 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         set { ViewState["Agrupador"] = value; }
     }
 
-    private DataTable DtColor
-    {
-        get { return DtColor = (DataTable)ViewState["DtColor"]; }
-        set { ViewState["DtColor"] = value; }
-    }
-
     private DataTable DtDatos
     {
         get { return DtDatos = (DataTable)ViewState["DtDatos"]; }
@@ -69,7 +63,6 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
             TxtFechaFin.Text = startOfWeek.AddDays(7).ToString("dd/MM/yyyy");
             CargaDdl();
             cargarDatos();
-            CreaDtColor();
         }
     }
 
@@ -236,80 +229,6 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         cargarDatos();
     }
 
-    private void CreaDtColor()
-    {
-        DtColor = new DataTable();
-        DtColor.Columns.Add("Color");
-        DataRow RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#FF0F00";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#FF6600";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#FF9E01";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#FCD202";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#F8FF01";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#B0DE09";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#04D215";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#0D8ECF";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#0D52D1";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#2A0CD0";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#8A0CCF";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#CD0D74";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#754DEB";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#DDDDDD";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#999999";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#333333";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#000000";
-        DtColor.Rows.Add(RowColor);
-    }
-
     protected void LnkVerGrafica_Click(object sender, EventArgs e)
     {
         if (DtDatos != null)
@@ -350,10 +269,10 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
                 DataRow Row = Dt.NewRow();
                 Row["Texto"] = $"{Texto}";
                 Row["Valor"] = Dr["TOTAL"].ToString().FormatoNumero();
-                Row["Color"] = DtColor.Rows[RowColorIndex]["Color"].ToString();
+                Row["Color"] = Colors[RowColorIndex];
                 Dt.Rows.Add(Row);
                 RowColorIndex++;
-                if (RowColorIndex == 17) { RowColorIndex = 0; }
+                if (RowColorIndex == Colors.Length) { RowColorIndex = 0; }
             }
         }
 

CRM/RepAcercamientosRechazos.aspx.cs

@@ -21,12 +21,6 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
         set { ViewState["Agrupador"] = value; }
     }
 
-    private DataTable DtColor
-    {
-        get { return DtColor = (DataTable)ViewState["DtColor"]; }
-        set { ViewState["DtColor"] = value; }
-    }
-
     private DataTable DtDatos
     {
         get { return DtDatos = (DataTable)ViewState["DtDatos"]; }
@@ -69,7 +63,6 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
             TxtFechaFin.Text = startOfWeek.AddDays(7).ToString("dd/MM/yyyy");
             CargaDdl();
             cargarDatos();
-            CreaDtColor();
         }
     }
 
@@ -216,80 +209,6 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
         cargarDatos();
     }
 
-    private void CreaDtColor()
-    {
-        DtColor = new DataTable();
-        DtColor.Columns.Add("Color");
-        DataRow RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#FF0F00";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#FF6600";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#FF9E01";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#FCD202";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#F8FF01";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#B0DE09";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#04D215";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#0D8ECF";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#0D52D1";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#2A0CD0";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#8A0CCF";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#CD0D74";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#754DEB";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#DDDDDD";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#999999";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#333333";
-        DtColor.Rows.Add(RowColor);
-        RowColor = null;
-        RowColor = DtColor.NewRow();
-        RowColor["Color"] = "#000000";
-        DtColor.Rows.Add(RowColor);
-    }
-
     protected void LnkVerGrafica_Click(object sender, EventArgs e)
     {
         if (DtDatos != null)
@@ -330,10 +249,10 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
                 DataRow Row = Dt.NewRow();
                 Row["Texto"] = $"{Texto}";
                 Row["Valor"] = Dr["TOTAL"].ToString().FormatoNumero();
-                Row["Color"] = DtColor.Rows[RowColorIndex]["Color"].ToString();
+                Row["Color"] = Colors[RowColorIndex];
                 Dt.Rows.Add(Row);
                 RowColorIndex++;
-                if (RowColorIndex == 17) { RowColorIndex = 0; }
+                if (RowColorIndex == Colors.Length) { RowColorIndex = 0; }
             }
         }
 

Compras/RepCompras.aspx.vb

@@ -1,5 +1,4 @@
-
+Option Explicit On
-Option Explicit On
 Option Strict On
 
 Imports System.Data
@@ -7,9 +6,9 @@ Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Compras_RepCompras
-    Inherits ClsPaginas
+    Inherits ClsPaginas
 #Region "PROPIEDADES"
-
+
     Private Property TCEspecifico As Double
         Get
             If ViewState("TCEspecifico") Is Nothing Then
@@ -22,15 +21,6 @@ Partial Class Compras_RepCompras
             ViewState("TCEspecifico") = value
         End Set
     End Property
-
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property DtCompras As DataTable
         Get
             Return DirectCast(ViewState("DtCompras"), DataTable)
@@ -163,8 +153,6 @@ Partial Class Compras_RepCompras
 
         'Carga Tipo Centro de Costo
         CargaTipoCentroCosto()
-
-        CreaDataTableColor()
     End Sub
 
 
@@ -418,11 +406,11 @@ Partial Class Compras_RepCompras
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         GenerarPDF()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "GRAFICA"
-
+
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If Not DtCompras IsNot Nothing AndAlso DtCompras.Rows.Count > 0 Then
             Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
@@ -433,78 +421,6 @@ Partial Class Compras_RepCompras
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -526,13 +442,11 @@ Partial Class Compras_RepCompras
                     Case 3
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Compras/RepComprasAF.aspx.vb

@@ -34,14 +34,6 @@ Partial Class Compras_RepComprasAF
             ViewState("DTDatos") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString
@@ -68,7 +60,6 @@ Partial Class Compras_RepComprasAF
                 DdlProyecto.Items(0).Text = ""
                 LblProyecto.Visible = False
             End If
-            CreaDataTableColor()
         End If
     End Sub
 
@@ -311,78 +302,6 @@ Partial Class Compras_RepComprasAF
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -402,13 +321,11 @@ Partial Class Compras_RepComprasAF
                     Case 2
                         Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Compras/RepComprasDetalle.aspx.vb

@@ -40,14 +40,6 @@ Partial Class Compras_RepComprasDetalle
             ViewState("TCEspecifico") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString
@@ -270,8 +262,6 @@ Partial Class Compras_RepComprasDetalle
         'Carga Tipo Centro de Costo
         CargaTipoCentroCosto()
 
-        CreaDataTableColor()
-
     End Sub
 
     Private Sub CargaSubProyecto()
@@ -471,78 +461,6 @@ Partial Class Compras_RepComprasDetalle
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -564,13 +482,11 @@ Partial Class Compras_RepComprasDetalle
                     Case 3
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Compras/RepComprasPersonal.aspx.vb

@@ -33,14 +33,6 @@ Partial Class Compras_RepComprasPersonal
         End Set
 
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString
@@ -58,7 +50,6 @@ Partial Class Compras_RepComprasPersonal
             CargaCombos()
             DdlPS.ddl.Visible = False
             DdlPS.ddlWS.Attributes.Add("data-estatus", "-1")
-            CreaDataTableColor()
         End If
     End Sub
 
@@ -303,78 +294,6 @@ Partial Class Compras_RepComprasPersonal
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -394,13 +313,11 @@ Partial Class Compras_RepComprasPersonal
                     Case 2
                         Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Compras/RepCxP.aspx.vb

@@ -56,14 +56,6 @@ Partial Class Compras_RepCxP
             ViewState("Agrupador") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property DtGrafica As DataTable
         Get
             Return DirectCast(ViewState("DtGrafica"), DataTable)
@@ -101,7 +93,6 @@ Partial Class Compras_RepCxP
             CargaCombos()
             CargaGvPersonalizarRaqngoColumnas()
             CargaDatos()
-            CreaDataTableColor()
 
             If UsuarioActual.CveRol = 1 Then
                 divAgruparMes.Visible = True
@@ -1751,78 +1742,6 @@ Partial Class Compras_RepCxP
         CargaGraficaVencidoPorVencer(DdlVerGraficaVencidoPorVencer.SelectedValue.ToEntero)
         CambioGrafica(DdlVer.SelectedValue.ToEntero)
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica(Tipo As Integer)
         Dim Dt As New DataTable()
@@ -1845,13 +1764,11 @@ Partial Class Compras_RepCxP
                     Case 3
                         Row("Valor") = Dr("por_vencer").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
                 Top += 1
             End If
             If DdlMostrarGraficaTotales.SelectedValue.ToEntero <> -1 And Top > DdlMostrarGraficaTotales.SelectedValue.ToEntero Then Exit For

Compras/RepProductosServicios.aspx.vb

@@ -20,15 +20,6 @@ Partial Class Compras_RepProductosServicios
             ViewState("DtDatos") = value
         End Set
     End Property
-
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString
@@ -173,8 +164,6 @@ Partial Class Compras_RepProductosServicios
         txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
 
-        CreaDataTableColor()
-
         TipoCambio = 1
         TCEspecifico = 0
 
@@ -567,78 +556,6 @@ Partial Class Compras_RepProductosServicios
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -660,13 +577,11 @@ Partial Class Compras_RepProductosServicios
                     Case 3
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Compras/RepProductosServiciosDetalle.aspx.vb

@@ -24,14 +24,6 @@ Partial Class Compras_RepProductosServiciosDetalle
             ViewState("CveMoneda") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString
@@ -282,8 +274,6 @@ Partial Class Compras_RepProductosServiciosDetalle
         txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
         txtFechaF.Text = Now.ToShortDateString
 
-        CreaDataTableColor()
-
         TipoCambio = 1
         TCEspecifico = 0
     End Sub
@@ -671,78 +661,6 @@ Partial Class Compras_RepProductosServiciosDetalle
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -764,13 +682,11 @@ Partial Class Compras_RepProductosServiciosDetalle
                     Case 3
                         Row("Valor") = Dr("Cantidad").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb

@@ -10,8 +10,6 @@ Partial Class RepCuadreContaAdmonDetalle
     Inherits ClsPaginas
     Private Shared missing As Object = System.Reflection.Missing.Value
 
-#Region "PROPIEDADES"
-#End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then

CxC/RepCxC.aspx.vb

@@ -79,14 +79,6 @@ Partial Class RepCxC
             ViewState("Agrupador") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property DtGrafica As DataTable
         Get
             Return DirectCast(ViewState("DtGrafica"), DataTable)
@@ -109,7 +101,6 @@ Partial Class RepCxC
             If UsuarioActual.CveEmpresa.Contiene(72, 80, 146, 119) Then ChkAnticipos.Visible = True
             ActivaEnviarEstadoCuenta()
             If UsuarioActual.CveRol = 1 Or UsuarioActual.TienePermisoProceso(243) Then LnkDescargarSegmentos.Visible = True
-            CreaDataTableColor()
         End If
     End Sub
 
@@ -1250,78 +1241,6 @@ Partial Class RepCxC
         CargaGraficaVencidoPorVencer(DdlVerGraficaVencidoPorVencer.SelectedValue.ToEntero)
         CambioGrafica(DdlVer.SelectedValue.ToEntero)
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica(Tipo As Integer)
         Dim Dt As New DataTable()
@@ -1344,13 +1263,11 @@ Partial Class RepCxC
                     Case 3
                         Row("Valor") = Dr("por_vencer").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
                 Top += 1
             End If
             If DdlMostrarGraficaTotales.SelectedValue.ToEntero <> -1 And Top > DdlMostrarGraficaTotales.SelectedValue.ToEntero Then Exit For

General/RepIndicadorResumen.aspx.vb

@@ -5,22 +5,6 @@ Imports MoreLinq
 
 Partial Class General_RepIndicadorResumen
     Inherits ClsPaginas
-#Region "propiedades"
-#If False Then
-    Private Property DtColor As DataTable
-        Get
-            If ViewState("DtColor") Is Nothing Then
-                Return New DataTable
-            Else
-                Return DirectCast(ViewState("DtColor"), DataTable)
-            End If
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
-#End If
-#End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaCombos()
@@ -221,29 +205,6 @@ Partial Class General_RepIndicadorResumen
             End If
         End If
     End Sub
-#If False Then
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        DtColor.Rows.Add("#FF0F00")
-        DtColor.Rows.Add("#FF6600")
-        DtColor.Rows.Add("#FF9E01")
-        DtColor.Rows.Add("#FCD202")
-        DtColor.Rows.Add("#F8FF01")
-        DtColor.Rows.Add("#B0DE09")
-        DtColor.Rows.Add("#04D215")
-        DtColor.Rows.Add("#0D8ECF")
-        DtColor.Rows.Add("#0D52D1")
-        DtColor.Rows.Add("#2A0CD0")
-        DtColor.Rows.Add("#8A0CCF")
-        DtColor.Rows.Add("#CD0D74")
-        DtColor.Rows.Add("#754DEB")
-        DtColor.Rows.Add("#DDDDDD")
-        DtColor.Rows.Add("#999999")
-        DtColor.Rows.Add("#333333")
-        DtColor.Rows.Add("#000000")
-    End Sub
-#End If
 
     Private Sub Graficas()
 
@@ -265,7 +226,7 @@ Partial Class General_RepIndicadorResumen
                 Row("Unidad") = "MXN" '$"{GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 DtVxP.Rows.Add(Row)
                 'RowColorIndex += 1
-                'If RowColorIndex = 17 Then
+                'If RowColorIndex = Colors.Length() Then
                 '    RowColorIndex = 0
                 'End If
             End If

Inventarios/RepAlmacen.aspx.vb

@@ -19,21 +19,12 @@ Partial Class Inventarios_RepAlmacen
         Set(value As DataTable)
             ViewState("TmpDT") = value
         End Set
-    End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
     End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaTipoAlmacen()
             CargaDatos()
-            CreaDataTableColor()
         End If
     End Sub
 
@@ -132,78 +123,6 @@ Partial Class Inventarios_RepAlmacen
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -222,12 +141,10 @@ Partial Class Inventarios_RepAlmacen
                     Case 2
                         Row("Valor") = Dr("Total").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Nomina/Nomina.aspx

@@ -645,7 +645,7 @@
                                                     <asp:LinkButton ID="LnkProcesarReporteIncidenciaTabular" OnClick="LnkProcesarReporteIncidenciaTabular_Click" Text="<i class='fa fa-download'></i> Plantilla" runat="server"></asp:LinkButton>
                                                 </li>
                                                 <li>
-                                                    <asp:LinkButton ID="LnkshowProsesarASistencia" OnClick="LnkshowProsesarASistencia_Click" Text="<i class='fa fa-download'></i> Actualizar asistencia" runat="server"></asp:LinkButton>
+                                                    <asp:LinkButton ID="LnkshowProsesarASistencia" OnClick="LnkshowProsesarASistencia_Click" Text="<i class='fa fa-upload'></i> Actualizar asistencia" runat="server"></asp:LinkButton>
                                                 </li>
                                                 <%-- <li>
                                                             <asp:LinkButton ID="LnkCalculoSubsidio" OnClick="LnkCalculoSubsidio_Click" Text="<i class='icon-bulb'></i> Calculo Subsidio" runat="server"></asp:LinkButton>

Nomina/Nomina.aspx.cs

@@ -1442,7 +1442,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             if (pdf != null)
             {
                 List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
-                objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina" });
+                objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
                 Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                 using (ClsRH objrh = new ClsRH())
                 {
@@ -1521,7 +1521,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 if (pdf != null)
                 {
                     List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
-                    objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina" });
+                    objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
                     Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                     using (ClsRH objrh = new ClsRH())
                     {

OI/TareaDetalle.aspx.cs

@@ -253,7 +253,7 @@ public partial class OI_TareaDetalle : ClsPaginas
     private void CargaEstatus()
     {
 
-        DdlEventoEstatus.DataSource =  get_GlobalDTOIRevision(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
+        DdlEventoEstatus.DataSource = get_GlobalDTOIEstatusEventos(-1);//(UsuarioActual.CveEmpresa).FiltraParametros(string.Format("CveUsuario = {0}", UsuarioActual.CveUsuario));
         DDlEstatus.DataSource = DdlEventoEstatus.DataSource;
         DdlEventoEstatus.DataBind();
         DDlEstatus.DataBind();

OS/RepServicioDomicilio.aspx.vb

@@ -26,15 +26,6 @@ Partial Class OS_RepServicioDomicilio
             ViewState("DtDatos") = value
         End Set
     End Property
-
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString

RH/Asistencias.aspx

@@ -41,7 +41,7 @@
                                 </asp:DropDownList>--%>
                             </li>
                             <li id="DivProyectosAsignado" runat="server">
-                                <asp:Label runat="server" ID="LblProyectoAsignado" AssociatedControlID="DdlProyectoAsignado">Proyecto:  </asp:Label>
+                                <asp:Label runat="server" ID="LblProyectoAsignado" AssociatedControlID="DdlProyecto">Proyecto:  </asp:Label>
                                 <asp:DropDownList ID="DdlProyecto" runat="server" AppendDataBoundItems="true" Style="display: inline-block; width: 170px;" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                     <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                 </asp:DropDownList>

Sistemas/Empresa.aspx.vb

@@ -77,6 +77,9 @@ Partial Class Sistemas_Empresa
     End Property
     Public Property DtClasificacionIVA As DataTable
         Get
+            If ViewState("DtClasificacionIVA") Is Nothing Then
+                ViewState("DtClasificacionIVA") = New DataTable
+            End If
             Return CType((ViewState("DtClasificacionIVA")), DataTable)
         End Get
         Set(value As DataTable)
@@ -150,7 +153,6 @@ Partial Class Sistemas_Empresa
 
 #End Region
 
-
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -162,7 +164,6 @@ Partial Class Sistemas_Empresa
                     Exit Sub
                 End If
 
-
             End If
 
             CargaDdlPac()
@@ -204,8 +205,6 @@ Partial Class Sistemas_Empresa
                 TxtPlantillaVenta.Text = UsuarioActual.Empresa.PlantillaMailVenta
                 TxtAsunto.Text = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
 
-                InicializaClasificacionIVA()
-
             Else
                 'Configuración de Modalidad Insert
                 ViewState("CveEmpresa") = -1
@@ -215,9 +214,6 @@ Partial Class Sistemas_Empresa
             End If
             ConfiguracionEmpresa()
 
-
-
-
         End If
     End Sub
 
@@ -235,8 +231,6 @@ Partial Class Sistemas_Empresa
 
     End Function
 
-
-
     Private Sub CargaDatos()
 
         Dim ObjEmpresas As New ClsSisEmpresas()
@@ -346,7 +340,6 @@ Partial Class Sistemas_Empresa
                         CargaCuentasContables()
                         CargaDDLs()
 
-
                         Dim Row As DataRow
                         Row = DtCuentasContables.FiltroPrimero(String.Format("Id = {0} ", .IdCuentaIVAxAcreditar.ToString))
                         If Not IsNothing(Row) Then
@@ -455,7 +448,6 @@ Partial Class Sistemas_Empresa
                     CargaFuncionalidad(215, DdlFyE)
                     CargaFuncionalidad(221, DdlActivoFijo)
 
-
                     'CargaFuncionalidad(232, DdlProveedoresSIG)
                     'CargaFuncionalidad(233, DdlClientesSIG)
                     'CargaFuncionalidad(234, DdlDeudoresSIG)
@@ -482,7 +474,7 @@ Partial Class Sistemas_Empresa
 
                     Session("FileUpload") = .ArchivoPfx
                 End With
-
+                InicializaClasificacionIVA(ObjEmpresas)
             Else
                 Alert("La Empresa Solicitada no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnGuardar.Enabled = False
@@ -560,7 +552,7 @@ Partial Class Sistemas_Empresa
 
                 End If
                 ViewState("CveEmpresa") = ObjEmpresas.CveEmpresa
-                InicializaClasificacionIVA()
+                'InicializaClasificacionIVA(ObjEmpresas)
                 TextoOK = "La nueva Empresa se guardó correctamente."
             Else
                 TextoError = "Ocurrió un error al agregar la empresa"
@@ -638,30 +630,32 @@ Partial Class Sistemas_Empresa
         End If
 
         'CLASIFICACIONES DE IVAS
-        For Each Dr As DataRow In DtClasificacionIVA.Rows
+        If DtClasificacionIVA IsNot Nothing OrElse DtClasificacionIVA.Rows.Count > 0 Then
-            If Not Dr("CveClasificacion").ToString.ToEntero > 0 Then
+            For Each Dr As DataRow In DtClasificacionIVA.Rows
-                If Not ObjGral.RemoveClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero) Then
+                If Not Dr("CveClasificacion").ToString.ToEntero > 0 Then
-                    TextoError = "Ocurrió un error al guardar los cambios de la empresa"
+                    If Not ObjGral.RemoveClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero) Then
-                End If
+                        TextoError = "Ocurrió un error al guardar los cambios de la empresa"
-            ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero = 0 Then
+                    End If
-                If Not ObjGral.AddClasificacionPorcentaje(Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
+                ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero = 0 Then
+                    If Not ObjGral.AddClasificacionPorcentaje(Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
                                                        Dr("IdCtaIVAXAcreditar").ToString.ToEntero, Dr("IdCtaIVAAcreditable").ToString.ToEntero,
                                                        Dr("IdCtaIVAXTrasladar").ToString.ToEntero, Dr("IdCtaIVATrasladado").ToString.ToEntero, CveEmpresa) Then
-                    TextoError = "Ocurrió un error al guardar los cambios de la empresa"
+                        TextoError = "Ocurrió un error al guardar los cambios de la empresa"
-                End If
+                    End If
-            ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero > 0 Then
+                ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero > 0 Then
-                If Not ObjGral.UpdateClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero, Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
+                    If Not ObjGral.UpdateClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero, Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
                                                    Dr("IdCtaIVAXAcreditar").ToString.ToEntero, Dr("IdCtaIVAAcreditable").ToString.ToEntero,
                                                    Dr("IdCtaIVAXTrasladar").ToString.ToEntero, Dr("IdCtaIVATrasladado").ToString.ToEntero) Then
-                    TextoError = "Ocurrió un error al guardar los cambios de la empresa"
+                        TextoError = "Ocurrió un error al guardar los cambios de la empresa"
+                    End If
                 End If
-            End If
+            Next
-        Next
+        End If
 
-        'RECARGA GLOBAL
+        'RECARGA EMPRESA
         If TextoError = "" Then
-            If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
+            If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
-                GlobalDTEmpresas = ObjEmpresas.DtResultados
+                GlobalDTEmpresas(CveEmpresa) = ObjEmpresas.DtResultados
 
                 'verifico si existe la carpeta de la empresa, sino la crea
                 For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
@@ -671,12 +665,11 @@ Partial Class Sistemas_Empresa
                 Next
             End If
 
-            If ObjGral.GetClasificacionPorcentaje(-1) Then
+            If ObjGral.GetClasificacionPorcentaje(CveEmpresa) Then
-                GlobalDTClasificacionPorcentaje(-1) = ObjGral.DtResultados
+                GlobalDTClasificacionPorcentaje(CveEmpresa) = ObjGral.DtResultados
             End If
         End If
 
-
         'AGREGAR FUNCIONALIDADES
         If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 201, DdlProveedores)
         If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 211, DdlClientes)
@@ -691,7 +684,6 @@ Partial Class Sistemas_Empresa
         If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 218, DdlCaja)
         If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 215, DdlFyE)
         If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 221, DdlActivoFijo)
-
         If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 246, DdlClientes)
         If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 237, DdlAnticipoCliente)
 
@@ -710,7 +702,6 @@ Partial Class Sistemas_Empresa
         'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 243, DdlFyESIG)
         'If TextoError = "" Then TextoError = AgregarFuncionalidad(ObjEmpresas, 244, DdlActivoFijoSIG)
 
-
         'TRIGGER
         If TextoError = "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" And TxtBDContPAQi.Text.Trim <> "" Then
 
@@ -743,10 +734,8 @@ Partial Class Sistemas_Empresa
             Else
                 Alert("La empresa tiene la información para el uso de contabilidad pero no se tiene activada", TipoMensaje.MsgAdvertencia)
             End If
-
         End If
 
-
         If TextoError = "" Then
             ObjEmpresas.Commit()
             If ObjContPAQ IsNot Nothing Then ObjContPAQ.Commit()
@@ -777,8 +766,7 @@ Partial Class Sistemas_Empresa
         Dim ObjEmpresas As New ClsSisEmpresas
         If ObjEmpresas.RemoveEmpresa(CveEmpresa) Then
             GlobalDTEmpresas = ObjEmpresas.DtResultados
-
+            Alert("La Empresa se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa.aspx"";")
-            Alert("La Empresa se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresas.aspx"";")
         End If
         ObjEmpresas.Dispose()
     End Sub
@@ -802,9 +790,6 @@ Partial Class Sistemas_Empresa
             End If
             ObjEmpresa.Dispose()
         End If
-
-
-
     End Sub
 
     Private Sub CargaCuentasContablesSIG(Optional IdCuentaPadre As Integer = -1)
@@ -950,9 +935,6 @@ Partial Class Sistemas_Empresa
                 DdlCuentaPerdidaCambiaria.DataSource = DtCuentasContables : DdlCuentaPerdidaCambiaria.DataBind() : DdlCuentaPerdidaCambiaria.SelectedValue = Seleccionado
                 DdlCuentaPerdidaCambiaria.AutoPostBack = False : DdlCuentaPerdidaCambiaria.Attributes.Remove("onclick") : DdlCuentaPerdidaCambiaria.CssClass &= " select2me"
 
-
-
-
                 'CUENTAS PADRES
 
             Case "21"
@@ -1172,8 +1154,6 @@ Partial Class Sistemas_Empresa
 
     End Sub
     Public Sub CargaDDLs()
-
-
         DdlIVAxAcreditar.AutoPostBack = True
         DdlIVAAcreditable.AutoPostBack = True
         DdlIVAxTrasladar.AutoPostBack = True
@@ -1390,9 +1370,9 @@ Partial Class Sistemas_Empresa
         Next
         DtClasificacionIVA.AcceptChanges()
     End Sub
-    Private Sub InicializaClasificacionIVA()
+    Private Sub InicializaClasificacionIVA(ObjEmpresas As ClsSisEmpresas)
         CreaDtClasificacionIVA()
-        CargaCuentasIVA()
+        CargaCuentasIVA(ObjEmpresas)
         CargaClasificaciones()
         CargaClasificacionesIVA()
     End Sub
@@ -1427,21 +1407,20 @@ Partial Class Sistemas_Empresa
         DtClasificacionIVA.Columns.Add("CuentaTrasladado", GetType(String))
         DtClasificacionIVA.Columns.Add("IdCtaIVATrasladado", GetType(Integer))
     End Sub
-    Private Sub CargaCuentasIVA()
+    Private Sub CargaCuentasIVA(ByRef ObjEmpresas As ClsSisEmpresas)
 
-        Dim ObjEmpresas As New ClsSisEmpresas()
         If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
             If ObjEmpresas.Empresa.UsaContabilidad Then
 
                 'If ObjEmpresas.Empresa.TipoContabilidad = 2 Then
                 Dim Cuenta As New ClsContPAQi(ObjEmpresas.Empresa)
-                    If Cuenta.GetCuentas(-1, "-1", -1) Then
+                If Cuenta.GetCuentas(-1, "-1", -1) Then
-                        DtCuentas = Cuenta.DtResultados
+                    DtCuentas = Cuenta.DtResultados
-                    End If
+                End If
-                    Cuenta.Dispose()
+                Cuenta.Dispose()
-                    'End If
+                'End If
 
-                    Try
+                Try
                     DdlIVAXAcreditarModal.DataSource = DtCuentas : DdlIVAXAcreditarModal.DataBind()
                 Catch ex As Exception
                 End Try
@@ -1460,7 +1439,7 @@ Partial Class Sistemas_Empresa
             End If
         End If
 
-        ObjEmpresas.Dispose()
+        'ObjEmpresas.Dispose()
         DdlIVAXAcreditarModal.Items.Insert(0, New ListItem("-", "-1"))
         DdlIVAAcreditableModal.Items.Insert(0, New ListItem("-", "-1"))
         DdlIVAXTrasladarModal.Items.Insert(0, New ListItem("-", "-1"))

Ventas/PV.aspx

@@ -2912,6 +2912,7 @@
                                                                         <br />
                                                                         <asp:DropDownList ID="DdlModeloAuto" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="ModeloMarca" DataValueField="CveModeloAuto">
                                                                         </asp:DropDownList>
+                                                                        <asp:RequiredFieldValidator ID="RFVModeloAuto" runat="server" ControlToValidate="DdlModeloAuto" InitialValue="-1" Display="Dynamic"  ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Modelo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddVenta"></asp:RequiredFieldValidator>
                                                                     </div>
                                                                     <div class="col-md-4">
                                                                         <label>Año:</label>

Ventas/PV.aspx.vb

@@ -5510,6 +5510,11 @@ Partial Class PV
                     Alert("El campo año no puede ser mayor al año actual.", TipoMensaje.MsgAdvertencia)
                     Exit Sub
                 End If
+
+                If DdlModeloAuto.SelectedValue = "-1" Then
+                    Alert("El campo modelo se debe de especificar.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
             End If
         End If
 
@@ -7087,6 +7092,7 @@ Partial Class PV
             DdlModeloAuto.DataSource = DtModelosAuto
         End If
         DdlModeloAuto.DataBind()
+        DdlModeloAuto.Items.Insert(0, New ListItem("-", "-1"))
     End Sub
 
     'Protected Sub GvRecepcionUsados_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvRecepcionUsados.RowDataBound

Ventas/RepAuxiliarFacturas.aspx.vb

@@ -18,15 +18,6 @@ Partial Class Ventas_RepAuxiliarFacturas
             ViewState("DtVentas") = value
         End Set
     End Property
-
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString

Ventas/RepProductosServicios.aspx.vb

@@ -18,14 +18,6 @@ Partial Class Ventas_RepProductosServicios
             ViewState("DtVentas") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString
@@ -238,7 +230,6 @@ Partial Class Ventas_RepProductosServicios
 
         CargaGrupo()
         CargaTipoCentroCosto()
-        CreaDataTableColor()
 
         TipoCambio = 1
         TCEspecifico = 0
@@ -592,78 +583,6 @@ Partial Class Ventas_RepProductosServicios
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -691,13 +610,11 @@ Partial Class Ventas_RepProductosServicios
                         Row("Texto") = $"{Dr("GPO").ToString}"
                 End Select
 
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
 
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Ventas/RepProductosServiciosDetalle.aspx.vb

@@ -43,14 +43,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
             ViewState("TCEspecifico") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
     Private Property Agrupador As String
         Get
             Return ViewState("Agrupador").ToString
@@ -276,7 +268,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
 
         CargaGrupo()
         CargaTipoCentroCosto()
-        CreaDataTableColor()
 
         TCEspecifico = 0
         TipoCambio = 1
@@ -809,78 +800,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -902,13 +821,11 @@ Partial Class Ventas_RepProductosServiciosDetalle
                     Case 3
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = GlobalDTMonedas().FiltraParametros($"CveMoneda = {CveMoneda}").Rows(0)("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Ventas/RepVentaDetalle.aspx.vb

@@ -101,14 +101,6 @@ Partial Class RepVentaDetalle
             ViewState("Agrupador") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
 
 #End Region
     'pRivate ReadOnly Property ColumnasVisibles As 
@@ -119,7 +111,6 @@ Partial Class RepVentaDetalle
             CargaCombos()
             InicializaValores()
             CargaDatos()
-            CreaDataTableColor()
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
 
@@ -1197,79 +1188,6 @@ Partial Class RepVentaDetalle
 
 #Region "GRAFICA"
 
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
-
     Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs)
         If Not DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then
             Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia)
@@ -1301,13 +1219,11 @@ Partial Class RepVentaDetalle
                     Case 3
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Ventas/RepVentas.aspx.vb

@@ -66,14 +66,6 @@ Partial Class Ventas_RepVentas
         Set(value As DataTable)
             ViewState("DtVentas") = value
         End Set
-    End Property
-    Private Property DtColor As DataTable
-        Get
-            Return DirectCast(ViewState("DtColor"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
     End Property
 
 
@@ -113,7 +105,6 @@ Partial Class Ventas_RepVentas
 
             CargaGrupo()
             CargaTipoCentroCosto()
-            CreaDataTableColor()
 
             If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
                 DdlVendedor.SelectedValuesIfExistM(UsuarioActual.CveVendedor.ToString())
@@ -770,78 +761,6 @@ Partial Class Ventas_RepVentas
         RegistraScript("$('#DivModalGrafica').modal('show')")
         CambioGrafica()
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub CambioGrafica()
         Dim Dt As New DataTable()
@@ -863,13 +782,11 @@ Partial Class Ventas_RepVentas
                     Case 3
                         Row("Valor") = Dr("IVA").ToString.FormatoNumero
                 End Select
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

Ventas/RepVentasResumen.aspx.vb

@@ -51,21 +51,6 @@ Partial Class Ventas_RepVentasResumen
             ViewState("VxP") = value
         End Set
     End Property
-    Private Property DtColor As DataTable
-        Get
-
-
-            If ViewState("DtColor") Is Nothing Then
-                Return New DataTable
-            Else
-                Return DirectCast(ViewState("DtColor"), DataTable)
-            End If
-
-        End Get
-        Set(value As DataTable)
-            ViewState("DtColor") = value
-        End Set
-    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -86,8 +71,6 @@ Partial Class Ventas_RepVentasResumen
 
         TxtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
         TxtFechaF.Text = Now.ToString("dd/MM/yyyy")
-
-        CreaDataTableColor()
     End Sub
 
 
@@ -180,78 +163,6 @@ Partial Class Ventas_RepVentasResumen
             End If
         End If
     End Sub
-    Private Sub CreaDataTableColor()
-        DtColor = New DataTable
-        DtColor.Columns.Add("Color")
-        Dim RowColor As DataRow = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF0F00"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF6600"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FF9E01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#FCD202"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#F8FF01"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#B0DE09"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#04D215"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D8ECF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#0D52D1"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#2A0CD0"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#8A0CCF"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#CD0D74"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#754DEB"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#DDDDDD"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#999999"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#333333"
-        DtColor.Rows.Add(RowColor)
-        RowColor = Nothing
-        RowColor = DtColor.NewRow()
-        RowColor("Color") = "#000000"
-        DtColor.Rows.Add(RowColor)
-    End Sub
 
     Private Sub GraficaPastel()
         Dim Dt As New DataTable()
@@ -266,13 +177,11 @@ Partial Class Ventas_RepVentasResumen
                 Row = Dt.NewRow()
                 Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 
@@ -294,13 +203,11 @@ Partial Class Ventas_RepVentasResumen
                 Row = Dt.NewRow()
                 Row("Texto") = $"{Dr("GPO").ToString} {GlobalDTMonedas().FiltraParametros($"CveMoneda = {Dr("CveMoneda").ToString}").Rows(0)("Abreviatura").ToString}"
                 Row("Valor") = Dr("SubTotal").ToString.FormatoNumero
-                Row("Color") = DtColor.Rows(RowColorIndex)("Color").ToString
+                Row("Color") = Colors(RowColorIndex)
                 Row("Moneda") = Dr("Moneda").ToString
                 Dt.Rows.Add(Row)
                 RowColorIndex += 1
-                If RowColorIndex = 17 Then
+                If RowColorIndex >= Colors.Length Then RowColorIndex = 0
-                    RowColorIndex = 0
-                End If
             End If
         Next
 

ZDG/PopUpBuscarMilitante.aspx.vb

@@ -6,8 +6,6 @@ Imports System.Data
 Partial Class ZDG_PopUpBuscarMilitante
     Inherits ClsPaginas
 
-#Region "PROPIEDADES"
-#End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then