When clic in the field "i_ekpo-ebeln" tab exit in report ALV

Question

Good Afternoon! *********************************************************
Coloquei all the code, I believe for better clarification. When clico in the field i_ekpo-ebeln in the report is called transaction ME23 c/o GRID this functioning normally, but with the reports List and Hierarquico it does not happen the same and it prints in the baseboard the message "Invalid Function". when standard use buttons, functions of course.
obs.: I had that to create a SET Pf-status for each type of report pos I wanted that when clicar in the field box and clicar in the button "TO PRINT REPORT" it printed sapscript. How I make to solve such problem?
Att, Carlos Eduardo.
REPORT ztreino NO STANDARD PAGE HEADING LINE-SIZE 220.
************************declarações*********************
DATA: BEGIN OF y_ekko OCCURS 0,
        ebeln TYPE ekko-ebeln,  "Nº documento de compra
        bukrs TYPE ekko-bukrs,  "Empresa
        bsart TYPE ekko-bsart,  "Documento de compra
        loekz TYPE ekko-loekz,  "Código de eliminação
        aedat TYPE ekko-aedat,  "Data de criação do registro
        ernam TYPE ekko-ernam,  "Nome do responsável que criou o objeto
        lifnr TYPE ekko-lifnr,  "Nº conta do fornecedor
        ekgrp TYPE ekko-ekgrp,  "Grupo de compradores
        waers TYPE ekko-waers,  "Chave da moeda
        BOX   TYPE ptrv_approval-box, "campo para chekinbox
      END OF y_ekko,
      BEGIN OF y_ekpo OCCURS 0,
        ebeln TYPE ekpo-ebeln,  "Nº documento de compra
        ebelp TYPE ekpo-ebelp,  "Nº item do documento de compra
        loekz TYPE ekpo-loekz,  "Código de eliminação
        txz01 TYPE ekpo-txz01,  "Texto breve
        matnr TYPE ekpo-matnr,  "Nº material
        bukrs TYPE ekpo-bukrs,  "Empresa
        werks TYPE ekpo-werks,  "Centro
        menge TYPE ekpo-menge,  "Quantidade do pedido
        netpr TYPE ekpo-netpr,  "Preço líquido no documento de compra
        BOX   TYPE ptrv_approval-box, "campo para chekinbox
      END OF y_ekpo.
*início seleção de dados
SELECTION-SCREEN BEGIN OF BLOCK bl2 WITH FRAME TITLE text-000.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP.
                                *Nº documento de compra
SELECT-OPTIONS : s_ebeln FOR ekko-ebeln NO INTERVALS OBLIGATORY,
                 s_bukrs FOR ekko-bukrs OBLIGATORY,  "Empresa
                 s_bsart FOR ekko-bsart.  "Documento de compra
SELECTION-SCREEN END OF BLOCK bl1.
SELECTION-SCREEN END OF BLOCK bl2.
**fim da seleção de dados----
**início da variante
SELECTION-SCREEN BEGIN OF BLOCK bl4 WITH FRAME TITLE text-000.
SELECTION-SCREEN BEGIN OF BLOCK bl3 WITH FRAME TITLE text-002.
PARAMETERS : p_vari LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK bl3.
SELECTION-SCREEN END OF BLOCK bl4.
***fim variante -
***início modo relatório
SELECTION-SCREEN BEGIN OF BLOCK bl5 WITH FRAME TITLE text-000.
SELECTION-SCREEN BEGIN OF BLOCK bl6 WITH FRAME TITLE text-003.
SELECTION-SCREEN SKIP.
  PARAMETERS : rb1 RADIOBUTTON GROUP TIPO DEFAULT 'X',
               rb2 RADIOBUTTON GROUP TIPO,
               rb3 RADIOBUTTON GROUP TIPO.
