From a5682e17cdfeee796e4cc5a5f9a20c6e83bbcae4 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 18 Sep 2020 15:58:24 -0700 Subject: [PATCH] --- .../RepEstadoResultadosHorizontal.aspx | 121 +++--- .../RepEstadoResultadosHorizontal.aspx.vb | 374 +++++++++--------- GPS/Rastreo.aspx.vb | 2 +- Metronic/assets/admin/layout/css/custom.css | 10 +- Nomina/Nomina2.aspx | 5 +- Nomina/Nomina2.aspx.cs | 6 +- Scripts/custom.js | 64 ++- Ventas/RepConciliacionSat.aspx | 4 +- Ventas/SolicitudesSAT.aspx | 2 +- vwd.webinfo | 2 + 10 files changed, 324 insertions(+), 266 deletions(-) diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx b/Contabilidad2/RepEstadoResultadosHorizontal.aspx index a7a002b70..042341e93 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx +++ b/Contabilidad2/RepEstadoResultadosHorizontal.aspx @@ -9,7 +9,11 @@ width: 100%; height: 500px; } + #chartdivgral{ + width: 100%; + min-height: 500px; + } .fa.fa-bar-chart { width: 16px; height: 14px; @@ -26,6 +30,14 @@ .chksino label::after { content: 'L'; } + + .chkgraf { + visibility: hidden; + } + + .showgrph .chkgraf { + visibility: inherit; + } @@ -37,6 +49,9 @@
  • Generar Excel
    • +
  • + Graficar +
    • @@ -99,9 +114,12 @@ - +
    - + NO Trimestre Cuatrimestre @@ -232,6 +250,7 @@ + <%----%> @@ -262,7 +281,7 @@ - + @@ -276,7 +295,7 @@ - + @@ -316,7 +335,7 @@ - + @@ -357,7 +376,7 @@ - + @@ -365,8 +384,8 @@ - - + + @@ -394,12 +413,13 @@

    - - + + - + + @@ -410,7 +430,7 @@ - + @@ -428,7 +448,7 @@ - + @@ -442,7 +462,7 @@ - + @@ -481,7 +501,7 @@ - + @@ -522,7 +542,7 @@ - + @@ -530,8 +550,8 @@ - - + + @@ -564,6 +584,7 @@ + @@ -574,7 +595,7 @@ - + @@ -592,7 +613,7 @@ - + @@ -606,7 +627,7 @@ - + @@ -645,7 +666,7 @@ - + @@ -686,7 +707,7 @@ - + @@ -694,8 +715,8 @@ - - + + @@ -762,6 +783,7 @@ + <%----%> @@ -816,6 +838,7 @@ + <%----%> @@ -879,6 +902,7 @@ + @@ -974,18 +998,8 @@ CssClass="ADSCROLLER2 table table-striped table-advance table-hover" data-cols="1" data-heightmenos="300" Style="margin-top: -10px; text-align: center;" GridLines="None"> - <%-- - - - - - - - - --%> - <%----%> @@ -1062,6 +1076,7 @@ + @@ -1242,13 +1257,13 @@

    - Analisis centro de costos + Análisis de estados de resultados

    - +
    @@ -1256,10 +1271,15 @@
    -
    +
    +
    +
    +
    +
    +
    +

    -
    @@ -1368,6 +1388,11 @@ let objetos; let Colores = ["#FF0F00", "#FF6600", "#F8FF01", "#04D215", "#2A0CD0", "#8A0CCF", "#CD0D74", "#754DEB", "#DDDDDD", "#999999", "#000000"]; + function graficarshow() { + $('.btngraficarborrar').remove(); + $('#C_Tab_header').append(' Graficar'); + $('#C_Tab_body').addClass('showgrph'); + } function cargaGraficaBarras2(Titulo) { $('.LblTituloGraficaGral').text(Titulo); cargaGraficaBarras2(); @@ -1382,9 +1407,10 @@ let data; let icolor = 0; let tipografica = $('.rdblistgrafica input:checked').val(); - $('.chkgraf input:checked').each(function () { + + $('.ajax__tab_panel:visible .chkgraf input:checked').each(function () { data = $(this).closest('tr').find('.Hypgrafica').data('values') - let name = $(this).closest('tr').text().trim() + let name = $(this).closest('td').text().trim() items.push({ id: icolor, data: data, name: name, Color: Colores[icolor], tipografica }) gettitlegraf(infogral, icolor, Colores[icolor], name, tipografica); icolor = icolor + 1; @@ -1395,24 +1421,27 @@ $(".chkonchange input").each(function () { let _this = $(this) _this.change(function () { - let _this = $(this) + let _this = $(this) let id = Number(_this.data('id')) objetos[id].tipografica = _this.is(':checked') ? 1 : 2; ShowGraf2(); }) }); + $(function () { + $('.chkonchange').tooltip() + }); ShowGraf2(); } function gettitlegraf(infogral, id, Color, name, tipografica) { - let strtipografica = ''; + let strtipografica = ''; let contenedor = $("
    "); let divcolspan = $("
    "); let divcolor = $('
    '); - let divtexto = $("
    " + name + "
    "); - let divtipografica = $("
    " + strtipografica + "
    "); + let divtexto = $("
    " + name + "
    "); + let divtipografica = $("
    " + strtipografica + "
    "); infogral.append(contenedor); - contenedor.append(divcolspan); contenedor.append(divcolor); contenedor.append(divtexto); contenedor.append(divtipografica); + /*contenedor.append(divcolspan);*/ contenedor.append(divcolor); contenedor.append(divtexto); contenedor.append(divtipografica); } function ShowGraf2() { let items = objetos; diff --git a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb b/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb index 39d6dcf25..d3b3b15ac 100644 --- a/Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb +++ b/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 = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" '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 = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" 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 = $"{If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}" + e.Row.Cells(IndiceInicio).Text = $"{If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00"))}" '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 = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" 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 = $"{ If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" + e.Row.Cells(IndiceInicio).Text = $"{ If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }" 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 = $"
    { If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " + e.Row.Cells(IndiceInicio).Text = $"
    { If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " 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 = $"
    { If(DdlDivisor.SelectedValue.ToEntero > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " + e.Row.Cells(IndiceInicio).Text = $"
    { If(DdlDivisor.SelectedValue.ToEntero() > 1, Importe.ToString("###,###,##0"), Importe.ToString("###,###,###.00")) }
    " 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 = "#,##" diff --git a/GPS/Rastreo.aspx.vb b/GPS/Rastreo.aspx.vb index af2d7eff3..d388970ab 100644 --- a/GPS/Rastreo.aspx.vb +++ b/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 diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index a8bd5535c..39800e20f 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/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 { diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index 186d56933..3e5c523e2 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -259,14 +259,13 @@
    + CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvNominas" Style="text-align: center;" GridLines="None" data-cols="2" data-rows="2"> - + diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 753099b93..757b5cd09 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/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; diff --git a/Scripts/custom.js b/Scripts/custom.js index e3135edfa..f3852450c 100644 --- a/Scripts/custom.js +++ b/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 = $(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 = $(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 = $('
    ') + var contenedor = $('
    '); var divheader = $('
    '); var divcenter = $('
    '); var divheader1 = $('
    '); @@ -431,10 +431,34 @@ function ADScroller2() { divcenter.append(divcenterbody); divbodyScroll = $('
    ').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 diff --git a/Ventas/RepConciliacionSat.aspx b/Ventas/RepConciliacionSat.aspx index b8102a0e3..d5e7c5c20 100644 --- a/Ventas/RepConciliacionSat.aspx +++ b/Ventas/RepConciliacionSat.aspx @@ -137,12 +137,12 @@ <%# Eval("CFDISAT")%> - + <%# Eval("CFDISIGSinSAT")%> - + <%# Eval("CFDISATSinSIG")%> diff --git a/Ventas/SolicitudesSAT.aspx b/Ventas/SolicitudesSAT.aspx index ac492ae6a..66c61af18 100644 --- a/Ventas/SolicitudesSAT.aspx +++ b/Ventas/SolicitudesSAT.aspx @@ -239,7 +239,7 @@ -

    Solicitar Descarga SAT

    +

    Solicitar descarga SAT

    diff --git a/vwd.webinfo b/vwd.webinfo index 9d2d954bf..a5848e16b 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -106,6 +106,8 @@ + +