.

Acumuladores/RepIndicadorDiario.aspx.vb

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

App_Code/CFDITimbre.vb

@@ -433,7 +433,7 @@ End Class
 Public Class CFDINominaHorasExtras
     Public Property Dias As String
     Public Property TipoHoras As String
-    Public Property HorasExtra As Integer
+    Public Property HorasExtra As Decimal
     Public Property ImportePagado As Double
 End Class
 

App_Code/LogicNominas.vb

@@ -346,8 +346,8 @@ Public Class LogicNominas
                     'Obtengo el desglose de horas extras
                     Dim dr As DataRow = DtHorasExtras.FiltroPrimero("")
                     If dr IsNot Nothing Then
-                        If dr("HorasDobles").ToString().ToDouble > 0 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
+                        If dr("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToDecimal(), .ImportePagado = Row("Importe").ToString().ToDecimal})
-                        If dr("HorasTriples").ToString().ToDouble > 0 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
+                        If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToDecimal(), .ImportePagado = Row("Importe").ToString().ToDecimal})
 
                     End If
                 End If
@@ -471,7 +471,7 @@ Public Class LogicNominas
         cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta
         cfdi.Nomina.Receptor.SDI = SDI
         cfdi.Nomina.Receptor.SBC = SalarioDiarioSS
-        cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Si", "No")
+        cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Sí", "No")
         cfdi.Nomina.Receptor.CodigoEntidadFederativa = ClaveEstado
 
         cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.SubTotal, .Importe = cfdi.Comprobante.SubTotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal(), .ObjetoImpuesto = "01"})

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>
@@ -801,6 +806,7 @@
                 CambiaPesosDolares()
             }
         }
+ 
 
     </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,9 +1185,9 @@ 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
             DivTipoCambio.Visible = False
@@ -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
@@ -1262,10 +1262,10 @@ Partial Class Bancos_PopIECompras
             GvIngresos.Columns(6).Visible = False
 
             GvDeudores.Columns(5).Visible = False
-            GvDeudores.Columns(6).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

@@ -99,7 +99,9 @@
                                 <asp:CheckBox ID="chkexpand" CssClass="hidden" runat="server" />
                             </div>
                             <div class="titlefiltros  caption ">
+
                                 <div class="row">
+                                    
                                     <div class="col-md-1 "><span>Proveedor:</span></div>
                                     <div class="col-md-2 ">
                                         <ADS:Dropdownlost ID="DdlProveedores" CssClassDdl="select2me" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
@@ -108,46 +110,67 @@
                                         </asp:DropDownList>--%>
                                     </div>
                                     <div class="col-md-1 "><span>Clasificaciones:</span></div>
-                                    <div class="col-md-1 " style="width: 120px;">
+                                    <div class="col-md-1 " >
 
                                         <asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlProveedoresClasificaciones" runat="server" AppendDataBoundItems="true" DataTextField="ProveedorClasificacion" DataValueField="CveProveedorClasificacion" Width="100%">
                                             <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" style="width: 120px;">
+                                    <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-4" id="subproyecto" style="margin-top: 3px; margin-left: -20px">
+                               
+
+                                    <div class="col-md-3"   style="margin-top: 3px;">
                                         <asp:UpdatePanel ID="UpProgramadas" runat="server" UpdateMode="Conditional" RenderMode="Inline ">
                                             <ContentTemplate>
-                                                <div class="row" style="width: 100%;">
 
-                                                    <asp:CheckBox ID="ChkProgramadas" AutoPostBack="true" Width="34%" data-size="small" CssClass="col-md-1 md-checksd2 text" runat="server" Text="Programadas" />
+                                                <div class="row" >
-
+                                               
-                                                    <asp:DropDownList CssClass=" input-sm" ID="DdlUsuarioProgramo" Width="20%" runat="server" DataTextField="Nombre" ClientIDMode="Static" DataValueField="CveUsuario" AutoPostBack="True">
+                                                    <div class="col-md-4">
-                                                    </asp:DropDownList>
+                                                        <asp:CheckBox ID="ChkProgramadas" class="md-check" AutoPostBack="true" runat="server" Text="Programadas" Width="100px" />
-                                                    <asp:DropDownList CssClass=" input-sm" Width="20%" ID="DdlCodigoProgramacion" runat="server" DataTextField="CodigoProgramacion" DataValueField="CodigoProgramacion" Visible="False">
+                                                    </div>
-                                                        <Items>
+                                                    <div class="col-md-4">
-                                                            <asp:ListItem Text=" - " Value="-1"></asp:ListItem>
+                                                         <asp:DropDownList CssClass="form-control select2me input-sm" ID="DdlUsuarioProgramo" Width="80px"  runat="server" DataTextField="Nombre" ClientIDMode="Static" DataValueField="CveUsuario" AutoPostBack="True">
-                                                        </Items>
+                                                         </asp:DropDownList>
-                                                    </asp:DropDownList>
+                                                    </div>        
+                                                    <div class="col-md-4" >
+                                                         <asp:DropDownList CssClass="form-control select2me input-sm" Width="60px" ID="DdlCodigoProgramacion" runat="server" DataTextField="CodigoProgramacion" DataValueField="CodigoProgramacion" Visible="False">
+                                                               <Items>
+                                                                    <asp:ListItem Text=" - " Value="-1"></asp:ListItem>
+                                                               </Items>
+                                                          </asp:DropDownList>
+                                                    </div>
 
                                                 </div>
                                             </ContentTemplate>
                                         </asp:UpdatePanel>
                                     </div>
+
+
                                 </div>
+
+
+
+
                             </div>
                         </div>
                         <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>

CRM/RepAcercamientosProcesos.aspx.cs

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

CRM/RepAcercamientosRechazos.aspx.cs

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

Compras/RepCompras.aspx.vb

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

Compras/RepComprasAF.aspx.vb

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

Compras/RepComprasDetalle.aspx.vb

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

Compras/RepComprasPersonal.aspx.vb

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

Compras/RepCxP.aspx.vb

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

Compras/RepProductosServicios.aspx.vb

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

Compras/RepProductosServiciosDetalle.aspx.vb

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

Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb

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

CxC/RepCxC.aspx.vb

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

General/RepIndicadorResumen.aspx.vb

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

Inventarios/RepAlmacen.aspx.vb

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

Nomina/ConceptoNomina.aspx.cs

