Empresas Zona Horaria

Contabilidad2/CatContaEjercicios.aspx.vb

@@ -129,8 +129,8 @@ Partial Class Contabilidad2_CatContaEjercicios
 
     Protected Sub LbGenerarPoliza_Click(sender As Object, e As EventArgs) Handles LbGenerarPoliza.Click
         Dim ObjConta As New ClsContabilidad
-        Dim FechaI As String = $"01/01/{DateTime.Now.Year}"
-        Dim FechaF As String = $"{DateTime.DaysInMonth(DateTime.Now.Year, 12)}/12/{DateTime.Now.Year}"
+        Dim FechaI As String = $"01/01/{NowADS().Year}"
+        Dim FechaF As String = $"{DateTime.DaysInMonth(NowADS().Year, 12)}/12/{NowADS().Year}"
         Dim CvePrePolizaCierre As Integer = -1
         CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, Ejercicio, DdlCuentas.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal)
         If CvePrePolizaCierre > 0 Then

Contabilidad2/MovimientosconProveedores.aspx.vb

@@ -77,8 +77,8 @@ Partial Class MovimientosconProveedores
             DtDatos = Nothing
             CargaTipoCuentas()
 
-            FechaInicio = DateSerial(Year(Now), Month(Now), 1)
-            FechaFin = Date.Now
+            FechaInicio = DateSerial(Year(NowADS()), Month(NowADS()), 1)
+            FechaFin = NowADS()
 
             'If UsuarioActual.Empresa.UsaAC Then
             '    TipoReporte = -1
@@ -288,8 +288,8 @@ Partial Class MovimientosconProveedores
         If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso TxtCuenta.Text.Trim = "" Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
-            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
             IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, HdnCveCuenta.Value.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
 
             CargaDatos()

Contabilidad2/RepAnexoCatalogo.aspx.vb

@@ -90,8 +90,8 @@ Partial Class AC2_RepAnexoCatalogo
             DtDatos = Nothing
             CargaTipoCuentas()
 
-            FechaInicio = Now.FirstDayOfMonth
-            FechaFin = Date.Now
+            FechaInicio = NowADS().FirstDayOfMonth
+            FechaFin = NowADS()
 
             'If UsuarioActual.Empresa.UsaAC Then
             '    TipoReporte = -1
@@ -289,7 +289,7 @@ Partial Class AC2_RepAnexoCatalogo
     Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
         If Not IsNothing(DtDatos) Then
             ImprimirReporte("Excel")
-            'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
+            'GvDatos.ExportToExcelG("AnexoCatalogo" & NowADS().ToShortDateString & ".xlsx")
             'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
         End If
     End Sub
@@ -315,8 +315,8 @@ Partial Class AC2_RepAnexoCatalogo
         If DdlCuentas.SelectedValue.ToEntero = -1 Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
-            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
-            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
+            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
+            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
             IdCuenta = DdlCuentas.SelectedValue.ToEntero
             CargaDatos()
         End If

Contabilidad2/RepAnexoCatalogoCC.aspx.vb

@@ -115,8 +115,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
 #Region " INICIALIZA VALORES "
     Private Sub InicializaValores()
         CargaCombos()
-        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
-        txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+        txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
+        txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
     End Sub
     Private Sub CargaCombos()
 

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -113,7 +113,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
 
         DdlCuentas.DataBind()
         DdlEjercicio.DataBind()
-        DdlEjercicio.SelectedValueExist(Now.Year.ToString)
+        DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
         CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
 

Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb

@@ -77,8 +77,8 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
             DtDatos = Nothing
             CargaTipoCuentas()
 
-            FechaInicio = Now.FirstDayOfMonth
-            FechaFin = Date.Now
+            FechaInicio = NowADS().FirstDayOfMonth
+            FechaFin = NowADS()
 
             'If UsuarioActual.Empresa.UsaAC Then
             '    TipoReporte = -1
@@ -279,7 +279,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
     'Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
     '    If Not IsNothing(DtDatos) Then
     '        ImprimirReporte("Excel")
-    '        'GvDatos.ExportToExcelG("AnexoCatalogo" & Now.ToShortDateString & ".xlsx")
+    '        'GvDatos.ExportToExcelG("AnexoCatalogo" & NowADS().ToShortDateString & ".xlsx")
     '        'GvDatos.ExportToExcelG("ExistenciasHorizontal.xlsx", "Anexo Catalogo", UsuarioActual, "".ToString, 100, 200)
     '    End If
     'End Sub
@@ -305,8 +305,8 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
         If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso DdlCuentas.SelectedValue.ToEntero = -1 Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
-            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
             IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, DdlCuentas.SelectedValue.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
 
             CargaDatos()

Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude

@@ -77,8 +77,8 @@ Partial Class FinanzasSAT_RepAnexoCatalogo
             DtDatos = Nothing
             CargaTipoCuentas()
 
-            FechaInicio = DateSerial(Year(Now), Month(Now), 1)
-            FechaFin = Date.Now
+            FechaInicio = DateSerial(Year(NowADS()), Month(NowADS()), 1)
+            FechaFin = NowADS()
 
             'If UsuarioActual.Empresa.UsaAC Then
             '    TipoReporte = -1
@@ -288,8 +288,8 @@ Partial Class FinanzasSAT_RepAnexoCatalogo
         If DdlTipoCuentas.SelectedValue.ToEntero = -2 AndAlso TxtCuenta.Text.Trim = "" Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
-            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+            FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+            FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
             IdCuenta = If(DdlTipoCuentas.SelectedValue.ToEntero = -2, HdnCveCuenta.Value.ToEntero, DdlTipoCuentas.SelectedValue.ToEntero)
 
             CargaDatos()

Contabilidad2/RepAnexoCatalogoVertical.aspx.vb

@@ -53,7 +53,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
         Conta.Dispose()
 
         DdlEjercicio.DataBind()
-        DdlEjercicio.SelectedValueExist(Now.Year.ToString)
+        DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
@@ -71,7 +71,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoVertical
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalagoCC(CveCuenta, Now, Now, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, UsuarioActual.CveUsuario) Then
+        If Conta.GetAnexoCatalagoCC(CveCuenta, NowADS(), NowADS(), DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 1, UsuarioActual.CveUsuario) Then
             Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
             GvCC.DataSource = Conta.DSResultados.Tables(1)
 

