|
Mira lo que debes hacer es crear un modulo de funciones por la SE37, sin parametros de IMPORT y EXPORT, pero si con los siguientes parametros.
En TABLES
SHLP_TAB TYPE SHLP_DESCT
RECORD_TAB TYPE SEAHLPRES
En CHANGING
SHLP TYPE SHLP_DESCR
CALLCONTROL LIKE DDSHF4CTRL
Luego si va el código
************************************
* Se declara la estructura que almacena los datos del MatchCode
************************************
DATA: BEGIN OF ti_ngpa OCCURS 0,
name1 TYPE gpnam1, "Debe ser igual al nombre del parametro
END OF ti_ngpa.
IF callcontrol-step = 'SELECT'.
************************************
* Inicio Se realiza la consulta y se almacenan los datos
************************************
SELECT pernr
FROM nper
INTO TABLE ti_nper
WHERE sptyp EQ '01'.
LOOP AT ti_nper.
SELECT SINGLE gpart
FROM ngpa
INTO lv_gpa
WHERE gpart = ti_nper-pernr.
CLEAR ti_ngpa.
CALL FUNCTION 'ISH_NGPA_CONCATENATE'
EXPORTING
ss_gpart = lv_gpa
ss_read_ngpa = 'X'
IMPORTING
ss_pname = ti_ngpa-name1
EXCEPTIONS
wrong_gpart = 1
OTHERS = 2.
APPEND ti_ngpa.
ENDLOOP.
************************************
* Fin Se realiza la consulta y se almacenan los datos
************************************
REFRESH record_tab.
CALL FUNCTION 'F4UT_RESULTS_MAP'
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
source_tab = ti_ngpa
CHANGING
shlp = shlp
callcontrol = callcontrol
EXCEPTIONS
illegal_structure = 1
OTHERS = 2.
callcontrol-step = 'DISP'.
CALL FUNCTION 'F4UT_PARAMETER_VALUE_GET'
EXPORTING
parameter = 'NAME1' " Reference to search help parameter
fieldname = 'NAME1' " Reference to field of Seatinfo
TABLES
shlp_tab = shlp_tab
record_tab = record_tab
results_tab = ti_ngpa
CHANGING
shlp = shlp
callcontrol = callcontrol.
ENDIF.
Espero te sirva
|