Como criar uma ajuda de busca restrita na programação de diálogo.

Olá Chad,

Por favor, me informe o seu endereço de e-mail para que eu possa enviar o programa.

Cumprimentos,

Sylendra

Olá Chad,

Para evitar que a ajuda F4 padrão seja exibida, insira o evento PROCESS ON-VALUE-REQUEST no programa e adicione uma declaração de campo para o campo que deve ativar a ajuda F4. No módulo chamado a partir do PROCESS ON-VALUE-REQUEST, chame o módulo de função F4IF_FIELD_VALUE_REQUEST.

Código de exemplo:

PROCESS ON VALUE-REQUEST.

FIELD it_zsd00003-prctr MODULE f4_help_for_pctr.

MODULE f4_help_for_pctr INPUT.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

tabname = 'ZSD00003'

fieldname = 'PRCTR'

• SEARCHHELP = ' '

• SHLPPARAM = ' '

dynpprog = 'ZSD00002_BRUGERKONV_LISTE'

dynpnr = '0100'

dynprofield = 'IT_ZSD00003-PRCTR'

• STEPL = 0

value = '50*'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• SUPPRESS_RECORDLIST = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• TABLES

• RETURN_TAB =

• EXCEPTIONS

• FIELD_NOT_FOUND = 1

• NO_HELP_FOR_FIELD = 2

• INCONSISTENT_HELP = 3

• NO_VALUES_FOUND = 4

• OTHERS = 5

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Espero que isso ajude.

ENDMODULE. " F4_help_for_pctr INPUT

Saudações

Sunny

Recompense pontos, se útil

A mensagem foi editada por: Sunny

Olá Chad,

Para evitar que a ajuda padrão F4 seja exibida, insira o evento PROCESS ON-VALUE-REQUEST no programa e adicione uma declaração de campo para o campo que deve acionar a ajuda F4. No módulo chamado a partir do PROCESS ON-VALUE-REQUEST, chame o módulo de função F4IF_FIELD_VALUE_REQUEST.

Código de exemplo:

PROCESS ON VALUE-REQUEST.

FIELD it_zsd00003-prctr MODULE f4_help_for_pctr.

MODULE f4_help_for_pctr INPUT.

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

tabname = 'ZSD00003'

fieldname = 'PRCTR'

• SEARCHHELP = ' '

• SHLPPARAM = ' '

dynpprog = 'ZSD00002_BRUGERKONV_LISTE'

dynpnr = '0100'

dynprofield = 'IT_ZSD00003-PRCTR'

• STEPL = 0

value = '50*'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• SUPPRESS_RECORDLIST = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• TABLES

• RETURN_TAB =

• EXCEPTIONS

• FIELD_NOT_FOUND = 1

• NO_HELP_FOR_FIELD = 2

• INCONSISTENT_HELP = 3

• NO_VALUES_FOUND = 4

• OTHERS = 5

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Espero que isso ajude.

ENDMODULE. " F4_help_for_pctr INPUT

Saudações

Sunny

Pontos de recompensa, se for útil para você

A mensagem foi editada por: Sunny