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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2020-09-18 15:58:24 -07:00
parent f530ca4121
commit a5682e17cd
10 changed files with 324 additions and 266 deletions
Download Patch File Download Diff File Expand all files Collapse all files

121
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -9,7 +9,11 @@
width: 100%;
height: 500px;
}
#chartdivgral{
width: 100%;
min-height: 500px;
}
.fa.fa-bar-chart {
width: 16px;
height: 14px;
@@ -26,6 +30,14 @@
.chksino label::after {
content: 'L';
}
.chkgraf {
visibility: hidden;
}
.showgrph .chkgraf {
visibility: inherit;
}
</style>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -37,6 +49,9 @@
<li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li>
<li>
<asp:HyperLink NavigateUrl="javascript:graficarshow();" runat="server"><i class="fa fa-bar-chart" aria-hidden="true"></i> Graficar</asp:HyperLink>
</li>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -99,9 +114,12 @@
</asp:DropDownList>
</div>
<label class="col-md-2" style="width: 80px;" runat="server" id="LblTri">Trimestre<br> Cuatrimestre: </label>
<label class="col-md-2" style="width: 80px;" runat="server" id="LblTri">
Trimestre<br>
Cuatrimestre:
</label>
<div class="col-md-1 " runat="server" id="DVTri">
<asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me" Width="100px" AutoPostBack="true" >
<asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me" Width="100px" AutoPostBack="true">
<asp:ListItem Value="0">NO</asp:ListItem>
<asp:ListItem Value="1">Trimestre</asp:ListItem>
<asp:ListItem Value="2">Cuatrimestre</asp:ListItem>
@@ -232,6 +250,7 @@
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
@@ -262,7 +281,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="T1" Visible="false">
<asp:TemplateField HeaderText="T1" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -276,7 +295,7 @@
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="C1" Visible="false">
<asp:TemplateField HeaderText="C1" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -316,7 +335,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="C2" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -357,7 +376,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="T4" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -365,8 +384,8 @@
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="C3" Visible="false">
<asp:TemplateField HeaderText="C3" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -394,12 +413,13 @@
<br />
<br />
<asp:GridView ID="GvGastosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado" OnRowDataBound="GvGastosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<Columns>
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -410,7 +430,7 @@
<HeaderStyle HorizontalAlign="Left" Width="400px" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Enero">
<asp:TemplateField HeaderText="Enero">
<ItemTemplate>
<asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -428,7 +448,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="T1" Visible="false">
<asp:TemplateField HeaderText="T1" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -442,7 +462,7 @@
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="C1" Visible="false">
<asp:TemplateField HeaderText="C1" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -481,7 +501,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="C2" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -522,7 +542,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="T4" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -530,8 +550,8 @@
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="C3" Visible="false">
<asp:TemplateField HeaderText="C3" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -564,6 +584,7 @@
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate>
@@ -574,7 +595,7 @@
<ItemStyle HorizontalAlign="Left" Width="400px" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Enero">
<asp:TemplateField HeaderText="Enero">
<ItemTemplate>
<asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -592,7 +613,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Tri1" Visible="false">
<asp:TemplateField HeaderText="Tri1" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -606,7 +627,7 @@
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Cua1" Visible="false">
<asp:TemplateField HeaderText="Cua1" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -645,7 +666,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Cua2" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -686,7 +707,7 @@
</ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Tri4" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -694,8 +715,8 @@
<ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Cua3" Visible="false">
<asp:TemplateField HeaderText="Cua3" Visible="false">
<ItemTemplate>
<asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
@@ -762,6 +783,7 @@
<Columns>
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px" ></asp:Label>--%>
<asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -816,6 +838,7 @@
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>--%>
<asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -879,6 +902,7 @@
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>
</ItemTemplate>
@@ -974,18 +998,8 @@
CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"
Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns>
<%--<asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<HeaderTemplate>
<asp:HyperLink ID="Hypgraficagral" runat="server" CssClass="Texto Hypgraficagral" NavigateUrl="javascript:void(0);" onclick="return cargaGraficaBarras2('Analisis centro de costos');"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>--%>
<asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<HeaderTemplate>
<%--<asp:HyperLink ID="Hypgraficagral" runat="server" CssClass="Texto Hypgraficagral" NavigateUrl="javascript:void(0);" onclick="return cargaGraficaBarras2('Analisis centro de costos');"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>--%>
<asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
</HeaderTemplate>
<ItemTemplate>
@@ -1062,6 +1076,7 @@
<asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
</HeaderTemplate>
<ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate>
@@ -1242,13 +1257,13 @@
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label CssClass="LblTituloGraficaGral" runat="server" ClientIDMode="Static" Text="">Analisis centro de costos</asp:Label>
<asp:Label CssClass="LblTituloGraficaGral" runat="server" ClientIDMode="Static" Text="">Análisis de estados de resultados</asp:Label>
</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-1"></div>
<label class="col-md-2 truncate" style="display: inline-block; padding-top: 8px; font-weight: bold;">Seleccione el tipo de grafica:</label>
<label class="col-md-2 truncate" style="display: inline-block; padding-top: 8px; font-weight: bold;">Seleccione el tipo de gráfica:</label>
<div class="col-md-4">
<asp:RadioButtonList ID="rdblistgrafica" CssClass="rdblistgrafica" runat="server" RepeatDirection="Horizontal">
<asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
@@ -1256,10 +1271,15 @@
</asp:RadioButtonList>
</div>
</div>
<div id="grafInfo">
<div class="row">
<div class="col-md-3">
<div id="grafInfo"></div>
</div>
<div class="col-md-9">
<div id="chartdivgral"></div>
</div>
</div>
<br />
<div id="chartdivgral"></div>
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
@@ -1368,6 +1388,11 @@
let objetos;
let Colores = ["#FF0F00", "#FF6600", "#F8FF01", "#04D215", "#2A0CD0", "#8A0CCF", "#CD0D74", "#754DEB", "#DDDDDD", "#999999", "#000000"];
function graficarshow() {
$('.btngraficarborrar').remove();
$('#C_Tab_header').append('<a onclick="cargaGraficaBarras2();" class="btn btn-success btngraficarborrar" style="float:right;"><i class="fa fa-bar-chart" aria-hidden="true"></i> Graficar</a>');
$('#C_Tab_body').addClass('showgrph');
}
function cargaGraficaBarras2(Titulo) {
$('.LblTituloGraficaGral').text(Titulo);
cargaGraficaBarras2();
@@ -1382,9 +1407,10 @@
let data;
let icolor = 0;
let tipografica = $('.rdblistgrafica input:checked').val();
$('.chkgraf input:checked').each(function () {
$('.ajax__tab_panel:visible .chkgraf input:checked').each(function () {
data = $(this).closest('tr').find('.Hypgrafica').data('values')
let name = $(this).closest('tr').text().trim()
let name = $(this).closest('td').text().trim()
items.push({ id: icolor, data: data, name: name, Color: Colores[icolor], tipografica })
gettitlegraf(infogral, icolor, Colores[icolor], name, tipografica);
icolor = icolor + 1;
@@ -1395,24 +1421,27 @@
$(".chkonchange input").each(function () {
let _this = $(this)
_this.change(function () {
let _this = $(this)
let _this = $(this)
let id = Number(_this.data('id'))
objetos[id].tipografica = _this.is(':checked') ? 1 : 2;
ShowGraf2();
})
});
$(function () {
$('.chkonchange').tooltip()
});
ShowGraf2();
}
function gettitlegraf(infogral, id, Color, name, tipografica) {
let strtipografica = '<span class="chksino chkonchange" ><input id="chk' + id + '" ' + (tipografica == 1 ? 'checked="checked"' : '"') + ' data-id="' + id + '" type="checkbox" name="nchk' + id + '"><label for="chk' + id + '"> </label></span>';
let strtipografica = '<span class="chksino chkonchange" data-html="true" data-original-title="<div style=\'white-space:nowrap;\'>\'B\' Barras / \'L\' Lineas </div>" ><input id="chk' + id + '" ' + (tipografica == 1 ? 'checked="checked"' : '"') + ' data-id="' + id + '" type="checkbox" name="nchk' + id + '"><label for="chk' + id + '"> </label></span>';
let contenedor = $("<div class='row'></div>");
let divcolspan = $("<div class='col-md-1'></div>");
let divcolor = $('<div class="col-md-1"><div style="width:20px;height:10px;background-color:' + Color + ';"></div> </div>');
let divtexto = $("<div class='col-md-8'>" + name + "</div>");
let divtipografica = $("<div class='col-md-1'>" + strtipografica + "</div>");
let divtexto = $("<div class='col-md-6'>" + name + "</div>");
let divtipografica = $("<div class='col-md-4'>" + strtipografica + "</div>");
infogral.append(contenedor);
contenedor.append(divcolspan); contenedor.append(divcolor); contenedor.append(divtexto); contenedor.append(divtipografica);
/*contenedor.append(divcolspan);*/ contenedor.append(divcolor); contenedor.append(divtexto); contenedor.append(divtipografica);
}
function ShowGraf2() {
let items = objetos;

374
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -44,7 +44,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Property
Private Property TotalActualMes As Double
Get
TotalActualMes = ViewState("TotalActualMes").ToString.ToDouble
TotalActualMes = ViewState("TotalActualMes").ToString().ToDouble
End Get
Set(value As Double)
ViewState("TotalActualMes") = value
@@ -52,7 +52,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Property
Private Property TotalAnteriorMes As Double
Get
TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble
TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString().ToDouble
End Get
Set(value As Double)
ViewState("TotalAnteriorMes") = value
@@ -60,7 +60,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Property
Private Property FechaIMes As String
Get
Return ViewState("FechaIMes").ToString
Return ViewState("FechaIMes").ToString()
End Get
Set(value As String)
ViewState("FechaIMes") = value
@@ -68,7 +68,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Property
Private Property FechaFMes As String
Get
Return ViewState("FechaFMes").ToString
Return ViewState("FechaFMes").ToString()
End Get
Set(value As String)
ViewState("FechaFMes") = value
@@ -119,7 +119,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Private Property ReporteComplementario As Boolean
' Get
' ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString)
' ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString())
' End Get
' Set(value As Boolean)
' ViewState("ReporteComplementario") = value
@@ -223,7 +223,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If ViewState("CountDinamicoAnual") Is Nothing Then
Return 0
Else
Return ViewState("CountDinamicoAnual").ToString.ToEntero
Return ViewState("CountDinamicoAnual").ToString().ToEntero()
End If
End Get
@@ -295,7 +295,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If ViewState("CountDinamicoSubProyecto") Is Nothing Then
Return 0
Else
Return ViewState("CountDinamicoSubProyecto").ToString.ToEntero
Return ViewState("CountDinamicoSubProyecto").ToString().ToEntero()
End If
End Get
@@ -451,16 +451,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Private Sub ValidaEjercicios()
Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero
Dim EInicio As Integer = DdlEjercicio.SelectedValue.ToEntero()
If EInicio > DdlEjercicio2.SelectedValue.ToEntero Then
If EInicio > DdlEjercicio2.SelectedValue.ToEntero() Then
If DdlEjercicio2.Items.Count > 0 Then
DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1
End If
Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero
Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero()
If Not EInicio + 1 > Fejerciosio Then
DdlEjercicio2.SelectedValueExist(EInicio + 1)
@@ -486,11 +486,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DdlEjercicio.DataBind()
DdlEjercicio2.DataBind()
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString())
If DdlEjercicio.Items.Count = 0 Then
DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString, Now.Year.ToString))
DdlEjercicio.Items.Add(New ListItem(Now.Year.ToString(), Now.Year.ToString()))
End If
DdlPeriodo.SelectedValue = Now.Month.ToString
DdlPeriodo.SelectedValue = Now.Month.ToString()
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -510,7 +510,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'AÑO HORIZONTAL
If Tab.ActiveTabIndex = 2 Then
If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then
If DdlEjercicio.SelectedValue.ToEntero() > DdlEjercicio2.SelectedValue.ToEntero() Then
Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
@@ -539,12 +539,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaIMes))).ToString("dd/MM/yyyy")
'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1)
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
'Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero()'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero(), 1)
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero()
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If ObjConta.GetEstadosMensual(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else
DtDatosMes = Nothing
@@ -568,14 +568,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtIngresosMes.Rows.Count > 0 Then
For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next
Row.Item("Nombre") = "TOTAL INGRESOS "
Row.Item("ImporteActual") = TotalActual.ToString
Row.Item("ImporteActual") = TotalActual.ToString()
Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = TotalAnterior.ToString
Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1
DtIngresosMes.Rows.Add(Row)
@@ -596,15 +596,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtGastosMes.Rows.Count > 0 Then
For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next
Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero
Row.Item("CtaMayor") = -1
DtGastosMes.Rows.Add(Row)
Else
@@ -632,7 +632,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Llena Lb´s Totales
If DdlDivisor.SelectedValue.ToEntero > 1 Then
If DdlDivisor.SelectedValue.ToEntero() > 1 Then
LbTotalActual.Text = TotalActualMes.ToString("###,###,##0")
LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0")
Else
@@ -655,38 +655,38 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then
'e.Row.CssClass = "SubTotales3"
e.Row.ControlStyle.Font.Bold = True
End If
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then
e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
If DdlDivisor.SelectedValue.ToEntero > 1 Then
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0")
e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString
If DdlDivisor.SelectedValue.ToEntero() > 1 Then
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero().ToString("###,###,##0")
e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero().ToString("###,###,##0").ToString()
Else
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00")
e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString
e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString()
End If
End If
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteActual").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
End If
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
End If
@@ -694,34 +694,34 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then
'e.Row.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True
End If
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then
e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
End If
If DdlDivisor.SelectedValue.ToEntero > 1 Then
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0")
e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero.ToString("###,###,##0").ToString
If DdlDivisor.SelectedValue.ToEntero() > 1 Then
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero().ToString("###,###,##0")
e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero().ToString("###,###,##0").ToString()
Else
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00")
e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString
e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToDecimal.ToString("###,###,##0.00").ToString()
End If
If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteActual").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
End If
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
End If
@@ -742,14 +742,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate
FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero().ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate
FechaFMes = $"{FechaFin.LastDayOfMonth.Day.ToString("00")}/{DdlPeriodo.SelectedValue.ToEntero().ToString("00")}/{DdlEjercicio.SelectedValue}"
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero()
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else
DtDatosMesH = Nothing
@@ -778,8 +778,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtIngresosMesH.Rows.Count > 0 Then
For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next
Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)")
@@ -806,9 +806,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "TOTAL INGRESOS"
Row.Item("ImporteActual") = TotalActual.ToString
Row.Item("ImporteActual") = TotalActual.ToString()
Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = TotalAnterior.ToString
Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1
@@ -830,8 +830,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtGastosMesH.Rows.Count > 0 Then
For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next
@@ -859,9 +859,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero
Row.Item("CtaMayor") = -1
DtGastosMesH.Rows.Add(Row)
Else
@@ -899,9 +899,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Cua3") = DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")
Row.Item("Nombre") = "Resultados del Ejercicio:"
'Row.Item("ImporteActual") = TotalActual.ToString
'Row.Item("ImporteActual") = TotalActual.ToString()
'Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString
Row.Item("ImporteAcumulado") = DtIngresosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") ' TotalAnterior.ToString()
'Row.Item("PorcentajeAcumulado") = "100.00"
'Row.Item("CtaMayor") = -1
@@ -919,7 +919,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvTotalesMesH.DataBind()
If DdlTri.SelectedValue.ToEntero = 0 Then 'ocultar trimestre cuatrimestre
If DdlTri.SelectedValue.ToEntero() = 0 Then 'ocultar trimestre cuatrimestre
GvIngresosMesH.Columns(4).Visible = False
GvIngresosMesH.Columns(9).Visible = False
@@ -949,7 +949,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvTotalesMesH.Columns(19).Visible = False
ElseIf DdlTri.SelectedValue.ToEntero = 1 Then 'Mostrar Trimestre
ElseIf DdlTri.SelectedValue.ToEntero() = 1 Then 'Mostrar Trimestre
GvIngresosMesH.Columns(4).Visible = True
@@ -979,7 +979,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvTotalesMesH.Columns(12).Visible = False
GvTotalesMesH.Columns(19).Visible = False
ElseIf DdlTri.SelectedValue.ToEntero = 2 Then 'Mostrar Cuatrimestre
ElseIf DdlTri.SelectedValue.ToEntero() = 2 Then 'Mostrar Cuatrimestre
GvIngresosMesH.Columns(4).Visible = False
GvIngresosMesH.Columns(9).Visible = False
@@ -1020,20 +1020,20 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then
e.Row.ControlStyle.Font.Bold = True
End If
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then
'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}"
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}"
e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
@@ -1060,13 +1060,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
' e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
End If
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Or e.Row.DBCampo("Nombre") = "TOTAL INGRESOS" Then
If DdlDivisor.SelectedValue.ToEntero > 1 Then
If DdlDivisor.SelectedValue.ToEntero() > 1 Then
e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0")
@@ -1115,7 +1115,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
e.Row.FCHyperLink("HLNoviembre").ForeColor = If(e.Row.DataKey("Noviembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLNoviembre").ForeColor)
e.Row.FCHyperLink("HLDiciembre").ForeColor = If(e.Row.DataKey("Diciembre").ToDecimal < 0, Drawing.Color.Red, e.Row.FCHyperLink("HLDiciembre").ForeColor)
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
@@ -1125,23 +1125,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then
'e.Row.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True
End If
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero()
'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}"
'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensualHorizontal.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&FF=31/12/{DdlEjercicio.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1"
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}&TRCU={DdlTri.SelectedValue}"
e.Row.FCHyperLink("HLEnero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/01/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/01/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
e.Row.FCHyperLink("HLFebrero").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/02/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/02/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
@@ -1166,15 +1166,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
e.Row.FCHyperLink("HLCua3").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), $"01/12/{DdlEjercicio.SelectedValue}".ToDate.LastDayOfMonth.ToShortDateString, $"01/09/{DdlEjercicio.SelectedValue}".ToDate.ToShortDateString)
'e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString)
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoMensual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
End If
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Or e.Row.DBCampo("Nombre") = "TOTAL GASTOS" Then
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Or e.Row.DBCampo("Nombre") = "TOTAL GASTOS" Then
If DdlDivisor.SelectedValue.ToEntero > 1 Then
If DdlDivisor.SelectedValue.ToEntero() > 1 Then
'Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado
e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
@@ -1225,7 +1225,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
End If
@@ -1242,7 +1242,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
e.Row.Attributes.Add("style", "Font-weight: bold")
If DdlDivisor.SelectedValue.ToEntero > 0 Then
If DdlDivisor.SelectedValue.ToEntero() > 0 Then
e.Row.FCHyperLink("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").ToDecimal.ToString("###,###,##0")
@@ -1321,11 +1321,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
FechaFMes = $"31/12/{DdlEjercicio2.SelectedValue}"
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero()
'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then
If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero(), Periodo:=DdlPeriodo.SelectedValue.ToEntero()) Then
DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else
DtDatosAnualH = Nothing
@@ -1377,7 +1377,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If IndexData >= 13 Then
If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
If dCoumn.ColumnName.ToEntero() > 0 And dCoumn.ColumnName.ToEntero() <= DdlEjercicio2.SelectedValue.ToEntero() Then
CType(GvIngresosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = dCoumn.ColumnName
@@ -1415,8 +1415,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next
@@ -1426,13 +1426,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next
Row.Item("Nombre") = "TOTAL INGRESOS "
Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString
Row.Item("ImporteActual") = DtIngresosAnualH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString()
Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
Row.Item("ImporteAcumulado") = DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico")
CountDinamicoAnual = DtGastosAnualH.MAX("CountDinamico").ToEntero
Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico").ToEntero()
CountDinamicoAnual = DtGastosAnualH.MAX("CountDinamico").ToEntero()
DtIngresosAnualH.Rows.Add(Row)
Else
Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -1460,7 +1460,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If IndexData >= 13 Then
If dCoumn.ColumnName.ToEntero > 0 And dCoumn.ColumnName.ToEntero <= DdlEjercicio2.SelectedValue.ToEntero Then
If dCoumn.ColumnName.ToEntero() > 0 And dCoumn.ColumnName.ToEntero() <= DdlEjercicio2.SelectedValue.ToEntero() Then
'HyperLinkField
CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName
@@ -1490,8 +1490,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next
IndexData = 13
@@ -1503,11 +1503,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero
Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico")
Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico").ToEntero()
DtGastosAnualH.Rows.Add(Row)
Else
Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1553,51 +1553,51 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCCAnual(e, listaCamposanios)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then
'e.Row.CssClass = "SubTotales3"
e.Row.ControlStyle.Font.Bold = True
End If
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero()
Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero()
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero()
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax
Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'") } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'") } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
Next IndiceInicio
'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero()
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"<strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong>"
e.Row.Cells(IndiceInicio).Text = $"<strong>{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong>"
Next IndiceInicio
@@ -1606,7 +1606,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
End If
@@ -1615,54 +1615,54 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCCAnual(e, listaCamposaniosGastos)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then
'e.Row.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True
End If
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero()
Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero()
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then
'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1&EjercicioFinal={DdlEjercicio2.SelectedValue}"
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
'e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto=-1&EjercicioFinal={DdlEjercicio2.SelectedValue}"
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero()
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax
Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'") } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}</a>"
e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'") } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{Anio}&FI=01/01/{Anio}&ER=1&CveSubProyecto={CveSubProyecto}' >{If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}</a>"
'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
Next IndiceInicio
'e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF=31/12/{DdlEjercicio2.SelectedValue}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyecto}"
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoAnual.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&EjercicioFinal={DdlEjercicio2.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero()
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"<strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong>"
e.Row.Cells(IndiceInicio).Text = $"<strong>{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong>"
Next IndiceInicio
End If
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
End If
@@ -1702,14 +1702,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}"
FechaFMes = $"01/{DdlPeriodo.SelectedValue.ToEntero().ToString("00")}/{DdlEjercicio.SelectedValue}"
FechaFMes = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaFMes))).ToString("dd/MM/yyyy")
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero()
Dim ObjConta As New ClsContabilidad
If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0)
DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else
@@ -1768,9 +1768,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
If IndexSubProyecto <= IndexSubProyectoMAx Then
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString
CType(GvIngresosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()
CType(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()
End If
listaCampos.Add(New String() {dCoumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
Else
@@ -1788,8 +1788,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next
IndexData = 13
@@ -1798,13 +1798,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next
Row.Item("Nombre") = "TOTAL INGRESOS "
Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString
Row.Item("ImporteActual") = DtIngresosSubProyectoH.SUM("ImporteActual", "NOT CtaMayor in (3,4)") 'TotalActual.ToString()
Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString
Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)") 'TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero
CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero()
DtIngresosSubProyectoH.Rows.Add(Row)
Else
Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -1850,8 +1850,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble
TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next
IndexData = 13
@@ -1861,11 +1861,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero
Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico")
Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico").ToEntero()
DtGastosSubProyectoH.Rows.Add(Row)
Else
@@ -1888,7 +1888,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "Resultado del ejercicio"
Row.Item("ImporteAcumulado") = DtIngresosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)") - DtGastosSubProyectoH.SUM($"ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
Row.Item("CtaMayor") = -2
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero()
DTTotalesSubProyectoH.Rows.Add(Row)
@@ -1910,8 +1910,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Private Sub SumaTotalesSubProyectoH()
' ''Llena Lb´s Totales
' ''*********************************************************************************
' 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero
' 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero
' 'LbTotalActual.Text = TotalActualMes.ToString().FormatoNumero
' 'LbTotalAnterior.Text = TotalAnteriorMes.ToString().FormatoNumero
' 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
' 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 0, Drawing.Color.Red, Color.Black)
@@ -1922,77 +1922,77 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then
'e.Row.CssClass = "SubTotales3"
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -2 Then
e.Row.ControlStyle.Font.Bold = True
e.Row.ControlStyle.Font.Size = 13
End If
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero()
setgraficaCC(e)
'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero
If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").ToEntero()
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() > 0 Then
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
e.Row.FCHyperLink("HLNombre").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero()
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero, 1).LastDayOfMonth
Dim FEchaMesFinal As Date = New Date(DdlEjercicio.SelectedValue.ToEntero(), DdlPeriodo.SelectedValue.ToEntero(), 1).LastDayOfMonth
For IndiceInicio = 1 To IndiceMax
Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'") } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
e.Row.Cells(IndiceInicio).Text = $"<a { If(Importe < 0, "style='color:Red;'", "style='color:#337ab7;'") } target='_blank' href='./RepAnexoCatalogo.aspx?CveCuenta={CveCuenta}&FF={FEchaMesFinal.ToString("dd/MM/yyyy")}&FI=01/01/{DdlEjercicio.SelectedValue}&ER=1&CveSubProyecto={CveSubProyectoIntermo}' >{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</a>"
Next IndiceInicio
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
e.Row.FCHyperLink("HLAnterior").NavigateUrl = $"./RepAnexoCatalogoCC.aspx?CveCuenta={e.Row.DBCampo("CveCuenta").ToString()}&Ejercicio={DdlEjercicio.SelectedValue}&Divisor={DdlDivisor.SelectedValue}&CveSubProyecto={DdlSubproyecto.SelectedValue}&Periodo={DdlPeriodo.SelectedValue}"
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero()
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'") } ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'") } ><strong>{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
Next IndiceInicio
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = -2 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -2 Then
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero
Dim CountDinamico As Integer = e.Row.DataKey("CountDinamico").ToEntero()
Dim IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal
e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'") } ><strong>{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
e.Row.Cells(IndiceInicio).Text = $"<div { If(Importe < 0, "style='color:Red;'", "style='color:#000000;'") } ><strong>{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }</strong></div>"
Next IndiceInicio
End If
e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero > 1, e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString.ToDecimal.ToString("###,###,##0.00"))
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").Text = If(DdlDivisor.SelectedValue.ToEntero() > 1, e.Row.DBCampo("ImporteAcumulado").ToString().ToDecimal.ToString("###,###,##0"), e.Row.DBCampo("ImporteAcumulado").ToString().ToDecimal.ToString("###,###,##0.00"))
If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
@@ -2003,15 +2003,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCC(e)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
e.Row.ControlStyle.Font.Bold = True
ElseIf e.Row.DBCampo("CtaMayor").ToString.ToEntero = 3 Then
ElseIf e.Row.DBCampo("CtaMayor").ToString().ToEntero() = 3 Then
'e.Row.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True
End If
If e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble < 0 Then
If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If
End If
@@ -2078,7 +2078,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Gv2.RenderControl(htw2)
TablaResultados.Width = Gv2.Width.ToString
TablaResultados.Width = Gv2.Width.ToString()
Dim sw3 As New StringWriter()
Dim htw3 As New HtmlTextWriter(sw3)
@@ -2186,7 +2186,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero > 0 Then
If EsPorSubProtyecto And DdlSubproyecto.SelectedValue.ToEntero() > 0 Then
Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex)
RangoSubProyecto.Merged = True
RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text
@@ -2253,7 +2253,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If I > 0 Then
If DdlDivisor.SelectedValue.ToEntero = 1 Then
If DdlDivisor.SelectedValue.ToEntero() = 1 Then
worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00"
Else
worksheet.Columns(I + 1).Style.NumberFormat = "#,##"