@@ -84,14 +84,15 @@ public partial class Nomina_CatConcepto : ClsPaginas
     StringBuilder strKeys3;
     public void tree_Tables()
     {
-        ClsNominas objnom = new ClsNominas();
         strKeys = new StringBuilder();
         strKeys2 = new StringBuilder();
         strKeys3 = new StringBuilder();
         StringBuilder tablaarbol = new StringBuilder();
-        objnom.GetNom_Refencias(UsuarioActual.CveEmpresa);
+        using (ClsNominas objnom = new ClsNominas())
-        dtrefrencias = objnom.DtResultados;
+        {
-        objnom.Dispose();
+            objnom.GetNom_Refencias(UsuarioActual.CveEmpresa);
+            dtrefrencias = objnom.DtResultados;
+        }
         strKeys.Append("{");
         int tipo = 1;
         #region tablas
@@ -472,7 +473,7 @@ public partial class Nomina_CatConcepto : ClsPaginas
                 //DdlCtaContable.SelectedValueExist(drow["CveCuenta"]);
                 if (DdlCtaContable.DataValueField == "Id")
                 {
-                    DdlCtaContable.SelectedValueExist( drow["IdCtaContable"]);
+                    DdlCtaContable.SelectedValueExist(drow["IdCtaContable"]);
                 }
                 else
                 {
@@ -486,7 +487,8 @@ public partial class Nomina_CatConcepto : ClsPaginas
                 //    DdlCtaContable.SelectedValueExist(drow["IdCtaContable"]);
                 //}
                 DdlConceptoSAT.SelectedValueExist(drow["CveSATConcepto"]);
-            }else
+            }
+            else
             {
                 CveConcepto = 0;
 

Nomina/Nomina.aspx

@@ -262,6 +262,9 @@
             <li>
                 <asp:LinkButton ID="LnkModalPlantillaNomina" OnClick="LnkModalPlantillaNomina_Click" runat="server"><i class="fa fa-upload"></i>Cargar masiva de conceptos</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkModalPlantillaNominaUnConc" OnClick="LnkModalPlantillaNominaUnConc_Click" runat="server"><i class="fa fa-upload"></i>Cargar masiva un concepto</asp:LinkButton>
+            </li>
             <li>
                 <asp:LinkButton ID="LnkCargaNetos" OnClick="LnkCargaNetos_Click" runat="server"><i class="fa fa-upload"></i>Cargar netos</asp:LinkButton>
             </li>
@@ -642,7 +645,7 @@
                                                     <asp:LinkButton ID="LnkProcesarReporteIncidenciaTabular" OnClick="LnkProcesarReporteIncidenciaTabular_Click" Text="<i class='fa fa-download'></i> Plantilla" runat="server"></asp:LinkButton>
                                                 </li>
                                                 <li>
-                                                    <asp:LinkButton ID="LnkshowProsesarASistencia" OnClick="LnkshowProsesarASistencia_Click" Text="<i class='fa fa-download'></i> Actualizar asistencia" runat="server"></asp:LinkButton>
+                                                    <asp:LinkButton ID="LnkshowProsesarASistencia" OnClick="LnkshowProsesarASistencia_Click" Text="<i class='fa fa-upload'></i> Actualizar asistencia" runat="server"></asp:LinkButton>
                                                 </li>
                                                 <%-- <li>
                                                             <asp:LinkButton ID="LnkCalculoSubsidio" OnClick="LnkCalculoSubsidio_Click" Text="<i class='icon-bulb'></i> Calculo Subsidio" runat="server"></asp:LinkButton>
@@ -3367,29 +3370,83 @@
                             </div>
                             <div class="portlet-body rowpadding ">
                                 <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
-                                <div class=" text-right">
-                                    <asp:CheckBox ID="ChkRecalcularNomina" Text="¿Volver a calcular la nómina?" runat="server" />
-                                </div>
                             </div>
                         </div>
+                        <div class=" text-right">
+                            <asp:CheckBox ID="ChkRecalcularNomina" Text="¿Volver a calcular la nómina?" runat="server" />
+                        </div>
                     </div>
 
-                    <div class="modal-footer">
+               
-                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                <div class="modal-footer">
-                            <ContentTemplate>
+                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
-                                <asp:LinkButton ID="LnkCargarNomina" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
+                        <ContentTemplate>
-                            </ContentTemplate>
+                            <asp:LinkButton ID="LnkCargarNomina" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
-                        </asp:UpdatePanel>
+                        </ContentTemplate>
-                    </div>
+                    </asp:UpdatePanel>
+                </div>
                 </div>
             </ContentTemplate>
             <Triggers>
-                <asp:PostBackTrigger ControlID="LnkFormato" />
+                <asp:PostBackTrigger ControlID="LnkFormato" /> 
             </Triggers>
         </asp:UpdatePanel>
     </div>
 
+    
+    <div id="DModalNominasUnConcepto" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCargarNominaUnConcepto" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Cargar Nómina de excel</h4>
+                    </div>
+                    <div class="modal-body">
+                         
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-upload font-green"></i>
+                                    <span class="caption-subject bold uppercase">Carga Concepto   </span>
+                                    <!-- Caudillo-->
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding ">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:Label runat="server" Text="Concepto:" AssociatedControlID=""></asp:Label>
+                                    <asp:DropDownList ID="DdlUnConcepto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                </div>
+                                <asp:TextBox ID="TxtArchivoNominaConcepto" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                                <asp:LinkButton ID="LnkFormatoUnConcepto" OnClick="LnkFormatoUnConcepto_Click" CssClass="btn btn-success" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
 
+                            </div>
+                        </div>
+                        <div class=" text-right">
+                            <asp:CheckBox ID="ChkRecalcularNominaUnc" Text="¿Volver a calcular la nómina?" runat="server" />
+                        </div>
+                    </div>
+
+               
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <asp:LinkButton ID="LinkButton4" OnClick="LnkCargarNomina_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                </div>
+            </ContentTemplate>
+            <Triggers> 
+                <asp:PostBackTrigger ControlID="LnkFormatoUnConcepto" />
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
 
     <div id="DmodalNetos" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="uppanelnetos" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
@@ -3402,7 +3459,7 @@
                         <h4 class="modal-title" runat="server" style="text-align: left">Cargar Netos </h4>
                     </div>
                     <div class="modal-body">
-                         
+
 
                         <div class="portlet light smmallpadding bordered">
                             <div class="portlet-title">
@@ -3415,17 +3472,17 @@
                                 </div>
                                 <div class="actions">
                                     <div class="btn-group">
-                                    <asp:LinkButton ID="LnkFormatoNetos" OnClick="LnkFormatoNetos_Click" CssClass="btn yellow-gold" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
+                                        <asp:LinkButton ID="LnkFormatoNetos" OnClick="LnkFormatoNetos_Click" CssClass="btn yellow-gold" runat="server"><i class="fa fa-download"></i> Descargar Plantilla</asp:LinkButton>
                                     </div>
                                     <div class="btn-group">
                                     </div>
-                                </div> 
+                                </div>
                             </div>
                             <div class="portlet-body rowpadding ">
                                 <div class=" row">
                                     <div class="col-md-3">Concepto</div>
                                     <div class="col-md-6">
-                                         <asp:DropDownList ID="ddlConceptocomisionNeto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
+                                        <asp:DropDownList ID="ddlConceptocomisionNeto" runat="server" DataTextField="CodigoConcepto" DataValueField="CveConcepto" Class="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar"></asp:DropDownList>
 
                                     </div>
                                 </div>

Nomina/Nomina.aspx.cs

@@ -249,7 +249,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (!IsPostBack)
         {
-            LnkCargaNetos.Visible = (UsuarioActual.CveRol == 1);
+            LnkCargaNetos.Visible = (UsuarioActual.Empresa.Funcionalidad(267) == "1") ||(UsuarioActual.CveRol == 1);
             using (ClsRH objrh = new ClsRH())
             {
                 if (objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa))
@@ -1442,7 +1442,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             if (pdf != null)
             {
                 List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
-                objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina" });
+                objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
                 Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                 using (ClsRH objrh = new ClsRH())
                 {
@@ -1521,7 +1521,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 if (pdf != null)
                 {
                     List<ClsSisMail.ArchivoMail> objarch = new List<ClsSisMail.ArchivoMail>();
-                    objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina" });
+                    objarch.Add(new ClsSisMail.ArchivoMail() { ArchivoBinario = pdf, NombreArchivo = "Nomina.pdf" });
                     Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Correo.Trim(), string.Format("Empleado {0} Nomina del {1:dd/MM/yyyy} al {2:dd/MM/yyyy}", NombreCompleto, FechaInicioPeriodo, FechaFinPeriodo), "", "", objarch);
                     using (ClsRH objrh = new ClsRH())
                     {
@@ -2097,6 +2097,111 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
     }
 
+
+    protected void LnkModalPlantillaNominaUnConc_Click(object sender, EventArgs e)
+    {
+        RegistraScript("$('#DModalNominasUnConcepto').modal();");
+
+        using (ClsNominas ObjNomina = new ClsNominas())
+        {
+            if (ObjNomina.GetConceptos(UsuarioActual.CveEmpresa))
+            {
+                DdlUnConcepto.DataSource = ObjNomina.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}");
+                DdlUnConcepto.DataBind();
+            }
+        }
+
+        UpCargarNominaUnConcepto.Update();
+    }
+    protected void LnkFormatoUnConcepto_Click(object sender, EventArgs e)
+    {
+        try
+        {
+            StringBuilder str = new StringBuilder("0");
+            bool continuar = true;
+                    str.AppendFormat(",{0}", DdlUnConcepto.SelectedValue.ToEntero()); 
+            string msgerror = "";
+            if (dtConceptos == null || dtConceptos.Columns.Count <= 2)
+            {
+                msgerror = "Debe cargar el periodo antes de descargar la plantilla";
+                continuar = false;
+            }
+            if (continuar)
+            {
+
+                ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
+
+                var libro = wb.AddWorksheet("Nomina");
+                int column = 1; 
+                libro.Cell(1, column).Value = "Codigo";
+                column++;
+                libro.Cell(1, column).Value = "Empleado";
+                libro.Column(column).Width = 35;
+                DataTable dtcP = dtConceptos.FiltraParametros(string.Format(" CveConcepto in({0})", str)); 
+                foreach (DataRow row in dtcP.Rows)
+                {
+                    column++;
+                    libro.Cell(1, column).Value = string.Format("{0} - {1} - Valor", row["Codigo"], row["Concepto"]);
+                    column++;
+                    libro.Cell(1, column).Value = string.Format("{0} - {1} - Importe", row["Codigo"], row["Concepto"]);
+                    column++;
+                    libro.Cell(1, column).Value = string.Format("{0} - {1} - ImporteGravado", row["Codigo"], row["Concepto"]);
+                }
+
+                libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+                libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+
+                int Fila = 1;
+                foreach (DataRow erow in dtempleados.FiltraParametros("CvePersonal>0 AND NomAutorizado=0").Rows)
+                {
+                    Fila++;
+                    column = 1;
+                    libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]);
+                    column++;
+                    libro.Cell(Fila, column).Value = erow["Nombre"];
+                    foreach (DataRow row in dtcP.Rows)
+                    {
+                        column++;
+                        string Concepto = string.Format("VAL_{0}", row["CveConcepto"]);
+                        libro.Cell(Fila, column).Value = erow[Concepto];
+                        column++;
+                        Concepto = string.Format("V_{0}", row["CveConcepto"]);
+                        libro.Cell(Fila, column).Value = erow[Concepto];
+                        column++;
+                        Concepto = string.Format("VG_{0}", row["CveConcepto"]);
+                        libro.Cell(Fila, column).Value = erow[Concepto];
+                    }
+                }
+                libro.Columns().AdjustToContents();
+                System.IO.Stream fs = new System.IO.MemoryStream();
+                wb.SaveAs(fs);
+                fs.Position = 0;
+                System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
+                using (System.IO.Stream input = fs)
+
+                {
+                    input.CopyTo(memoryStream);
+                }
+                memoryStream.Position = 0;
+
+                Response.Clear();
+                Response.Buffer = true;
+
+                Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
+                Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Plantilla conceptos nómina "));
+                Response.BinaryWrite(memoryStream.ToArray());
+                Response.End();
+            }
+            else
+            {
+                Alert(msgerror, TipoMensaje.MsgAdvertencia);
+            }
+        }
+        catch (Exception ex)
+        {
+            Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString(), TipoMensaje.MsgAdvertencia);
+        }
+    }
     protected void LnkCargarNomina_Click(object sender, EventArgs e)
     {
 

OI/TareaDetalle.aspx.cs

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

OS/RepServicioDomicilio.aspx.vb

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

RH/Asistencias.aspx

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

RH/CalculoSBC.aspx

@@ -28,6 +28,12 @@
             <li>
                 <asp:LinkButton ID="LnkDescargar" OnClick="LnkDescargar_Click" runat="server"><i class="fa fa-ad-excel"></i> Descargar</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkFormatocMasiva" OnClick="LnkFormatocMasiva_Click" runat="server"><i class="fa fa-ad-excel"></i> Formato carga masiva</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkModalCargaMasiva" OnClick="LnkModalCargaMasiva_Click" runat="server"><i class="fa fa-save"></i> Carga masiva</asp:LinkButton>
+            </li>
             <li>
                 <asp:LinkButton ID="LnkGuardarCambios" OnClick="LnkGuardarCambios_Click" runat="server"><i class="fa fa-save"></i> Guardar</asp:LinkButton>
             </li>
@@ -40,6 +46,7 @@
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="LnkDescargar" />
+            <asp:PostBackTrigger ControlID="LnkFormatocMasiva" />
             <%-- <asp:PostBackTrigger ControlID="LnkListaRaya" /> --%>
         </Triggers>
     </asp:UpdatePanel>
@@ -832,6 +839,72 @@
         </asp:UpdatePanel>
     </div>
 
+    
+    <div id="DmodalCargaMasiva" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCargarm" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Carga masiva salario</h4>
+                    </div>
+                    <div class="modal-body">
+                         
+                        <div class="portlet light smmallpadding bordered">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-upload font-green"></i>
+                                    <span class="caption-subject bold uppercase">Carga archivo   </span>
+                                    <!-- Caudillo-->
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding "> 
+                                <div class="row">
+                                    
+                            <asp:Label ID="Label2" runat="server" CssClass="col-md-1 ">Fecha :</asp:Label>
+                            <div class="col-md-2" id="Div2" runat="server">
+                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 110px !important; padding: 0px; margin-bottom: -10px;">
+                                    <asp:TextBox ID="txtfechacargamasiva" runat="server" Text="01/03/2021" CssClass="form-control" CausesValidation="true" Width="90%" MaxLength="10"></asp:TextBox>
+                                    <span class="input-group-btn ">
+                                        <asp:LinkButton ID="lnkcargamasiva" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                    </span>
+                                </div>
+                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="txtfechacargamasiva" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="txtfechacargamasiva" PopupButtonID="lnkcargamasiva" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <%--<asp:CompareValidator ID="CompareValidator1" runat="server" ControlToValidate="txtfechacargamasiva" Display="None" ErrorMessage="El campo <b>''Fecha Pago''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="CompareValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="txtfechacargamasiva" Display="None" ErrorMessage="El campo <b>''Fecha Pago''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>--%>
+                            </div>
+                                </div>
+                                <asp:TextBox ID="TxtArchivoNomina" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+
+                            </div>
+                        </div> 
+                    </div>
+
+               
+                <div class="modal-footer">
+                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <asp:LinkButton ID="LnkProcesarArchvo" OnClick="LnkProcesarArchvo_Click" CssClass="btn btn-primary" runat="server">Procesar</asp:LinkButton>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+                </div>
+            </ContentTemplate>
+            <Triggers>  
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
+
+
+
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
     <script>

RH/CalculoSBC.aspx.cs

@@ -6,10 +6,26 @@ using System.Text;
 using System.Web;
 using System.Web.UI;
 using System.Web.UI.WebControls;
+using AjaxControlToolkit.HtmlEditor.ToolbarButtons;
 using Extensiones;
+using StackExchange.Redis;
+using Telerik.Web.UI.Widgets;
+using static Extensiones.ModExtensiones;
+using static Stimulsoft.Report.StiOptions.Export;
+
 public partial class RH_CalculoSBC : ClsPaginas
 {
 
+    private DataTable dtsalario
+    {
+        get
+        {
+            if (ViewState["dtsalario"] == null) { return null; }
+            else { return (DataTable)ViewState["dtsalario"]; }
+        }
+
+        set { ViewState["dtsalario"] = value; }
+    }
     private DataTable dtDetalleParteVariable
     {
         get
@@ -33,7 +49,7 @@ public partial class RH_CalculoSBC : ClsPaginas
             else
                 DdlRegistroPatronal.DataSource = null;
 
-            DdlRegistroPatronal.DataBind(); 
+            DdlRegistroPatronal.DataBind();
             ObjRH.Dispose();
             //string rutarchivos = string.Format("{0}modificacionsalarios\\", UsuarioActual.Empresa.RutaArchivos);
             //Alert(rutarchivos);
@@ -49,7 +65,7 @@ public partial class RH_CalculoSBC : ClsPaginas
     protected void LnkDownExcelSua_Click(object sender, EventArgs e)
     {
     }
-        protected void LnkUpSuamodal_Click(object sender, EventArgs e)
+    protected void LnkUpSuamodal_Click(object sender, EventArgs e)
     {
         TxtArchivoSua.Text = "";
         GVProcesarSUA.DataSource = null;
@@ -87,7 +103,7 @@ public partial class RH_CalculoSBC : ClsPaginas
         //RegistraScript("showResult();");
         RegistraScript("$('#DmodalCompareSua').modal('hide');shownew();");
         Alert("El archivo se a procesado Correctamente");
-        LnkCalcular_Click(null,null);
+        LnkCalcular_Click(null, null);
         UpArchivoSua.Update();
     }
 
@@ -196,9 +212,10 @@ public partial class RH_CalculoSBC : ClsPaginas
     {
         using (ClsNominas objnom = new ClsNominas())
         {
-            if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text,DdlRegistroPatronal.SelectedValue.ToEntero()))
+            if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), TxtFechaPago.Text, DdlRegistroPatronal.SelectedValue.ToEntero()))
             {
                 GVCalculosSBC.DataSource = objnom.DTSetResultados.Tables[0];
+                dtsalario = objnom.DTSetResultados.Tables[0];
                 GVCFija.DataSource = objnom.DTSetResultados.Tables[0];
                 GVPV.DataSource = objnom.DTSetResultados.Tables[0];
                 if (objnom.DTSetResultados.Tables.Count > 1)
@@ -214,6 +231,160 @@ public partial class RH_CalculoSBC : ClsPaginas
         GVPV.DataBind();
     }
 
