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

App_Code/ClsProductosServicios.vb

@@ -242,7 +242,7 @@ Public Class ClsProductosServicios
                 CveUnidadMedida = Data.Rows(0)("CveUnidadMedida").ToString.ToEntero
                 CveSATPS = Data.Rows(0)("CveSATPS").ToString.ToEntero
                 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.Codigo = Data.Rows(0)("Codigo").ToString
                 Me.Codigo2 = Data.Rows(0)("Codigo2").ToString
@@ -260,7 +260,8 @@ Public Class ClsProductosServicios
                 Estado2 = Data.Rows(0)("Estado2").ToString.ToEntero
                 Fecha = Data.Rows(0)("Fecha").ToString.ToDate
                 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"
                 IEPSGrabaIVA = (Data.Rows(0)("IEPSGrabaIVA").ToString) = "True"
                 IEPSPorcentaje = Data.Rows(0)("IEPSPorcentaje").ToString.ToDouble
@@ -282,7 +283,7 @@ Public Class ClsProductosServicios
 
                 Me.CveEmpresa = Data.Rows(0)("CveEmpresa").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
                 RetISR = Data.Rows(0)("RetISR").ToString.ToDouble
 

App_Code/WS_PuntoVenta.vb

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

App_Code/wsSIG.vb

@@ -74,21 +74,38 @@ Public Class wsSIG
         Dim Retorno As UsuarioWs = Nothing
         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 CveSubProyecto As Integer = 0
+            Dim reqCveSubProyecto As Integer = -1
+            Dim CveEmpresa As Integer = -1
+            Dim validatesubproyecto As Boolean = False
             Dim Fecha As DateTime
             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"
             If Fecha > Now.AddSeconds(TiempoValido) Then
 
-                Dim ttDato As Usuario
-                Dim tUsuario As New ClsSisUsuarios
-
-                ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI)
+                Dim ttDato As Usuario = Nothing
+                Using tUsuario As New ClsSisUsuarios()
+                    ttDato = tUsuario.ValidaUsuario(Usuario, Encripta(Contrasenia), IMEI, CveEmpresa)
+                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
-                    Retorno = New UsuarioWs
+                    Retorno = New UsuarioWs()
 
                     Retorno.CveUsuario = ttDato.CveUsuario
                     'Retorno.Usuario = ttDato.Usuario
@@ -98,13 +115,12 @@ Public Class wsSIG
                     Retorno.CveEmpresa = ttDato.CveEmpresa
                     'Retorno.Empresa = ttDato.NombreEmpresa
                     Retorno.CveVendedor = ttDato.CveVendedor
-                    Retorno.CveSucursal = ttDato.CveSucursal
+                    Retorno.CveSucursal = CveSubProyecto
                     'Retorno.Contraseña = ttDato.Contraseña
                     'Retorno.IMEI = IMEI
 
                 End If
 
-                tUsuario.Dispose()
             Else
                 Cadena.GuardaLog()
             End If

Contabilidad2/RepAnexoCatalogoAnual.aspx

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

Contabilidad2/RepAnexoCatalogoCC.aspx

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

Contabilidad2/RepAnexoCatalogoMensual.aspx

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

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -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>
@@ -9,11 +9,35 @@
             width: 100%;
             height: 500px;
         }
+        #chartdivgral{
+            width: 100%;
+            min-height: 500px;
 