SELECTION-SCREEN END OF BLOCK bl6.
SELECTION-SCREEN END OF BLOCK bl5.
****fim modo relatório
*******início da opção de download
Dados do arquivo texto de saída.
SELECTION-SCREEN BEGIN OF BLOCK bl9 WITH FRAME TITLE text-004.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) text-005.
PARAMETERS: p_gerar  AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) text-006.
PARAMETERS: p_dir  LIKE rlgrap-filename DEFAULT 'c:'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(15) text-007.
PARAMETERS: p_arq  LIKE rlgrap-filename DEFAULT 'nota-geral.txt'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK bl9.
DATA :
      i_ekko  LIKE     y_ekko OCCURS 0 WITH HEADER LINE,
      i_ekpo  LIKE     y_ekpo OCCURS 0 WITH HEADER LINE.
     i_tabsaida LIKE  y_saida OCCURS 0 WITH HEADER LINE.
*********************Fim Declarações*******************************
*********************Declarações ALV*******************************
TYPE-POOLS : slis.
DATA :
       s_layout    TYPE  slis_layout_alv,
       t_sort      TYPE  slis_t_sortinfo_alv WITH HEADER LINE,
       t_fieldcat  TYPE  slis_t_fieldcat_alv WITH HEADER LINE,
       s_grupos    TYPE  slis_t_sp_group_alv WITH HEADER LINE,
       s_keyinfo   TYPE  slis_keyinfo_alv,
       extab       TYPE  slis_t_extab.
DATA :
       variant_exit(1) TYPE  c,
       def_variant(1)  TYPE  c,
       s_print      TYPE  slis_print_alv,
       s_top        TYPE  slis_t_listheader,
       variante     TYPE  disvariant,
       def_variante TYPE  disvariant,
       v_repid      LIKE  sy-repid,
*------pega a data que esta rodando a transação
       v_datasaida(10)  TYPE C,
*------para saber quantos Pedidos na EKKO
       v_exibe      TYPE I,
       s_selfield type slis_selfield,
       v_ucomm like sy-ucomm.
**********************Fim declarações ALV*************************
               Contants para Sapscript e declarações                 *
TABLES: ITCPO.
CONSTANTS:  c_on(1)  TYPE  C  VALUE  'X',    "Parâmetro para o Sapscript
            c_off(1) TYPE  C  VALUE  ''.     "Parâmetro para o Sapscript
Data:
      v_element(15) TYPE C,  "Elemento de texto do Sap Script
      v_type(15)    TYPE C,  "BODY
      v_window(15)  TYPE C,  "Janela
      flag          TYPE I,  "Uma condição para impressão do sapscript
      resp          TYPE C,  "resposta para confirmação do download tab
      zlen          TYPE I,  "Para verificar o um diretório válido
Para a função WS_DOWNLOAD só em declarar as variaveis deste tipo já *
seria o bastante para passar o caminho para a função
TABLES : ekko, ekpo.
                   initialization                                    *
INITIALIZATION.
  PERFORM zf_verifica_variante.
               at selection-screen on value-request                  *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
  PERFORM zf_busca_variante_existente.
             at seletion-screen                                      *
AT SELECTION-SCREEN.
  PERFORM zf_valida_variante.
validar os campo antes de fazer download do arquivo
  PERFORM zf_trata_parametros_gerar_arqu.
            start-of-selection                                       *
START-OF-SELECTION.
  PERFORM zf_seleciona_dados.
                   Criando ALV                                       *
  PERFORM zf_alv.
*&      Form  zf_verifica_variante
      text
-->  Verifica se a variante selecionada é existente
FORM zf_verifica_variante.
  CLEAR variante.
  v_repid = sy-repid.
  variante-report = v_repid.
Buscar variante default
  def_variante = variante.
  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
       EXPORTING
            i_save        = 'A'
       CHANGING
            cs_variant    = def_variante
       EXCEPTIONS
            wrong_input   = 1
            not_found     = 2
            program_error = 3
            OTHERS        = 4.
  IF sy-subrc EQ 0.
    p_vari = def_variante-variant.
  ENDIF.
