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

Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-09-18 20:41:26 -07:00
parent 76b158f2be e1c02482fc
commit 6503e7989c
22 changed files with 803 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
App_Code/ClsProductosServicios.vb
View File

@@ -242,7 +242,7 @@ Public Class ClsProductosServicios
CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString Me.SATClavePS = Data.Rows(0)("SATClavePS").ToString
SATDescripcion = Data.Rows(0)("SATDescripcion").ToString 'SATDescripcion = Data.Rows(0)("SATDescripcion").ToString
Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero Me.CveTipoPS = Data.Rows(0)("CveTipoPS").ToString.ToEntero
Me.Codigo = Data.Rows(0)("Codigo").ToString Me.Codigo = Data.Rows(0)("Codigo").ToString
Me.Codigo2 = Data.Rows(0)("Codigo2").ToString Me.Codigo2 = Data.Rows(0)("Codigo2").ToString
@@ -260,7 +260,8 @@ Public Class ClsProductosServicios
Estado2 = Data.Rows(0)("Estado2").ToString.ToEntero Estado2 = Data.Rows(0)("Estado2").ToString.ToEntero
Fecha = Data.Rows(0)("Fecha").ToString.ToDate Fecha = Data.Rows(0)("Fecha").ToString.ToDate
Usuario = Data.Rows(0)("Usuario").ToString Usuario = Data.Rows(0)("Usuario").ToString
AlmacenSeccion = Data.Rows(0)("AlmacenSeccion").ToString
'AlmacenSeccion = Data.Rows(0)("AlmacenSeccion").ToString
AplicaIEPS = (Data.Rows(0)("AplicaIEPS").ToString) = "True" AplicaIEPS = (Data.Rows(0)("AplicaIEPS").ToString) = "True"
IEPSGrabaIVA = (Data.Rows(0)("IEPSGrabaIVA").ToString) = "True" IEPSGrabaIVA = (Data.Rows(0)("IEPSGrabaIVA").ToString) = "True"
IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble
@@ -282,7 +283,7 @@ Public Class ClsProductosServicios
Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero CveMetodoInventario = Data.Rows(0)("Inv_CveMetodoInventario").ToString.ToEntero
VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal 'VentaMinima = Data.Rows(0)("VentaMinima").ToString.ToDecimal
CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero CveMoneda = Data.Rows(0)("CveMoneda").ToString.ToEntero
RetISR = Data.Rows(0)("RetISR").ToString.ToDouble RetISR = Data.Rows(0)("RetISR").ToString.ToDouble

118
App_Code/WS_PuntoVenta.vb
View File

@@ -429,22 +429,22 @@ Public Class WS_PuntoVenta
Return Respuesta Return Respuesta
End Function End Function
'<WebMethod()> <WebMethod()>
'Public Function GetSucursales(CveEmpresa As Integer) As RespuestaWS Public Function GetSubProyectos(CveEmpresa As Integer) As RespuestaWS
' Dim objSucursales As New ClsSucursales Dim objProyecto As New ClsSubProyectos
' Dim Respuesta As New RespuestaWS Dim Respuesta As New RespuestaWS
' If objSucursales.GetSucursales() Then If objProyecto.GetSubProyectos(CveEmpresa) Then
' Respuesta.Datos = objSucursales.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", CveEmpresa)) Respuesta.Datos = objProyecto.DtResultados
' Respuesta.Datos.TableName = "Resultados" Respuesta.Datos.TableName = "Resultados"
' Respuesta.HuboError = False Respuesta.HuboError = False
' Else Else
' Respuesta.Descripcion = "HUBO UN ERROR" Respuesta.Descripcion = "HUBO UN ERROR"
' End If End If
' objSucursales.Dispose() objProyecto.Dispose()
' Return Respuesta Return Respuesta
'End Function End Function
<WebMethod()> <WebMethod()>
Public Function GetClientes(CveEmpresa As Integer) As RespuestaWS Public Function GetClientes(CveEmpresa As Integer) As RespuestaWS
@@ -478,7 +478,7 @@ Public Class WS_PuntoVenta
objFolios.Dispose() objFolios.Dispose()
Return Respuesta Return Respuesta
End Function End Function
'Candiddato a borrar
'COMENTADO IPP: CAMBIO LA FORMA DE USAR LAS PROMOCIONES | 2 NOVIEMBRE 2016 'COMENTADO IPP: CAMBIO LA FORMA DE USAR LAS PROMOCIONES | 2 NOVIEMBRE 2016
'<WebMethod()> '<WebMethod()>
'Public Function GetVta_PromocionesDetalle(CvePS As Integer, Fecha As String, CveSucursal As Integer, CveEmpresa As Integer) As RespuestaWS 'Public Function GetVta_PromocionesDetalle(CvePS As Integer, Fecha As String, CveSucursal As Integer, CveEmpresa As Integer) As RespuestaWS
@@ -498,11 +498,11 @@ Public Class WS_PuntoVenta
'End Function 'End Function
<WebMethod()> <WebMethod()>
Public Function GetVta_Promociones(Fecha As String, CveEmpresa As Integer) As RespuestaWS Public Function GetVta_Promociones(Fecha As String, CveSubProyecto As Integer, CveEmpresa As Integer) As RespuestaWS
Dim objPromociones As New ClsVentas Dim objPromociones As New ClsVentas
Dim Respuesta As New RespuestaWS Dim Respuesta As New RespuestaWS
If objPromociones.GetPromociones(-1, Fecha, -1, -1, 1, CveEmpresa, -1) Then If objPromociones.GetPromociones(-1, Fecha, -1, -1, 1, CveEmpresa, CveSubProyecto) Then
Respuesta.Datos = objPromociones.DtResultados Respuesta.Datos = objPromociones.DtResultados
Respuesta.Datos.TableName = "Resultados" Respuesta.Datos.TableName = "Resultados"
Respuesta.HuboError = False Respuesta.HuboError = False
@@ -618,39 +618,39 @@ Public Class WS_PuntoVenta
Return Respuesta Return Respuesta
End Function End Function
'<WebMethod()> <WebMethod()>
''Public Function GetProductosServiciosCaracteristicas(CveEmpresa As Integer, CveSucursal As Integer) As RespuestaWS Public Function GetProductosServiciosCaracteristicas(CveEmpresa As Integer, CveSubProyecto As Integer) As RespuestaWS
'' Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas
'' Dim Respuesta As New RespuestaWS Dim Respuesta As New RespuestaWS
'' If objPSCaracteristicas.GetProductosServiciosCaracteristicas(CveEmpresa, CveSucursal) Then If objPSCaracteristicas.GetProductosServiciosCaracteristicas(CveEmpresa, CveSubProyecto) Then
'' Respuesta.Datos = objPSCaracteristicas.DtResultados Respuesta.Datos = objPSCaracteristicas.DtResultados
'' Respuesta.Datos.TableName = "Resultados" Respuesta.Datos.TableName = "Resultados"
'' Respuesta.HuboError = False Respuesta.HuboError = False
'' Else Else
'' Respuesta.Descripcion = "HUBO UN ERROR" Respuesta.Descripcion = "HUBO UN ERROR"
'' End If End If
'' objPSCaracteristicas.Dispose() objPSCaracteristicas.Dispose()
'' Return Respuesta Return Respuesta
''End Function End Function
'<WebMethod()> <WebMethod()>
''Public Function GetProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer, CveSucursal As Integer) As RespuestaWS Public Function GetProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer, CveSubProyecto As Integer) As RespuestaWS
'' Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas Dim objPSCaracteristicas As New ClsGralProductosServiciosCaracteristicas
'' Dim Respuesta As New RespuestaWS Dim Respuesta As New RespuestaWS
'' If objPSCaracteristicas.GetProductosServiciosCaracteristicasOpciones(CveEmpresa, CveSucursal) Then If objPSCaracteristicas.GetProductosServiciosCaracteristicasOpciones(CveEmpresa, CveSubProyecto) Then
'' Respuesta.Datos = objPSCaracteristicas.DtResultados Respuesta.Datos = objPSCaracteristicas.DtResultados
'' Respuesta.Datos.TableName = "Resultados" Respuesta.Datos.TableName = "Resultados"
'' Respuesta.HuboError = False Respuesta.HuboError = False
'' Else Else
'' Respuesta.Descripcion = "HUBO UN ERROR" Respuesta.Descripcion = "HUBO UN ERROR"
'' End If End If
'' objPSCaracteristicas.Dispose() objPSCaracteristicas.Dispose()
'' Return Respuesta Return Respuesta
''End Function End Function
<WebMethod()> <WebMethod()>
Public Function GetProductosServiciosPaquetes(CveEmpresa As Integer) As RespuestaWS Public Function GetProductosServiciosPaquetes(CveEmpresa As Integer) As RespuestaWS
@@ -736,18 +736,28 @@ Public Class WS_PuntoVenta
<WebMethod()> <WebMethod()>
Public Function GetUsuarios(CveEmpresa As Integer) As RespuestaWS Public Function GetUsuarios(CveEmpresa As Integer) As RespuestaWS
Dim objUsuarios As New ClsSisUsuarios
Dim Respuesta As New RespuestaWS Dim Respuesta As New RespuestaWS
Respuesta.HuboError = False
If objUsuarios.GetUsuarios(-1) Then Using objUsuarios As New ClsSisUsuarios
Respuesta.Datos = objUsuarios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus = 1 AND CveSucursal > 0", CveEmpresa.ToString))
Respuesta.Datos.TableName = "Resultados" If objUsuarios.GetUsuarios(-1) Then
Respuesta.HuboError = False Respuesta.Datos = objUsuarios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus = 1 ", CveEmpresa))
Else Respuesta.Datos.TableName = "Resultados"
Respuesta.Descripcion = "HUBO UN ERROR" Else
End If Respuesta.HuboError = True
Respuesta.Descripcion = "HUBO UN ERROR"
End If
End Using
Using objsubproy As New ClsSubProyectos
If objsubproy.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then
Respuesta.Datos2 = objsubproy.DtResultados
Respuesta.Datos2.TableName = "Resultados"
End If
End Using
objUsuarios.Dispose()
Return Respuesta Return Respuesta
End Function End Function

