Skip to Content
0
May 04, 2010 at 12:13 AM

Retornar 2 campos no ajuda de pesquisa

924 Views

Boa noite a todos.

Tenho a seguinte situação em um programa Module Pool, tenho dois campos em tela codigo e descrição

foi solicitado o seguinte ao selecionar a ajuda de pesquisa do campo código e ao retornar em tela, deve exibir de forma

automatica a descrição.

Eu implementei o seguinte código:

PROCESS ON VALUE-REQUEST.

FIELD codigo

MODULE f4_codfi.

--> o Module f4_codfi chamara a seguinte rotina

PERFORM f4_codigo.

FORM f4_codigo.

  • =====> Este exemplo mostra a apresentacao de uma estrutura criada internamente para apresentacao da Ajuda de Pesquisa

TYPES: BEGIN OF ty_dados,

codigo TYPE zxxx-codigo,

descricao TYPE zxxx-descricao,

END OF ty_dados.

DATA: lt_tdados TYPE TABLE OF ty_dados,

vl_dynfield TYPE dynfnam .

SELECT codigo descricao

FROM zxxx

INTO TABLE lt_tdados .

CHECK sy-subrc EQ 0.

vl_dynfield = 'codigo'.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'ZTERM' "Nome do campo de retorno

dynpprog = 'ZMEUPROGRAMA' "Programa que está chamando

dynpnr = '0200' "Tela que esta chmando

dynprofield = vl_dynfield "Nome do campo da tela

value_org = 'S'

TABLES

value_tab = lt_tdados "Tabela com os dados para seleção

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

ENDFORM.

Neste ponto eu ja consigo retornar o codigo em tela, mas devo buscar a descrição, e preencher o campo automaticamente.

Como eu faço isso???

Alguem teria algum exemplo? Ja procurei na internet mas nao encontrei.

Obrigado a todos