Merge branch 'master' of http://192.168.10.111:8383/SIG

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
 

Bancos/PopIECompras.aspx

@@ -549,7 +549,12 @@
                                                 <div class="col-xs-7">
                                                     <asp:TextBox ID="TxtImporte" runat="server" MaxLength="12" Width="100%" ClientIDMode="Static" onkeyup="CambioTipoMoneda();" Style="text-align: right;"></asp:TextBox>
                                                     <ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="TxtImporte" FilterType="Custom, Numbers" ValidChars="+-.," />
-                                                    <asp:RangeValidator ID="RVImporte" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue="0" ErrorMessage="Importe Excedido" ControlToValidate="TxtImporte" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:RangeValidator>
+
+                                                    <%--<asp:RangeValidator ID="RVImporte" runat="server" Enabled="false" Type="Currency" MinimumValue="0" MaximumValue="0" ErrorMessage="Importe Excedido" ControlToValidate="TxtImporte" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:RangeValidator>--%>
+                                                    
+                                                    <asp:CustomValidator ID="CVTxtImporte" runat="server" Enabled="true" ControlToValidate="TxtImporte"  OnServerValidate="CVTxtImporte_ServerValidate"
+                                                        ErrorMessage="Importe Excedido" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:CustomValidator>
+
                                                     <asp:CustomValidator ID="CVImporteDolares" runat="server" Enabled="false" ControlToValidate="LbImporteME" OnServerValidate="CVImporteDolares_ServerValidate" ErrorMessage="Importe Excedido" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:CustomValidator>
                                                     <asp:CustomValidator ID="CVImportePesos" runat="server" Enabled="false" ControlToValidate="LbImporteMN" OnServerValidate="CVImportePesos_ServerValidate" ErrorMessage="Importe Excedido" Display="Dynamic" ValidationGroup="GrpGuardar"></asp:CustomValidator>
                                                 </div>
@@ -802,6 +807,7 @@
             }
         }
  
+
     </script>
 </asp:Content>
 

Bancos/PopIECompras.aspx.vb

@@ -685,10 +685,10 @@ Partial Class Bancos_PopIECompras
                     DdlTipoTransaccion.Enabled = True
                     TxtObservaciones.Enabled = True
                     BtnGuardar.Visible = True
-                    RVImporte.Enabled = True
+                    'RVImporte.Enabled = True
 
-                    RVImporte.Enabled = True
+                    'RVImporte.Enabled = True
-                    RVImporte.MaximumValue = dr("Saldo").ToString.ToDecimal.ToString.FormatoNumero
+                    'RVImporte.MaximumValue = dr("Saldo").ToString.ToDecimal.ToString.FormatoNumero
                     TxtImporte.Text = dr("Saldo").ToString.ToDecimal.FormatoNumero
 
                     SaldoVenta = dr("Saldo").ToString.ToDecimal
@@ -1185,8 +1185,8 @@ Partial Class Bancos_PopIECompras
             GvDeudores.Columns(5).Visible = True
             GvDeudores.Columns(6).Visible = True
 
-            RVImporte.Enabled = False
+            'RVImporte.Enabled = False
-            RVImporte.MaximumValue = "0.00"
+            ' RVImporte.MaximumValue = "0.00"
 
             CVImporteDolares.Enabled = True
         Else
@@ -1205,8 +1205,8 @@ Partial Class Bancos_PopIECompras
             GvDeudores.Columns(5).Visible = False
             GvDeudores.Columns(6).Visible = False
 
-            RVImporte.Enabled = True
+            'RVImporte.Enabled = True
-            RVImporte.MaximumValue = LtlSaldo.Text.ToDecimal.ToString
+            'RVImporte.MaximumValue = LtlSaldo.Text.ToDecimal.ToString
 
             CVImporteDolares.Enabled = False
             CVImportePesos.Enabled = False
@@ -1244,8 +1244,8 @@ Partial Class Bancos_PopIECompras
             GvDeudores.Columns(5).Visible = True
             GvDeudores.Columns(6).Visible = True
 
