#7
|
|||
|
|||
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 |
Herramientas | Buscar en Tema |
Desplegado | |
|
|