34
App_Code/wsSIG.vb
View File

@@ -74,21 +74,38 @@ Public Class wsSIG
Dim Retorno As UsuarioWs = Nothing Dim Retorno As UsuarioWs = Nothing
Dim ArrCadena As String() = DecriptaCadena(Cadena, "AES") Dim ArrCadena As String() = DecriptaCadena(Cadena, "AES")
If ArrCadena IsNot Nothing AndAlso ArrCadena.Count = 5 Then If ArrCadena IsNot Nothing AndAlso ArrCadena.Count.Contiene(New Integer() {5, 7}) Then
Dim Usuario, Contrasenia, IMEI, Version As String Dim Usuario, Contrasenia, IMEI, Version As String
Dim CveSubProyecto As Integer = 0
Dim reqCveSubProyecto As Integer = -1
Dim CveEmpresa As Integer = -1
Dim validatesubproyecto As Boolean = False
Dim Fecha As DateTime Dim Fecha As DateTime
Usuario = ArrCadena(0) : Contrasenia = ArrCadena(1) : IMEI = ArrCadena(2) : Version = ArrCadena(3) : Fecha = ArrCadena(4).ToString.ToDate Usuario = ArrCadena(0) : Contrasenia = ArrCadena(1) : IMEI = ArrCadena(2) : Version = ArrCadena(3) : Fecha = ArrCadena(4).ToString.ToDate
If ArrCadena.Length > 6 Then
reqCveSubProyecto = ArrCadena(5).ToString.ToEntero()
CveEmpresa = ArrCadena(6).ToString.ToEntero()
validatesubproyecto = True
End If
'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad" 'si la fecha que me envía es de cuando menos hace un minuto, se permite accesar, para que no se copie ese parámetro y se esté recuperando información "medida de seguridad"
If Fecha > Now.AddSeconds(TiempoValido) Then If Fecha > Now.AddSeconds(TiempoValido) Then
Dim ttDato As Usuario Dim ttDato As Usuario = Nothing
Dim tUsuario As New ClsSisUsuarios Using tUsuario As New ClsSisUsuarios()
ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI, CveEmpresa)
ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI) End Using
If validatesubproyecto Then
Using objsubproy As New ClsSubProyectos()
If objsubproy.GetSubProyectosUsuarios(CveUsuario:=ttDato.CveUsuario, CveSubProyecto:=reqCveSubProyecto) Then
If objsubproy.DtResultados.FiltroPrimero(String.Format("CveSubProyecto={0}", reqCveSubProyecto)) IsNot Nothing Then
CveSubProyecto = reqCveSubProyecto
End If
End If
End Using
End If
If ttDato IsNot Nothing Then If ttDato IsNot Nothing Then
Retorno = New UsuarioWs Retorno = New UsuarioWs()
Retorno.CveUsuario = ttDato.CveUsuario Retorno.CveUsuario = ttDato.CveUsuario
'Retorno.Usuario = ttDato.Usuario 'Retorno.Usuario = ttDato.Usuario
@@ -98,13 +115,12 @@ Public Class wsSIG
Retorno.CveEmpresa = ttDato.CveEmpresa Retorno.CveEmpresa = ttDato.CveEmpresa
'Retorno.Empresa = ttDato.NombreEmpresa 'Retorno.Empresa = ttDato.NombreEmpresa
Retorno.CveVendedor = ttDato.CveVendedor Retorno.CveVendedor = ttDato.CveVendedor
Retorno.CveSucursal = ttDato.CveSucursal Retorno.CveSucursal = CveSubProyecto
'Retorno.Contraseña = ttDato.Contraseña 'Retorno.Contraseña = ttDato.Contraseña
'Retorno.IMEI = IMEI 'Retorno.IMEI = IMEI
End If End If
tUsuario.Dispose()
Else Else
Cadena.GuardaLog() Cadena.GuardaLog()
End If End If

2
Contabilidad2/RepAnexoCatalogoAnual.aspx
View File