+        }
         .fa.fa-bar-chart {
             width: 16px;
             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>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -25,6 +49,9 @@
     <li>
         <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
     </li>
+    <li>
+        <asp:HyperLink NavigateUrl="javascript:graficarshow();" runat="server"><i class="fa fa-bar-chart" aria-hidden="true"></i> Graficar</asp:HyperLink>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
@@ -87,9 +114,12 @@
                                     </asp:DropDownList>
                                 </div>
 
-                                <label  class="col-md-2" style="width: 80px;" runat="server" id="LblTri" visible="true">Trimestre<br> Cuatrimestre: </label>
-                                <div class="col-md-1 " runat="server" id="DVTri" visible="false">
-                                    <asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me"   Width="100px"    >
+                                <label class="col-md-2" style="width: 80px;" runat="server" id="LblTri">
+                                    Trimestre<br>
+                                    Cuatrimestre:
+                                </label>
+                                <div class="col-md-1 " runat="server" id="DVTri">
+                                    <asp:DropDownList ID="DdlTri" runat="server" CssClass="select2me" Width="100px" AutoPostBack="true">
                                         <asp:ListItem Value="0">NO</asp:ListItem>
                                         <asp:ListItem Value="1">Trimestre</asp:ListItem>
                                         <asp:ListItem Value="2">Cuatrimestre</asp:ListItem>
@@ -220,6 +250,7 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
                                                     <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>--%>
                                                     <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
 
@@ -250,7 +281,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                             <asp:TemplateField HeaderText="T1" Visible="false">
+                                            <asp:TemplateField HeaderText="T1" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -264,7 +295,7 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                               <asp:TemplateField HeaderText="C1" Visible="false">
+                                            <asp:TemplateField HeaderText="C1" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -304,7 +335,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            
+
                                             <asp:TemplateField HeaderText="C2" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -345,7 +376,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            
+
                                             <asp:TemplateField HeaderText="T4" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -353,8 +384,8 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                            
-                                               <asp:TemplateField HeaderText="C3" Visible="false">
+
+                                            <asp:TemplateField HeaderText="C3" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -382,12 +413,13 @@
                                     <br />
                                     <br />
                                     <asp:GridView ID="GvGastosMesH" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCuenta,Enero,Febrero,Marzo,Abril,Mayo,Junio,Julio,Agosto,Septiembre,Octubre,Noviembre,Diciembre,PorcentajeAcumulado" OnRowDataBound="GvGastosMesH_RowDataBound" ShowHeaderWhenEmpty="true" CssClass="table table-striped table-hover Widthall" Style="margin-top: -10px; text-align: center;" GridLines="None">
-                                       
-                                         <Columns>
+
+                                        <Columns>
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
-                                                    
+                                                    <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
+
                                                     <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -398,7 +430,7 @@
                                                 <HeaderStyle HorizontalAlign="Left" Width="400px" />
                                             </asp:TemplateField>
 
-                                             <asp:TemplateField HeaderText="Enero">
+                                            <asp:TemplateField HeaderText="Enero">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -416,7 +448,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                             <asp:TemplateField HeaderText="T1" Visible="false">
+                                            <asp:TemplateField HeaderText="T1" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -430,7 +462,7 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                               <asp:TemplateField HeaderText="C1" Visible="false">
+                                            <asp:TemplateField HeaderText="C1" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -469,7 +501,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            
+
                                             <asp:TemplateField HeaderText="C2" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -510,7 +542,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            
+
                                             <asp:TemplateField HeaderText="T4" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -518,8 +550,8 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                            
-                                               <asp:TemplateField HeaderText="C3" Visible="false">
+
+                                            <asp:TemplateField HeaderText="C3" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -552,6 +584,7 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
                                                     <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
                                                 </ItemTemplate>
@@ -562,7 +595,7 @@
                                                 <ItemStyle HorizontalAlign="Left" Width="400px" />
                                             </asp:TemplateField>
 
-                                             <asp:TemplateField HeaderText="Enero">
+                                            <asp:TemplateField HeaderText="Enero">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLEnero" runat="server" Text='<%# Eval("Enero", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -580,7 +613,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                             <asp:TemplateField HeaderText="Tri1" Visible="false">
+                                            <asp:TemplateField HeaderText="Tri1" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLTri1" runat="server" Text='<%# Eval("Tri1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -594,7 +627,7 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                               <asp:TemplateField HeaderText="Cua1" Visible="false">
+                                            <asp:TemplateField HeaderText="Cua1" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua1" runat="server" Text='<%# Eval("Cua1", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -633,7 +666,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            
+
                                             <asp:TemplateField HeaderText="Cua2" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua2" runat="server" Text='<%# Eval("Cua2", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -674,7 +707,7 @@
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
-                                            
+
                                             <asp:TemplateField HeaderText="Tri4" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLTri4" runat="server" Text='<%# Eval("Tri4", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -682,8 +715,8 @@
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
                                             </asp:TemplateField>
 
-                                            
-                                               <asp:TemplateField HeaderText="Cua3" Visible="false">
+
+                                            <asp:TemplateField HeaderText="Cua3" Visible="false">
                                                 <ItemTemplate>
                                                     <asp:HyperLink ID="HLCua3" runat="server" Text='<%# Eval("Cua3", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                 </ItemTemplate>
@@ -750,6 +783,7 @@
                                         <Columns>
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
                                                     <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px" ></asp:Label>--%>
                                                     <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -804,6 +838,7 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
                                                     <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <%--<asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>--%>
                                                     <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
@@ -867,6 +902,7 @@
 
                                             <asp:TemplateField>
                                                 <ItemTemplate>
+                                                    <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
                                                     <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
                                                     <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>' Width="238px"></asp:Label>
                                                 </ItemTemplate>
@@ -962,16 +998,16 @@
                                 CssClass="ADSCROLLER2  table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300"
                                 Style="margin-top: -10px; text-align: center;" GridLines="None">
                                 <Columns>
-                                    <asp:TemplateField>
-                                        <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" />
+                                    <asp:TemplateField HeaderStyle-HorizontalAlign="Left">
                                         <HeaderTemplate>
                                             <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="INGRESOS Y OTROS BENEFICIOS"></asp:Label>
                                         </HeaderTemplate>
+                                        <ItemTemplate>
+                                            <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
+                                            <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
+                                            <asp:HyperLink ID="HLNombre" runat="server" Text='<%# Eval("Nombre")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                        </ItemTemplate>
+                                        <ItemStyle HorizontalAlign="Left" />
                                         <HeaderStyle HorizontalAlign="Left" Width="291px" />
                                     </asp:TemplateField>
 
@@ -1035,14 +1071,15 @@
                                 <Columns>
 
                                     <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" />
                                         <HeaderTemplate>
                                             <asp:Label ID="LbTitulo" runat="server" Style="padding-left: 20px;" Font-Size="14px" Text="GASTOS Y OTRAS PÉRDIDAS"></asp:Label>
                                         </HeaderTemplate>
+                                        <ItemTemplate>
+                                            <asp:CheckBox ID="chkgraf" CssClass="chkgraf" runat="server" />
+                                            <asp:HyperLink ID="Hypgrafica" runat="server" CssClass="Texto Hypgrafica" NavigateUrl="javascript:void(0);" onclick="return HandlerGraf(this, event);"><i class="fa fa-bar-chart" aria-hidden="true"></i></asp:HyperLink>
+                                            <asp:Label ID="LbNombre" runat="server" Text='<%# Eval("Nombre")%>'></asp:Label>
+                                        </ItemTemplate>
                                         <HeaderStyle HorizontalAlign="Left" Width="400px" />
                                     </asp:TemplateField>
 
@@ -1213,6 +1250,45 @@
         </asp:UpdatePanel>
     </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 ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 
@@ -1226,15 +1302,15 @@
     <script> 
         let cdatos;
         let currentid = 1;
-        function HandlerGraf(obj, evt) { 
+        function HandlerGraf(obj, evt) {
             $("#DivModalGrafica").modal();
             cdatos = $(obj).data('values');
             if (currentid == 1) {
-            CargaGraficaBarras();
+                CargaGraficaBarras();
             } else {
-            CargaGraficaPastel();
+                CargaGraficaPastel();
             }
-            $('.LblTituloGrafica').text($(obj).parent().text()); 
+            $('.LblTituloGrafica').text($(obj).parent().text());
         }
         function CargaGraficaBarras() {
             let data = cdatos;
@@ -1292,16 +1368,226 @@
             });
         }
         function ADSBegin() {
-        $('.DdlGrafica').on('select2:select', function (e) {
-            var data = e.params.data; 
-            currentid = data.id;
-            if (currentid == 1) {
-            CargaGraficaBarras();
-            } else {
-            CargaGraficaPastel();
-            }
-        });
-        $('.DdlGrafica').removeClass('DdlGrafica')
+            $('.DdlGrafica').on('select2:select', function (e) {
+                var data = e.params.data;
+                currentid = data.id;
+                if (currentid == 1) {
+                    CargaGraficaBarras();
+                } else {
+                    CargaGraficaPastel();
+                }
+            });
+            $(".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>
 </asp:Content>

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

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

GPS/Rastreo.aspx.vb

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

Metronic/assets/admin/layout/css/custom.css

@@ -30,7 +30,7 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
 }
 
 .AdsCHeader > .ADSCroll {
-    overflow: hidden;
+    overflow: auto;
 }
 
 .AdsBody .ADSCroll {
@@ -53,10 +53,12 @@ table > tr > th.adsCol, table.table > tr > th.adsCol {
     background-color: #F5F5F5;
 }
 
+
 .AdsBody .ADSCroll::-webkit-scrollbar-thumb {
     background-color: #AAA;
     border-radius: 4px;
-    background-image: -webkit-linear-gradient(90deg, rgba(0, 0, 0, .2) 25%, transparent 25%, transparent 50%, rgba(0, 0, 0, .2) 50%, rgba(0, 0, 0, .2) 75%, transparent 75%, transparent)
+    background-color: #F5F5F5;
+    -webkit-box-shadow: inset 0 0 6px rgba(0,0,0,0.5); 
 }
 
 .line-Lite .form-group.form-md-line-input .form-control {
@@ -700,8 +702,8 @@ div.ADScroller {
 }
 
     .ADScroller .ADScroller-body::-webkit-scrollbar {
-        width: 8px;
-        height: 8px;
+        width: 10px;
+        height: 12px;
     }
 
     .ADScroller .ADScroller-body::-webkit-scrollbar-track {
@@ -2656,14 +2658,14 @@ select.select2-offscreen, select.select2-offscreen:focus {
     position: absolute;
     content: "Arrastre el archivo";
     color: #808080;
-    font-size: 30px;
+    font-size: 20px;
     margin-top: 15px;
 }
 .addropzone.dz-clickable:after {
     position: absolute;
     content: "o presione doble click";
     color: #808080;
-    font-size: 30px;
+    font-size: 20px;
     margin-top: 45px;
 }
 

Nomina/Nomina2.aspx

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

Nomina/Nomina2.aspx.cs

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

OI/CircularDetalleB.aspx

@@ -8,8 +8,13 @@
             content: "Pegar aquí";
         }
 
-        .addropzone.dz-clickable:before {
-            margin-top: 40px;
+        .addropzone.dz-clickable:before{
+            margin-top: 15px;
+        }
+        .addropzone.dz-clickable:before,
+        .addropzone.dz-clickable:after {
+            font-size: 20px;
+            line-height: 1;
         }
 
         .pnlCorreo {
@@ -79,18 +84,19 @@
 
             <div class="pnlCorreo" style="margin-bottom: 5px;">
                 <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 class="bodycorreos">
                     <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>
                     <%--<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="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>
-                        --%>
+                    --%>
                 </div>
             </div>
 
@@ -118,15 +124,15 @@
                 <div class="headerCorreo headerCorreoCCP" style="background-color: transparent;">
                     <h3 class="panel-title ">Adjuntar Archivos:</h3>
                     <asp:TextBox ID="TxtArchivo" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
-                    
-                        <div id="archivosDiv" runat="server" class="row" visible="false">
-                            <div class="col-md-1" style="width: 30%">
-                                <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 id="archivosDiv" runat="server" class="row" visible="false">
+                        <div class="col-md-1" style="width: 30%">
+                            <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="bodycorreos ">
                     <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>--%>
                 </div>
             </div>
-            
-                        <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="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 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="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 id='<%= iddivAgregarPara %>' class="modal ADS fade" role="dialog">
                 <div class="modal-dialog">

OI/MinutaDetalle.aspx

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

OI/TareaDetalle.aspx

@@ -52,8 +52,13 @@
             margin-top: 20px;
         }
 
+        .filediv .addropzone.dz-clickable:before, .filediv .addropzone.dz-clickable:after {
+            color: #808080;
+            font-size: 20px;
+        }
+
         .filediv .addropzone {
-            min-height: 100px;
+            min-height: 130px;
         }
 
         .divArchivo {
@@ -124,11 +129,12 @@
                 height: 100%;
                 cursor: not-allowed;
             }
-            .porcentajelabel{
-               color: #ed5565;
-               font-size: 64px;
-               font-weight:bold;
-            }
+
+        .porcentajelabel {
+            color: #ed5565;
+            font-size: 64px;
+            font-weight: bold;
+        }
     </style>
 
     <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">
         <ContentTemplate>
             <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>
                 <asp:LinkButton ID="LnkcambiarEstatus" OnClick="LnkcambiarEstatus_Click" runat="server"><i class="fa fa-exchange"></i>Cambiar estatus</asp:LinkButton></li>
             <li>
@@ -254,9 +260,9 @@
                                     <div class="form-group form-md-line-input">
                                         <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 Text="Baja" Value="1" ></asp:ListItem>
-                                            <asp:ListItem Text="Media" Value="2" ></asp:ListItem>
-                                            <asp:ListItem Text="Alta" Value="3" ></asp:ListItem>
+                                            <asp:ListItem Text="Baja" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Media" Value="2"></asp:ListItem>
+                                            <asp:ListItem Text="Alta" Value="3"></asp:ListItem>
                                         </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:Label runat="server" AssociatedControlID="DdlPrioridad">Prioridad:</asp:Label>
@@ -291,7 +297,7 @@
                                         <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                                     </div>
                                 </div>
-                                <div class="portlet-body rowpadding" >
+                                <div class="portlet-body rowpadding">
                                     <div class="row">
                                         <div class="col-md-8">
                                             <div class="form-group form-md-line-input">
@@ -302,7 +308,7 @@
                                         </div>
                                         <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: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>--%>
                                         </div>
                                     </div>
@@ -366,7 +372,7 @@
 
                                         <asp:Label runat="server" AssociatedControlID="DdlEventoEstatus">Estatus:</asp:Label>
                                     </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">
                                         <asp:Label ID="LblPorcentaje" CssClass="LblPorcentaje" runat="server" Text="0"></asp:Label>%
                                     </div>
@@ -531,7 +537,7 @@
                         <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
                     </div>
                 </div>
-                <div class="portlet-body rowpadding" >
+                <div class="portlet-body rowpadding">
                     <asp:UpdatePanel ID="UpActividades" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
                             <asp:GridView ID="GvActividades" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ScrollAD GvActividades"
@@ -724,10 +730,10 @@
                             </div>
 
                         </asp:Panel>
-                            <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:Label runat="server" Text="Agregar Comentario" AssociatedControlID="TxtComentarioTerminarpadre"></asp:Label>
-                            </div>
+                        <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:Label runat="server" Text="Agregar Comentario" AssociatedControlID="TxtComentarioTerminarpadre"></asp:Label>
+                        </div>
 
                     </div>
 
@@ -752,10 +758,10 @@
                             <asp:Literal ID="Literal4" runat="server">Agregar relación</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
-                        <div  >
+                        <div>
                             <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="3" Text=" &nbsp;Personal"></asp:ListItem>
                                 <asp:ListItem Value="4" Text=" &nbsp;Proveedor"></asp:ListItem>
@@ -901,13 +907,13 @@
                             </asp:GridView>--%>
                         </asp:Panel>
                         <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:Label runat="server" AssociatedControlID="DdlPersonal">Personal:</asp:Label>
+
+                            <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:Panel>
                         <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>
-                                <asp:Label runat="server" AssociatedControlID="DdlProveedores">Proveedores:</asp:Label>
+                            <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:Panel>
                     </div>
 
@@ -1137,10 +1143,12 @@
         function CambiarTitulo(cadena) {
             let TTitulo = $('#E_LtlTitulo')
             let texto = TTitulo.text();
-            let splited = texto.split(" ");
-            let size = splited[splited.length - 1].length;
-            texto = texto.substring(0, texto.length - size) + cadena;
-            TTitulo.text(texto);
+            if (texto != 'Nueva tarea') {
+                let splited = texto.split(" ");
+                let size = splited[splited.length - 1].length;
+                texto = texto.substring(0, texto.length - size) + cadena;
+                TTitulo.text(texto);
+            }
         }
         var avancecambio = 0;
         function barraavance() {
@@ -1154,7 +1162,7 @@
                     step: .01,
                     //[disable]
                     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);
                     })
                 });
             }