ENDFORM.                    " zf_verifica_variante
*&      Form  zf_busca_variante_existente
*-       text
*-  --> Vai buscar a variante existente
FORM zf_busca_variante_existente.
  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
       EXPORTING
            is_variant          = variante      " Report com as
            i_save              = 'A'           " Variantes Salvas
            i_tabname_header    = 'I_EKPO'      " Tabela interna saida
            it_default_fieldcat = t_fieldcat[]  " Tabela de formatação
            i_display_via_grid  = 'X'  " Dispara POPUP em ALV
       IMPORTING
            e_exit           = variant_exit  " Se não existir variante X
            es_variant       = def_variante     " Variante default
       EXCEPTIONS
            not_found           = 1
            program_error       = 2
            OTHERS              = 3.
  IF sy-subrc = 2.
      MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ELSE.
    IF variant_exit = space.
      p_vari = def_variante-variant. " Recebe variante escolhida
    ENDIF.
  ENDIF.
ENDFORM.                    " zf_busca_variante_existente
*-&      Form  zf_valida_variante
*-       text
*-  -->  Verifica se a variante digitada é válida.
FORM zf_valida_variante.
  IF NOT p_vari IS INITIAL.
    variante             =     def_variante.    "nome do report
    def_variante-variant =     p_vari.          "nome que foi digitado
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
         EXPORTING
              i_save     = 'A'
         CHANGING
              cs_variant = def_variante
              variante   = def_variante.
  ELSE.
    clear variante.
    variante-report = v_repid.
  ENDIF.
ENDFORM.                    " zf_valida_variante
-&      Form  zf_seleciona_dados
*-       text
-->  Seleciona os dados da ekko e ekpo
FORM zf_seleciona_dados.
  SELECT ebeln
       bukrs
       bsart
       loekz
       aedat
       ernam
       lifnr
       ekgrp
       waers
        FROM ekko
        INTO TABLE i_ekko
        WHERE
             ( ebeln IN s_ebeln AND
               bsart EQ 'NB' ).
SORT I_EKKO ASCENDING.
  IF sy-subrc EQ 0.
    SELECT ebeln
           ebelp
           loekz
           txz01
           matnr
           bukrs
           werks
           menge
           netpr
            FROM ekpo
            INTO TABLE i_ekpo
            FOR ALL ENTRIES IN i_ekko
            WHERE
                 ( ebeln EQ i_ekko-ebeln ).
  ENDIF.
SORT I_EKPO ASCENDING.
Para exibir no topo do relatório no grid
DESCRIBE TABLE I_EKKO LINES v_exibe.
ENDFORM.                    " zf_seleciona_dados
*-&      Form  zf_ALV
*-       text
-->  Opções de alv
FORM zf_alv.
IF rb1 = 'X'.
          PERFORM zf_gri.
ENDIF.
IF rb2 = 'X'.
          PERFORM ZF_HIERARQUICO.
ENDIF.
IF rb3  =  'X'.
          PERFORM ZF_LIST.
ENDIF.
ENDFORM.                    " zf_ALV
*&      Form  zf_gri
*-       text
*-  -->  Seqüência para gerar o alv grid
FORM zf_gri.
  PERFORM zf_layout.
  PERFORM zf_ordena_campos.
  PERFORM zf_monta_campos_alv.
  PERFORM zf_print.
  PERFORM zf_grupo.
  PERFORM zf_top  USING  s_top.
  IF  NOT  I_EKPO[] IS INITIAL.
    PERFORM zf_imprime_alv.
  ELSE.
    MESSAGE s000(zcl001)  WITH  'Nenhum registro encontrado.'.
    STOP.
  ENDIF.