@@ -281,7 +281,7 @@
} else { } else {
CargaGraficaPastel(); CargaGraficaPastel();
} }
$('.LblTituloGrafica').text($(obj).parent().parent().text()); $('.LblTituloGrafica').text($(obj).closest('tr').text().trim());
} }
function CargaGraficaBarras() { function CargaGraficaBarras() {
let data = cdatos; let data = cdatos;

11
Contabilidad2/RepAnexoCatalogoCC.aspx
View File

@@ -299,8 +299,7 @@
</div> </div>
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
</asp:Content> </asp:Content>
<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
@@ -322,7 +321,7 @@
} else { } else {
CargaGraficaPastel(); CargaGraficaPastel();
} }
$('.LblTituloGrafica').text($(obj).parent().parent().text()); $('.LblTituloGrafica').text($(obj).closest('tr').text().trim());
} }
function CargaGraficaBarras() { function CargaGraficaBarras() {
let data = cdatos; let data = cdatos;
@@ -396,7 +395,7 @@
function cargaGraficaBarras2() { function cargaGraficaBarras2() {
//Hypgrafica //Hypgrafica
$("#DivModalGrafica").modal(); $("#DivModalGrafica").modal();
$('.LblTituloGrafica').text('grafica'); $('.LblTituloGrafica').text('Grafica');
let items = [] let items = []
let data; let data;
let series = []; let series = [];
@@ -517,8 +516,7 @@
</script> </script>
<script> <script>
function LimpiaCeros(Divisor) { function LimpiaCeros(Divisor) {
$('.ceros').each(function (i, obj) { $('.ceros').each(function (i, obj) {
debugger;
if ($(this).html() == '0.00' || $(this).html() == '0.00%') { if ($(this).html() == '0.00' || $(this).html() == '0.00%') {
$(this).html('-'); $(this).html('-');
@@ -540,7 +538,6 @@
} }
function FormatoNumeroIPP(Importe, Decimales) { function FormatoNumeroIPP(Importe, Decimales) {
debugger;
if (typeof Decimales === 'undefined') { Decimales = 2; } if (typeof Decimales === 'undefined') { Decimales = 2; }
if (isNaN(parseInt(Importe))) return "NaN"; if (isNaN(parseInt(Importe))) return "NaN";

2
Contabilidad2/RepAnexoCatalogoMensual.aspx
View File

@@ -263,7 +263,7 @@
} else { } else {
CargaGraficaPastel(); CargaGraficaPastel();
} }
$('.LblTituloGrafica').text($(obj).parent().parent().text().trim()); $('.LblTituloGrafica').text($(obj).closest('tr').text().trim());
} }
function CargaGraficaBarras() { function CargaGraficaBarras() {
let data = cdatos; let data = cdatos;

390
Contabilidad2/RepEstadoResultadosHorizontal.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosHorizontal.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosHorizontal" EnableEventValidation="false" %> <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepEstadoResultadosHorizontal.aspx.vb" Inherits="Contabilidad_RepEstadoResultadosHorizontal" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>
@@ -9,11 +9,35 @@
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;
} }
/*#grafInfo .chksino label {
margin-left: -95px;
}*/
.chksino label::before {
content: 'B';
}
.chksino label::after {
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">
@@ -25,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">
@@ -87,9 +114,12 @@
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label class="col-md-2" style="width: 80px;" runat="server" id="LblTri" visible="true">Trimestre<br> Cuatrimestre: </label> <label class="col-md-2" style="width: 80px;" runat="server" id="LblTri">
<div class="col-md-1 " runat="server" id="DVTri" visible="false"> Trimestre<br>
<asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me" Width="100px" > Cuatrimestre:
</label>
<div class="col-md-1 " runat="server" id="DVTri">
<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>
@@ -220,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>
@@ -250,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>
@@ -264,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>
@@ -304,7 +335,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="C2" Visible="false"> <asp:TemplateField HeaderText="C2" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -345,7 +376,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="T4" Visible="false"> <asp:TemplateField HeaderText="T4" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -353,8 +384,8 @@
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</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>
@@ -382,12 +413,13 @@
<br /> <br />
<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>
</ItemTemplate> </ItemTemplate>
@@ -398,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>
@@ -416,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>
@@ -430,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>
@@ -469,7 +501,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="C2" Visible="false"> <asp:TemplateField HeaderText="C2" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -510,7 +542,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="T4" Visible="false"> <asp:TemplateField HeaderText="T4" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -518,8 +550,8 @@
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</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>
@@ -552,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>
@@ -562,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>
@@ -580,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>
@@ -594,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>
@@ -633,7 +666,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Cua2" Visible="false"> <asp:TemplateField HeaderText="Cua2" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -674,7 +707,7 @@
</ItemTemplate> </ItemTemplate>
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</asp:TemplateField> </asp:TemplateField>
<asp:TemplateField HeaderText="Tri4" Visible="false"> <asp:TemplateField HeaderText="Tri4" Visible="false">
<ItemTemplate> <ItemTemplate>
<asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink> <asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -682,8 +715,8 @@
<ItemStyle Width="150px" HorizontalAlign="Right" /> <ItemStyle Width="150px" HorizontalAlign="Right" />
</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>
@@ -750,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>
@@ -804,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>
@@ -867,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>
@@ -962,16 +998,16 @@
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> <asp:TemplateField HeaderStyle-HorizontalAlign="Left">
<ItemTemplate>
<%--<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="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
<HeaderTemplate> <HeaderTemplate>
<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>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" />
<HeaderStyle HorizontalAlign="Left" Width="291px" /> <HeaderStyle HorizontalAlign="Left" Width="291px" />
</asp:TemplateField> </asp:TemplateField>
@@ -1035,14 +1071,15 @@
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate>
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate>
<ItemStyle HorizontalAlign="Left" /> <ItemStyle HorizontalAlign="Left" />
<HeaderTemplate> <HeaderTemplate>
<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>
<asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
<asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
</ItemTemplate>
<HeaderStyle HorizontalAlign="Left" Width="400px" /> <HeaderStyle HorizontalAlign="Left" Width="400px" />
</asp:TemplateField> </asp:TemplateField>
@@ -1213,6 +1250,45 @@
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>
<div id="DivModalGraficaGral" class="modal ADS fade" role="dialog">
<asp:UpdatePanel class="modal-dialog modal-lg" style="width: 1300px" runat="server" ID="UpdatePanel1" UpdateMode="Conditional">
<ContentTemplate>
<div class="modal-content">
<div class="modal-header">
<button type="button" class="close" data-dismiss="modal">&times;</button>
<h4 class="modal-title">
<asp:Label CssClass="LblTituloGraficaGral" runat="server" ClientIDMode="Static" Text="">Análisis de estados de resultados</asp:Label>
</h4>
</div>
<div class="modal-body">
<div class="row">
<div class="col-md-1"></div>
<label class="col-md-2 truncate" style="display: inline-block; padding-top: 8px; font-weight: bold;">Seleccione el tipo de gráfica:</label>
<div class="col-md-4">
<asp:RadioButtonList ID="rdblistgrafica" CssClass="rdblistgrafica" runat="server" RepeatDirection="Horizontal">
<asp:ListItem Selected="True" Text="Barras" Value="1"></asp:ListItem>
<asp:ListItem Text="Lineas" Value="2"></asp:ListItem>
</asp:RadioButtonList>
</div>
</div>
<div class="row">
<div class="col-md-3">
<div id="grafInfo"></div>
</div>
<div class="col-md-9">
<div id="chartdivgral"></div>
</div>
</div>
<br />
</div>
<div class="modal-footer">
<button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
</div>
</div>
</ContentTemplate>
</asp:UpdatePanel>
</div>
</asp:Content> </asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server"> <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
@@ -1226,15 +1302,15 @@
<script> <script>
let cdatos; let cdatos;
let currentid = 1; let currentid = 1;
function HandlerGraf(obj, evt) { function HandlerGraf(obj, evt) {
$("#DivModalGrafica").modal(); $("#DivModalGrafica").modal();
cdatos = $(obj).data('values'); cdatos = $(obj).data('values');
if (currentid == 1) { if (currentid == 1) {
CargaGraficaBarras(); CargaGraficaBarras();
} else { } else {
CargaGraficaPastel(); CargaGraficaPastel();
} }
$('.LblTituloGrafica').text($(obj).parent().text()); $('.LblTituloGrafica').text($(obj).parent().text());
} }
function CargaGraficaBarras() { function CargaGraficaBarras() {
let data = cdatos; let data = cdatos;
@@ -1292,16 +1368,226 @@
}); });
} }
function ADSBegin() { function ADSBegin() {
$('.DdlGrafica').on('select2:select', function (e) { $('.DdlGrafica').on('select2:select', function (e) {
var data = e.params.data; var data = e.params.data;
currentid = data.id; currentid = data.id;
if (currentid == 1) { if (currentid == 1) {
CargaGraficaBarras(); CargaGraficaBarras();
} else { } else {
CargaGraficaPastel(); CargaGraficaPastel();
} }
}); });
$('.DdlGrafica').removeClass('DdlGrafica') $(".rdblistgrafica:not(.clicked) input").change(cargaGraficaBarras2);
$('.rdblistgrafica').addClass('clicked')
$('.DdlGrafica').removeClass('DdlGrafica')
initamgrafica();
} }
let objetos;
let Colores = ["#FF0F00", "#FF6600", "#F8FF01", "#04D215", "#2A0CD0", "#8A0CCF", "#CD0D74", "#754DEB", "#DDDDDD", "#999999", "#000000"];
function graficarshow() {
$('.btngraficarborrar').remove();
$('#C_Tab_header').append('<a onclick="cargaGraficaBarras2();" class="btn btn-success btngraficarborrar" style="float:right;"><i class="fa fa-bar-chart" aria-hidden="true"></i> Graficar</a>');
$('#C_Tab_body').addClass('showgrph');
}
function cargaGraficaBarras2(Titulo) {
$('.LblTituloGraficaGral').text(Titulo);
cargaGraficaBarras2();
}
function cargaGraficaBarras2() {
//Hypgrafica
$("#DivModalGraficaGral").modal();
let infogral = $('#grafInfo');
infogral.find('>*').remove();
let items = []
let data;
let icolor = 0;
let tipografica = $('.rdblistgrafica input:checked').val();
$('.ajax__tab_panel:visible .chkgraf input:checked').each(function () {
data = $(this).closest('tr').find('.Hypgrafica').data('values')
let name = $(this).closest('td').text().trim()
items.push({ id: icolor, data: data, name: name, Color: Colores[icolor], tipografica })
gettitlegraf(infogral, icolor, Colores[icolor], name, tipografica);
icolor = icolor + 1;
if (icolor >= Colores.length) { icolor = 0; }
});
objetos = items;
$(".chkonchange input").each(function () {
let _this = $(this)
_this.change(function () {
let _this = $(this)
let id = Number(_this.data('id'))
objetos[id].tipografica = _this.is(':checked') ? 1 : 2;
ShowGraf2();
})
});
$(function () {
$('.chkonchange').tooltip()
});
ShowGraf2();
}
function gettitlegraf(infogral, id, Color, name, tipografica) {
let strtipografica = '<span class="chksino chkonchange" data-html="true" data-original-title="<div style=\'white-space:nowrap;\'>\'B\' Barras / \'L\' Lineas </div>" ><input id="chk' + id + '" ' + (tipografica == 1 ? 'checked="checked"' : '"') + ' data-id="' + id + '" type="checkbox" name="nchk' + id + '"><label for="chk' + id + '"> </label></span>';
let contenedor = $("<div class='row'></div>");
let divcolspan = $("<div class='col-md-1'></div>");
let divcolor = $('<div class="col-md-1"><div style="width:20px;height:10px;background-color:' + Color + ';"></div> </div>');
let divtexto = $("<div class='col-md-6'>" + name + "</div>");
let divtipografica = $("<div class='col-md-4'>" + strtipografica + "</div>");
infogral.append(contenedor);
/*contenedor.append(divcolspan);*/ contenedor.append(divcolor); contenedor.append(divtexto); contenedor.append(divtipografica);
}
function ShowGraf2() {
let items = objetos;
let series = [];
if (items) {
data = items[0].data;
series.push((
(items[0].tipografica == 1) ?
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"title": items[0].name,
"valueField": 'Valor'
} :
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": "Color",
"bullet": "round",
"dashLength": 3,
"colorField": "color",
"type": "line",
"title": items[0].name,
"valueField": "Valor"
}
));
for (var i = 0; i < data.length; i++) {
data[i]['Color'] = items[0].Color
}
for (var indexcol = 1; indexcol < items.length; indexcol++) {
let cdatos = items[indexcol].data;
let valueField = 'Valor' + indexcol;
let colorField = 'Color' + indexcol;
let tipografica = "column";
for (var i = 0; i < cdatos.length; i++) {
data[i][valueField] = cdatos[i].Valor
data[i][colorField] = items[indexcol].Color
}
series.push((
(items[indexcol].tipografica == 1) ?
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": colorField,
"fillAlphas": 1,
"lineAlpha": 0.1,
"type": "column",
"title": items[indexcol].name,
"valueField": valueField
} :
{
"balloonText": "[[title]]: <b>[[value]]</b> [[Moneda]]",
"colorField": colorField,
"bullet": "round",
"dashLength": 3,
"colorField": "color",
"type": "line",
"title": items[indexcol].name,
"valueField": valueField
}
));
}
var chart = AmCharts.makeChart("chartdivgral", {
"type": "serial",
"theme": "light",
"dataProvider": data,
"startDuration": 2, "legend": {
"generateFromData": true // "data": data.map(function(num) { return {title:num.Texto ,color:num.Color}; })
},
"valueAxes": [{
"position": "left",
"title": "Ventas"
}],
"graphs": series,
"depth3D": 20,
"angle": 30,
"chartCursor": {
"categoryBalloonEnabled": false,
"cursorAlpha": 0,
"zoomable": false
},
"categoryField": "Texto",
"categoryAxis": {
"gridPosition": "start",
"labelRotation": 90
},
"export": {
"enabled": true
}
});
}
}
function initamgrafica() {
AmCharts.addInitHandler(function (chart) {
function handleCustomMarkerToggle(legendEvent) {
var dataProvider = legendEvent.chart.dataProvider;
var itemIndex;
legendEvent.chart.toggleLegend = true;
if (undefined !== legendEvent.dataItem.hidden && legendEvent.dataItem.hidden) {
legendEvent.dataItem.hidden = false;
dataProvider.push(legendEvent.dataItem.storedObj);
legendEvent.dataItem.storedObj = undefined;
dataProvider.sort(function (lhs, rhs) {
return lhs.dataIdx - rhs.dataIdx;
});
} else {
legendEvent.dataItem.hidden = true;
for (var i = 0; i < dataProvider.length; ++i) {
if (dataProvider[i].dataIdx === legendEvent.dataItem.dataIdx) {
itemIndex = i;
break;
}
}
legendEvent.dataItem.storedObj = dataProvider[itemIndex];
dataProvider.splice(itemIndex, 1);
}
legendEvent.chart.validateData();
}
if (!chart.legend || !chart.legend.enabled || !chart.legend.generateFromData) {
return;
}
var categoryField = chart.categoryField;
var colorField = chart.graphs[0].lineColorField || chart.graphs[0].fillColorsField || chart.graphs[0].colorField;
var legendData = chart.dataProvider.map(function (data, idx) {
var markerData = {
"title": data[categoryField],
"color": data[colorField],
"dataIdx": idx
};
if (!markerData.color) {
markerData.color = chart.graphs[0].lineColor;
}
data.dataIdx = idx;
return markerData;
});
chart.legend.data = legendData;
chart.legend.switchable = true;
chart.legend.addListener("clickMarker", handleCustomMarkerToggle);
}, ["serial"]);
}
</script> </script>
</asp:Content> </asp:Content>

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

14
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 {
@@ -2656,14 +2658,14 @@ select.select2-offscreen, select.select2-offscreen:focus {
position: absolute; position: absolute;
content: "Arrastre el archivo"; content: "Arrastre el archivo";
color: #808080; color: #808080;
font-size: 30px; font-size: 20px;
margin-top: 15px; margin-top: 15px;
} }
.addropzone.dz-clickable:after { .addropzone.dz-clickable:after {
position: absolute; position: absolute;
content: "o presione doble click"; content: "o presione doble click";
color: #808080; color: #808080;
font-size: 30px; font-size: 20px;
margin-top: 45px; margin-top: 45px;
} }

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;

42
OI/CircularDetalleB.aspx
View File

@@ -8,8 +8,13 @@
content: "Pegar aquí"; content: "Pegar aquí";
} }
.addropzone.dz-clickable:before { .addropzone.dz-clickable:before{
margin-top: 40px; margin-top: 15px;
}
.addropzone.dz-clickable:before,
.addropzone.dz-clickable:after {
font-size: 20px;
line-height: 1;
} }
.pnlCorreo { .pnlCorreo {
@@ -79,18 +84,19 @@
<div class="pnlCorreo" style="margin-bottom: 5px;"> <div class="pnlCorreo" style="margin-bottom: 5px;">
<div class="headerCorreo"> <div class="headerCorreo">
<h3 class="panel-title" style="display: inline-block;">Para</h3> <asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" CssClass="btn btn-default" runat="server"><i class="fa fa-plus"></i></asp:LinkButton> <h3 class="panel-title" style="display: inline-block;">Para</h3>
<asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" CssClass="btn btn-default" runat="server"><i class="fa fa-plus"></i></asp:LinkButton>
</div> </div>
<div class="bodycorreos"> <div class="bodycorreos">
<asp:Literal ID="LtlPara" runat="server"></asp:Literal> <asp:Literal ID="LtlPara" runat="server"></asp:Literal>
<asp:TextBox ID="TxtCorreo" Enabled ="false" runat="server" CssClass="form-control " TextMode="MultiLine" Rows="3"></asp:TextBox> <asp:TextBox ID="TxtCorreo" Enabled="false" runat="server" CssClass="form-control " TextMode="MultiLine" Rows="3"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvCorreo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCircular"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RfvCorreo" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtCorreo" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Correo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpCircular"></asp:RequiredFieldValidator>
<%--<ajax:ValidatorCalloutExtender ID="VCEFolio" runat="server" HighlightCssClass="vco" TargetControlID="RfvCorreo" Width="300px"></ajax:ValidatorCalloutExtender>--%> <%--<ajax:ValidatorCalloutExtender ID="VCEFolio" runat="server" HighlightCssClass="vco" TargetControlID="RfvCorreo" Width="300px"></ajax:ValidatorCalloutExtender>--%>
<%-- <%--
<asp:LinkButton ID="Lnkuser1" runat="server" CssClass="linkCorreo" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar Correo?" data-btn-ok-label="si">Jorge caudillo(jcaudillo@adsistemas.mx)</asp:LinkButton>; <asp:LinkButton ID="Lnkuser1" runat="server" CssClass="linkCorreo" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar Correo?" data-btn-ok-label="si">Jorge caudillo(jcaudillo@adsistemas.mx)</asp:LinkButton>;
<asp:LinkButton ID="Lnkuser2" runat="server" CssClass="linkCorreo" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar Correo?" data-btn-ok-label="si">Julian Moreno(Julianmoreno@adsistemas.mx)</asp:LinkButton>; <asp:LinkButton ID="Lnkuser2" runat="server" CssClass="linkCorreo" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea eliminar Correo?" data-btn-ok-label="si">Julian Moreno(Julianmoreno@adsistemas.mx)</asp:LinkButton>;
<asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" CssClass="btn btn-default" runat="server"><i class="fa fa-plus"></i></asp:LinkButton> <asp:LinkButton ID="LnkAgregar" OnClick="LnkAgregar_Click" CssClass="btn btn-default" runat="server"><i class="fa fa-plus"></i></asp:LinkButton>
--%> --%>
</div> </div>
</div> </div>
@@ -118,15 +124,15 @@
<div class="headerCorreo headerCorreoCCP" style="background-color: transparent;"> <div class="headerCorreo headerCorreoCCP" style="background-color: transparent;">
<h3 class="panel-title ">Adjuntar Archivos:</h3> <h3 class="panel-title ">Adjuntar Archivos:</h3>
<asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox> <asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
<div id="archivosDiv" runat="server" class="row" visible="false"> <div id="archivosDiv" runat="server" class="row" visible="false">
<div class="col-md-1" style="width: 30%"> <div class="col-md-1" style="width: 30%">
<asp:Label runat="server" ID="Label1">Archivo cargado:</asp:Label> <asp:Label runat="server" ID="Label1">Archivo cargado:</asp:Label>
</div>
<div class="col-md-1" style="width: 70%">
<asp:HyperLink runat="server" ID="HkArchivo" Style="color: #23527c;"></asp:HyperLink>
</div>
</div> </div>
<div class="col-md-1" style="width: 70%">
<asp:HyperLink runat="server" ID="HkArchivo" Style="color: #23527c;"></asp:HyperLink>
</div>
</div>
</div> </div>
<div class="bodycorreos "> <div class="bodycorreos ">
<asp:TextBox ID="TxtCircular" runat="server" CssClass="form-control ADSckeditor" TextMode="MultiLine" Rows="3"></asp:TextBox> <asp:TextBox ID="TxtCircular" runat="server" CssClass="form-control ADSckeditor" TextMode="MultiLine" Rows="3"></asp:TextBox>
@@ -134,11 +140,11 @@
<%--<ajax:ValidatorCalloutExtender ID="VceCircular" runat="server" HighlightCssClass="vco" TargetControlID="RfvCircular" Width="300px"></ajax:ValidatorCalloutExtender>--%> <%--<ajax:ValidatorCalloutExtender ID="VceCircular" runat="server" HighlightCssClass="vco" TargetControlID="RfvCircular" Width="300px"></ajax:ValidatorCalloutExtender>--%>
</div> </div>
</div> </div>
<div class="text-center"> <div class="text-center">
<asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="true" ValidationGroup="GrpCircular" /> <asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="true" ValidationGroup="GrpCircular" />
<asp:Button ID="BtnEliminar" OnClick="BtnEliminar_Click" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" /> <asp:Button ID="BtnEliminar" OnClick="BtnEliminar_Click" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
</div> </div>
<div id='<%= iddivAgregarPara %>' class="modal ADS fade" role="dialog"> <div id='<%= iddivAgregarPara %>' class="modal ADS fade" role="dialog">
<div class="modal-dialog"> <div class="modal-dialog">

6
OI/MinutaDetalle.aspx
View File

@@ -24,7 +24,11 @@
} }
.addropzone.dz-clickable:before { .addropzone.dz-clickable:before {
margin-top: 40px; margin-top: 20px;
}
.addropzone.dz-clickable:before, .addropzone.dz-clickable:after {
color: #808080;
font-size: 20px;
} }
.pnlCorreo { .pnlCorreo {

70
OI/TareaDetalle.aspx
View File

@@ -52,8 +52,13 @@
margin-top: 20px; margin-top: 20px;
} }
.filediv .addropzone.dz-clickable:before, .filediv .addropzone.dz-clickable:after {
color: #808080;
font-size: 20px;
}
.filediv .addropzone { .filediv .addropzone {
min-height: 100px; min-height: 130px;
} }
.divArchivo { .divArchivo {
@@ -124,11 +129,12 @@
height: 100%; height: 100%;
cursor: not-allowed; cursor: not-allowed;
} }
.porcentajelabel{
color: #ed5565; .porcentajelabel {
font-size: 64px; color: #ed5565;
font-weight:bold; font-size: 64px;
} font-weight: bold;
}
</style> </style>
<link href="/Metronic/assets/global/plugins/ion.rangeslider/css/ion.rangeSlider.css" rel="stylesheet" type="text/css" /> <link href="/Metronic/assets/global/plugins/ion.rangeslider/css/ion.rangeSlider.css" rel="stylesheet" type="text/css" />
@@ -150,7 +156,7 @@
<asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<li> <li>
<asp:LinkButton ID="LnkAgregarCheckList" OnClick="LnkAgregarCheckList_Click" runat="server"><i class="fa fa-plus"></i> Agregar checkList</asp:LinkButton></li> <asp:LinkButton ID="LnkAgregarCheckList" OnClick="LnkAgregarCheckList_Click" runat="server"><i class="fa fa-plus"></i> Agregar checklist</asp:LinkButton></li>
<li> <li>
<asp:LinkButton ID="LnkcambiarEstatus" OnClick="LnkcambiarEstatus_Click" runat="server"><i class="fa fa-exchange"></i>Cambiar estatus</asp:LinkButton></li> <asp:LinkButton ID="LnkcambiarEstatus" OnClick="LnkcambiarEstatus_Click" runat="server"><i class="fa fa-exchange"></i>Cambiar estatus</asp:LinkButton></li>
<li> <li>
@@ -254,9 +260,9 @@
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:DropDownList ID="DdlPrioridad" runat="server" CssClass="form-control select2me input-sm" Width="100%"> <asp:DropDownList ID="DdlPrioridad" runat="server" CssClass="form-control select2me input-sm" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="Baja" Value="1" ></asp:ListItem> <asp:ListItem Text="Baja" Value="1"></asp:ListItem>
<asp:ListItem Text="Media" Value="2" ></asp:ListItem> <asp:ListItem Text="Media" Value="2"></asp:ListItem>
<asp:ListItem Text="Alta" Value="3" ></asp:ListItem> <asp:ListItem Text="Alta" Value="3"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPrioridad" runat="server" ControlToValidate="DdlPrioridad" Display="None" ErrorMessage="El campo <b>''Prioridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVPrioridad" runat="server" ControlToValidate="DdlPrioridad" Display="None" ErrorMessage="El campo <b>''Prioridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
<asp:Label runat="server" AssociatedControlID="DdlPrioridad">Prioridad:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlPrioridad">Prioridad:</asp:Label>
@@ -291,7 +297,7 @@
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div> </div>
</div> </div>
<div class="portlet-body rowpadding" > <div class="portlet-body rowpadding">
<div class="row"> <div class="row">
<div class="col-md-8"> <div class="col-md-8">
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
@@ -302,7 +308,7 @@
</div> </div>
<div class="col-md-4"> <div class="col-md-4">
<asp:Button ID="LnkSinfuncion" OnClick="LnkSinfuncion_Click" UseSubmitBehavior="false" CssClass="btn btn-default LnkSinfuncion hidden" runat="server"></asp:Button> <asp:Button ID="LnkSinfuncion" OnClick="LnkSinfuncion_Click" UseSubmitBehavior="false" CssClass="btn btn-default LnkSinfuncion hidden" runat="server"></asp:Button>
<asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" ValidationGroup="GrpTareachklist" CssClass="btn btn-primary" runat="server">Agregar</asp:LinkButton> <asp:LinkButton ID="LnkAgregarchklistitem" OnClick="LnkAgregarchklistitem_Click" ValidationGroup="GrpTareachklist" CssClass="btn btn-success" runat="server">Agregar</asp:LinkButton>
<%--<a class="btn btn-default">Agregar</a>--%> <%--<a class="btn btn-default">Agregar</a>--%>
</div> </div>
</div> </div>
@@ -366,7 +372,7 @@
<asp:Label runat="server" AssociatedControlID="DdlEventoEstatus">Estatus:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlEventoEstatus">Estatus:</asp:Label>
</div> </div>
<asp:Label ID="lblEstatus" Style="font-size: 25px;position:absolute;" runat="server" Text="Label"></asp:Label> <asp:Label ID="lblEstatus" Style="font-size: 25px; position: absolute;" runat="server" Text="Label"></asp:Label>
<div class="text-right porcentajelabel"> <div class="text-right porcentajelabel">
<asp:Label ID="LblPorcentaje" CssClass="LblPorcentaje" runat="server" Text="0"></asp:Label>% <asp:Label ID="LblPorcentaje" CssClass="LblPorcentaje" runat="server" Text="0"></asp:Label>%
</div> </div>
@@ -531,7 +537,7 @@
<a href="javascript:;" class="collapse" data-original-title="" title=""></a> <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
</div> </div>
</div> </div>
<div class="portlet-body rowpadding" > <div class="portlet-body rowpadding">
<asp:UpdatePanel ID="UpActividades" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpActividades" runat="server" UpdateMode="Conditional">
<ContentTemplate> <ContentTemplate>
<asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ScrollAD GvActividades" <asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ScrollAD GvActividades"
@@ -724,10 +730,10 @@
</div> </div>
</asp:Panel> </asp:Panel>
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:TextBox ID="TxtComentarioTerminarpadre" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="1"></asp:TextBox> <asp:TextBox ID="TxtComentarioTerminarpadre" runat="server" CssClass="form-control" CausesValidation="true" TextMode="MultiLine" Rows="1"></asp:TextBox>
<asp:Label runat="server" Text="Agregar Comentario" AssociatedControlID="TxtComentarioTerminarpadre"></asp:Label> <asp:Label runat="server" Text="Agregar Comentario" AssociatedControlID="TxtComentarioTerminarpadre"></asp:Label>
</div> </div>
</div> </div>
@@ -752,10 +758,10 @@
<asp:Literal ID="Literal4" runat="server">Agregar relación</asp:Literal></h4> <asp:Literal ID="Literal4" runat="server">Agregar relación</asp:Literal></h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<div > <div>
<asp:Label runat="server" AssociatedControlID="DdlViculos">Relacionar Con:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlViculos">Relacionar Con:</asp:Label>
<asp:RadioButtonList ID="DdlViculos" RepeatDirection="Horizontal" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlViculos_SelectedIndexChanged"> <asp:RadioButtonList ID="DdlViculos" RepeatDirection="Horizontal" runat="server" AutoPostBack="true" OnSelectedIndexChanged="DdlViculos_SelectedIndexChanged">
<asp:ListItem Value="2" Selected="true" Text=" &nbsp;Cliente"></asp:ListItem> <asp:ListItem Value="2" Selected="true" Text=" &nbsp;Cliente"></asp:ListItem>
<asp:ListItem Value="3" Text=" &nbsp;Personal"></asp:ListItem> <asp:ListItem Value="3" Text=" &nbsp;Personal"></asp:ListItem>
<asp:ListItem Value="4" Text=" &nbsp;Proveedor"></asp:ListItem> <asp:ListItem Value="4" Text=" &nbsp;Proveedor"></asp:ListItem>
@@ -901,13 +907,13 @@
</asp:GridView>--%> </asp:GridView>--%>
</asp:Panel> </asp:Panel>
<asp:Panel ID="PnlPersonal" CssClass="form-group form-md-line-input" Visible="false" runat="server"> <asp:Panel ID="PnlPersonal" CssClass="form-group form-md-line-input" Visible="false" runat="server">
<asp:DropDownList ID="DdlPersonal" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm input-medium select2me" Width="100%"></asp:DropDownList> <asp:DropDownList ID="DdlPersonal" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" CssClass="form-control input-sm input-medium select2me" Width="100%"></asp:DropDownList>
<asp:Label runat="server" AssociatedControlID="DdlPersonal">Personal:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlPersonal">Personal:</asp:Label>
</asp:Panel> </asp:Panel>
<asp:Panel ID="PnlProveedor" CssClass="form-group form-md-line-input" Visible="false" runat="server"> <asp:Panel ID="PnlProveedor" CssClass="form-group form-md-line-input" Visible="false" runat="server">
<ADS:Dropdownlost ID="DdlProveedores" UsaWebService="true" runat="server" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control"></ADS:Dropdownlost> <ADS:Dropdownlost ID="DdlProveedores" UsaWebService="true" runat="server" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" CssClass="form-control"></ADS:Dropdownlost>
<asp:Label runat="server" AssociatedControlID="DdlProveedores">Proveedores:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlProveedores">Proveedores:</asp:Label>
</asp:Panel> </asp:Panel>
</div> </div>
@@ -1137,10 +1143,12 @@
function CambiarTitulo(cadena) { function CambiarTitulo(cadena) {
let TTitulo = $('#E_LtlTitulo') let TTitulo = $('#E_LtlTitulo')
let texto = TTitulo.text(); let texto = TTitulo.text();
let splited = texto.split(" "); if (texto != 'Nueva tarea') {
let size = splited[splited.length - 1].length; let splited = texto.split(" ");
texto = texto.substring(0, texto.length - size) + cadena; let size = splited[splited.length - 1].length;
TTitulo.text(texto); texto = texto.substring(0, texto.length - size) + cadena;
TTitulo.text(texto);
}
} }
var avancecambio = 0; var avancecambio = 0;
function barraavance() { function barraavance() {
@@ -1154,7 +1162,7 @@
step: .01, step: .01,
//[disable] //[disable]
onChange: (function () { onChange: (function () {
setTimeout(function () { let avance = $(".TxtAvance").val(); if ( avance != Valorxyz) { avancecambio = 1; $('.LblPorcentaje').text(avance)} }, 50); setTimeout(function () { let avance = $(".TxtAvance").val(); if (avance != Valorxyz) { avancecambio = 1; $('.LblPorcentaje').text(avance) } }, 50);
}) })
}); });
} }

