|
fijate en este codigo,
......
......
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = 'ZSTATUS_SET'
I_CALLBACK_USER_COMMAND = 'ZUSER_COMD'
IS_LAYOUT = GS_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
IT_SPECIAL_GROUPS = GT_SP_GROUP[]
IT_SORT = GT_SORT[]
I_DEFAULT = G_DEFAULT
IT_EVENTS = GT_EVENTS[]
TABLES
T_OUTTAB = DATOS
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
LEAVE LIST-PROCESSING.
´.......
luego defines el perform ZUSER_COMD
...........
*&---------------------------------------------------------------------*
*& Form ZUSER_COMD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_EXTAB text *
* -->P_TYPE text *
* -->P_SLIS_T_EXTAB text *
*----------------------------------------------------------------------*
FORM ZUSER_COMD USING X LIKE SY-UCOMM
Y TYPE KKBLO_SELFIELD.
READ TABLE DATOS INDEX Y-TABINDEX.
IF X EQ '&IC1'.
CASE Y-SEL_TAB_FIELD.
WHEN 'DATOS-AUFNR'.
SET PARAMETER ID 'ANR' FIELD Y-VALUE.
CALL TRANSACTION 'KO03' AND SKIP FIRST SCREEN.
WHEN 'DATOS-WTJHR'.
SET PARAMETER ID 'BUK' FIELD BUKRS.
SET PARAMETER ID 'ANR' FIELD DATOS-AUFNR. " SEL_VS01
MOVE: 'I' TO AUFNR1-SIGN,
'EQ' TO AUFNR1-OPTION,
DATOS-AUFNR TO AUFNR1-LOW.
APPEND AUFNR1. "CLEAR: SEL_VS01.
SUBMIT GP5RHGZCGK9AUROXBPTS86Z3YF3600
WITH $6-KOKRS = BUKRS
WITH SEL_VS01 IN AUFNR1 AND RETURN.
CLEAR: AUFNR1. REFRESH: AUFNR1.
WHEN OTHERS.
SET PARAMETER ID 'ANR' FIELD DATOS-AUFNR.
SET PARAMETER ID 'AAT' FIELD AUART.
CALL TRANSACTION 'KO23' AND SKIP FIRST SCREEN.
ENDCASE.
ENDIF.
ENDFORM.
__________________
Mariale
|