Enviar parametros a una Ayuda de Busqueda

[luise32]

Buenas tardes, necesito enviar parametros a una ayuda de busqueda ya que por defecto esta se carga con ciertos valores por los cuales no deseo filtrar.

La ayuda de busqueda es la PLOM en la cual el Tipo Op. siempre me esta mostrando la S pero para mi requerimiento necesito ponerle la O.

Muchas gracias!

[JoNhNaTaN]

por que no haces tu ayuda de busqueda personalizada, te envio un ejemplo, tanvez te pueda ayudar:

*&---------------------------------------------------------------------*
*&programa: ZJOMS_PROBANDOMATCH
*&paquete: ZJOMS_UTILIDADES
*&---------------------------------------------------------------------*
REPORT ZJOMS_PROBANDOMATCH.

TABLES: zjonmu_emp, ddshretval.

DATA: BEGIN OF gt_empleados OCCURS 0,
codemp TYPE zjonmu_emp-codemp,
nomemp TYPE zjonmu_emp-nomemp,
codung TYPE zjonmu_emp-codung,
END OF gt_empleados.
DATA lt_return_tab TYPE TABLE OF ddshretval WITH HEADER LINE.
DATA DYFIELDS LIKE DYNPREAD OCCURS 1 WITH HEADER LINE.

SELECTION-SCREEN BEGIN OF BLOCK bloque1 WITH FRAME TITLE text-001.

PARAMETERS: p_codung LIKE zjonmu_emp-codung.
PARAMETERS: p_codemp LIKE zjonmu_emp-codemp.

SELECTION-SCREEN END OF BLOCK bloque1.

*obtener el dato para buscar en la segunda
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_codung.

*CLEAR: DYFIELDS[], DYFIELDS.
"--esta funcion te hace una ayuda de busqueda de una tabla y el dato seleccionado te lo devuelve en una variable, en este caso p_codung
CALL FUNCTION 'HELP_VALUES_GET'
EXPORTING
fieldname = 'CODUNG'
tabname = 'zjonmu_emp'
IMPORTING
select_value = p_codung.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_codemp.

REFRESH: gt_empleados, lt_return_tab.

SELECT codemp nomemp codung FROM zjonmu_emp
APPENDING CORRESPONDING FIELDS OF TABLE gt_empleados
WHERE codung EQ p_codung.
"--esta funcion te hace una ayuda de busqueda con el resultado del select
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'CODEMP'
window_title = 'EMPLEADOS'
value_org = 'S'
TABLES
value_tab = gt_empleados
return_tab = lt_return_tab
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.

IF sy-subrc = 0.
READ TABLE lt_return_tab INDEX 1.
MOVE lt_return_tab-fieldval TO p_codemp.
ENDIF.


Suerte