-            RVImporte.Enabled = False
+            'RVImporte.Enabled = False
-            RVImporte.MaximumValue = "0.00"
+            'RVImporte.MaximumValue = "0.00"
 
             CVImportePesos.Enabled = True
         Else
@@ -1264,8 +1264,8 @@ Partial Class Bancos_PopIECompras
             GvDeudores.Columns(5).Visible = False
             GvDeudores.Columns(6).Visible = False
 
-            RVImporte.Enabled = True
+            ' RVImporte.Enabled = True
-            RVImporte.MaximumValue = LtlSaldo.Text.ToDecimal.ToString
+            'RVImporte.MaximumValue = LtlSaldo.Text.ToDecimal.ToString
 
             CVImporteDolares.Enabled = False
             CVImportePesos.Enabled = False
@@ -3439,4 +3439,35 @@ Partial Class Bancos_PopIECompras
     End Sub
 
 
+
+    Protected Sub CVTxtImporte_ServerValidate(source As Object, args As ServerValidateEventArgs)
+
+        Dim Saldo As Decimal = LtlSaldo.Text.Replace("USD", "").Replace(",", "").ToDecimal
+        Dim ImportePagado As Decimal = TxtImporte.Text.ToDecimal
+
+        If ChkPagarPesos.Checked Then
+
+            Dim TC As Decimal = TxtTipoCambio.Text.ToDecimal
+            Dim PagoEnDollares As Decimal = (ImportePagado / TC).RoundSQL()
+
+            If PagoEnDollares <= Saldo Then
+                args.IsValid = True
+            Else
+                args.IsValid = False
+            End If
+
+        Else
+
+            If ImportePagado <= Saldo Then
+                args.IsValid = True
+            Else
+                args.IsValid = False
+            End If
+
+        End If
+
+
+
+    End Sub
+
 End Class

Bancos/RepProgramarRecursos.aspx

@@ -116,21 +116,30 @@
                                             <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                         </asp:DropDownList>
                                     </div>
+
                                     <div class="col-md-1" id="tsubprocto" style="padding-right: 2px; padding-left: 2px; display: none;">
                                         Proyecto:
                                    
                                     </div>
-                                    <div class="col-md-1" runat="server" id="Div1">Aplica NC/Dev:</div>
+                                    
-                                    <div class="col-md-1" id="ds" >
+                                    <div class="col-md-2" id="subproyecto" style="margin-top: 3px;">
-                                        <asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlAplicaNC" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
+
-                                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                        <div class="row">
-                                            <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                               <div class="col-md-6" runat="server" id="Div1">Aplica NC/Dev:</div>
-                                            <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                                               <div class="col-md-6" id="ds" >
-                                        </asp:DropDownList>
+                                                <asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlAplicaNC" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
-                                        <%--                                      <asp:CheckBox ID="ChkAplicaNotaCredito" CssClass="make-switchsd" runat="server" />--%>
+                                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                                    <asp:ListItem Text="Si" Value="1"></asp:ListItem>
+                                                    <asp:ListItem Text="No" Value="0"></asp:ListItem>
+                                                </asp:DropDownList>                                        
+                                            </div>
+                                        </div>
+
                                     </div>
 
-                                    <div class="col-md-3" id="subproyecto" style="margin-top: 3px;">
+                               
+
+                                    <div class="col-md-3"   style="margin-top: 3px;">
                                         <asp:UpdatePanel ID="UpProgramadas" runat="server" UpdateMode="Conditional" RenderMode="Inline ">
                                             <ContentTemplate>
 
@@ -155,6 +164,8 @@
                                             </ContentTemplate>
                                         </asp:UpdatePanel>
                                     </div>
+
+
                                 </div>
 
 

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
@@ -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
 
 
@@ -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

@@ -20,20 +20,11 @@ Partial Class Inventarios_RepAlmacen
             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
 

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

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/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

@@ -67,14 +67,6 @@ Partial Class Ventas_RepVentas
             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