2
GPS/Rastreo.aspx.vb
View File

@@ -379,7 +379,7 @@ Partial Class GPS_Rastreo
Dim CordenadaAnterior As String = ""
For Each row As DataRow In TmpDT.Rows
Contador += 1
Dim Coord As String = SQLToGmaps(row("Posicion").ToString, "POINT")
Dim Coord As String = SQLToGmaps(row("Posicion").ToString(), "POINT")
Dim Velocidad As Double = row("SPD").ToString.ToDouble
Fecha = row("FechaTrama").ToString

10
Metronic/assets/admin/layout/css/custom.css
View File

@@ -30,7 +30,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
}
.AdsCHeader > .ADSCroll {
overflow: hidden;
overflow: auto;
}
.AdsBody .ADSCroll {
@@ -53,10 +53,12 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
background-color: #F5F5F5;
}
.AdsBody .ADSCroll::-webkit-scrollbar-thumb {
background-color: #AAA;
border-radius: 4px;
background-image: -webkit-linear-gradient(90deg, rgba(0, 0, 0, .2) 25%, transparent 25%, transparent 50%, rgba(0, 0, 0, .2) 50%, rgba(0, 0, 0, .2) 75%, transparent 75%, transparent)
background-color: #F5F5F5;
-webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.5);
}
.line-Lite .form-group.form-md-line-input .form-control {
@@ -700,8 +702,8 @@ div.ADScroller {
}
.ADScroller .ADScroller-body::-webkit-scrollbar {
width: 8px;
height: 8px;
width: 10px;
height: 12px;
}
.ADScroller .ADScroller-body::-webkit-scrollbar-track {

5
Nomina/Nomina2.aspx
View File

@@ -259,14 +259,13 @@
</div>
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom ">
<asp:GridView ID="GvNominas" runat="server" DataKeyNames="CvePeriodo,CvePersonal,CveNomina,SeTimbro,SerieFolio,Nombre,Correo,Codigo,Turno,SubProyecto,NomAutorizado" AutoGenerateColumns="False" OnRowDataBound="GvNominas_RowDataBound"
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None"
data-rows="1">
CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2">
<Columns>
<asp:TemplateField>
<HeaderTemplate></HeaderTemplate>
<ItemTemplate>
<asp:LinkButton ID="LnkSobreRecibo" OnClick="LnkSobreRecibo_Click" runat="server"><i class='fa fa-list-alt'></i></asp:LinkButton>
<asp:LinkButton ID="LnkSobreRecibo" OnClick="LnkSobreRecibo_Click" runat="server"><i class='fa fa-list-alt'></i></asp:LinkButton>
</ItemTemplate>
<ItemStyle Width="20px" HorizontalAlign="Left" />
</asp:TemplateField>

6
Nomina/Nomina2.aspx.cs
View File

@@ -310,7 +310,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible ";
}
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0);
bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto);
bf.HeaderText = Concepto;
@@ -342,7 +342,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible ";
}
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0);
bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto);
bf.HeaderText = Concepto;
@@ -386,7 +386,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible ";
}
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
GvNominas.Columns[CurrentColumn].Visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) != 0);
bf = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto);
bf.HeaderText = Concepto;