OI/TareaDetalle.aspx.cs

@@ -126,7 +126,7 @@ public partial class OI_TareaDetalle : ClsPaginas
                     LnkcambiarEstatus.Visible = false;
                     LnkAgregarTema.Visible = false;
                     portletEstatus.Visible = false;
-                    LtlTitulo.Text = "Tarea Nueva";
+                    LtlTitulo.Text = "Nueva tarea";
                     TxtArchivo.Visible = true;
                     CveUsuarioDe = UsuarioActual.CveUsuario;
                 }
@@ -139,17 +139,18 @@ public partial class OI_TareaDetalle : ClsPaginas
     }
     private void Setpermisos()
     {
+        bool permisedestatus = (CveEventoEstatus > 1 && CveEventoEstatus < 4);
         bool esmiembro = UsuarioActual.CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>());
         bool esdeel = UsuarioActual.CveUsuario == CveUsuarioDe;
         bool esPara = UsuarioActual.CveUsuario == CveUsuarioPara;
         Permisos = new OI_TareaDetalle_Permisos
         {
             EntrarOI = (EsNuevo || esmiembro),
-            CheckList = (EsNuevo || esdeel || esPara) && CveEventoEstatus < 4,
-            EdicionGeneral = (EsNuevo || esdeel) && CveEventoEstatus < 4,
-            Bitacora = esmiembro && CveEventoEstatus < 4,
-            Avance = esPara && CveEventoEstatus < 4,
-            Reasignar = esPara && CveEventoEstatus < 4,
+            CheckList = (EsNuevo || esdeel || esPara) && permisedestatus,
+            EdicionGeneral = (EsNuevo || esdeel) && permisedestatus,
+            Bitacora = esmiembro && permisedestatus,
+            Avance = esPara && permisedestatus,
+            Reasignar = esPara && permisedestatus,
             Estatus1_2_3 = esPara,
             Estatus4_5 = esdeel
         };
