Estado Resultados Horizontal

Contabilidad2/RepAnexoCatalogoAnual.aspx.vb

@@ -28,22 +28,27 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
-            Dim EjercicioParametro, EjercicioParametroFinal, SubProyectoParametro, DivisorParametro As Integer
+            Dim EjercicioParametro, EjercicioParametroFinal, SubProyectoParametro, DivisorParametro, Periodo As Integer
 
             CveCuenta = IfNull(Request("CveCuenta"), "-1").ToString.ToEntero
-            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
-            EjercicioParametroFinal = IfNull(Request("Ejerciciofinal"), "-1").ToString.ToEntero
+            EjercicioParametro = IfNull(Request("Ejercicio"), "-1").ToString.ToEntero
+
+            EjercicioParametroFinal = IfNull(Request("EjercicioFinal"), "-1").ToString.ToEntero
             SubProyectoParametro = IfNull(Request("CveSubproyecto"), "-1").ToString.ToEntero
             DivisorParametro = IfNull(Request("Divisor"), "-1").ToString.ToEntero
-
+            Periodo = IfNull(Request("Periodo"), "-1").ToString.ToEntero
             EsVertical = IfNull(Request("V"), "-1").ToString.ToEntero
 
             InicializaValores()
 
             DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString)
+            DdlEjercicio2.SelectedValueExist(EjercicioParametroFinal.ToString)
+
             DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString)
             DdlDivisor.SelectedValueExist(DivisorParametro.ToString)
 
+            DdlPeriodo.SelectedValueExist(Periodo)
+
             CargaDatos()
 
         End If
@@ -59,12 +64,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
         Dim Conta As New ClsContabilidad
         If Conta.GetEjercicios(UsuarioActual.CveEmpresa) Then
             DdlEjercicio.DataSource = Conta.DtResultados
+            DdlEjercicio2.DataSource = Conta.DtResultados
         Else
             DdlEjercicio.DataSource = Nothing
+            DdlEjercicio2.DataSource = Nothing
         End If
         Conta.Dispose()
 
         DdlEjercicio.DataBind()
+        DdlEjercicio2.DataBind()
 
 
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
@@ -83,7 +91,7 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
     Private Sub CargaDatos()
         Dim Conta As New ClsContabilidad
 
-        If Conta.GetAnexoCatalogoAnual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+        If Conta.GetAnexoCatalogoAnual(CveCuenta, DdlEjercicio.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlEjercicio2.SelectedValue.ToEntero, DdlDivisor.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlPeriodo.SelectedValue.ToEntero) Then
             Dim DtHeaders As DataTable = Conta.DSResultados.Tables(0)
             GvAnual.DataSource = Conta.DSResultados.Tables(1)
 
@@ -123,7 +131,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
         GvAnual.DataBind()
         UpAnual.Update()
 
-        RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});")
+        'RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});")
+        RegistraScript($"LimpiaCeros();")
         Conta.Dispose()
     End Sub