ENDFORM.                    " zf_gri
*-&      Form  zf_layout
*-       text
-->  cria o layout do alv
FORM zf_layout.
  s_layout-box_tabname          = 'I_EKPO'.
  s_layout-box_fieldname        = 'BOX'.
  s_layout-get_selinfos         =  'X'.
  s_layout-detail_popup         =  'X'.
  s_layout-detail_initial_lines =  'X'.
  s_layout-zebra                =  'X'.
  s_layout-colwidth_optimize    =  'X'.
ENDFORM.                    " zf_layout
*-&      Form  zf_ordena_campos
*-       text
-->  Ordenação dos campos
FORM zf_ordena_campos.
  CLEAR t_sort.
  t_sort-spos      =  '1'.          "prioridade de ordenação
  t_sort-fieldname =  'EBELN'.      "campo da tab int. de saida
  t_sort-tabname   =  'I_EKPO'.     "tab inter de saida
  t_sort-up        =  'X'.          "ordenação do maior para o menor
  APPEND t_sort.
ENDFORM.                    " zf_ordena_campos
*-&      Form  zf_monta_campos_alv
      text
-->  è passado os campos de acordo com a ordem de exibição inicial
FORM zf_monta_campos_alv.
IF rb2  =  'X'.
  CLEAR t_FIELDCAT.
  t_FIELDCAT-FIELDNAME      =  'BOX'.
  t_FIELDCAT-TABNAME        =  'I_EKKO'.
  t_FIELDCAT-CHECKBOX       =  'X'.
  t_FIELDCAT-INPUT          =  'X'.
  APPEND t_FIELDCAT.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'EBELN'.
  t_fieldcat-tabname        =  'I_EKKO'.
  t_fieldcat-ref_fieldname  =  'EBELN'.
  t_fieldcat-ref_tabname    =  'EKKO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'BUKRS'.
  t_fieldcat-tabname        =  'I_EKKO'.
  t_fieldcat-ref_fieldname  =  'BUKRS'.
  t_fieldcat-ref_tabname    =  'EKKO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'BSART'.
  t_fieldcat-tabname        =  'I_EKKO'.
  t_fieldcat-ref_fieldname  =  'BSART'.
  t_fieldcat-ref_tabname    =  'EKKO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'AEDAT'.
  t_fieldcat-tabname        =  'I_EKKO'.
  t_fieldcat-ref_fieldname  =  'AEDAT'.
  t_fieldcat-ref_tabname    =  'EKKO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'ERNAM'.
  t_fieldcat-tabname        =  'I_EKKO'.
  t_fieldcat-ref_fieldname  =  'ERNAM'.
  t_fieldcat-ref_tabname    =  'EKKO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'LIFNR'.
  t_fieldcat-tabname        =  'I_EKKO'.
  t_fieldcat-ref_fieldname  =  'LIFNR'.
  t_fieldcat-ref_tabname    =  'EKKO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'EKGRP'.
  t_fieldcat-tabname        =  'I_EKKO'.
  t_fieldcat-ref_fieldname  =  'EKGRP'.
  t_fieldcat-ref_tabname    =  'EKKO'.
  APPEND t_fieldcat.
ENDIF.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'EBELN'.
  t_fieldcat-tabname        =  'I_EKPO'.
  t_fieldcat-ref_fieldname  =  'EBELN'.
  t_fieldcat-ref_tabname    =  'EKPO'.
  t_fieldcat-key            =  'X'.
  t_fieldcat-Hotspot        =  'X'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  T_fieldcat-fieldname     = 'EBELP'.
  T_fieldcat-tabname       = 'I_EKPO'.
  T_fieldcat-ref_fieldname = 'EBELP'.
  T_fieldcat-ref_tabname   = 'EKPO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'MATNR'.
  t_fieldcat-tabname        =  'I_EKPO'.
  t_fieldcat-ref_fieldname  =  'MATNR'.
  t_fieldcat-ref_tabname    =  'EKPO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'WERKS'.
  t_fieldcat-tabname        =  'I_EKPO'.
  t_fieldcat-ref_fieldname  =  'WERKS'.
  t_fieldcat-ref_tabname    =  'EKPO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'MENGE'.
  t_fieldcat-tabname        =  'I_EKPO'.
  t_fieldcat-ref_fieldname  =  'MENGE'.
  t_fieldcat-ref_tabname    =  'EKPO'.
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'NETPR'.
  t_fieldcat-tabname        =  'I_EKPO'.
  t_fieldcat-ref_fieldname  =  'NETPR'.
  t_fieldcat-ref_tabname    =  'EKPO'.
  t_fieldcat-do_sum         =  'X'. "totalizar campo
  APPEND t_fieldcat.
  CLEAR t_fieldcat.
  t_fieldcat-fieldname      =  'TXZ01'.
  t_fieldcat-tabname        =  'I_EKPO'.
  t_fieldcat-ref_fieldname  =  'TXZ01'.
  t_fieldcat-ref_tabname    =  'EKPO'.
  APPEND t_fieldcat.