Contabilidad2/RepBalanceGeneral.aspx.vb.exclude

@@ -208,7 +208,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
 
             CargaDatosGenerales()
 
-            DdlEjercicio.SelectedValue = Now.Year.ToString
+            DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
             'Anual
             Anos = 0
@@ -254,7 +254,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
 
     Private Sub CargaDatos()
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim Anio As String = If(DdlEjercicio.SelectedValue <> "", DdlEjercicio.SelectedValue, Now.Year.ToString)
+        Dim Anio As String = If(DdlEjercicio.SelectedValue <> "", DdlEjercicio.SelectedValue, NowADS().Year.ToString)
         Dim ObjConta As New ClsContabilidad
         Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), Anio)
         Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
@@ -749,7 +749,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
         End If
         ObjConta.Dispose()
 
-        Anos = (Year(Date.Now) - DdlEjercicio.SelectedValue.ToEntero) + 1
+        Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1
 
         'Esconde todo
         'For index = 1 To 20

Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb

@@ -408,13 +408,13 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
         Clsconta.Dispose()
         DdlEjercicio.DataBind()
 
-        DdlEjercicio.SelectedValue = Now.Year.ToString
+        DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
 
 
 
         'DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
-        DdlPeriodo.SelectedValue = Now.Month.ToString
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
     End Sub
 
 

Contabilidad2/RepBalanceGeneralVertical.aspx.vb

@@ -18,7 +18,7 @@ Partial Class Contabilidad_RepBalanceGeneralVertical
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            DdlEjercicio.SelectedValueExist(Now.Year.ToString)
+            DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
             InicializaValores()
         End If
     End Sub
@@ -42,14 +42,14 @@ Partial Class Contabilidad_RepBalanceGeneralVertical
         Conta.Dispose()
 
         DdlEjercicio.DataBind()
-        DdlEjercicio.SelectedValueExist(Now.Year.ToString)
+        DdlEjercicio.SelectedValueExist(NowADS().Year.ToString)
 
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
         DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
         DdlSubProyecto.SelectedValue = "-1"
 
-        DdlPeriodo.SelectedValue = Now.Month.ToString
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
 
     End Sub
 #End Region

Contabilidad2/RepBalanzaComprobacion.aspx.vb

@@ -82,8 +82,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
             Dim ErrorParametros = True
             ModoImpresion = False
-            TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
-            TxtFechaAl.Text = Date.Now.ToShortDateString
+            TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
+            TxtFechaAl.Text = NowADS().ToShortDateString
 
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
@@ -144,8 +144,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
 
-        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
 
         CargaDatos()
 

Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude

@@ -59,8 +59,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
         If Not Page.IsPostBack Then
             Dim ErrorParametros = True
             ModoImpresion = False
-            TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
-            TxtFechaAl.Text = Date.Now.ToShortDateString
+            TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
+            TxtFechaAl.Text = NowADS().ToShortDateString
 
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
@@ -116,8 +116,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
 
-        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+        FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
 
         CargaDatos()
 

Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb

@@ -125,8 +125,8 @@ Partial Class AC2_RepCambiosSituacionFinanciera
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            'TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
-            'TxtFechaAl.Text = Date.Now.ToShortDateString
+            'TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
+            'TxtFechaAl.Text = NowADS().ToShortDateString
 
             Dim Clsconta As New ClsContabilidad
             DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
@@ -140,7 +140,7 @@ Partial Class AC2_RepCambiosSituacionFinanciera
             Clsconta.Dispose()
             DdlEjercicio.DataBind()
 
-            DdlEjercicio.SelectedValue = Now.Year.ToString
+            DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
             CargaDatos()
 

Contabilidad2/RepEstadoActividades.aspx.vb

@@ -93,8 +93,8 @@ Partial Class AC_RepEstadoActividades
 
             TotalActual = 0
             TotalAnterior = 0
-            'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString
-            'TxtFechaFin.Text = Date.Now.ToShortDateString
+            'TxtFechaInicio.Text = DateSerial(Year(NowADS()), 1, 1).ToShortDateString
+            'TxtFechaFin.Text = NowADS().ToShortDateString
             CargaEjercicios()
 
             CargaDatos()
@@ -127,9 +127,9 @@ Partial Class AC_RepEstadoActividades
 
         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(NowADS().Year.ToString, NowADS().Year.ToString))
         End If
-        DdlPeriodo.SelectedValue = Now.Month.ToString
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
 
         CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
 

Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude

@@ -92,8 +92,8 @@ Partial Class AC_RepEstadoActividades
 
             TotalActual = 0
             TotalAnterior = 0
-            'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString
-            'TxtFechaFin.Text = Date.Now.ToShortDateString
+            'TxtFechaInicio.Text = DateSerial(Year(NowADS()), 1, 1).ToShortDateString
+            'TxtFechaFin.Text = NowADS().ToShortDateString
             CargaEjercicios()
 
             CargaDatos()
@@ -112,7 +112,7 @@ Partial Class AC_RepEstadoActividades
         DdlEjercicio.DataBind()
 
         DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
-        DdlPeriodo.SelectedValue = Now.Month.ToString
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
     End Sub
 
     Private Sub CargaDatos()

Contabilidad2/RepEstadoResultados.aspx.vb

@@ -137,14 +137,14 @@ Partial Class Contabilidad2_RepEstadoResultados
 
             CargaDatosGenerales()
 
-            DdlEjercicio.SelectedValue = Now.Year.ToString
+            DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
             Anos = 0
 
             'Normal
             TotalActual = 0
             TotalAnterior = 0
-            DdlPeriodo.SelectedValue = Now.Month.ToString
+            DdlPeriodo.SelectedValue = NowADS().Month.ToString
 
             TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
         End If
@@ -535,7 +535,7 @@ Partial Class Contabilidad2_RepEstadoResultados
         End If
         ObjConta.Dispose()
 
-        Anos = (Year(Date.Now) - DdlEjercicio.SelectedValue.ToEntero) + 1
+        Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1
 
         'Esconde todo
         For index = 1 To 40 Step 2

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -110,7 +110,8 @@
                                 <div class="col-md-2">
                                     <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                                     </asp:DropDownList>