+    protected void LnkModalCargaMasiva_Click(object sender, EventArgs e)
+    {
+        txtfechacargamasiva.Text = TxtFechaPago.Text;
+        UpCargarm.Update();
+        RegistraScript("$('#DmodalCargaMasiva').modal();");
+    }
+    protected void LnkFormatocMasiva_Click(object sender, EventArgs e)
+    {
+        try
+        {
+            bool continuar = true;
+            string msgerror = "";
+            if (continuar)
+            {
+
+                ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
+
+                var libro = wb.AddWorksheet("Salario");
+                int column = 1;
+                libro.Cell(1, column).Value = "Codigo";
+                column++;
+                libro.Cell(1, column).Value = "Empleado";
+                column++;
+                libro.Cell(1, column).Value = "Salariodiario";
+                //column++;
+                //libro.Cell(1, column).Value = "SDI"; 
+                column++;
+                libro.Cell(1, column).Value = "Salariovariable";
+                libro.Column(column).Width = 35;
+                libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+                libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+
+                int Fila = 1;
+                foreach (DataRow erow in dtsalario.Rows)
+                {
+                    Fila++;
+                    column = 1;
+                    libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]);
+                    column++;
+                    libro.Cell(Fila, column).Value = erow["Nombre"];
+
+                    column++;
+                    libro.Cell(Fila, column).Value = erow["SalarioDiario"];
+                    column++;
+                    libro.Cell(Fila, column).Value = erow["SDI"];
+                    column++;
+                    libro.Cell(Fila, column).Value = erow["SalarioVariable"];
+                }
+
+                libro.Columns().AdjustToContents();
+                System.IO.Stream fs = new System.IO.MemoryStream();
+                wb.SaveAs(fs);
+                fs.Position = 0;
+                System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
+                using (System.IO.Stream input = fs)
+
+                {
+                    input.CopyTo(memoryStream);
+                }
+                memoryStream.Position = 0;
+
+                Response.Clear();
+                Response.Buffer = true;
+
+                Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
+                Response.AddHeader("content-disposition", string.Format("attachment;filename={0}.xlsx", "Plantilla Salario "));
+                Response.BinaryWrite(memoryStream.ToArray());
+                Response.End();
+            }
+            else
+            {
+                Alert(msgerror, TipoMensaje.MsgAdvertencia);
+            }
+        }
+        catch (Exception ex)
+        {
+            Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString(), TipoMensaje.MsgAdvertencia);
+        }
+    }
+
+    protected void LnkProcesarArchvo_Click(object sender, EventArgs e)
+    {
+        DataTable dttempsalario = null;
+        using (ClsNominas objnom = new ClsNominas())
+        {
+            if (objnom.GetCalculoSBC(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero(), txtfechacargamasiva.Text, DdlRegistroPatronal.SelectedValue.ToEntero()))
+            {
+                dttempsalario = objnom.DTSetResultados.Tables[0];
+            }
+        }
+        try
+        {
+            List<Archivo> Filesgral = TxtArchivoNomina.getfiles().Archivos;
+            Archivo fileItem = Filesgral.Count > 0 ? Filesgral[0] : null;
+            DataTable DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, true);
+
+            StringBuilder str = new StringBuilder();
+            bool rollback = false;
+            using (ClsRH objpersonal = new ClsRH())
+            {
+                using (ClsNominas objNomina = new ClsNominas(objpersonal.IniciaTransacSQL()))
+                {
+
+                    foreach (DataRow row in DTEXcel.FiltraParametros("LEN(Codigo)>0 ").Rows)
+                    {
+                        string Codigo = row["Codigo"].ToString();
+                        int CvePersonal = -1; // row["CvePersonal"].ToString().ToEntero();
+                        decimal Salariodiario = row["Salariodiario"].ToString().ToDecimal();
+                        decimal SDI = 0;
+                        decimal Salariovariable = row["Salariovariable"].ToString().ToDecimal();
+                        decimal SalarioCotizacion = 0;
+                        int CveMetodoPago = 0;
+                        if (Codigo != "-1" && objpersonal.GetPersonal(CvePersonal, Codigo, "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) &&
+                            objpersonal.DtResultados.Rows.Count == 1)
+                        {
+                            CvePersonal = objpersonal.CvePersonal;
+                            CveMetodoPago = objpersonal.CveMetodoPago;
+                        }
+                        else
+                        {
+                            CvePersonal = 0;
+                            str.AppendLine(string.Format("No se encontro el codigo {0}<br>", Codigo));
+                        }
+                        if (CvePersonal > 0)
+                        {
+                            DataRow drw = dttempsalario.FiltroPrimero(string.Format("CvePersonal={0}", CvePersonal));
+                            decimal factordeintegracion = drw["Factordeintegracion"].ToString().ToDecimal();
+                            SDI = Salariodiario * factordeintegracion;
+                            SalarioCotizacion = Salariovariable + SDI;
+                            if (objpersonal.UpdateSalarios(CvePersonal, txtfechacargamasiva.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                Salariodiario.ToString().ToDouble(), SDI.ToString().ToDouble(), SalarioCotizacion.ToString().ToDouble(), Salariodiario.ToString().ToDouble()))
+                            {
+
+                                {
+
+                                }
+                            }
+                        }
+                    }
+                    if (rollback)
+                    {
+                        objpersonal.RollBack();
+                    }
+                    else
+                    {
+                        objpersonal.Commit();
+                    }
+                }
+            }
+        }
+        catch (Exception) { }
+
+        RegistraScript("$('#ModalDoctos').modal('hide');");
+    }
     protected void LnkDownArchivosSua_Click(object sender, EventArgs e)
     {
 
@@ -250,12 +421,12 @@ public partial class RH_CalculoSBC : ClsPaginas
                     double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2);
                     double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2);
                     string RegistroPatronal = item.DataKey("RegistroPatronal");