64
Scripts/custom.js
View File

@@ -137,7 +137,7 @@ function buscadorMenuCaudi() {
let tickBar = 0;
let input = $('#' + idTxtMaster);
let BuscarMenu =function() {
let BuscarMenu = function () {
tickBar = tickBar + 1;
tickBarnew = tickBar;
@@ -263,7 +263,7 @@ setswitch = function () {
var label;
var labeltext = ' ';
if ($($(this).find('label')).html()) {
labeltext = $($(this).find('label')).html()
labeltext = $($(this).find('label')).html();
}
label = '<label for="' + mdcheckbox.attr("id") + '" > <span></span><span class="check"></span><span class="box"></span>' + labeltext + '</label>';
label = $(label);
@@ -281,7 +281,7 @@ setswitch = function () {
var label;
var labeltext = ' ';
if ($($(this).find('label')).html()) {
labeltext = $($(this).find('label')).html()
labeltext = $($(this).find('label')).html();
}
label = '<label for="' + mdcheckbox.attr("id") + '" > <span></span><span class="check"></span><span class="box"></span>' + labeltext + '</label>';
label = $(label);
@@ -321,8 +321,8 @@ function ADScroller2() {
var widthGral = $(document).width() - WidthMenos;
var heightGral = $(window).height() - HeightMenos;
if (Heightfijo > 0) { heightGral = Heightfijo; }
if (widthGral < 100) { widthGral = 100 }
if (heightGral < 100) { heightGral = 100 }
if (widthGral < 100) { widthGral = 100; }
if (heightGral < 100) { heightGral = 100; }
widthGral = Tthis.parent().parent().width();
Tthis.removeClass('ADSCROLLER2');
@@ -377,7 +377,7 @@ function ADScroller2() {
for (var i = 0; i < txx1.length; i++) {
tr1 = $(txx1[i]).closest('tr');
td1 = $(txx1[i]).closest('td');
tr1.append(td1)
tr1.append(td1);
var hr1 = tr1.outerHeight();
var hr2 = $(txx2[i]).closest('tr').outerHeight();
if (hr1 > hr2) {
@@ -393,7 +393,7 @@ function ADScroller2() {
var contenedor = $('<div class="ADSContainer" style="width:' + widthGral + 'px;height:' + heightGral + 'px;"></div>')
var contenedor = $('<div class="ADSContainer" style="width:' + widthGral + 'px;height:' + heightGral + 'px;"></div>');
var divheader = $('<div style="width:' + widthGral + 'px;"></div>');
var divcenter = $('<div style="width:' + widthGral + 'px;"></div>');
var divheader1 = $('<div class="AdsCEll" ></div>');
@@ -431,10 +431,34 @@ function ADScroller2() {
divcenter.append(divcenterbody);
divbodyScroll = $('<div class="ADSCroll" style="width:' + (widthGral - anchoc1) + 'px;height:' + (heightGral - altoc1 + 20) + 'px;"></div>').append(Tthis);
divcenterbody.append(divbodyScroll);
divbodyScroll.scroll(function () {
divheaderScroll.scrollLeft($(this).scrollLeft())
divcolsScroll.scrollTop($(this).scrollTop())
let fncScroll = function (obj, $this, divheaderScroll, idx) {
if (idx) {
divheaderScroll.scrollLeft($this.scrollLeft());
}
obj.scrollTop($this.scrollTop());
};
divbodyScroll.mouseover(function () {
divbodyScroll.scroll(function () { fncScroll(divcolsScroll, divbodyScroll, divheaderScroll, true); });
});
divcolsScroll.mouseover(function () {
divcolsScroll.scroll(function () { fncScroll(divbodyScroll, divcolsScroll, divheaderScroll, false); });
});
divbodyScroll.mouseleave(function () {
divbodyScroll.unbind('scroll');
});
divcolsScroll.mouseleave(function () {
divcolsScroll.unbind('scroll');
});
let sizeoftablefunc = function () {
let sizetable = Tthis.outerHeight();
if (sizetable < divbodyScroll.height()) {
sizetable = sizetable + 20;
divcolsScroll.css('height', sizetable);
divbodyScroll.css('height', sizetable);
contenedor.css('width', sizetable + altoc1);
}
};
$(window).resize(function () {
var widthGral = $(window).width() - WidthMenos;
/*console.log(widthGral);*/
@@ -443,23 +467,25 @@ function ADScroller2() {
/* console.log(widthGral);*/
var heightGral = $(window).height() - HeightMenos;
if (Heightfijo > 0) { heightGral = Heightfijo; }
if (widthGral < 100) { widthGral = 100 }
if (heightGral < 100) { heightGral = 100 }
if (widthGral < 100) { widthGral = 100; }
if (heightGral < 100) { heightGral = 100; }
contenedor.css('width', widthGral);
divheader.css('width', widthGral);
divcenter.css('width', widthGral);
divheaderScroll.css('width', (widthGral - anchoc1));
divcolsScroll.css('height', (heightGral - altoc1));
divcolsScroll.css('height', (heightGral - altoc1+20));
divbodyScroll.css('width', (widthGral - anchoc1));
divbodyScroll.css('height', (heightGral - altoc1 + 20));
setTimeout(sizeoftablefunc, 100);
});
$('table#ADCol' + Tid + ' tr').hover(
function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover') },
function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover') });
function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover');},
function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover');});
$('table#' + Tid + ' tr').hover(
function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover') },
function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover') });
function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').addClass('hover');},
function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover'); });
setTimeout(sizeoftablefunc, 100);
}
catch (err) {
@@ -1817,7 +1843,7 @@ jQuery(document).ready(function () {
DataTablePaginatorScroll();
DataTablePaginatorScroll2();
loadAdDropzone();
clonsbuttons();
clonsbuttons();
ADScroller2();
//setTimeout(ADScroller2, 500);
$('body').removeClass('page-portlet-fullscreen');
@@ -1853,7 +1879,7 @@ jQuery(document).ready(function () {
let showhideRows = function () {
usuariotext = input.val();
let strusuario = usuariotext.length > 0 ? ':contains("' + usuariotext + '")' : '';// td:nth-child(2)
$this.find('tr.items').attr('hide', '1');//oculto todos
$this.find('tr.items' + strusuario).attr('hide', '');//muestro los que tienen filtro

4
Ventas/RepConciliacionSat.aspx
View File

@@ -137,12 +137,12 @@
<asp:HyperLink ID="HypSAT" runat="server"><%# Eval("CFDISAT")%></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sin Encontrar SAT">
<asp:TemplateField HeaderText="Sin encontrar SAT">
<ItemTemplate>
<asp:HyperLink ID="HypSIGnoSAT" runat="server"><%# Eval("CFDISIGSinSAT")%></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sin Encontrar SIG">
<asp:TemplateField HeaderText="Sin encontrar SIG">
<ItemTemplate>
<asp:HyperLink ID="HypSatnoSIG" runat="server"><%# Eval("CFDISATSinSIG")%></asp:HyperLink>
</ItemTemplate>

2
Ventas/SolicitudesSAT.aspx
View File

@@ -239,7 +239,7 @@
<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">Solicitar Descarga SAT</h4>
<h4 class="modal-title" runat="server" style="text-align: left">Solicitar descarga SAT</h4>
</div>
<div class="modal-body">

2
vwd.webinfo
View File

@@ -106,6 +106,8 @@