@@ -229,9 +230,9 @@ public partial class OI_TareaDetalle : ClsPaginas
         {
             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;
             LnkUpUsuarios.Visible = false;
@@ -1021,6 +1022,11 @@ public partial class OI_TareaDetalle : ClsPaginas
                     //if (DdlEventoEstatus.SelectedValue.ToEntero == 3 | DdlEventoEstatus.SelectedValue.ToEntero == 1)
                     //    EnviarCorreoCambioEstatus(false);
                     //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);
                     DdlEventoEstatus.SelectedValueExist(DDlEstatus.SelectedValue);
                     lblEstatus.Text = DdlEventoEstatus.SelectedItem.Text;
@@ -1270,7 +1276,7 @@ public partial class OI_TareaDetalle : ClsPaginas
             {
                 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());
                 }
                 cargaActividades(objoi);
@@ -1323,11 +1329,28 @@ public partial class OI_TareaDetalle : ClsPaginas
                 int CveUsuario = gvRow.DataKey("CveUsuario").ToString().ToEntero();
                 gvRow.FCCheckBox("ChkPara").Checked = false;
                 CheckBox chkCCpara = gvRow.FCCheckBox("ChkCCP");
+                CheckBox chkpara = gvRow.FCCheckBox("ChkPara");
+
+                chkpara.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.Enabled = false;
                 }
 
             }