-                                </div> 
+                                </div>                               
+
                             </div> 
                         </div>
                     </div>
@@ -144,8 +145,19 @@
                                 </asp:DropDownList>
                             </div>
 
+                              <asp:Label Visible="false" runat="server" ID="LblVistaPorcentaje" CssClass="col-md-1">Vista Porcentaje:</asp:Label>
+                                <div class="col-md-1" runat="server" id="DVVistaPorcentaje" visible="false">
+                                    <asp:DropDownList ID="DdlvistaPorcentaje" CssClass="form-control input-sm select2me" runat="server"   Width="100%" >
+                                        <asp:ListItem Selected="True" Value="1">Horizontal</asp:ListItem>
+                                        <asp:ListItem Value="2">Vertical</asp:ListItem>
+                                    </asp:DropDownList>
+                                </div> 
+
                         </div>
 
+                       
+
+
                     </div>
 
 
@@ -182,7 +194,7 @@
                                             </asp:TemplateField>
                                             <asp:TemplateField HeaderText="Período Actual">
                                                 <ItemTemplate>
-                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                    <asp:HyperLink ID="HLActual" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                     <%--<asp:HyperLink ID="HyperLink1" runat="server" Text='<%# Eval("ImporteActual", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    --%>
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />
@@ -190,7 +202,7 @@
                                             <asp:BoundField HeaderText="%" DataField="PorcentajeActual" DataFormatString="{0:N2}" ItemStyle-Width="100px" />
                                             <asp:TemplateField HeaderText="Período Acumulado">
                                                 <ItemTemplate>
-                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
+                                                    <asp:HyperLink ID="HLAnterior" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>
                                                     <%--<asp:HyperLink ID="HyperLink1" runat="server" Text='<%# Eval("ImporteAcumulado", "{0:N2}")%>' CssClass="Texto" Target="_blank"></asp:HyperLink>                                                    --%>
                                                 </ItemTemplate>
                                                 <ItemStyle Width="150px" HorizontalAlign="Right" />

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -367,7 +367,10 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
     Protected Sub Tab_ActiveTabChanged(sender As Object, e As EventArgs)
 
-        If TAB.ActiveTabIndex = 0 Then
+        LblVistaPorcentaje.Visible = False
+        DVVistaPorcentaje.Visible = False
+
+        If Tab.ActiveTabIndex = 0 Then
             'LiSubProyectoDdl.Visible = True
             'LiSubProyectoLbl.Visible = True
 
@@ -387,7 +390,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             DVTri.Visible = False
         End If
 
-        If TAB.ActiveTabIndex = 1 Then
+        If Tab.ActiveTabIndex = 1 Then
 
             'LiSubProyectoDdl.Visible = True
             'LiSubProyectoLbl.Visible = True
@@ -409,12 +412,13 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             LblTri.Visible = True
             DVTri.Visible = True
 
-
+            LblVistaPorcentaje.Visible = True
+            DVVistaPorcentaje.Visible = True
 
 
         End If
 
-        If TAB.ActiveTabIndex = 2 Then
+        If Tab.ActiveTabIndex = 2 Then
 
             ValidaEjercicios()
 
@@ -438,9 +442,12 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             DdlPeriodo.SelectedValueExist(12)
 
+            LblVistaPorcentaje.Visible = True
+            DVVistaPorcentaje.Visible = True
+
         End If
 
-        If TAB.ActiveTabIndex = 3 Then
+        If Tab.ActiveTabIndex = 3 Then
             'LiSubProyectoDdl.Visible = True
             'LiSubProyectoLbl.Visible = True
 
@@ -462,6 +469,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             LiPeriodoLbl.Visible = True
             DdlPeriodo.SelectedValueExist(12)
 
+            LblVistaPorcentaje.Visible = True
+            DVVistaPorcentaje.Visible = True
+
         End If
 
         UpFiltros.Update()
@@ -516,9 +526,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         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(NowADS().Year.ToString, NowADS().Year.ToString))
         End If
-        DdlPeriodo.SelectedValue = Now.Month.ToString
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -526,17 +536,17 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         TotalAnteriorMes = 0
 
         'Mes
-        If TAB.ActiveTabIndex = 0 Then
+        If Tab.ActiveTabIndex = 0 Then
             CargaDatosMes()
         End If
 
         'MES HORIZONTAL
-        If TAB.ActiveTabIndex = 1 Then
+        If Tab.ActiveTabIndex = 1 Then
             CargaDatosMesH()
         End If
 
         'AÑO HORIZONTAL
-        If TAB.ActiveTabIndex = 2 Then
+        If Tab.ActiveTabIndex = 2 Then
 
             If DdlEjercicio.SelectedValue.ToEntero > DdlEjercicio2.SelectedValue.ToEntero Then
                 Alert("El ejercicio inicio no debe ser mayor al ejercicio fin.", TipoMensaje.MsgAdvertencia)
@@ -546,7 +556,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         End If
 
         'SUBPROYECTO
-        If TAB.ActiveTabIndex = 3 Then
+        If Tab.ActiveTabIndex = 3 Then
             CargaDatosSubProyectoH()
         End If
 
@@ -596,9 +606,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Next
 
             Row.Item("Nombre") = "TOTAL INGRESOS "
-            Row.Item("ImporteActual") = TotalActual.ToString
+            Row.Item("ImporteActual") = TotalActual
             Row.Item("PorcentajeActual") = "100.00"
-            Row.Item("ImporteAcumulado") = TotalAnterior.ToString
+            Row.Item("ImporteAcumulado") = TotalAnterior
             Row.Item("PorcentajeAcumulado") = "100.00"
             Row.Item("CtaMayor") = -1
             DtIngresosMes.Rows.Add(Row)
@@ -773,7 +783,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetEstadosMensualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then
             DtDatosMesH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosMesH = Nothing
@@ -847,25 +857,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("Cua2") = Cua2
             Row.Item("Cua3") = Cua3
 