ENDFORM.                    " zf_monta_campos_alv
*-&      Form  zf_top
*-       text
*-  --> Cria o texto de cabeçalho do ALV, passando por parametro o
--> p_S_TOP para s_top
FORM zf_top USING p_s_top  TYPE slis_t_listheader.
  DATA: ls_line  TYPE  slis_listheader.
  CLEAR  ls_line.
  ls_line-typ  =  'H'.
  ls_line-info  =  'Relatório de Compras por Classificação Contábil'.
  APPEND ls_line  TO  p_s_top.
  CLEAR  ls_line.
  ls_line-typ  =  'S'.
  ls_line-KEY  =  'Parametros Seleção '.
  ls_line-info  = '- Documento de compra'.
  APPEND ls_line  TO  p_s_top.
  CLEAR  ls_line.
  ls_line-typ  =  'S'.
  ls_line-info  = '- Empresa'.
  APPEND ls_line  TO  p_s_top.
  CLEAR  ls_line.
  ls_line-typ  =  'S'.
  ls_line-info  = '- Tip.doc.compra'.
  APPEND ls_line  TO  p_s_top.
  CLEAR  ls_line.
  ls_line-typ  =  'S'.
  ls_line-KEY  =  'Total Pedido'.
  ls_line-info  = v_exibe.
  APPEND ls_line  TO  p_s_top.
início Formatar a data
  CALL FUNCTION 'DATUMSAUFBEREITUNG'
   EXPORTING
     IDATE                 = SY-DATUM
   IMPORTING
     TDAT8                 = v_datasaida.
Fim Formatar a data
  CLEAR  ls_line.
  ls_line-typ  =  'S'.
  ls_line-KEY  =  'Data da execução'.
  ls_line-info  = v_datasaida.
  APPEND ls_line  TO  p_s_top.
  CLEAR  ls_line.
  ls_line-typ  =  'S'.
  ls_line-KEY  =  'Usuário'.
  APPEND ls_line  TO  p_s_top.
  CLEAR  ls_line.
  ls_line-typ  =  'A'.
  ls_line-info  = sy-uname.
  APPEND ls_line  TO  p_s_top.
ENDFORM.                    " zf_top
*-&      Form  zf_print
*-       text
*-  -->  Parametros de Impressão para o ALV
FORM zf_print.
  s_print-no_print_selinfos     =  'N'.
  s_print-no_print_listinfos    =  'N'.
