Função - POPUP_TO_CONFIRM_STEP

  "  Olha uma função para relação com o usuário, onde o mesmo dá um retorno
" pro programa e assim o programa procede conforme a decisão do usuário.

report zFunc_aprov.

tables : bseg,
         bkpf
          .
" Constantes ....
constants : c_x type c value 'X',
            c_j type c value 'J',
            c_n type c VALUE 'N',
            c_c type c value 'C'
            .
" Variáveis Globais ....
data : vg_answer type c
        .

" Tela de seleção ....
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

PARAMETERS :     r_pergu  RADIOBUTTON GROUP rad1,
                 r_nperg  RADIOBUTTON GROUP rad1 DEFAULT 'X'
                  .
SELECTION-SCREEN END OF BLOCK b1.

start-of-selection.

IF r_pergu = 'X'.
  perform : z_perguntar
    .
  CASE vg_answer.
    WHEN c_j.
      write : 'Vc aceitou'.
    WHEN c_n.
      write : 'vc Não Aceitou'.
    WHEN OTHERS.
      write : 'vc Cancelou o esquema'.
  ENDCASE.
else.
  write : 'Vc não quis responder nada'.

ENDIF.

*&---------------------------------------------------------------------*
*&      Form  Z_PERGUNTAR
*&---------------------------------------------------------------------*
form Z_PERGUNTAR .
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
  EXPORTING
 "   DEFAULTOPTION        = 'Y'      " Deixa padronizado na resposta 'Yes'
    textline1            = ' Vc Deseja isso mesmo ' " Texto Informativo 1
*   TEXTLINE2            = ' '                      " texto Informativo 2
    titel                = 'Decisão'                " Titulo da Caixa
"   START_COLUMN         = 25        " Posição horizontal da caixa
*   START_ROW            = 6         " Posição Vertical da caixa
   CANCEL_DISPLAY       = 'X'        " add O botão 'Cancel na telinha
 IMPORTING
   ANSWER                = vg_answer " Variável q recebe retorno do usuário
          .
endform.                    " Z_PERGUNTAR

"  Me disseram antes de postar que esta function já eh obsoleta quem souber
" qual é a function do Momento posta aeeee.