AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Local

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-02-07 17:39:15 -07:00
parent 4aeca5afb6 040361c55f
commit 19e7f561e1
34 changed files with 4118 additions and 6959 deletions
Download Patch File Download Diff File Expand all files Collapse all files

86
Acumuladores/RepIndicadorDiario.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

9388
App_Code/ClsPaginas.vb
View File

File diff suppressed because it is too large Load Diff

4
App_Code/LogicNominas.vb
View File

@@ -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("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("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
End If
End If

2
Bancos/ConciliacionesBancarias.aspx.vb
View File

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

85
CRM/RepAcercamientosProcesos.aspx.cs
View File

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

85
CRM/RepAcercamientosRechazos.aspx.cs
View File

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

102
Compras/RepCompras.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

87
Compras/RepComprasAF.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

88
Compras/RepComprasDetalle.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

87
Compras/RepComprasPersonal.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

87
Compras/RepCxP.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
Top += 1
End If
If DdlMostrarGraficaTotales.SelectedValue.ToEntero <> -1 And Top > DdlMostrarGraficaTotales.SelectedValue.ToEntero Then Exit For

89
Compras/RepProductosServicios.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

88
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

2
Contabilidad/Reportes/RepCuadreContaAdmonDetalle.aspx.vb
View File

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

87
CxC/RepCxC.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
Top += 1
End If
If DdlMostrarGraficaTotales.SelectedValue.ToEntero <> -1 And Top > DdlMostrarGraficaTotales.SelectedValue.ToEntero Then Exit For

41
General/RepIndicadorResumen.aspx.vb
View File

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

87
Inventarios/RepAlmacen.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

0
RH/ListaAsistencias.aspx → Nomina/ListaAsistencias.aspx
View File

0
RH/ListaAsistencias.aspx.vb → Nomina/ListaAsistencias.aspx.vb
View File

2
Nomina/Nomina.aspx
View File

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

4
Nomina/Nomina.aspx.cs
View File

@@ -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())
{

2
OI/TareaDetalle.aspx.cs
View File

@@ -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();

9
OS/RepServicioDomicilio.aspx.vb
View File

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

2
RH/Asistencias.aspx
View File

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

95
Sistemas/Empresa.aspx.vb
View File

@@ -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 Not Dr("CveClasificacion").ToString.ToEntero > 0 Then
If Not ObjGral.RemoveClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero) Then
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
End If
ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero = 0 Then
If Not ObjGral.AddClasificacionPorcentaje(Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
If DtClasificacionIVA IsNot Nothing OrElse DtClasificacionIVA.Rows.Count > 0 Then
For Each Dr As DataRow In DtClasificacionIVA.Rows
If Not Dr("CveClasificacion").ToString.ToEntero > 0 Then
If Not ObjGral.RemoveClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero) Then
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
End If
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"
End If
ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero > 0 Then
If Not ObjGral.UpdateClasificacionPorcentaje(Dr("CveClasificacionPorcentaje").ToString.ToEntero, Dr("CveClasificacion").ToString.ToEntero, Dr("PorcentajeIVA").ToString.ToDouble,
TextoError = "Ocurrió un error al guardar los cambios de la empresa"
End If
ElseIf Dr("CveClasificacionPorcentaje").ToString.ToEntero > 0 Then
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
GlobalDTEmpresas = ObjEmpresas.DtResultados
If ObjEmpresas.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
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
GlobalDTClasificacionPorcentaje(-1) = ObjGral.DtResultados
If ObjGral.GetClasificacionPorcentaje(CveEmpresa) Then
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/Empresas.aspx"";")
Alert("La Empresa se Eliminó correctamente.", TipoMensaje.MsgInformacion, "document.location.href=""/Sistemas/Empresa.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
DtCuentas = Cuenta.DtResultados
End If
Cuenta.Dispose()
'End If
If Cuenta.GetCuentas(-1, "-1", -1) Then
DtCuentas = Cuenta.DtResultados
End If
Cuenta.Dispose()
'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"))

1
Ventas/PV.aspx
View File

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

6
Ventas/PV.aspx.vb
View File

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

9
Ventas/RepAuxiliarFacturas.aspx.vb
View File

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

87
Ventas/RepProductosServicios.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

87
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

88
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

87
Ventas/RepVentas.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

101
Ventas/RepVentasResumen.aspx.vb
View File

@@ -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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
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
RowColorIndex = 0
End If
If RowColorIndex >= Colors.Length Then RowColorIndex = 0
End If
Next

2
ZDG/PopUpBuscarMilitante.aspx.vb
View File

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