Cómo crear una ayuda de búsqueda restringida en programación de diálogo

Hola Chad,

Por favor, dime tu dirección de correo electrónico para que pueda enviarte el programa.

Saludos,

Sylendra

Hola Chad,

Para evitar que se muestre la ayuda F4 estándar, inserta el evento PROCESS ON-VALUE-REQUEST en el programa y agrega una declaración de campo para el campo que debe activar la ayuda F4. En el módulo llamado desde PROCESS ON-VALUE-REQUEST, llama al módulo de función F4IF_FIELD_VALUE_REQUEST.

Código de ejemplo:

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 esto te ayude.

ENDMODULE. " F4_help_for_pctr INPUT

Saludos

Sunny

Recompensa puntos, si te resulta útil

El mensaje fue editado por: Sunny

Hola Chad,

Para evitar que se muestre la ayuda estándar F4, inserta el evento PROCESS ON-VALUE-REQUEST en el programa y agrega una declaración de campo para el campo que debería activar la ayuda F4. En el módulo llamado desde PROCESS ON-VALUE-REQUEST, llama al módulo de función F4IF_FIELD_VALUE_REQUEST.

Código de muestra:

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 esto te ayude.

ENDMODULE. " F4_help_for_pctr INPUT

Saludos

Sunny

Puntos de recompensa, si te resultó útil

El mensaje fue editado por: Sunny