diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx b/Contabilidad2/RepAnexoCatalogoAnual.aspx index 8789e9f31..fc12ba75c 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx @@ -56,16 +56,16 @@ diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb index ef64e84a7..f88da1720 100644 --- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb @@ -137,9 +137,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString) DdlDivisor.SelectedValueExist(DivisorParametro.ToString) - DdlPeriodo.SelectedValueExist(Periodo) - - CargaDatos() + DdlPeriodo.SelectedValueExist(Periodo) + + If CveCuenta > 0 Then + DdlCuentas.SelectedValueExist(CveCuenta) + CargaDatos() + End If End If End Sub @@ -158,9 +161,21 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual Else DdlEjercicio.DataSource = Nothing DdlEjercicio2.DataSource = Nothing + End If + + Dim strGlobal As String = "" + + If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") + If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString + DdlCuentas.DataSource = Conta.DtResultados End If + + Conta.Dispose() + DdlCuentas.DataBind() + DdlEjercicio.DataBind() DdlEjercicio2.DataBind() @@ -181,8 +196,8 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual Private Sub CargaDatos() - If CveCuenta <= -1 Then - Alert("No hay una cuenta expecificada.", TipoMensaje.MsgAdvertencia) + If Not DdlCuentas.SelectedValue.ToEntero > 0 Then + Alert("Debe de seleccionar una cuenta.") Exit Sub End If diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx b/Contabilidad2/RepAnexoCatalogoCC.aspx index 0a34338fd..fce33e0af 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx @@ -88,6 +88,20 @@ + +
  • Cuenta: +
  • +
  • + + + + + + + +
  • + + diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb index 55871e9f4..50a086700 100644 --- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb @@ -106,10 +106,16 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC DdlEjercicio.SelectedValueExist(EjercicioParametro.ToString) DdlSubProyecto.SelectedValueExist(SubProyectoParametro.ToString) DdlDivisor.SelectedValueExist(DivisorParametro.ToString) - DdlPeriodo.SelectedValueExist(Periodo) - - CargaDatos() - + DdlPeriodo.SelectedValueExist(Periodo) + + + If CveCuenta > 0 Then + DdlCuentas.SelectedValueExist(CveCuenta) + CargaDatos() + End If + + + End If End Sub @@ -125,18 +131,38 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC DdlEjercicio.DataSource = Conta.DtResultados Else DdlEjercicio.DataSource = Nothing + End If + + Dim strGlobal As String = "" + + If Conta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then + Dim dr As DataRow = Conta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')") + If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString + DdlCuentas.DataSource = Conta.DtResultados End If + + Conta.Dispose() DdlEjercicio.DataBind() - DdlEjercicio.SelectedValueExist(Now.Year.ToString) - - 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) - 'DdlSubProyecto.DataBind() - 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - 'DdlSubProyecto.SelectedValue = "-1" - + DdlEjercicio.SelectedValueExist(Now.Year.ToString) + + DdlCuentas.DataBind() + + 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + 'DdlSubProyecto.DataBind() + 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) + 'DdlSubProyecto.SelectedValue = "-1" + + + + + End Sub + + + + #End Region @@ -147,6 +173,12 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC Private Sub CargaDatos() + + If Not DdlCuentas.SelectedValue.ToEntero > 0 Then + Alert("Debe de seleccionar una cuenta.") + Exit Sub + End If + DTHeaders = New DataTable DTDatos = New DataTable Dim Conta As New ClsContabilidad diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx b/Contabilidad2/RepAnexoCatalogoMensual.aspx index dd41e2feb..b83546560 100644 --- a/Contabilidad2/RepAnexoCatalogoMensual.aspx +++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx @@ -56,16 +56,17 @@
    +