ENDFORM.                    " zf_print
*-&      Form  zf_imprime_alv
*-       text
*-  -->  Imprime o ALV c/ seu parametros
FORM zf_imprime_alv.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PF_STATUS_SET          = 'ZSET_PF_STATUS'
     I_CALLBACK_USER_COMMAND           = 'ZF_USER_COMMAND'
     i_callback_program                = v_repid
     i_callback_top_of_page            = 'TOP_OF_PAGE'
     is_layout                         =  s_layout
     it_fieldcat                       =  t_fieldcat[]
    IT_EXCLUDING                      =
     IT_SPECIAL_GROUPS                 = S_GRUPOS[]
     it_sort                           = t_sort[]
    IT_FILTER                         =
    IS_SEL_HIDE                       =
     i_default                         = 'X'
     i_save                            = 'A'
     is_variant                        = variante
    IT_EVENTS                         =
    IT_EVENT_EXIT                     =
     IS_PRINT                          = S_PRINT
    IS_REPREP_ID                      =
     I_SCREEN_START_COLUMN             = 0
     I_SCREEN_START_LINE               = 0
     I_SCREEN_END_COLUMN               = 0
     I_SCREEN_END_LINE                 = 0
    IT_ALV_GRAPHICS                   =
    IT_ADD_FIELDCAT                   =
    IT_HYPERLINK                      =
    I_HTML_HEIGHT_TOP                 =
    I_HTML_HEIGHT_END                 =
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER           =
    ES_EXIT_CAUSED_BY_USER            =
    TABLES
      t_outtab                          = I_EKPO
   EXCEPTIONS
     program_error                     = 1
     OTHERS                            = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
ENDFORM.                    " zf_imprime_alv
*-&      Form  zf_top-of-page
*-       text
-->  Cabeçalho ALV
FORM top_of_page.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            it_list_commentary       = s_top
            i_logo                   = 'CARLOS_LOGO3'.
  I_END_OF_LIST_GRID       = .
ENDFORM.                    " zf_top-of-page
*-&      Form  ZF_HIERARQUICO
*-       text
*-  -->  RELATÓRIO HIERÁQUICO
form ZF_HIERARQUICO.
  PERFORM zf_layout.
  PERFORM zf_ordena_campos.
  PERFORM zf_monta_campos_alv.
  PERFORM zf_print.
  PERFORM zf_grupo.
  IF  NOT  I_EKPO[] IS INITIAL.
    PERFORM zf_imprime_hierarquico_alv.
  ELSE.
    MESSAGE s000(zcl001)  WITH  'Nenhum registro encontrado.'.
    STOP.
  ENDIF.
endform.                    " ZF_HIERARQUICO
*-&      Form  zf_grupo
     text
-->  Não é fundamental a criação de grupos de campos, mas facilita
ao usuário na hora de escolher os campos de exibição após o clique do
botão MODIFICAR LAYOUT . Vários campos da fieldcat podem ser
definidos para um mesmo grupo de campo.
form zf_grupo.
MOVE:'Moeda' TO S_GRUPOS-SP_GROUP,
     'Campos moeda' TO S_GRUPOS-TEXT.
     APPEND S_GRUPOS.
endform.                    " zf_grupo
*&      Form  zf_imprime_hierarquico_alv
      text
-->  p1        text
<--  p2        text
form zf_imprime_hierarquico_alv.
Vamos definir as ligações entre as tabelas para as quebras no momento
da impressão.
  s_keyinfo-header01  =  'EBELN'.
  s_keyinfo-item01    =  'EBELN'.
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_USER_COMMAND           = 'ZF_USER_COMMAND'
     I_CALLBACK_PF_STATUS_SET          = 'ZF_SET_PF_STATUS_HIERARQ'
      I_CALLBACK_PROGRAM                = v_repid
      IS_LAYOUT                         = S_LAYOUT
      IT_FIELDCAT                       = T_FIELDCAT[]
      IT_SPECIAL_GROUPS                 = S_GRUPOS[]
     IT_SORT                        =
     IT_FILTER                      =
-    Parâmetro p/executar sempre com a variante default
      I_DEFAULT                         = 'X'
-                     Se é possível salvar as variantes
      I_SAVE                            = 'A'
