*&---------------------------------------------------------------------*
*& Report  ZHRST_EFD_EHS
*&
*&---------------------------------------------------------------------*
*& PROGRAMA   : ZHRST_EFD_EHS                                          *
*& PROJETO    : E-Social SST                                           *
*& AUTOR      :                                                        *
*& DATA:      : 13/06/2019                                             *
*&---------------------------------------------------------------------*

REPORT zhrst_efd_ehs.

INCLUDE zhrst_efd_ehs_declaration.
INCLUDE zhrst_efd_ehs_sst.
INCLUDE zhrst_efd_ehs_sel.

****************

START-OF-SELECTION.

  pnpstat2-option = 'EQ'.
  pnpstat2-sign   = 'I'.
  pnpstat2-low    = '3'.
  APPEND pnpstat2.

  GET pernr.

  IF p_event EQ '1060'.
    STOP.
  ELSE.
    APPEND pernr TO lt_pernr.
  ENDIF.

END-OF-SELECTION.

****************

  IF lt_t001 IS NOT INITIAL.
    CREATE DATA lr_data LIKE lt_t001.
    ASSIGN lr_data->* TO <ft_table>.
    <ft_table> = lt_t001.
  ELSE.
    CREATE DATA lr_data LIKE lt_pernr.
    ASSIGN lr_data->* TO <ft_table>.
    <ft_table> = lt_pernr.
  ENDIF.

****************

  CHECK lcl_sst=>sst_validations( EXPORTING i_event  = p_event
                                            it_table = <ft_table> ) = 'X'.

  DATA: lo_sst TYPE REF TO lcl_sst.
  CREATE OBJECT lo_sst
    EXPORTING
      it_range_date = s_date[]
      i_event       = p_event
      it_table      = <ft_table>.

  IF lo_sst IS BOUND.
    lo_sst->run( ).
  ENDIF.