-            Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / TotalAnterior, 0)
+            Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Enero), 0)
+            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Febrero), 0)
+            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Marzo), 0)
+            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Abril), 0)
+            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Mayo), 0)
+            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Junio), 0)
+            Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Julio), 0)
+            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Agosto), 0)
+            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Septiembre), 0)
+            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Octubre), 0)
+            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Noviembre), 0)
+            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Diciembre), 0)
+
+            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Tri1), 0)
+            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Tri2), 0)
+            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Tri3), 0)
+
+            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Tri4), 0)
+            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Cua1), 0)
+            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Cua2), 0)
+            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Cua3), 0)
 
 
             Row.Item("Nombre") = "TOTAL INGRESOS"
@@ -918,6 +930,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Dim Cua2 As Decimal = (DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (3,4)")).ToDecimal
             Dim Cua3 As Decimal = (DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (3,4)")).ToDecimal
 
+            Dim Ingreso_Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+
             Row.Item("Enero") = Enero
             Row.Item("Febrero") = Febrero
             Row.Item("Marzo") = Marzo
@@ -938,25 +970,27 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("Cua2") = Cua2
             Row.Item("Cua3") = Cua3
 
-            Row.Item("PorcentajeEnero") =  If(Enero <> 0, Enero * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeJulio") =  If(Julio <> 0, Julio * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / TotalAnterior, 0)
-            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / TotalAnterior, 0)
+
+
+            Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Enero), 0)
+            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Febrero), 0)
+            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Marzo), 0)
+            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Abril), 0)
+            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Mayo), 0)
+            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Junio), 0)
+            Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Julio), 0)
+            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Agosto), 0)
+            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Septiembre), 0)
+            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Octubre), 0)
+            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Noviembre), 0)
+            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Diciembre), 0)
+            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Tri1), 0)
+            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Tri2), 0)
+            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Tri3), 0)
+            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Tri4), 0)
+            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Cua1), 0)
+            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Cua2), 0)
+            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, TotalAnterior, Ingreso_Cua3), 0)
 
 
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -999,6 +1033,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Dim Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua2", "NOT CtaMayor in (-1,3,4)")).ToDecimal
             Dim Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)") - DtGastosMesH.SUM("Cua3", "NOT CtaMayor in (-1,3,4)")).ToDecimal
 
+            Dim Ingreso_Enero As Decimal = (DtIngresosMesH.SUM("Enero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Febrero As Decimal = (DtIngresosMesH.SUM("Febrero", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Marzo As Decimal = (DtIngresosMesH.SUM("Marzo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Abril As Decimal = (DtIngresosMesH.SUM("Abril", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Mayo As Decimal = (DtIngresosMesH.SUM("Mayo", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Junio As Decimal = (DtIngresosMesH.SUM("Junio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Julio As Decimal = (DtIngresosMesH.SUM("Julio", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Agosto As Decimal = (DtIngresosMesH.SUM("Agosto", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Septiembre As Decimal = (DtIngresosMesH.SUM("Septiembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Octubre As Decimal = (DtIngresosMesH.SUM("Octubre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Noviembre As Decimal = (DtIngresosMesH.SUM("Noviembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Diciembre As Decimal = (DtIngresosMesH.SUM("Diciembre", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Tri1 As Decimal = (DtIngresosMesH.SUM("Tri1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Tri2 As Decimal = (DtIngresosMesH.SUM("Tri2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Tri3 As Decimal = (DtIngresosMesH.SUM("Tri3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Tri4 As Decimal = (DtIngresosMesH.SUM("Tri4", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Cua1 As Decimal = (DtIngresosMesH.SUM("Cua1", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Cua2 As Decimal = (DtIngresosMesH.SUM("Cua2", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+            Dim Ingreso_Cua3 As Decimal = (DtIngresosMesH.SUM("Cua3", "NOT CtaMayor in (3,4) AND CveCuenta > 0 ")).ToDecimal
+
             Row.Item("Enero") = Enero
             Row.Item("Febrero") = Febrero
             Row.Item("Marzo") = Marzo
@@ -1022,28 +1076,28 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             Row.Item("Nombre") = "Resultados del Ejercicio:"
             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("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Enero), 0)
 
+            Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Enero), 0)
+            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Febrero), 0)
+            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Marzo), 0)
+            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Abril), 0)
+            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Mayo), 0)
+            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Junio), 0)
+            Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Julio), 0)
+            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Agosto), 0)
+            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Septiembre), 0)
+            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Octubre), 0)
+            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Noviembre), 0)
+            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Diciembre), 0)
 
-            Row.Item("PorcentajeEnero") = If(Enero <> 0, Enero * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeFebrero") = If(Febrero <> 0, Febrero * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeMarzo") = If(Marzo <> 0, Marzo * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeAbril") = If(Abril <> 0, Abril * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeMayo") = If(Mayo <> 0, Mayo * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeJunio") = If(Junio <> 0, Junio * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeJulio") = If(Julio <> 0, Julio * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeAgosto") = If(Agosto <> 0, Agosto * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeSeptiembre") = If(Septiembre <> 0, Septiembre * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeOctubre") = If(Octubre <> 0, Octubre * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeNoviembre") = If(Noviembre <> 0, Noviembre * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeDiciembre") = If(Diciembre <> 0, Diciembre * 100 / ImporteAcumuladoTotal, 0)
-
-            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / ImporteAcumuladoTotal, 0)
-            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / ImporteAcumuladoTotal, 0)
+            Row.Item("PorcentajeTri1") = If(Tri1 <> 0, Tri1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Tri1), 0)
+            Row.Item("PorcentajeTri2") = If(Tri2 <> 0, Tri2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Tri2), 0)
+            Row.Item("PorcentajeTri3") = If(Tri3 <> 0, Tri3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Tri3), 0)
+            Row.Item("PorcentajeTri4") = If(Tri4 <> 0, Tri4 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Tri4), 0)
+            Row.Item("PorcentajeCua1") = If(Cua1 <> 0, Cua1 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Cua1), 0)
+            Row.Item("PorcentajeCua2") = If(Cua2 <> 0, Cua2 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Cua2), 0)
+            Row.Item("PorcentajeCua3") = If(Cua3 <> 0, Cua3 * 100 / If(DdlvistaPorcentaje.SelectedValue.ToEntero = 1, ImporteAcumuladoTotal, Ingreso_Cua3), 0)
 
             DTTotalesMesH.Rows.Add(Row)
 
