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

99
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -9,7 +9,11 @@
width: 100%; width: 100%;
height: 500px; height: 500px;
} }
#chartdivgral{
width: 100%;
min-height: 500px;
}
.fa.fa-bar-chart { .fa.fa-bar-chart {
width: 16px; width: 16px;
height: 14px; height: 14px;
@@ -26,6 +30,14 @@
.chksino label::after { .chksino label::after {
content: 'L'; content: 'L';
} }
.chkgraf {
visibility: hidden;
}
.showgrph .chkgraf {
visibility: inherit;
}
</style> </style>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -37,6 +49,9 @@
<li> <li>
<asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton> <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
</li> </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>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server"> <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
@@ -99,9 +114,12 @@
</asp:DropDownList> </asp:DropDownList>
</div> </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"> <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="0">NO</asp:ListItem>
<asp:ListItem Value="1">Trimestre</asp:ListItem> <asp:ListItem Value="1">Trimestre</asp:ListItem>
<asp:ListItem Value="2">Cuatrimestre</asp:ListItem> <asp:ListItem Value="2">Cuatrimestre</asp:ListItem>
@@ -232,6 +250,7 @@
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%> <%--<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> <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> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="T1" Visible="false"> <asp:TemplateField HeaderText="T1" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -276,7 +295,7 @@
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="C1" Visible="false"> <asp:TemplateField HeaderText="C1" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -366,7 +385,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="C3" Visible="false"> <asp:TemplateField HeaderText="C3" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -395,10 +414,11 @@
<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"> <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> <asp:TemplateField>
<ItemTemplate> <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="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> <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -410,7 +430,7 @@
<HeaderStyle HorizontalAlign="Left" Width="400px" /> <HeaderStyle HorizontalAlign="Left" Width="400px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Enero"> <asp:TemplateField HeaderText="Enero">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -428,7 +448,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="T1" Visible="false"> <asp:TemplateField HeaderText="T1" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -442,7 +462,7 @@
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="C1" Visible="false"> <asp:TemplateField HeaderText="C1" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -531,7 +551,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="C3" Visible="false"> <asp:TemplateField HeaderText="C3" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -564,6 +584,7 @@
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <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="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> <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
@@ -574,7 +595,7 @@
<ItemStyle HorizontalAlign="Left" Width="400px" /> <ItemStyle HorizontalAlign="Left" Width="400px" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Enero"> <asp:TemplateField HeaderText="Enero">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -592,7 +613,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Tri1" Visible="false"> <asp:TemplateField HeaderText="Tri1" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -606,7 +627,7 @@
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cua1" Visible="false"> <asp:TemplateField HeaderText="Cua1" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -695,7 +716,7 @@
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cua3" Visible="false"> <asp:TemplateField HeaderText="Cua3" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate> </ItemTemplate>
@@ -762,6 +783,7 @@
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <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="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: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> <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -816,6 +838,7 @@
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <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="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: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> <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -879,6 +902,7 @@
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <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="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:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>
</ItemTemplate> </ItemTemplate>
@@ -974,18 +998,8 @@
CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300" CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"
Style="margin-top: -10px; text-align: center;" GridLines="None"> Style="margin-top: -10px; text-align: center;" GridLines="None">
<Columns> <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"> <asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<HeaderTemplate> <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> <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <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> <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
</HeaderTemplate> </HeaderTemplate>
<ItemTemplate> <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="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> <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate> </ItemTemplate>
@@ -1242,13 +1257,13 @@
<div class="modal-header"> <div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button> <button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title"> <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> </h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div class="row"> <div class="row">
<div class="col-md-1"></div> <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"> <div class="col-md-4">
<asp:RadioButtonList ID="rdblistgrafica" CssClass="rdblistgrafica" runat="server" RepeatDirection="Horizontal"> <asp:RadioButtonList ID="rdblistgrafica" CssClass="rdblistgrafica" runat="server" RepeatDirection="Horizontal">
<asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem> <asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
@@ -1256,10 +1271,15 @@
</asp:RadioButtonList> </asp:RadioButtonList>
</div> </div>
</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> </div>
<br /> <br />
<div id="chartdivgral"></div>
</div> </div>
<div class="modal-footer"> <div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button> <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
@@ -1368,6 +1388,11 @@
let objetos; let objetos;
let Colores = ["#FF0F00", "#FF6600", "#F8FF01", "#04D215", "#2A0CD0", "#8A0CCF", "#CD0D74", "#754DEB", "#DDDDDD", "#999999", "#000000"]; 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) { function cargaGraficaBarras2(Titulo) {
$('.LblTituloGraficaGral').text(Titulo); $('.LblTituloGraficaGral').text(Titulo);
cargaGraficaBarras2(); cargaGraficaBarras2();
@@ -1382,9 +1407,10 @@
let data; let data;
let icolor = 0; let icolor = 0;
let tipografica = $('.rdblistgrafica input:checked').val(); 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') 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 }) items.push({ id: icolor, data: data, name: name, Color: Colores[icolor], tipografica })
gettitlegraf(infogral, icolor, Colores[icolor], name, tipografica); gettitlegraf(infogral, icolor, Colores[icolor], name, tipografica);
icolor = icolor + 1; icolor = icolor + 1;
@@ -1395,24 +1421,27 @@
$(".chkonchange input").each(function () { $(".chkonchange input").each(function () {
let _this = $(this) let _this = $(this)
_this.change(function () { _this.change(function () {
let _this = $(this) let _this = $(this)
let id = Number(_this.data('id')) let id = Number(_this.data('id'))
objetos[id].tipografica = _this.is(':checked') ? 1 : 2; objetos[id].tipografica = _this.is(':checked') ? 1 : 2;
ShowGraf2(); ShowGraf2();
}) })
}); });
$(function () {
$('.chkonchange').tooltip()
});
ShowGraf2(); ShowGraf2();
} }
function gettitlegraf(infogral, id, Color, name, tipografica) { 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 contenedor = $("<div class='row'></div>");
let divcolspan = $("<div class='col-md-1'></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 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 divtexto = $("<div class='col-md-6'>" + name + "</div>");
let divtipografica = $("<div class='col-md-1'>" + strtipografica + "</div>"); let divtipografica = $("<div class='col-md-4'>" + strtipografica + "</div>");
infogral.append(contenedor); 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() { function ShowGraf2() {
let items = objetos; let items = objetos;

374
Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb
View File

@@ -44,7 +44,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Property End Property
Private Property TotalActualMes As Double Private Property TotalActualMes As Double
Get Get
TotalActualMes = ViewState("TotalActualMes").ToString.ToDouble TotalActualMes = ViewState("TotalActualMes").ToString().ToDouble
End Get End Get
Set(value As Double) Set(value As Double)
ViewState("TotalActualMes") = value ViewState("TotalActualMes") = value
@@ -52,7 +52,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Property End Property
Private Property TotalAnteriorMes As Double Private Property TotalAnteriorMes As Double
Get Get
TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString.ToDouble TotalAnteriorMes = ViewState("TotalAnteriorMes").ToString().ToDouble
End Get End Get
Set(value As Double) Set(value As Double)
ViewState("TotalAnteriorMes") = value ViewState("TotalAnteriorMes") = value
@@ -60,7 +60,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Property End Property
Private Property FechaIMes As String Private Property FechaIMes As String
Get Get
Return ViewState("FechaIMes").ToString Return ViewState("FechaIMes").ToString()
End Get End Get
Set(value As String) Set(value As String)
ViewState("FechaIMes") = value ViewState("FechaIMes") = value
@@ -68,7 +68,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
End Property End Property
Private Property FechaFMes As String Private Property FechaFMes As String
Get Get
Return ViewState("FechaFMes").ToString Return ViewState("FechaFMes").ToString()
End Get End Get
Set(value As String) Set(value As String)
ViewState("FechaFMes") = value ViewState("FechaFMes") = value
@@ -119,7 +119,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Private Property ReporteComplementario As Boolean 'Private Property ReporteComplementario As Boolean
' Get ' Get
' ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString) ' ReporteComplementario = CBool(ViewState("ReporteComplementario").ToString())
' End Get ' End Get
' Set(value As Boolean) ' Set(value As Boolean)
' ViewState("ReporteComplementario") = value ' ViewState("ReporteComplementario") = value
@@ -223,7 +223,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If ViewState("CountDinamicoAnual") Is Nothing Then If ViewState("CountDinamicoAnual") Is Nothing Then
Return 0 Return 0
Else Else
Return ViewState("CountDinamicoAnual").ToString.ToEntero Return ViewState("CountDinamicoAnual").ToString().ToEntero()
End If End If
End Get End Get
@@ -295,7 +295,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If ViewState("CountDinamicoSubProyecto") Is Nothing Then If ViewState("CountDinamicoSubProyecto") Is Nothing Then
Return 0 Return 0
Else Else
Return ViewState("CountDinamicoSubProyecto").ToString.ToEntero Return ViewState("CountDinamicoSubProyecto").ToString().ToEntero()
End If End If
End Get End Get
@@ -451,16 +451,16 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Private Sub ValidaEjercicios() 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 If DdlEjercicio2.Items.Count > 0 Then
DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1 DdlEjercicio2.SelectedIndex = DdlEjercicio2.Items.Count - 1
End If End If
Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero Dim Fejerciosio As Integer = DdlEjercicio2.SelectedValue.ToEntero()
If Not EInicio + 1 > Fejerciosio Then If Not EInicio + 1 > Fejerciosio Then
DdlEjercicio2.SelectedValueExist(EInicio + 1) DdlEjercicio2.SelectedValueExist(EInicio + 1)
@@ -486,11 +486,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
DdlEjercicio.DataBind() DdlEjercicio.DataBind()
DdlEjercicio2.DataBind() DdlEjercicio2.DataBind()
DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString) DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString())
If DdlEjercicio.Items.Count = 0 Then 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 End If
DdlPeriodo.SelectedValue = Now.Month.ToString DdlPeriodo.SelectedValue = Now.Month.ToString()
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -510,7 +510,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'AÑO HORIZONTAL 'AÑO HORIZONTAL
If Tab.ActiveTabIndex = 2 Then 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) Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
@@ -539,12 +539,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
FechaIMes = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue) 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") 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 TipoReporte = DdlTipoReporte.SelectedValue.ToEntero()'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero(), 1)
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 ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad 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)") DtDatosMes = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatosMes = Nothing DtDatosMes = Nothing
@@ -568,14 +568,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtIngresosMes.Rows.Count > 0 Then If DtIngresosMes.Rows.Count > 0 Then
For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtIngresosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next Next
Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("Nombre") = "TOTAL INGRESOS "
Row.Item("ImporteActual") = TotalActual.ToString Row.Item("ImporteActual") = TotalActual.ToString()
Row.Item("PorcentajeActual") = "100.00" Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = TotalAnterior.ToString Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = "100.00" Row.Item("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -1
DtIngresosMes.Rows.Add(Row) DtIngresosMes.Rows.Add(Row)
@@ -596,15 +596,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtGastosMes.Rows.Count > 0 Then If DtGastosMes.Rows.Count > 0 Then
For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtGastosMes.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next Next
Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero
Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -1
DtGastosMes.Rows.Add(Row) DtGastosMes.Rows.Add(Row)
Else Else
@@ -632,7 +632,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Llena Lb´s Totales 'Llena Lb´s Totales
If DdlDivisor.SelectedValue.ToEntero > 1 Then If DdlDivisor.SelectedValue.ToEntero() > 1 Then
LbTotalActual.Text = TotalActualMes.ToString("###,###,##0") LbTotalActual.Text = TotalActualMes.ToString("###,###,##0")
LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0") LbTotalAnterior.Text = TotalAnteriorMes.ToString("###,###,##0")
Else Else
@@ -655,38 +655,38 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True 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.CssClass = "SubTotales3"
e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Bold = True
End If 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("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) 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 If DdlDivisor.SelectedValue.ToEntero() > 1 Then
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") 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 e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero().ToString("###,###,##0").ToString()
Else Else
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") 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
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 e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
End If 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 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
End If End If
@@ -694,34 +694,34 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvGastos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True 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.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Bold = True
End If 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("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) 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 End If
If DdlDivisor.SelectedValue.ToEntero > 1 Then If DdlDivisor.SelectedValue.ToEntero() > 1 Then
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToEntero.ToString("###,###,##0") 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 e.Row.FCHyperLink("HLAnterior").Text = e.Row.DataKey("ImporteAcumulado").ToEntero().ToString("###,###,##0").ToString()
Else Else
e.Row.FCHyperLink("HLActual").Text = e.Row.DataKey("ImporteActual").ToDecimal.ToString("###,###,##0.00") 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 e.Row.FCHyperLink("HLActual").ForeColor = Drawing.Color.Red
End If 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 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
End If End If
@@ -742,14 +742,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
Dim FechaFin As Date = $"01/{DdlPeriodo.SelectedValue.ToEntero.ToString("00")}/{DdlEjercicio.SelectedValue}".ToDate 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}" 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 ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad 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)") DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatosMesH = Nothing DtDatosMesH = Nothing
@@ -778,8 +778,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtIngresosMesH.Rows.Count > 0 Then If DtIngresosMesH.Rows.Count > 0 Then
For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtIngresosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next Next
Row.Item("Enero") = DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4)") 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("Nombre") = "TOTAL INGRESOS"
Row.Item("ImporteActual") = TotalActual.ToString Row.Item("ImporteActual") = TotalActual.ToString()
Row.Item("PorcentajeActual") = "100.00" Row.Item("PorcentajeActual") = "100.00"
Row.Item("ImporteAcumulado") = TotalAnterior.ToString Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = "100.00" Row.Item("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -1
@@ -830,8 +830,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If DtGastosMesH.Rows.Count > 0 Then If DtGastosMesH.Rows.Count > 0 Then
For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtGastosMesH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next Next
@@ -859,9 +859,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero
Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -1
DtGastosMesH.Rows.Add(Row) DtGastosMesH.Rows.Add(Row)
Else 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("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("Nombre") = "Resultados del Ejercicio:"
'Row.Item("ImporteActual") = TotalActual.ToString 'Row.Item("ImporteActual") = TotalActual.ToString()
'Row.Item("PorcentajeActual") = "100.00" '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("PorcentajeAcumulado") = "100.00"
'Row.Item("CtaMayor") = -1 'Row.Item("CtaMayor") = -1
@@ -919,7 +919,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvTotalesMesH.DataBind() 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(4).Visible = False
GvIngresosMesH.Columns(9).Visible = False GvIngresosMesH.Columns(9).Visible = False
@@ -949,7 +949,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvTotalesMesH.Columns(19).Visible = False 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 GvIngresosMesH.Columns(4).Visible = True
@@ -979,7 +979,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvTotalesMesH.Columns(12).Visible = False GvTotalesMesH.Columns(12).Visible = False
GvTotalesMesH.Columns(19).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(4).Visible = False
GvIngresosMesH.Columns(9).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) Protected Sub GvIngresosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
e.Row.ControlStyle.Font.Bold = True 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 e.Row.ControlStyle.Font.Bold = True
End If 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("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) 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 = 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 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("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").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("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) 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 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
@@ -1125,23 +1125,23 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvGastosMesH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True 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.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Bold = True
End If 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 = $"./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("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) 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("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 = 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 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 '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") 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 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
End If End If
@@ -1242,7 +1242,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
e.Row.Attributes.Add("style", "Font-weight: bold") 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("HLEnero").Text = e.Row.DataKey("Enero").ToDecimal.ToString("###,###,##0")
e.Row.FCHyperLink("HLFebrero").Text = e.Row.DataKey("Febrero").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}" FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}"
FechaFMes = $"31/12/{DdlEjercicio2.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 ClsContPAQi(UsuarioActual.Empresa)
Dim ObjConta As New ClsContabilidad 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)") DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
DtDatosAnualH = Nothing DtDatosAnualH = Nothing
@@ -1377,7 +1377,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If IndexData >= 13 Then 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).DataField = dCoumn.ColumnName
CType(GvIngresosAnualH.Columns(IndexGv), BoundField).HeaderText = 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 For Each dr As DataRow In DtIngresosAnualH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next Next
@@ -1426,13 +1426,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next Next
Row.Item("Nombre") = "TOTAL INGRESOS " 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("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("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico") Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico").ToEntero()
CountDinamicoAnual = DtGastosAnualH.MAX("CountDinamico").ToEntero CountDinamicoAnual = DtGastosAnualH.MAX("CountDinamico").ToEntero()
DtIngresosAnualH.Rows.Add(Row) DtIngresosAnualH.Rows.Add(Row)
Else Else
Row.Item("Nombre") = "TOTAL INGRESOS " Row.Item("Nombre") = "TOTAL INGRESOS "
@@ -1460,7 +1460,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If IndexData >= 13 Then 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 'HyperLinkField
CType(GvGastosAnualH.Columns(IndexGv), BoundField).DataField = dCoumn.ColumnName 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 For Each dr As DataRow In DtGastosAnualH.FiltraParametros("Not CtaMayor In (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next Next
IndexData = 13 IndexData = 13
@@ -1503,11 +1503,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero
Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico") Row.Item("CountDinamico") = DtGastosAnualH.MAX("CountDinamico").ToEntero()
DtGastosAnualH.Rows.Add(Row) DtGastosAnualH.Rows.Add(Row)
Else Else
Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1553,51 +1553,51 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvIngresosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCCAnual(e, listaCamposanios) setgraficaCCAnual(e, listaCamposanios)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True 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.CssClass = "SubTotales3"
e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Bold = True
End If End If
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero()
Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").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 IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal 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) 'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
Next IndiceInicio 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 = $"./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 IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal 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 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 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
End If End If
@@ -1615,54 +1615,54 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvGastosAnualH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCCAnual(e, listaCamposaniosGastos) setgraficaCCAnual(e, listaCamposaniosGastos)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True 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.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Bold = True
End If End If
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero()
Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").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=-1&EjercicioFinal={DdlEjercicio2.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}" 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 IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField Dim Anio As String = CType(GvGastosAnualH.Columns(IndiceInicio), BoundField).DataField
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal 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) 'e.Row.Cells(IndiceInicio).ForeColor = If(Importe < 0, Drawing.Color.Red, e.Row.Cells(IndiceInicio).ForeColor)
Next IndiceInicio 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 = $"./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 IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal 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 Next IndiceInicio
End If 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 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
End If End If
@@ -1702,14 +1702,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
FechaIMes = $"01/01/{DdlEjercicio.SelectedValue}" 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") 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 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) DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0)
DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)") DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
Else Else
@@ -1768,9 +1768,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
GvTotalesSubProyectoH.Columns(IndexGv).Visible = True GvTotalesSubProyectoH.Columns(IndexGv).Visible = True
If IndexSubProyecto <= IndexSubProyectoMAx Then If IndexSubProyecto <= IndexSubProyectoMAx Then
CType(GvIngresosSubProyectoH.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(GvTotalesSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()
CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString CType(GvGastosSubProyectoH.Columns(IndexGv), BoundField).HeaderText = DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()
End If End If
listaCampos.Add(New String() {dCoumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()}) listaCampos.Add(New String() {dCoumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
Else Else
@@ -1788,8 +1788,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows For Each dr As DataRow In DtIngresosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next Next
IndexData = 13 IndexData = 13
@@ -1798,13 +1798,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Next Next
Row.Item("Nombre") = "TOTAL INGRESOS " 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("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("PorcentajeAcumulado") = "100.00"
Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico")
CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero CountDinamicoSubProyecto = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero()
DtIngresosSubProyectoH.Rows.Add(Row) DtIngresosSubProyectoH.Rows.Add(Row)
Else Else
Row.Item("Nombre") = "TOTAL INGRESOS " 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 For Each dr As DataRow In DtGastosSubProyectoH.FiltraParametros("NOT CtaMayor in (3,4)").Rows
TotalActual += dr("ImporteActual").ToString.ToDouble TotalActual += dr("ImporteActual").ToString().ToDouble
TotalAnterior += dr("ImporteAcumulado").ToString.ToDouble TotalAnterior += dr("ImporteAcumulado").ToString().ToDouble
Next Next
IndexData = 13 IndexData = 13
@@ -1861,11 +1861,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "TOTAL GASTOS" Row.Item("Nombre") = "TOTAL GASTOS"
Row.Item("ImporteActual") = TotalActual Row.Item("ImporteActual") = TotalActual
Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString, "0").FormatoNumero Row.Item("PorcentajeActual") = If(T1 > 0, (TotalActual * 100 / T1).ToString(), "0").FormatoNumero
Row.Item("ImporteAcumulado") = TotalAnterior.ToString Row.Item("ImporteAcumulado") = TotalAnterior.ToString()
Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString, "0").FormatoNumero Row.Item("PorcentajeAcumulado") = If(T2 > 0, (TotalAnterior * 100 / T2).ToString(), "0").FormatoNumero
Row.Item("CtaMayor") = -1 Row.Item("CtaMayor") = -1
Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico") Row.Item("CountDinamico") = DtGastosSubProyectoH.MAX("CountDinamico").ToEntero()
DtGastosSubProyectoH.Rows.Add(Row) DtGastosSubProyectoH.Rows.Add(Row)
Else Else
@@ -1888,7 +1888,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Row.Item("Nombre") = "Resultado del ejercicio" 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("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("CtaMayor") = -2
Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico") Row.Item("CountDinamico") = DtIngresosSubProyectoH.MAX("CountDinamico").ToEntero()
DTTotalesSubProyectoH.Rows.Add(Row) DTTotalesSubProyectoH.Rows.Add(Row)
@@ -1910,8 +1910,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
'Private Sub SumaTotalesSubProyectoH() 'Private Sub SumaTotalesSubProyectoH()
' ''Llena Lb´s Totales ' ''Llena Lb´s Totales
' ''********************************************************************************* ' ''*********************************************************************************
' 'LbTotalActual.Text = TotalActualMes.ToString.FormatoNumero ' 'LbTotalActual.Text = TotalActualMes.ToString().FormatoNumero
' 'LbTotalAnterior.Text = TotalAnteriorMes.ToString.FormatoNumero ' 'LbTotalAnterior.Text = TotalAnteriorMes.ToString().FormatoNumero
' 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black) ' 'LbTotalActual.ForeColor = If(TotalActualMes < 0, Drawing.Color.Red, Color.Black)
' 'LbTotalAnterior.ForeColor = If(TotalAnteriorMes < 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) Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then If e.Row.DBCampo("CtaMayor").ToString().ToEntero() = -1 Then
TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActualMes += e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray 'e.Row.ControlStyle.BackColor = Drawing.Color.LightGray
'e.Row.ControlStyle.ForeColor = Drawing.Color.White 'e.Row.ControlStyle.ForeColor = Drawing.Color.White
e.Row.ControlStyle.Font.Bold = True 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.CssClass = "SubTotales3"
e.Row.ControlStyle.Font.Bold = True 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.Bold = True
e.Row.ControlStyle.Font.Size = 13 e.Row.ControlStyle.Font.Size = 13
End If End If
Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero Dim CveCuenta As Integer = e.Row.DataKey("CveCuenta").ToEntero()
setgraficaCC(e) setgraficaCC(e)
'Dim CveSubProyecto As Integer = e.Row.DataKey("CveSubProyecto").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 = $"./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 IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico 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 For IndiceInicio = 1 To IndiceMax
Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField Dim CveSubProyectoIntermo As String = CType(GvGastosSubProyectoH.Columns(IndiceInicio), BoundField).DataField
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal 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 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 IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal 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 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 IndiceInicio As Integer = 1
Dim IndiceMax As Integer = 1 + CountDinamico Dim IndiceMax As Integer = 1 + CountDinamico
For IndiceInicio = 1 To IndiceMax For IndiceInicio = 1 To IndiceMax
Dim Importe As Decimal = e.Row.Cells(IndiceInicio).Text.ToDecimal 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 Next IndiceInicio
End If 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")) 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 If e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble < 0 Then
e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
@@ -2003,15 +2003,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs) Protected Sub GvGastosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
setgraficaCC(e) setgraficaCC(e)
If e.Row.DBCampo("CtaMayor").ToString.ToEntero < 0 Then If e.Row.DBCampo("CtaMayor").ToString().ToEntero() < 0 Then
TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString.ToDouble TotalActualMes -= e.Row.DBCampo("ImporteActual").ToString().ToDouble
TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble TotalAnteriorMes -= e.Row.DBCampo("ImporteAcumulado").ToString().ToDouble
e.Row.ControlStyle.Font.Bold = True 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.CssClass = "SubTotales"
e.Row.ControlStyle.Font.Bold = True e.Row.ControlStyle.Font.Bold = True
End If 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 e.Row.FCHyperLink("HLAnterior").ForeColor = Drawing.Color.Red
End If End If
End If End If
@@ -2078,7 +2078,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
Gv2.RenderControl(htw2) Gv2.RenderControl(htw2)
TablaResultados.Width = Gv2.Width.ToString TablaResultados.Width = Gv2.Width.ToString()
Dim sw3 As New StringWriter() Dim sw3 As New StringWriter()
Dim htw3 As New HtmlTextWriter(sw3) Dim htw3 As New HtmlTextWriter(sw3)
@@ -2186,7 +2186,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
RangoFechas.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center 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) Dim RangoSubProyecto = worksheet.Cells.GetSubrangeAbsolute(5, celdasConTexto.FirstColumnIndex, 5, celdasConTexto.LastColumnIndex)
RangoSubProyecto.Merged = True RangoSubProyecto.Merged = True
RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text RangoSubProyecto.Value = DdlSubproyecto.SelectedItem.Text
@@ -2253,7 +2253,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
If I > 0 Then If I > 0 Then
If DdlDivisor.SelectedValue.ToEntero = 1 Then If DdlDivisor.SelectedValue.ToEntero() = 1 Then
worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00" worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00"
Else Else
worksheet.Columns(I + 1).Style.NumberFormat = "#,##" 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 = "" Dim CordenadaAnterior As String = ""
For Each row As DataRow In TmpDT.Rows For Each row As DataRow In TmpDT.Rows
Contador += 1 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 Dim Velocidad As Double = row("SPD").ToString.ToDouble
Fecha = row("FechaTrama").ToString 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 { .AdsCHeader > .ADSCroll {
overflow: hidden; overflow: auto;
} }
.AdsBody .ADSCroll { .AdsBody .ADSCroll {
@@ -53,10 +53,12 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
background-color: #F5F5F5; background-color: #F5F5F5;
} }
.AdsBody .ADSCroll::-webkit-scrollbar-thumb { .AdsBody .ADSCroll::-webkit-scrollbar-thumb {
background-color: #AAA; background-color: #AAA;
border-radius: 4px; 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 { .line-Lite .form-group.form-md-line-input .form-control {
@@ -700,8 +702,8 @@ div.ADScroller {
} }
.ADScroller .ADScroller-body::-webkit-scrollbar { .ADScroller .ADScroller-body::-webkit-scrollbar {
width: 8px; width: 10px;
height: 8px; height: 12px;
} }
.ADScroller .ADScroller-body::-webkit-scrollbar-track { .ADScroller .ADScroller-body::-webkit-scrollbar-track {

5
Nomina/Nomina2.aspx
View File

@@ -259,14 +259,13 @@
</div> </div>
<div class="portlet-body nomarginleftright form-horizontal form-row-sepe formnombottom "> <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" <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" CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2">
data-rows="1">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<HeaderTemplate></HeaderTemplate> <HeaderTemplate></HeaderTemplate>
<ItemTemplate> <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> </ItemTemplate>
<ItemStyle Width="20px" HorizontalAlign="Left" /> <ItemStyle Width="20px" HorizontalAlign="Left" />
</asp:TemplateField> </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].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 = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
bf.HeaderText = Concepto; bf.HeaderText = Concepto;
@@ -342,7 +342,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible "; 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 = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
bf.HeaderText = Concepto; bf.HeaderText = Concepto;
@@ -386,7 +386,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
{ {
GvNominas.Columns[CurrentColumn].HeaderStyle.CssClass = "isOnlyVisible "; 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 = (BoundField)GvNominas.Columns[CurrentColumn];
bf.DataField = string.Format("V_{0}", CveConcepto); bf.DataField = string.Format("V_{0}", CveConcepto);
bf.HeaderText = Concepto; bf.HeaderText = Concepto;

60
Scripts/custom.js
View File

@@ -137,7 +137,7 @@ function buscadorMenuCaudi() {
let tickBar = 0; let tickBar = 0;
let input = $('#' + idTxtMaster); let input = $('#' + idTxtMaster);
let BuscarMenu =function() { let BuscarMenu = function () {
tickBar = tickBar + 1; tickBar = tickBar + 1;
tickBarnew = tickBar; tickBarnew = tickBar;
@@ -263,7 +263,7 @@ setswitch = function () {
var label; var label;
var labeltext = ' '; var labeltext = ' ';
if ($($(this).find('label')).html()) { 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 for="' + mdcheckbox.attr("id") + '" > <span></span><span class="check"></span><span class="box"></span>' + labeltext + '</label>';
label = $(label); label = $(label);
@@ -281,7 +281,7 @@ setswitch = function () {
var label; var label;
var labeltext = ' '; var labeltext = ' ';
if ($($(this).find('label')).html()) { 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 for="' + mdcheckbox.attr("id") + '" > <span></span><span class="check"></span><span class="box"></span>' + labeltext + '</label>';
label = $(label); label = $(label);
@@ -321,8 +321,8 @@ function ADScroller2() {
var widthGral = $(document).width() - WidthMenos; var widthGral = $(document).width() - WidthMenos;
var heightGral = $(window).height() - HeightMenos; var heightGral = $(window).height() - HeightMenos;
if (Heightfijo > 0) { heightGral = Heightfijo; } if (Heightfijo > 0) { heightGral = Heightfijo; }
if (widthGral < 100) { widthGral = 100 } if (widthGral < 100) { widthGral = 100; }
if (heightGral < 100) { heightGral = 100 } if (heightGral < 100) { heightGral = 100; }
widthGral = Tthis.parent().parent().width(); widthGral = Tthis.parent().parent().width();
Tthis.removeClass('ADSCROLLER2'); Tthis.removeClass('ADSCROLLER2');
@@ -377,7 +377,7 @@ function ADScroller2() {
for (var i = 0; i < txx1.length; i++) { for (var i = 0; i < txx1.length; i++) {
tr1 = $(txx1[i]).closest('tr'); tr1 = $(txx1[i]).closest('tr');
td1 = $(txx1[i]).closest('td'); td1 = $(txx1[i]).closest('td');
tr1.append(td1) tr1.append(td1);
var hr1 = tr1.outerHeight(); var hr1 = tr1.outerHeight();
var hr2 = $(txx2[i]).closest('tr').outerHeight(); var hr2 = $(txx2[i]).closest('tr').outerHeight();
if (hr1 > hr2) { 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 divheader = $('<div style="width:' + widthGral + 'px;"></div>');
var divcenter = $('<div style="width:' + widthGral + 'px;"></div>'); var divcenter = $('<div style="width:' + widthGral + 'px;"></div>');
var divheader1 = $('<div class="AdsCEll" ></div>'); var divheader1 = $('<div class="AdsCEll" ></div>');
@@ -431,10 +431,34 @@ function ADScroller2() {
divcenter.append(divcenterbody); divcenter.append(divcenterbody);
divbodyScroll = $('<div class="ADSCroll" style="width:' + (widthGral - anchoc1) + 'px;height:' + (heightGral - altoc1 + 20) + 'px;"></div>').append(Tthis); divbodyScroll = $('<div class="ADSCroll" style="width:' + (widthGral - anchoc1) + 'px;height:' + (heightGral - altoc1 + 20) + 'px;"></div>').append(Tthis);
divcenterbody.append(divbodyScroll); divcenterbody.append(divbodyScroll);
divbodyScroll.scroll(function () {
divheaderScroll.scrollLeft($(this).scrollLeft()) let fncScroll = function (obj, $this, divheaderScroll, idx) {
divcolsScroll.scrollTop($(this).scrollTop()) 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 () { $(window).resize(function () {
var widthGral = $(window).width() - WidthMenos; var widthGral = $(window).width() - WidthMenos;
/*console.log(widthGral);*/ /*console.log(widthGral);*/
@@ -443,23 +467,25 @@ function ADScroller2() {
/* console.log(widthGral);*/ /* console.log(widthGral);*/
var heightGral = $(window).height() - HeightMenos; var heightGral = $(window).height() - HeightMenos;
if (Heightfijo > 0) { heightGral = Heightfijo; } if (Heightfijo > 0) { heightGral = Heightfijo; }
if (widthGral < 100) { widthGral = 100 } if (widthGral < 100) { widthGral = 100; }
if (heightGral < 100) { heightGral = 100 } if (heightGral < 100) { heightGral = 100; }
contenedor.css('width', widthGral); contenedor.css('width', widthGral);
divheader.css('width', widthGral); divheader.css('width', widthGral);
divcenter.css('width', widthGral); divcenter.css('width', widthGral);
divheaderScroll.css('width', (widthGral - anchoc1)); divheaderScroll.css('width', (widthGral - anchoc1));
divcolsScroll.css('height', (heightGral - altoc1)); divcolsScroll.css('height', (heightGral - altoc1+20));
divbodyScroll.css('width', (widthGral - anchoc1)); divbodyScroll.css('width', (widthGral - anchoc1));
divbodyScroll.css('height', (heightGral - altoc1 + 20)); divbodyScroll.css('height', (heightGral - altoc1 + 20));
setTimeout(sizeoftablefunc, 100);
}); });
$('table#ADCol' + Tid + ' tr').hover( $('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) + ')').addClass('hover');},
function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover') }); function () { $('table#' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover');});
$('table#' + Tid + ' tr').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) + ')').addClass('hover');},
function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover') }); function () { $('table#ADCol' + Tid + ' tr:nth-child(' + ($(this).index() + 1) + ')').removeClass('hover'); });
setTimeout(sizeoftablefunc, 100);
} }
catch (err) { catch (err) {

4
Ventas/RepConciliacionSat.aspx
View File

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

2
Ventas/SolicitudesSAT.aspx
View File

@@ -239,7 +239,7 @@
<button type="button" class="close" data-dismiss="modal" aria-label="Close"> <button type="button" class="close" data-dismiss="modal" aria-label="Close">
<span aria-hidden="true">&times;</span> <span aria-hidden="true">&times;</span>
</button> </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>
<div class="modal-body"> <div class="modal-body">

2
vwd.webinfo
View File

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