@@ -1363,6 +1386,7 @@ public partial class OI_TareaDetalle : ClsPaginas
                     if (CveUsuario == CveUsuarioDe)
                     {
                         chkCCpara.Checked = true;
+                        chkCCpara.Enabled = false;
                     }
                 }
                 else if (CveUsuario.Contiene(LCveUsuarioCCP.ToArray<int>()))

Scripts/custom.js

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

Sistemas/Empresa.aspx.vb

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

UserControl/TareaNueva.ascx

@@ -10,15 +10,17 @@
 
     .fileTarea .addropzone {
         margin-bottom: 10px;
-        min-height: 100px;
+        min-height: 120px;
     }
 
         .fileTarea .addropzone.dz-clickable:before {
             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;
-            font-size: 20px;
-            margin-top: 30px;
+            font-size: 20px; 
         }
 
         .fileTarea .addropzone .dz-preview, .fileTarea .dropzone-previews .dz-preview {
@@ -116,9 +118,9 @@
                                                 <div class="form-group form-md-line-input">
                                                     <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 Text="Baja" Value="1" class="itembaja"></asp:ListItem>
-                                                        <asp:ListItem Text="Media" Value="2" class="itemmedia"></asp:ListItem>
-                                                        <asp:ListItem Text="Alta" Value="3" class="itemalta"></asp:ListItem>
+                                                        <asp:ListItem Text="Baja" Value="1"  ></asp:ListItem>
+                                                        <asp:ListItem Text="Media" Value="2"  ></asp:ListItem>
+                                                        <asp:ListItem Text="Alta" Value="3"  ></asp:ListItem>
                                                     </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:Label runat="server" AssociatedControlID="DdlPrioridad">Prioridad:</asp:Label>

Ventas/RepConciliacionSat.aspx

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

Ventas/SolicitudesSAT.aspx

@@ -239,7 +239,7 @@
                         <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                             <span aria-hidden="true">&times;</span>
                         </button>
-                        <h4 class="modal-title" runat="server" style="text-align: left">Solicitar Descarga SAT</h4>
+                        <h4 class="modal-title" runat="server" style="text-align: left">Solicitar descarga SAT</h4>
                     </div>
                     <div class="modal-body">
 

vwd.webinfo

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