46
OI/TareaDetalle.aspx.cs
View File

@@ -126,7 +126,7 @@ public partial class OI_TareaDetalle : ClsPaginas
LnkcambiarEstatus.Visible = false; LnkcambiarEstatus.Visible = false;
LnkAgregarTema.Visible = false; LnkAgregarTema.Visible = false;
portletEstatus.Visible = false; portletEstatus.Visible = false;
LtlTitulo.Text = "Tarea Nueva"; LtlTitulo.Text = "Nueva tarea";
TxtArchivo.Visible = true; TxtArchivo.Visible = true;
CveUsuarioDe = UsuarioActual.CveUsuario; CveUsuarioDe = UsuarioActual.CveUsuario;
} }
@@ -139,17 +139,18 @@ public partial class OI_TareaDetalle : ClsPaginas
} }
private void Setpermisos() private void Setpermisos()
{ {
bool permisedestatus = (CveEventoEstatus > 1 && CveEventoEstatus < 4);
bool esmiembro = UsuarioActual.CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>()); bool esmiembro = UsuarioActual.CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>());
bool esdeel = UsuarioActual.CveUsuario == CveUsuarioDe; bool esdeel = UsuarioActual.CveUsuario == CveUsuarioDe;
bool esPara = UsuarioActual.CveUsuario == CveUsuarioPara; bool esPara = UsuarioActual.CveUsuario == CveUsuarioPara;
Permisos = new OI_TareaDetalle_Permisos Permisos = new OI_TareaDetalle_Permisos
{ {
EntrarOI = (EsNuevo || esmiembro), EntrarOI = (EsNuevo || esmiembro),
CheckList = (EsNuevo || esdeel || esPara) && CveEventoEstatus < 4, CheckList = (EsNuevo || esdeel || esPara) && permisedestatus,
EdicionGeneral = (EsNuevo || esdeel) && CveEventoEstatus < 4, EdicionGeneral = (EsNuevo || esdeel) && permisedestatus,
Bitacora = esmiembro && CveEventoEstatus < 4, Bitacora = esmiembro && permisedestatus,
Avance = esPara && CveEventoEstatus < 4, Avance = esPara && permisedestatus,
Reasignar = esPara && CveEventoEstatus < 4, Reasignar = esPara && permisedestatus,
Estatus1_2_3 = esPara, Estatus1_2_3 = esPara,
Estatus4_5 = esdeel Estatus4_5 = esdeel
}; };
@@ -229,9 +230,9 @@ public partial class OI_TareaDetalle : ClsPaginas
{ {
DDlEstatus.Items.Remove(item); DDlEstatus.Items.Remove(item);
} }
LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && (Permisos.Estatus1_2_3 || Permisos.Estatus4_5); LnkcambiarEstatus.Visible = LnkcambiarEstatus.Visible && ((Permisos.Estatus1_2_3 && CveEventoEstatus < 4) || Permisos.Estatus4_5);
if (CveEventoEstatus >= 4) if ( permisedestatus)
{ {
LnkAgregarTema.Visible = false; LnkAgregarTema.Visible = false;
LnkUpUsuarios.Visible = false; LnkUpUsuarios.Visible = false;
@@ -1021,6 +1022,11 @@ public partial class OI_TareaDetalle : ClsPaginas
//if (DdlEventoEstatus.SelectedValue.ToEntero == 3 | DdlEventoEstatus.SelectedValue.ToEntero == 1) //if (DdlEventoEstatus.SelectedValue.ToEntero == 3 | DdlEventoEstatus.SelectedValue.ToEntero == 1)
// EnviarCorreoCambioEstatus(false); // EnviarCorreoCambioEstatus(false);
//CargaDatos(); //CargaDatos();
if (CveEstatus == 4)
{
TxtAvance.Text = "100";
LblPorcentaje.Text = string.Format("{0:##0.##}", "100".ToDecimal());
}
string mensaje = string.Format("Se cambió el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text); string mensaje = string.Format("Se cambió el Estatus de \"{0}\" a \"{1}\"", DdlEventoEstatus.SelectedItem.Text, DDlEstatus.SelectedItem.Text);
DdlEventoEstatus.SelectedValueExist(DDlEstatus.SelectedValue); DdlEventoEstatus.SelectedValueExist(DDlEstatus.SelectedValue);
lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text; lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text;
@@ -1270,7 +1276,7 @@ public partial class OI_TareaDetalle : ClsPaginas
{ {
if (objoi.DtResultados.Rows.Count > 0) if (objoi.DtResultados.Rows.Count > 0)
{ {
//LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString(); //LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString();
LblPorcentaje.Text = string.Format("{0:##0.##}", TxtAvance.Text.ToDecimal()); LblPorcentaje.Text = string.Format("{0:##0.##}", TxtAvance.Text.ToDecimal());
} }
cargaActividades(objoi); cargaActividades(objoi);
@@ -1323,11 +1329,28 @@ public partial class OI_TareaDetalle : ClsPaginas
int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero(); int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero();
gvRow.FCCheckBox("ChkPara").Checked = false; gvRow.FCCheckBox("ChkPara").Checked = false;
CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP"); CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP");
CheckBox chkpara = gvRow.FCCheckBox("ChkPara");
chkpara.Checked = false;
chkCCpara.Checked = false; chkCCpara.Checked = false;
if (CveUsuario == CveUsuarioPara) chkCCpara.Enabled = true;
chkpara.Enabled = true;
if ((CveUsuario == CveUsuarioPara) || (CveUsuario == CveUsuarioDe))
{
if (CveUsuario == CveUsuarioPara)
{
chkpara.Checked = true;
}
if (CveUsuario == CveUsuarioDe)
{
chkCCpara.Checked = true;
chkCCpara.Enabled = false;
}
}
else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>()))
{ {
chkCCpara.Checked = true; chkCCpara.Checked = true;
chkCCpara.Enabled = false;
} }
} }
@@ -1363,6 +1386,7 @@ public partial class OI_TareaDetalle : ClsPaginas
if (CveUsuario == CveUsuarioDe) if (CveUsuario == CveUsuarioDe)
{ {
chkCCpara.Checked = true; chkCCpara.Checked = true;
chkCCpara.Enabled = false;
} }
} }
else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>())) else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>()))