-                    if(oldRegistroPatronal != "-1" && oldRegistroPatronal != RegistroPatronal )
+                    if (oldRegistroPatronal != "-1" && oldRegistroPatronal != RegistroPatronal)
                     {
                         MovtosmodSalario = string.Format("{0}{1}{2}", MovtosmodSalario, concater,
                 $"*************                                           00{(contador < 1000 ? "0" : "")}{(contador < 100 ? "0" : "")}{(contador < 10 ? "0" : "")}{contador}                                                                       00001                             9");
 
-                        Script =string.Format("{0}SaveCsv(\"Movtos{3}_{2:ddMMMyyyy}.txt\", '{1}');", Script, MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy"), oldRegistroPatronal);
+                        Script = string.Format("{0}SaveCsv(\"Movtos{3}_{2:ddMMMyyyy}.txt\", '{1}');", Script, MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy"), oldRegistroPatronal);
 
                         MovtosmodSalario = "";
                         concater = "";
@@ -323,7 +494,7 @@ public partial class RH_CalculoSBC : ClsPaginas
             }
             RegistraScript(Script);
 
-           // RegistraScript(string.Format("SaveCsv(\"MovtosmodSalario{1:ddMMMyyyy}.txt\", '{0}');", MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy")));
+            // RegistraScript(string.Format("SaveCsv(\"MovtosmodSalario{1:ddMMMyyyy}.txt\", '{0}');", MovtosmodSalario, TxtFechaPago.Text.ToDateTimeExcat("dd/MM/yyyy")));
             //RegistraScript(string.Format("SaveCsv(\"MovtosAfil.txt\", '{0}');SaveCsv(\"MovtosmodSalario.txt\", '{1}');SaveCsv(\"movtosBajas.txt\", '{2}');", MovtosAfil.Replace("'", "\\'"), MovtosmodSalario.Replace("'", "\\'"), movtosBajas.Replace("'", "\\'")));
             //RegistraScript("$('#DmodalGetSua').modal('hide');");
         }
@@ -344,7 +515,7 @@ public partial class RH_CalculoSBC : ClsPaginas
                 double SalarioDiarioSSNuevo = Math.Round(item.DataKey("SalarioDiarioSSNuevo").ToDouble(), 2);
                 double SalarioVariableNuevo = item.DataKey("SalarioVariableNuevo").ToDouble();
                 double SalarioDiarioSS = Math.Round(item.DataKey("SalarioDiarioSS").ToDouble(), 2);
-                if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS && 
+                if (continuar && SalarioDiarioSSNuevo != SalarioDiarioSS &&
                     (continuar = objrh.UpdateSalarios(CvePersonal, fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, SalarioDiario, SDINuevo, SalarioDiarioSSNuevo, SalarioDiario)))
                 {
 
@@ -508,8 +679,8 @@ public partial class RH_CalculoSBC : ClsPaginas
                 string cfecha = urfile.Replace(rutarchivos, "").Substring(0, 10).ToDateTime().ToString("dd/MM/yyyy");
 
 
-            archivosD arch = new archivosD() { nombrearchivo = cfecha, ruta = urfile, fecha= System.IO.File.GetCreationTime(urfile) };
+                archivosD arch = new archivosD() { nombrearchivo = cfecha, ruta = urfile, fecha = System.IO.File.GetCreationTime(urfile) };
-            lisaarchivos.Add(arch);
+                lisaarchivos.Add(arch);
 
             }
         }
