Patrocinado por
Patrocinado por Inetum

Roubar o conteúdo de uma SALV

images/thumbnail.jpg - Thumbnail

Um amigo de um amigo de um amigo disse que um amigo dele conhecia um amigo que, num bar de alterne ali nas docas, lhe explicou como roubar os dados a uma SALV.

Presume que já existe um programa que mostra os seus resultados numa SALV e que te pedem para fazeres algo adicional a esses dados. Tipo guardá-los numa ficheiro ou seja lá o que for. Até há pouco tempo eu pensava que teria de alterar esse programa e acrescentar-lhe código para, antes de ele apresentar a ALV, pegar nos dados e fazer então o que com eles quiser. Mas imagina que é um programa standard que não pode ser alterado. O que fazer? Uma cópia do standard? Isso é sempre de evitar.

O truque é manipulares o ambiente que rodeia a ALV de forma a que ela não chegue a ser apresentada e depois, sem sequer a SALV reparar, ires buscar os resultados à memória. É rebuscado mas nada complicado. Passo a ensinar como se faz:

A primeira manha é executar um comando muito especial que faz com que os dados da SALV não sejam apresentados:

cl_salv_bs_runtime_info=> set(
      display  = abap_false
      metadata = abap_false
      data     = abap_true ).

Manhoso. Muiiito manhoso.

Agora que o ambiente está controlado, podes mandar correr qualquer programa que mostre uma SALV. Só que ela já não vai ser mostrada. Portanto, podes fazer algo tipo isto:

SELECT-OPTIONS: so_budat FOR mkpf-budat.
SUBMIT rm07mlbd WITH datum IN so_budat AND RETURN.

Normalmente este relatório termina com uma SALV. Mas desta vez não. Desta vez termina em silêncio.

Finalmente, para obteres os dados da SALV precisas da segunda manha, um autêntico golpe de prestidigitação:

DATA: ls_data TYPE REF TO data.

cl_salv_bs_runtime_info=>get_data_ref(
  IMPORTING r_data = ls_data ).
ENDTRY.

E zás!, os dados da SALV estão em teu poder. Agora podes usá-los como bem te aprouver:

FIELD-SYMBOLS: <lt_data> TYPE table,
               <l_data> TYPE data.
DATA: s_belege TYPE stab_belege.

ASSIGN ls_data->* TO <lt_data>.
LOOP AT <lt_data> ASSIGNING <l_data>.
  MOVE-CORRESPONDING <l_data> TO s_belege.
  WRITE: / s_belege-mblnr.
ENDLOOP.

Nota que o método GET_DATA_REF() lança a excepção CX_SALV_BS_SC_RUNTIME_INFO se algo falhar por isso convém envolveres a sua invocação num bloco TRY CATCH.

Obrigado Luís Rocha por teres partilhado a informação do amigo do amigo do amigo do teu amigo.

O Abapinho saúda-vos.