64
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) {
@@ -1817,7 +1843,7 @@ jQuery(document).ready(function () {
DataTablePaginatorScroll(); DataTablePaginatorScroll();
DataTablePaginatorScroll2(); DataTablePaginatorScroll2();
loadAdDropzone(); loadAdDropzone();
clonsbuttons(); clonsbuttons();
ADScroller2(); ADScroller2();
//setTimeout(ADScroller2, 500); //setTimeout(ADScroller2, 500);
$('body').removeClass('page-portlet-fullscreen'); $('body').removeClass('page-portlet-fullscreen');
@@ -1853,7 +1879,7 @@ jQuery(document).ready(function () {
let showhideRows = function () { let showhideRows = function () {
usuariotext = input.val(); usuariotext = input.val();
let strusuario = usuariotext.length > 0 ? ':contains("' + usuariotext + '")' : '';// td:nth-child(2) let strusuario = usuariotext.length > 0 ? ':contains("' + usuariotext + '")' : '';// td:nth-child(2)
$this.find('tr.items').attr('hide', '1');//oculto todos $this.find('tr.items').attr('hide', '1');//oculto todos
$this.find('tr.items' + strusuario).attr('hide', '');//muestro los que tienen filtro $this.find('tr.items' + strusuario).attr('hide', '');//muestro los que tienen filtro

5
Sistemas/Empresa.aspx.vb
View File

@@ -454,7 +454,7 @@ Partial Class Sistemas_Empresa
End Sub End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
Dim ObjEmpresas As New ClsSisEmpresas Dim ObjEmpresas As New ClsSisEmpresas
Dim ObjGral As New ClsGenerales(ObjEmpresas.IniciaTransacSQL()) Dim ObjGral As New ClsGenerales()
Dim ObjContPAQ As ClsContPAQi = Nothing Dim ObjContPAQ As ClsContPAQi = Nothing
Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL()) Dim Indicador As New ClsIndicadores(ObjEmpresas.IniciaTransacSQL())
@@ -487,6 +487,7 @@ Partial Class Sistemas_Empresa
End If End If
ViewState("CveEmpresa") = ObjEmpresas.CveEmpresa ViewState("CveEmpresa") = ObjEmpresas.CveEmpresa
InicializaClasificacionIVA()
TextoOK = "La nueva Empresa se guardó correctamente." TextoOK = "La nueva Empresa se guardó correctamente."
Else Else
TextoError = "Ocurrió un error al agregar la empresa" TextoError = "Ocurrió un error al agregar la empresa"
@@ -1549,7 +1550,7 @@ Partial Class Sistemas_Empresa
If Not File.Exists(pfxname) Then If Not File.Exists(pfxname) Then
Archivopfx = "" Archivopfx = ""
Password = "" Password = ""
End If End If
Dim objempresa As New ClsSisEmpresas Dim objempresa As New ClsSisEmpresas
objempresa.UpEmpresaFiel(ViewState("CveEmpresa").ToString().ToEntero(), Password, $"{Archivopfx}.pfx") objempresa.UpEmpresaFiel(ViewState("CveEmpresa").ToString().ToEntero(), Password, $"{Archivopfx}.pfx")
objempresa.Dispose() objempresa.Dispose()

16
UserControl/TareaNueva.ascx
View File

@@ -10,15 +10,17 @@
.fileTarea .addropzone { .fileTarea .addropzone {
margin-bottom: 10px; margin-bottom: 10px;
min-height: 100px; min-height: 120px;
} }
.fileTarea .addropzone.dz-clickable:before { .fileTarea .addropzone.dz-clickable:before {
position: absolute; position: absolute;
content: "Arrastre el archivo"; content: "Arrastre el archivo";
margin-top: 20px;
}
.fileTarea .addropzone.dz-clickable:before,.fileTarea .addropzone.dz-clickable:after {
color: #808080; color: #808080;
font-size: 20px; font-size: 20px;
margin-top: 30px;
} }
.fileTarea .addropzone .dz-preview, .fileTarea .dropzone-previews .dz-preview { .fileTarea .addropzone .dz-preview, .fileTarea .dropzone-previews .dz-preview {
@@ -116,9 +118,9 @@
<div class="form-group form-md-line-input"> <div class="form-group form-md-line-input">
<asp:DropDownList ID="DdlPrioridad" runat="server" CssClass="form-control select2me input-sm" Width="100%"> <asp:DropDownList ID="DdlPrioridad" runat="server" CssClass="form-control select2me input-sm" Width="100%">
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
<asp:ListItem Text="Baja" Value="1" class="itembaja"></asp:ListItem> <asp:ListItem Text="Baja" Value="1" ></asp:ListItem>
<asp:ListItem Text="Media" Value="2" class="itemmedia"></asp:ListItem> <asp:ListItem Text="Media" Value="2" ></asp:ListItem>
<asp:ListItem Text="Alta" Value="3" class="itemalta"></asp:ListItem> <asp:ListItem Text="Alta" Value="3" ></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
<asp:RequiredFieldValidator ID="RFVPrioridad" runat="server" ControlToValidate="DdlPrioridad" Display="None" ErrorMessage="El campo <b>''Prioridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="RFVPrioridad" runat="server" ControlToValidate="DdlPrioridad" Display="None" ErrorMessage="El campo <b>''Prioridad''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpTarea"></asp:RequiredFieldValidator>
<asp:Label runat="server" AssociatedControlID="DdlPrioridad">Prioridad:</asp:Label> <asp:Label runat="server" AssociatedControlID="DdlPrioridad">Prioridad:</asp:Label>

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