@@ -1554,7 +1608,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero) Then
+        If ObjConta.GetEstadosAnualHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero, Periodo:=DdlPeriodo.SelectedValue.ToEntero, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then
             DtDatosAnualH = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
         Else
             DtDatosAnualH = Nothing
@@ -1650,9 +1704,21 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             IndexData = 13
             For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)")
-                If DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") > 0 Then
-                    Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+
+                Dim TotalAnioIngreso As Decimal = DtIngresosAnualH.FiltroPrimeroValor($"{DtIngresosAnualH.Columns(IndexData).ColumnName}").ToDecimal
+                Dim TotalCuentaIngreso As Decimal = DtIngresosAnualH.SUMD("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+
+                Row.Item(IndexData) = TotalAnioIngreso
+
+
+                If TotalAnioIngreso <> 0 Then
+
+                    If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
+                        Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = TotalAnioIngreso * 100 / TotalCuentaIngreso
+                    Else
+                        Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = TotalAnioIngreso * 100 / TotalAnioIngreso
+                    End If
+
                 Else
                     Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = "0"
                 End If
@@ -1730,17 +1796,26 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             IndexData = 13
             For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
 
 
-                If DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") > 0 Then
-                    Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtGastosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+                Dim TotalAnioIngreso As Decimal = DtIngresosAnualH.FiltroPrimeroValor($"{DtIngresosAnualH.Columns(IndexData).ColumnName}").ToDecimal
+                Dim TotalAnioGasto As Decimal = DtGastosAnualH.SUMD($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
+                Dim TotalCuentaGasto As Decimal = DtGastosAnualH.SUMD("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+
+                Row.Item(IndexData) = TotalAnioGasto
+
+                If TotalAnioGasto <> 0 Then
+
+                    If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
+                        Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = TotalAnioGasto * 100 / TotalCuentaGasto
+                    Else
+                        Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = TotalAnioGasto * 100 / TotalAnioIngreso
+                    End If
+
                 Else
                     Row.Item($"Porcentaje{DtGastosAnualH.Columns(IndexData).ColumnName}") = "0"
                 End If
 
-
-
             Next
 
             Row.Item("Nombre") = "TOTAL GASTOS"
@@ -1766,11 +1841,24 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             IndexData = 13
             For IndexData = 13 To IndexMax
-                Row.Item(IndexData) = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosAnualH.SUM($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
 
 
-                If DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") > 0 Then
-                    Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+                Dim TotalAnioIngreso As Decimal = DtIngresosAnualH.SUMD($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
+                Dim TotalAnioGasto As Decimal = DtGastosAnualH.SUMD($"[{DtGastosAnualH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
+                Dim TotalCuentaGasto As Decimal = DtGastosAnualH.SUMD("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+
+                Row.Item(IndexData) = TotalAnioIngreso - TotalAnioGasto
+
+
+                If (TotalAnioIngreso - TotalAnioGasto) <> 0 Then
+
+                    If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
+                        '                    Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = DtIngresosAnualH.SUM($"[{DtIngresosAnualH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1,3,4)") * 100 / DtIngresosAnualH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+                        Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = (TotalAnioIngreso - TotalAnioGasto) * 100 / TotalCuentaGasto
+                    Else
+                        Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = (TotalAnioIngreso - TotalAnioGasto) * 100 / TotalAnioIngreso
+                    End If
+
                 Else
                     Row.Item($"Porcentaje{DtIngresosAnualH.Columns(IndexData).ColumnName}") = "0"
                 End If
@@ -1967,7 +2055,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
 
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then
+        If ObjConta.GetEstadosSubProyectoHorizontal(FechaIMes.ToDate, FechaFMes.ToDate, CveProyecto, CveSubProyecto, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, VistaPorcentaje:=DdlvistaPorcentaje.SelectedValue.ToEntero) Then
             DTSubProyectosCabecerasH = ObjConta.DSResultados.Tables(0)
             DtDatosSubProyectoH = ObjConta.DSResultados.Tables(1).FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
             'se limpian los subproyectos con importe cero
@@ -2022,8 +2110,8 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
         Dim IndexSubProyectoMax As Integer = DTSubProyectosCabecerasH.Rows.Count - 1
 
 
-        If IndexSubProyectoMAx > GvIngresosSubProyectoH.Columns.Count - 2 Then
-            IndexSubProyectoMAx = GvIngresosSubProyectoH.Columns.Count - 2
+        If IndexSubProyectoMax > GvIngresosSubProyectoH.Columns.Count - 2 Then
+            IndexSubProyectoMax = GvIngresosSubProyectoH.Columns.Count - 2
         End If
         Dim IndexTotales As Integer = 13 + IndexSubProyectoMax
         If IndexTotales > DtIngresosSubProyectoH.Columns.Count - 2 Then
@@ -2085,6 +2173,11 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                                 GvGastosSubProyectoH.Columns(IndexGv + 1).Visible = True
                             End If
 
+                            If dColumn.ColumnName = "SinSubProyecto" Then
+                                GvIngresosSubProyectoH.Columns(IndexGv).Visible = False
+                                GvIngresosSubProyectoH.Columns(IndexGv + 1).Visible = False
+                            End If
+
                         End If
                         listaCampos.Add(New String() {dColumn.ColumnName.ToString(), DTSubProyectosCabecerasH.Rows(IndexSubProyecto)(0).ToString()})
                     End If
@@ -2127,7 +2220,15 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
                     Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
 
                     If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") <> 0 Then
-                        Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+
+                        If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
+                            Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (3,4)")
+                        Else
+                            Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.FiltroPrimeroValor($"{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal
+                            Dim TotalCuentaIngreso As Decimal = DtIngresosSubProyectoH.SUMD($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (3,4)")
+                            Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = TotalCuentaIngreso * 100 / TotalProyectoIngreso
+                        End If
+
                     Else
                         Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
                     End If
@@ -2157,6 +2258,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             DtIngresosSubProyectoH.Rows.Add(Row)
 
         End If
+        DtIngresosSubProyectoH.Rows.Add(DtIngresosSubProyectoH.NewRow())
 
         Dim T1 = TotalActual, T2 = TotalAnterior
 
@@ -2172,12 +2274,24 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             IndexData = 13
             For IndexData = 13 To IndexTotales
                 If DtIngresosSubProyectoH.Columns(IndexData).ColumnName.ToEntero > 0 Then 'filtro solo los que tienen número
-                    Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
 
-                    'Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+                    Dim TotalProyectoIngreso As Decimal = DtIngresosSubProyectoH.FiltroPrimeroValor($"{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal
+                    Dim TotalProyectoEgreso As Decimal = DtGastosSubProyectoH.FiltroPrimeroValor($"{DtGastosSubProyectoH.Columns(IndexData).ColumnName}").ToDecimal
+
+                    Row.Item(IndexData) = TotalProyectoIngreso - TotalProyectoEgreso
+
+                    'Row.Item(IndexData) = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)") - DtGastosSubProyectoH.SUM($"[{DtGastosSubProyectoH.Columns(IndexData).ColumnName}]", "Not CtaMayor In (-1,3,4)")
+
+                    If TotalProyectoIngreso <> 0 Or TotalProyectoEgreso <> 0 Then
+
+                        If DdlvistaPorcentaje.SelectedValue.ToEntero = 1 Then
+                            'Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+                            Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
+                        Else
+                            Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = (TotalProyectoIngreso - TotalProyectoEgreso) * 100 / TotalProyectoIngreso
+                        End If
+
 
-                    If DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)").ToDecimal <> 0 Then
-                        Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = DtIngresosSubProyectoH.SUM($"[{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}]", "NOT CtaMayor in (-1, 3,4)") * 100 / DtIngresosSubProyectoH.SUM("ImporteAcumulado", "NOT CtaMayor in (-1,3,4)")
                     Else
                         Row.Item($"Porcentaje{DtIngresosSubProyectoH.Columns(IndexData).ColumnName}") = "0"
                     End If
@@ -2222,6 +2336,9 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
     Protected Sub GvIngresosSubProyectoH_RowDataBound(sender As Object, e As GridViewRowEventArgs)
 
         If e.Row.RowType = DataControlRowType.DataRow Then
+
+            e.Row.FCHyperLink("Hypgrafica").Visible = If(e.Row.DBCampo("Nombre").ToString.Length > 0, True, False)
+
             If e.Row.DBCampo("CtaMayor").ToString.ToEntero = -1 Then
                 TotalActualMes += e.Row.DBCampo("ImporteActual").ToString.ToDouble
                 TotalAnteriorMes += e.Row.DBCampo("ImporteAcumulado").ToString.ToDouble
@@ -2375,14 +2492,14 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
     Private Sub Imprimir(Optional reporte As String = "PDF")
 
 
-        If TAB.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then
+        If Tab.ActiveTabIndex = 0 AndAlso GvIngresosMes.Rows.Count > 0 Then
             ExportToExcelG(GvIngresosMes, GvGastosMes, TMesT1, "Reporte_Mensual", UsuarioActual, "Mensual")
-        ElseIf TAB.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then
+        ElseIf Tab.ActiveTabIndex = 1 AndAlso GvIngresosMesH.Rows.Count > 0 Then
             ExportToExcelG(GvIngresosMesH, GvGastosMesH, TMesT1, "Reporte_Mensual_Horizontal", UsuarioActual, "Mensual Horizontal", Gv3:=GvTotalesMesH)
-        ElseIf TAB.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then
+        ElseIf Tab.ActiveTabIndex = 2 AndAlso GvIngresosAnualH.Rows.Count > 0 Then
             ExportToExcelG(GvIngresosAnualH, GvGastosAnualH, TMesT1, "Reporte_Anual_Horizontal", UsuarioActual, "Anual Horizontal", Gv3:=GvTotalesAnualH)
 
-        ElseIf TAB.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then
+        ElseIf Tab.ActiveTabIndex = 3 AndAlso GvIngresosSubProyectoH.Rows.Count > 0 Then
 
             ExportToExcelG(GvIngresosSubProyectoH, GvGastosSubProyectoH, TMesT1, "Reporte_Proyecto_Horizontal", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", Gv3:=GvTotalesSubProyectoH, EsPorSubProtyecto:=True)
 
@@ -2556,7 +2673,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
             worksheet.Rows(IndexEndTable + 1).Cells(0).Value = Usuario.Nombre
 
             worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
-            worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
+            worksheet.Rows(IndexEndTable + 1).Cells(2).Value = NowADS().ToString("dd/MM/yyyy")
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
 

Contabilidad2/RepFlujoEfectivo.aspx.vb

@@ -52,8 +52,8 @@ Partial Class AC2_RepFlujoEfectivo
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
-            TxtFechaAl.Text = Date.Now.ToShortDateString
+            TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
+            TxtFechaAl.Text = NowADS().ToShortDateString
 
             CargaDatos()
         End If
@@ -67,8 +67,8 @@ Partial Class AC2_RepFlujoEfectivo
         DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
         DdlSubproyecto.DataBind()
 
-        Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-        Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+        Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
         FechaAl = TxtFechaAl.Text
         Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
         Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero
@@ -215,7 +215,7 @@ Partial Class AC2_RepFlujoEfectivo
     'End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        'GvDatos.ExportToExcel("ReporteFlujoEfectivo" & Now.ToShortDateString)
+        'GvDatos.ExportToExcel("ReporteFlujoEfectivo" & NowADS().ToShortDateString)
         ImprimirReporte("Excel")
     End Sub
 

Contabilidad2/RepLibroDiario.aspx.vb

@@ -46,8 +46,8 @@ Partial Class Contabilidad2_RepLibroDiario
 
     Private Sub InicializaValores()
 
-        TxtFechaDel.Text = $"01/01/{Now.Year}"
-        TxtFechaAl.Text = Now.ToShortDateString
+        TxtFechaDel.Text = $"01/01/{NowADS().Year}"
+        TxtFechaAl.Text = NowADS().ToShortDateString
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
@@ -156,15 +156,15 @@ Partial Class Contabilidad2_RepLibroDiario
 #Region "  IMPRIMIR  "
 
     Protected Sub Imprimir_click(sender As Object, e As EventArgs) Handles Imprimir.Click
-        'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-        'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+        'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
         'DtDatos = DtDatos
         ImprimirReporte()
     End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-        'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+        'FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        'FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
         'DtDatos = DtDatos
         ImprimirReporte("EXCEL")
     End Sub

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -91,8 +91,8 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
             CargaTipoCuentas()
             'TxtCuenta.Enabled = False
 
-            txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
-            txtFechaF.Text = Now.LastDayOfMonth.ToShortDateString
+            txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
+            txtFechaF.Text = NowADS().LastDayOfMonth.ToShortDateString
 
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
@@ -158,8 +158,8 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         If DdlCuentas.SelectedValue.ToEntero = -1 Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
-            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
-            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
+            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
+            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
 
             CargaDatos()
         End If
@@ -382,8 +382,8 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         If DdlCuentas.SelectedValue.ToEntero = -1 Then
             Alert("El campo Cuenta es obligatorio.", TipoMensaje.MsgError)
         Else
-            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", Date.Now, txtFechaI.Text.ToDate)
-            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", Date.Now, txtFechaF.Text.ToDate)
+            FechaInicio = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", NowADS(), txtFechaI.Text.ToDate)
+            FechaFin = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", NowADS(), txtFechaF.Text.ToDate)
 
             DtDatos = DtDatos
             ImprimirReporte()
@@ -407,7 +407,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         '    strinLiteral = $"<table style='width:{ GvDatos.Width }px'><tr> 
         '                            <td colspan='3'  style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'><img  width='200px' height='150px' style='max-height:150px!important;max-width:200px!important'   src='{RutaLogo}' /> </td> 
         '                            <td colspan='3' style='width:70%;height:150px; text-align:center; vertical-align:middle;font-weight: bold; display: block;'><p><span>{UsuarioActual.Empresa.Empresa} </span><br><span> Movimientos Auxiliares del Catálogo<p></td> 
-        '                            <td colspan='3' style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'> Fecha:{Now.ToString("dd/MM/yyyy")}</td> 
+        '                            <td colspan='3' style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'> Fecha:{NowADS().ToString("dd/MM/yyyy")}</td> 
         '                    </tr>
         '                            <tr>
         '                            <td  style='text-align:left;' colspan='6'>
@@ -419,7 +419,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         '    strinLiteral = $"<table style='width:{ GvDatos.Width }px'><tr> 
         '                            <td colspan='3' style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'> </td> 
         '                            <td colspan='3' style='width:70%;height:150px; text-align:center; vertical-align:middle;font-weight: bold; display: block;'><p><span>{UsuarioActual.Empresa.Empresa} </span><br><span> Movimientos Auxiliares del Catálogo<p></td> 
-        '                            <td colspan='3' style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'> Fecha:{Now.ToString("dd/MM/yyyy")}</td> 
+        '                            <td colspan='3' style='width:15%;height:150px; text-align:center; vertical-align:middle;font-weight: bold;'> Fecha:{NowADS().ToString("dd/MM/yyyy")}</td> 
         '                    </tr>
         '                             <tr>
         '                            <td  style='text-align:left;' colspan='9'>
@@ -431,7 +431,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         'End If
 
         'EncabezadoLiteral.Text = strinLiteral
-        'GvDatos.ExportToExcel($"MovimientosAuxiliares_{Now.ToString("yyyyMMddmmss")}", Encabezado2:=EncabezadoLiteral)
+        'GvDatos.ExportToExcel($"MovimientosAuxiliares_{NowADS().ToString("yyyyMMddmmss")}", Encabezado2:=EncabezadoLiteral)
 
     End Sub
 

Contabilidad2/RepOrigenAplicacion.aspx.vb

@@ -72,8 +72,8 @@ Partial Class Contabilidad2_RepOrigenAplicacion
             'End If
 
             'Normal
-            TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
-            TxtFechaAl.Text = Date.Now.ToShortDateString
+            TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
+            TxtFechaAl.Text = NowADS().ToShortDateString
 
             'Anual
             Anos = 0
@@ -87,7 +87,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion
             DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
             DdlSubproyecto.DataBind()
 
-            DdlEjercicio.SelectedValue = Now.Year.ToString
+            DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
             TabContainer_ActiveTabChanged(TabContainer, EventArgs.Empty)
 
@@ -155,8 +155,8 @@ Partial Class Contabilidad2_RepOrigenAplicacion
         '        Dim FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, "0"c), Anio)
         '       Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
 
-        Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-        Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+        Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
         Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
 
@@ -296,7 +296,7 @@ Partial Class Contabilidad2_RepOrigenAplicacion
 
         TipoReporte = If(TipoReporte = -1, -1, DdlTipoReporte.SelectedValue.ToEntero)
         Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
-        Anos = (Year(Date.Now) - DdlEjercicio.SelectedValue.ToEntero) + 1
+        Anos = (Year(NowADS()) - DdlEjercicio.SelectedValue.ToEntero) + 1
 
         If ObjConta.GetOrigenAplicacionAnual(DdlEjercicio.SelectedValue.ToEntero, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtDatosAnual = ObjConta.DtResultados

Contabilidad2/RepSituacionFinanciera.aspx.vb

@@ -144,8 +144,8 @@ Partial Class AC2_SituacionFinanciera
             TotalPasivoPatrimonioActual = 0
             TotalPasivoPatrimonioAnterior = 0
 
-            'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString
-            'TxtFechaFin.Text = Date.Now.ToShortDateString
+            'TxtFechaInicio.Text = DateSerial(Year(NowADS()), 1, 1).ToShortDateString
+            'TxtFechaFin.Text = NowADS().ToShortDateString
 
             CargaEjercicios()
 
@@ -170,10 +170,10 @@ Partial Class AC2_SituacionFinanciera
         End If
         Clsconta.Dispose()
         DdlEjercicioCierre.DataBind()
-        DdlEjercicioCierre.SelectedValue = Now.Year.ToString
+        DdlEjercicioCierre.SelectedValue = NowADS().Year.ToString
 
         DdlEjercicio.DataBind()
-        DdlEjercicio.SelectedValue = Now.Year.ToString
+        DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
         DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
         DdlSubproyecto.DataBind()
@@ -181,7 +181,7 @@ Partial Class AC2_SituacionFinanciera
         If UsuarioActual.TienePermisoProceso(346) Then LnkCerrar.Visible = True
 
         'DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
-        DdlPeriodo.SelectedValue = Now.Month.ToString
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
     End Sub
 
     Private Sub CargaDatos()

Contabilidad2/RepSituacionFinanciera.aspx.vb_old

@@ -144,8 +144,8 @@ Partial Class AC2_SituacionFinanciera
             TotalPasivoPatrimonioActual = 0
             TotalPasivoPatrimonioAnterior = 0
 
-            'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString
-            'TxtFechaFin.Text = Date.Now.ToShortDateString
+            'TxtFechaInicio.Text = DateSerial(Year(NowADS()), 1, 1).ToShortDateString
+            'TxtFechaFin.Text = NowADS().ToShortDateString
 
             CargaEjercicios()
 
@@ -164,14 +164,14 @@ Partial Class AC2_SituacionFinanciera
         Clsconta.Dispose()
         DdlEjercicio.DataBind()
 
-        DdlEjercicio.SelectedValue = Now.Year.ToString
+        DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
         DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
         DdlSubproyecto.DataBind()
 
 
         'DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
-        DdlPeriodo.SelectedValue = Now.Month.ToString
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
     End Sub
 
     Private Sub CargaDatos()

Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude

@@ -145,8 +145,8 @@ Partial Class AC2_SituacionFinanciera
             TotalPasivoPatrimonioActual = 0
             TotalPasivoPatrimonioAnterior = 0
 
-            'TxtFechaInicio.Text = DateSerial(Year(Date.Now), 1, 1).ToShortDateString
-            'TxtFechaFin.Text = Date.Now.ToShortDateString
+            'TxtFechaInicio.Text = DateSerial(Year(NowADS()), 1, 1).ToShortDateString
+            'TxtFechaFin.Text = NowADS().ToShortDateString
 
             CargaEjercicios()
 
@@ -165,14 +165,14 @@ Partial Class AC2_SituacionFinanciera
         ClsConta.Dispose()
         DdlEjercicio.DataBind()
 
-        DdlEjercicio.SelectedValue = Now.Year.ToString
+        DdlEjercicio.SelectedValue = NowADS().Year.ToString
 
         DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
         DdlSubproyecto.DataBind()
 
 
         'DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)
-        DdlPeriodo.SelectedValue = Now.Month.ToString
+        DdlPeriodo.SelectedValue = NowADS().Month.ToString
     End Sub
 
     Private Sub CargaDatos()

Contabilidad2/RepVariacionHaciendaPublica.aspx.vb

@@ -78,8 +78,8 @@ Partial Class AC_RepVariacionHaciendaPublica
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
-            TxtFechaDel.Text = DateSerial(Year(Now), Month(Now), 1).ToShortDateString
-            TxtFechaAl.Text = Date.Now.ToShortDateString
+            TxtFechaDel.Text = DateSerial(Year(NowADS()), Month(NowADS()), 1).ToShortDateString
+            TxtFechaAl.Text = NowADS().ToShortDateString
 
 
             CargaDatos()
@@ -92,8 +92,8 @@ Partial Class AC_RepVariacionHaciendaPublica
         'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
         Dim ObjConta As New ClsContabilidad
 
-        Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", Date.Now, TxtFechaDel.Text.ToDate)
-        Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", Date.Now, TxtFechaAl.Text.ToDate)
+        Dim FechaInicio = If(TxtFechaDel.Text = "" Or TxtFechaDel.Text = "__/__/____", NowADS(), TxtFechaDel.Text.ToDate)
+        Dim FechaFin = If(TxtFechaAl.Text = "" Or TxtFechaAl.Text = "__/__/____", NowADS(), TxtFechaAl.Text.ToDate)
 
         FechaDel = TxtFechaDel.Text
         FechaAl = TxtFechaAl.Text
@@ -371,7 +371,7 @@ Partial Class AC_RepVariacionHaciendaPublica
     'End Sub
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
-        'GvDatos.ExportToExcel("123456" & Now.ToShortDateString)
+        'GvDatos.ExportToExcel("123456" & NowADS().ToShortDateString)
         ImprimirReporte("Excel") 'Descarga reporte en Excel
     End Sub
 

Contabilidad2/Reportes/RepSituacionFinanciera.rdlc

@@ -23,15 +23,15 @@
         </Field>
         <Field Name="ImporteActual">
           <DataField>ImporteActual</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="ImporteAnterior">
           <DataField>ImporteAnterior</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="CtaMayor">
           <DataField>CtaMayor</DataField>
-          <rd:TypeName>System.Int16</rd:TypeName>
+          <rd:TypeName>System.Decimal</rd:TypeName>
         </Field>
         <Field Name="Orden">
           <DataField>Orden</DataField>
@@ -3040,7 +3040,7 @@
       <Value>=Sum(iif(Fields!Tipo.Value.ToString() = "A" OR  Fields!Tipo.Value.ToString() = "B" OR Fields!Tipo.Value.ToString() = "C" OR Cint(Fields!TipoCuenta.Value) = 9  , Fields!ImporteActual.Value, 0)  , "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalActivoAnterior">
-      <Value>=Sum( iif(Fields!Sup.Value  = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9  , Fields!ImporteAnterior.Value, 0), "DataSet1")</Value>
+      <Value>=Sum( iif(Fields!Sup.Value  = "ACTIVO NO CIRCULANTE" OR Fields!Sup.Value="ACTIVO CIRCULANTE" OR Cint(Fields!TipoCuenta.value) = 9  ,   Cint(Fields!ImporteAnterior.Value) , 0.0), "DataSet1")</Value>
     </Variable>
     <Variable Name="TotalPasivoActual">
       <Value>=Sum( iif(Fields!Sup.Value = "PASIVO CIRCULANTE" OR Fields!Sup.Value = "PASIVO NO CIRCULANTE"  OR Fields!Sup.Value = "Pasivo a corto plazo" OR Fields!Sup.Value = "Pasivo a largo plazo",