*&---------------------------------------------------------------------*
*& Report  Z_AF_AJUSTES_NIIF_ENEL                                      *
*&                                                                     *
*&---------------------------------------------------------------------*
*& Autor: Heizenreder Guillermo                                        *
*& Fecha: 10 - 09 - 2010                                               *
*& Descripción:                                                        *
*& Identificación mediante un informe de la inversión histórica y su   *
*& correspondiente amortización, que da lugar a ajuste específico en el*
*& reporting a Enel, referentes a la activación de Intereses           *
*& Intercalarios y Subvenciones.                                       *
*&---------------------------------------------------------------------*

REPORT  z_af_ajustes_niif_enel                  .

INCLUDE z_af_ajustes_niif_enel_top.
INCLUDE z_af_ajustes_niif_enel_form.

INITIALIZATION.
  repid = sy-repid.
  CLEAR gs_disvariant.
  gs_disvariant-report = repid.
  " Obtengo el mes actual.
  gv_af_mes_en_curso = sy-datum+4(2).
  PERFORM Z_AF_LIMPIAR_SCREEN.

AT SELECTION-SCREEN.
  " Para realizar las validaciones.
  " TODO.

AT SELECTION-SCREEN OUTPUT.
  PERFORM Z_AF_LIMPIAR_SCREEN.
  PERFORM Z_AF_MODIFICAR_SCREEN.
  PERFORM Z_AF_AJUSTES_INFORME.

*----------------------------------------------------------------------*
*  VALIDACION DE PARAMETROS DE PANTALLA
*----------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR variant.

  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant    = gs_disvariant
    IMPORTING
      e_exit        = gv_exit
      es_variant    = gs_disvariant
    EXCEPTIONS
      not_found     = 1
      program_error = 2
      OTHERS        = 3.

  IF SY-SUBRC <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
  variant = gs_disvariant-variant.

START-OF-SELECTION.
  " Todos los errores en este evento se manejan con el tipo I.

  PERFORM Z_AF_OBTENER_PERIODOS.
  PERFORM Z_AF_GESTIONAR_CONSULTA.
  IF sy-subrc NE 0.
    " No se han encontrado entradas en la tabla para la clave indicada.
    MESSAGE s003(zmensaje).
  ELSE.
    PERFORM Z_AF_GESTIONAR_ALV.
  ENDIF.