-                          Nome da variante selecionada
      IS_VARIANT                        = VARIANTE
     IT_EVENTS                      =
     IT_EVENT_EXIT                  =
      i_tabname_header                  = 'I_EKKO'
      i_tabname_item                    = 'I_EKPO'
     I_STRUCTURE_NAME_HEADER        =
     I_STRUCTURE_NAME_ITEM          =
      is_keyinfo                        = S_KEYINFO
      IS_PRINT                          = S_PRINT
     IS_REPREP_ID                   =
     I_BUFFER_ACTIVE                =
     I_BYPASSING_BUFFER             =
  IMPORTING
     E_EXIT_CAUSED_BY_CALLER        =
     ES_EXIT_CAUSED_BY_USER         =
    tables
      t_outtab_header                   = I_EKKO
      t_outtab_item                     = I_EKPO.
endform.                    " zf_imprime_hierarquico_alv
*&      Form  ZF_LIST
      text
-->  p1        text
<--  p2        text
form ZF_LIST.
  PERFORM zf_layout.
  PERFORM zf_ordena_campos.
  PERFORM zf_monta_campos_alv.
  PERFORM zf_print.
  PERFORM zf_grupo.
  IF  NOT  I_EKPO[] IS INITIAL.
      PERFORM zf_imprime_list_alv.
  ELSE.
    MESSAGE s000(zcl001)  WITH  'Nenhum registro encontrado.'.
    STOP.
  ENDIF.
endform.                    " ZF_LIST
*&      Form  zf_imprime_list_alv
      text
-->  p1        text
<--  p2        text
form zf_imprime_list_alv.
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
      I_CALLBACK_PF_STATUS_SET       = 'ZF_SET_PF_STATUS_LIST'
      I_CALLBACK_USER_COMMAND        = 'ZF_USER_COMMAND'
    I_INTERFACE_CHECK              = ' '
    I_BYPASSING_BUFFER             =
    I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = v_repid
     I_STRUCTURE_NAME               = 'I_EKPO'
     IS_LAYOUT                      = S_LAYOUT
     IT_FIELDCAT                    = T_FIELDCAT[]
    IT_EXCLUDING                   =
     IT_SPECIAL_GROUPS              = S_GRUPOS[]
     IT_SORT                        = T_SORT[]
    IT_FILTER                      =
    IS_SEL_HIDE                    =
     I_DEFAULT                      = 'X'
     I_SAVE                         = 'A'
     IS_VARIANT                     = VARIANTE
    IT_EVENTS                      =
    IT_EVENT_EXIT                  =
     IS_PRINT                       = S_PRINT
    IS_REPREP_ID                   =
     I_SCREEN_START_COLUMN          = 0
     I_SCREEN_START_LINE            = 0
     I_SCREEN_END_COLUMN            = 0
     I_SCREEN_END_LINE              = 0
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER        =
    ES_EXIT_CAUSED_BY_USER         =
    TABLES
      t_outtab                       = I_EKPO.
endform.                    " zf_imprime_list_alv
*&      Form  zf_user_command
      text
-->  p1        text
<--  p2        text
form zf_user_command using p_v_ucomm like SY-UCOMM
                           p_s_selfield type slis_selfield.
*---tratamento de impressão do Sapscript----
CASE p_v_ucomm.
  FLAG = 0.
     WHEN 'IMPRIMIR' OR 'PRINT'.
         LOOP AT i_ekpo.
              IF NOT i_ekpo-BOX IS INITIAL.
                FLAG = FLAG + 1.
              ENDIF.
        ENDLOOP.
se tiver selecionado apenas uma box
        IF flag EQ 1.
            IF p_gerar EQ 'X'.
*-----perform para confirmação de download
              PERFORM zf_popup_to_confirm.
            ENDIF.
*------chama o form para imprimir o sapscript
              PERFORM zf_sapscript.
        ENDIF.
box estiver vazia
        IF flag EQ 0.
           MESSAGE E017(ZCL_GRUPO04). "Selecione apenas uma BOX
                                      "referente ao pedido de compras.
           STOP.
        ENDIF.
"estiver selecionado + de uma box
        IF flag GT 1.
           MESSAGE E017(ZCL_GRUPO04). "Selecione apenas uma
                                     "BOX referente ao pedido de compra.
           STOP.
        ENDIF.