@@ -518,6 +689,7 @@ public partial class RH_CalculoSBC : ClsPaginas
         UpModalDoctos.Update();
         RegistraScript("$('#ModalDoctos').modal();");
     }
+
 }
 public class archivosD
 {

RH/Personal.aspx

@@ -109,7 +109,7 @@
             <li>
                 <asp:LinkButton ID="LnkModsalario" OnClick="LnkModsalario_Click" runat="server"><i class="fa fa-pencil"></i> Modificar salario </asp:LinkButton>
             </li>
-            
+
             <li>
                 <asp:LinkButton ID="LnkContratoAgropecuaria" OnClick="LnkContratoAgropecuaria_Click" runat="server"><i class="fa fa-list-alt"></i> Contrato </asp:LinkButton>
             </li>
@@ -276,7 +276,7 @@
                                                         <label for="<%= TxtCalle.ClientID.ToString()%>">Calle: </label>
                                                         <i></i>
                                                     </div>
-                                                    <div class="row" style="margin-bottom:5px">
+                                                    <div class="row" style="margin-bottom: 5px">
                                                         <div class="col-md-6">
                                                             <div class="form-group form-md-line-input input-iconright">
                                                                 <asp:TextBox CssClass="form-control" ID="TxtNumExt" runat="server" MaxLength="70"></asp:TextBox>
@@ -307,7 +307,7 @@
                                                         <label for="<%= TxtCiudad.ClientID.ToString()%>">Ciudad: </label>
                                                         <i></i>
                                                     </div>
-                                                    
+
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:DropDownList ID="DdlEstadosDomicilio" runat="server" DataTextField="NombreEstado" DataValueField="CveEstado" Width="100%" Class="form-control   input-sm select2me"></asp:DropDownList>
                                                         <label for="<%= DdlEstadosDomicilio.ClientID.ToString()%>">Estado: </label>
@@ -319,14 +319,14 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                         <asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" MaxLength="10"></asp:TextBox>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtTelefono" runat="server" MaxLength="10"></asp:TextBox>
-                                                         <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
+                                                        <label for="<%= TxtTelefono.ClientID.ToString()%>">Teléfono:</label>
-                                                         <i></i>
+                                                        <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                         <asp:TextBox CssClass="form-control" ID="TxtTelefonoEmergencia" runat="server" MaxLength="70"></asp:TextBox>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtTelefonoEmergencia" runat="server" MaxLength="70"></asp:TextBox>
-                                                         <label for="<%= TxtTelefonoEmergencia.ClientID.ToString()%>">Contacto en caso de emergencia (nombre y teléfono):</label>
+                                                        <label for="<%= TxtTelefonoEmergencia.ClientID.ToString()%>">Contacto en caso de emergencia (nombre y teléfono):</label>
-                                                         <i></i>
+                                                        <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
                                                         <asp:TextBox CssClass="form-control" ID="TxtCelular" runat="server" MaxLength="10"></asp:TextBox>
@@ -349,9 +349,9 @@
                                                         <i></i>
                                                     </div>
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                         <asp:TextBox CssClass="form-control" ID="TxtCredencialElector" runat="server" MaxLength="50"></asp:TextBox>
+                                                        <asp:TextBox CssClass="form-control" ID="TxtCredencialElector" runat="server" MaxLength="50"></asp:TextBox>
-                                                         <label for="<%= TxtCredencialElector.ClientID.ToString()%>">Credencial Elector: </label>
+                                                        <label for="<%= TxtCredencialElector.ClientID.ToString()%>">Credencial Elector: </label>
-                                                         <i></i>
+                                                        <i></i>
                                                     </div>
 
                                                     <div runat="server" id="DivPadres" visible="true">
@@ -362,7 +362,7 @@
                                                         </div>
                                                         <div class="form-group form-md-line-input input-iconright">
                                                             <asp:TextBox CssClass="form-control" ID="TxtNombreMadre" runat="server" MaxLength="50"></asp:TextBox>
-                                                                <label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label>
+                                                            <label for="<%= TxtNombreMadre.ClientID.ToString()%>">Nombre de la Madre: </label>
                                                             <i></i>
                                                         </div>
                                                     </div>
@@ -738,13 +738,6 @@
                                                             <asp:RequiredFieldValidator ID="RFVEstatusPersonal" runat="server" ControlToValidate="DdlEstatusPersonal" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''EstatusPersonal''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                             <i></i>
                                                         </div>
-                                                        <div class="form-group form-md-line-input input-iconright" runat="server" id="DivMotivoBaja">
-                                                            <asp:DropDownList Width="100%" ID="DdlMotivoBaja" runat="server" AppendDataBoundItems="True" DataTextField="MotivoBaja" DataValueField="CveMotivoBaja" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
-                                                                <asp:ListItem Selected="True" Text="Sin asignar Motivo de Baja" Value="-1"></asp:ListItem>
-                                                            </asp:DropDownList>
-                                                            <label for="<%= DdlMotivoBaja.ClientID.ToString()%>">Motivo de Baja:  </label>
-                                                            <i></i>
-                                                        </div>
 
 
                                                         <div runat="server" id="DivFechaBaja" visible="true" class="form-group form-md-line-input input-iconright">
@@ -3051,7 +3044,7 @@
                                                                                             <div class="">
                                                                                                 <asp:Label runat="server" AssociatedControlID="DdlVacPeriodo" Style="padding-bottom: 0px; margin-bottom: 0px; font-size: 12px; color: #888; font-weight: 400;">Periodo</asp:Label><br />
                                                                                                 <asp:DropDownList ID="DdlVacPeriodo" DataValueField="Ejercicio" DataTextField="PeriodoText" Width="100%" CssClass="form-control select2me " runat="server"></asp:DropDownList>
-                                                                                               <%-- <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm form-small" Text="2021" runat="server"></asp:TextBox>
+                                                                                                <%-- <asp:TextBox ID="TxtVacEjercicio" CssClass="form-control input-sm form-small" Text="2021" runat="server"></asp:TextBox>
                                                                                                 <asp:Label runat="server" AssociatedControlID="TxtVacEjercicio">Ejercicio</asp:Label>--%>
                                                                                             </div>
                                                                                         </div>
@@ -5669,50 +5662,74 @@
     </div>
 
     <div id="ModalUpEstatus" class="modal ADS fade" role="dialog">
-    <asp:UpdatePanel runat="server" ID="upPersonEstatus" class="modal-dialog" UpdateMode="Conditional">
+        <asp:UpdatePanel runat="server" ID="upPersonEstatus" class="modal-dialog" UpdateMode="Conditional">
-    <ContentTemplate>
+            <ContentTemplate>
-        
+
-            <div class="modal-content">
+                <div class="modal-content">
-                <div class="modal-header ">
+                    <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button><h4 class="modal-title">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button><h4 class="modal-title">
-                        <asp:Label ID="LblEstatus" runat="server" Text="Label"></asp:Label>
+                            <asp:Label ID="LblEstatus" runat="server" Text="Label"></asp:Label>
-                    </h4>
+                        </h4>
-                </div>
+                    </div>
-                <div class="modal-body">
+                    <div class="modal-body">
-                            <div class="row">
+                        <div class="row">
-                                <div class="col-md-4">
+                            <div class="col-md-4">
-                                    <label><asp:Literal ID="LblFechaEstatus" runat="server"></asp:Literal></label>
+                                <label>
-                                </div>
+                                    <asp:Literal ID="LblFechaEstatus" runat="server"></asp:Literal></label>
-                                <div class="col-md-6">
+                            </div>
-                                    <div class=" " style="width: 100px !important">
+                            <div class="col-md-6">
-                                        <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 160px;">
+                                <div class=" " style="width: 100px !important">
-                                            <asp:TextBox ID="TxtFechaEstatus" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
+                                    <div class="input-group input-sm date date-picker" data-date-format="dd/mm/yyyy" style="width: 160px;">
-                                            <span class="input-group-btn ">
+                                        <asp:TextBox ID="TxtFechaEstatus" runat="server" CausesValidation="true" CssClass="form-control input-sm"></asp:TextBox>
-                                                <asp:LinkButton ID="LnkFechaEstatus" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        <span class="input-group-btn ">
-                                            </span>
+                                            <asp:LinkButton ID="LnkFechaEstatus" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                            <ajax:MaskedEditExtender ID="MaskedEditExtender6" runat="server" TargetControlID="TxtFechaEstatus" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                        </span>
-                                            <ajax:CalendarExtender runat="server" ID="CalendarExtender6" TargetControlID="TxtFechaEstatus" PopupButtonID="LnkFechaEstatus" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                        <ajax:MaskedEditExtender ID="MaskedEditExtender6" runat="server" TargetControlID="TxtFechaEstatus" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                            
+                                        <ajax:CalendarExtender runat="server" ID="CalendarExtender6" TargetControlID="TxtFechaEstatus" PopupButtonID="LnkFechaEstatus" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                        </div>
+
-                                        <br />
                                     </div>
+                                    <br />
                                 </div>
                             </div>
-                </div>
+                        </div>
-                <div class="modal-footer">
-                    <asp:UpdatePanel runat="server">
-                        <ContentTemplate>
 
-                            <asp:Button ID="LnkUpEstatus" runat="server" Text="Actualizar" OnClick="LnkUpEstatus_Click" class="btn btn-primary" />
+                        <div class="form-group form-md-line-input input-iconright" runat="server" id="DivMotivoBaja">
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        <div class="row">
+                            <div class="col-md-4">
+                                <asp:Label runat="server" AssociatedControlID="DdlMotivoBaja">Motivo de Baja:  </asp:Label>
+                            </div>
+                            <div class="col-md-6">
+                                <asp:DropDownList Width="100%" ID="DdlMotivoBaja" runat="server" AppendDataBoundItems="True" DataTextField="MotivoBaja" DataValueField="CveMotivoBaja" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                    <asp:ListItem Selected="True" Text="Sin asignar Motivo de Baja" Value="-1"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+                        </div>
+                             
+                            
+                        <div class="row">
+                            <div class="col-md-4">
+                                <asp:Label runat="server" Text="Observaciones " AssociatedControlID="Txobservacionesbaja"></asp:Label>
+                            </div>
+                            <div class="col-md-6">
+                                <asp:TextBox ID="Txobservacionesbaja" runat="server" Text="" TextMode="MultiLine" Rows="3" CausesValidation="True" CssClass="form-control"></asp:TextBox>
+                            </div>
+                        </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        <asp:UpdatePanel runat="server">
+                            <ContentTemplate>
 
-                        </ContentTemplate>
+                                <asp:Button ID="LnkUpEstatus" runat="server" Text="Actualizar" OnClick="LnkUpEstatus_Click" class="btn btn-primary" />
-                    </asp:UpdatePanel>
+                                <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
                 </div>
-            </div>
+
-        
+            </ContentTemplate>
-    </ContentTemplate>
+        </asp:UpdatePanel>
-    </asp:UpdatePanel>
     </div>
 
     <iframe id="my_iframe" style="display: none;"></iframe>

RH/Personal.aspx.vb

@@ -16,6 +16,18 @@ Partial Class RH_Personal
 
 #Region "P R O P I E D A D E S"
 
+    Property salarioVariable As Decimal
+        Get
+            If ViewState("salarioVariable") Is Nothing Then
+                Return 0
+            Else
+                Return DirectCast(ViewState("salarioVariable"), Decimal)
+            End If
+        End Get
+        Set(value As Decimal)
+            ViewState("salarioVariable") = value
+        End Set
+    End Property
     Property CcveMovtoPermanente As Integer
         Get
             If ViewState("CcveMovtoPermanente") Is Nothing Then
@@ -1754,6 +1766,8 @@ Partial Class RH_Personal
                 TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString()
                 TxtSalarioDiario.Text = ObjPersonal.SalarioDiario.ToString()
                 TxtSDI.Text = ObjPersonal.SDI.ToString()
+                salarioVariable = drow("SalarioVariable").ToString().ToDecimal() 'ObjPersonal.SalarioDiarioSS.ToString().ToDecimal() - ObjPersonal.SDI.ToString().ToDecimal()
+                salarioVariable = If(salarioVariable > 0, salarioVariable, 0)
                 TxtSalarioCotizado.Text = ObjPersonal.SalarioDiarioSS.ToString()
                 TxtFISalariodiario.Text = ObjPersonal.SalarioDiario.ToString()
                 TxtBono.Text = ObjPersonal.Bono.ToString()
@@ -6900,10 +6914,10 @@ Partial Class RH_Personal
 
         TxtFISalariodiario.Text = TxtSalarioDiarioM.Text
         calcularSDI()
-        TxtSalarioDiarioImSS.Text = TxtFISalarioDiarioIntegrado.Text
+        TxtSalarioDiarioImSS.Text = (TxtFISalarioDiarioIntegrado.Text.ToDecimal() + salarioVariable).ToString()
         TxtSalarioDiarioIntegrado.Text = TxtFISalarioDiarioIntegrado.Text
         Using ObjPersonal As ClsRH = New ClsRH()
-            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
+            If ObjPersonal.UpdateSalarios(CvePersonal, TxtFechamodSalario.Text.ToDate().ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtSalarioDiarioM.Text.ToDecimal(), TxtFISalarioDiarioIntegrado.Text.ToDecimal(), TxtSalarioDiarioImSS.Text.ToDecimal(), TxtSalarioDiarioM.Text.ToDecimal()) Then
 
 
                 TxtSalarioDiario.Text = TxtSalarioDiarioM.Text
@@ -7423,6 +7437,7 @@ Partial Class RH_Personal
         LblEstatus.Text = "Activar personal"
         LblFechaEstatus.Text = "Fecha ingreso ó reingreso"
         TxtFechaEstatus.Text = ""
+        DivMotivoBaja.Visible = False
         RegistraScript("$('#ModalUpEstatus').modal();")
         upPersonEstatus.Update()
     End Sub
@@ -7431,6 +7446,7 @@ Partial Class RH_Personal
         LblEstatus.Text = "Desactivar personal"
         LblFechaEstatus.Text = "Fecha baja"
         TxtFechaEstatus.Text = ""
+        DivMotivoBaja.Visible = True
         RegistraScript("$('#ModalUpEstatus').modal();")
         upPersonEstatus.Update()
     End Sub
@@ -7472,7 +7488,7 @@ Partial Class RH_Personal
         End If
         If continuar Then
             Using objrh As New ClsRH
-                continuar = objrh.estatusPersonalUp(fecha, CvePersonal, estatus, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
+                continuar = objrh.estatusPersonalUp(fecha, CvePersonal, estatus, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlMotivoBaja.SelectedValue.ToEntero(),)
             End Using
         End If
 

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"))

Sistemas/PopUpCambiaUsuario.aspx.vb

@@ -48,9 +48,6 @@ Partial Class Sistemas_PopUpCambiaUsuario
             Dim CveEmpresa As String = UsuarioActual.CveEmpresa.ToString()
 
             Dim splitedtext As String() = Request.Url.AbsoluteUri.Replace("http://", "").Replace("https://", "").Split("."c)
-            If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
-                CveEmpresa = 119
-            End If
 
             If splitedtext.Length > 0 Then
                 Select Case splitedtext(0).ToUpper()
@@ -66,6 +63,9 @@ Partial Class Sistemas_PopUpCambiaUsuario
                     Case "KINO" : CveEmpresa = "173"
                 End Select
             End If
+            If Request.Url.AbsoluteUri.Contains("sig.agrojam.com.mx") Then
+                CveEmpresa = 158
+            End If
             DdlEmpresa.DataBind()
             DdlEmpresa.SelectedValue = CveEmpresa
 

Ventas/RepAuxiliarFacturas.aspx.vb

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

Ventas/RepProductosServicios.aspx.vb

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

Ventas/RepProductosServiciosDetalle.aspx.vb

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

Ventas/RepVentaDetalle.aspx.vb

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

Ventas/RepVentas.aspx.vb

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

Ventas/RepVentasResumen.aspx.vb

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

ZDG/PopUpBuscarMilitante.aspx.vb

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