ENDCASE.
CASE p_s_selfield-sel_tab_field.
*observe na exibição do relatório(hierarquico) que temos o EKKO-EBELN
ficaria  melhor visualmente, a utilização de clicar no mesmo
     WHEN 'I_EKPO-EBELN'. "tab de saida
           SET PARAMETER ID 'BES' FIELD p_s_selfield-VALUE.
           CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
ENDCASE.
endform.                    " zf_user_command
*&      Form  ZSET_PF_STATUS
      text
     -->P_EXTAB  text
form ZSET_PF_STATUS using    p_extab.
  set pf-status 'BOTOES' EXCLUDING extab.
endform.                    " ZSET_PF_STATUS
*&      Form  zf_sapscript
      text
-->  p1        text
<--  p2        text
form zf_sapscript.
--carregar a ITCPO----
  PERFORM zf_itcpo.
----chamar a função Open_form
  PERFORM zf_open_form.
*----buscar o fornecedor e seus dados
LOOP AT I_ekko.
        v_element  =  'CABPRIN'.
        v_type     =  'BODY'.
        v_window   =  'JANCABEC'.
        PERFORM  zf_imprime_form USING  v_element
                                        v_type
                                        v_window.
ENDLOOP.
*----buscar o documento de compra selecionado
LOOP AT i_ekpo.
    IF i_ekpo-BOX = 'X'.
        v_element  =  'MAIN'.
        v_type     =  'BODY'.
        v_window   =  'MAIN'.
        PERFORM  zf_imprime_form USING  v_element
                                        v_type
                                        v_window.
*---o comando EXIT é para que somente quando 1 registro for selecionado
no relatório e a verificação da igualdade acontecer faz que saia do
Loop
    EXIT.
    ENDIF.
ENDLOOP.
  PERFORM zf_close_form.
endform.                    " zf_sapscript
*&      Form  zf_itcpo
      text
-->  p1        text
<--  p2        text
form zf_itcpo.
*Parâmetros para impressão da tabela ITCPO
ITCPO-TDCOPIES   = 1.           "Quantidade de cópias
ITCPO-TDPAGESLCT = ''.          "Seleção de páginas
ITCPO-TDPROGRAM  = SY-REPID.    "Captura o nome do programa
ITCPO-TDIMMED    = c_on.        "Saída imediata do relatório
ITCPO-TDPREVIEW  = c_on.        "Exibição prévia do relatório
ITCPO-TDDEST     = 'LOCL'.      "SPOOL: dispositivo de saída
ITCPO-TDFAXUSER  = SY-UNAME.    "Usuário logado naquele momento
ITCPO-TDSENDDATE = SY-DATUM.    "Data de envio desejada
ITCPO-TDSENDTIME = SY-UZEIT.    "Hora envio desejada
ITCPO-TDNEWID    = c_on.        "Nova ordem SPOOL
ITCPO-TDARMOD    = c_on.       "IMPRIMIR: modo de arquivamento
ITCPO-TDTITLE    = 'Relatório de Compras por Classificação Contábil'.
endform.                    " zf_itcpo
*&      Form  zf_open_form

Answer 1

Boa Tarde Carlos,
Welcome to the SDN Forums. SDN gets it's power from the large community throughout the world. To harvest that power of knowledge we have settled on one language for posts here which is English.
Clearly English is not your first language, but don't be afraid, I would vouch that for most of the participant here on SDN English is the second language.
As it is for me. I am just lucky, that I am living in the States long enough that German colleagues start to look at me strangely when I talk to them in German, because it doesn't totally sound right anymore
So we are very forgiving her in SDNland regarding grammar and spelling (although not as much anymore in the Weblogs), we even provide a spell checker.
Please post your question again in English.
If people don't understand you they will ask you about the things that they don't understand and you can then clarify.
Try it out. Your chance of an excellent responds is way higher.
Boa sorte, Mark.