Table Control中工厂、库存地点列联动搜索帮助

http://blog.163.com/yuanfen_sky/blog/static/14797334620144299113792/

说明：此功能实现，TC中工厂列输入值后，库存地点的搜索帮助显示为输入工厂下的库存地点
PROCESSON VALUE-REQUEST. "该事件添加在屏幕逻辑流PAI结束后
FIELD GT_ZTRE055-KWERK MODULE F4_HELP_KWERK.

FIELD GT_ZTRE055-KLGOR MODULEF4_HELP_KLGOR.

MODULE F4_HELP_KWERK INPUT.
DATA: LINE_INDEX TYPE I.
DATA: BEGIN OF LT_KWERK OCCURS 0,
KWERK LIKE T001W-WERKS,
NAME1 LIKE T001W-NAME1,
END OF LT_KWERK.
DATA: RT_KWERK TYPE TABLE OF DDSHRETVAL WITHHEADER LINE. "返回值内表

SELECT WERKS AS KWERK NAME1
INTOCORRESPONDING FIELDS OF TABLE LT_KWERK
FROMT001W.

CALL FUNCTION'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
RETFIELD = 'KWERK'
* PVALKEY = ' '
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'GT_ZTRE055-KWERK'
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* CALLBACK_METHOD =
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = LT_KWERK
* FIELD_TAB =
RETURN_TAB = RT_KWERK
* DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
READ TABLE RT_KWERK INDEX 1.
GT_ZTRE055-KWERK = RT_KWERK-FIELDVAL.
CLEAR: LINE_INDEX.
GET CURSOR LINE LINE_INDEX.
MODIFY GT_ZTRE055 INDEX LINE_INDEX TRANSPORTINGKWERK.
ENDMODULE. " F4_HELP_KWERK  INPUT
*&---------------------------------------------------------------------*
*& Module  F4_HELP_KLGOR INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE F4_HELP_KLGOR INPUT.
DATA: BEGIN OF LT_KLGOR OCCURS 0,
WERKS LIKE T001L-WERKS,
KLGOR LIKE T001L-LGORT,
LGOBE LIKE T001L-LGOBE,
END OF LT_KLGOR.

CLEAR: LINE_INDEX.
GET CURSOR LINE LINE_INDEX.
READ TABLE GT_ZTRE055 INDEX LINE_INDEX.
CHECK SY-SUBRC = 0.

SELECT WERKS LGORT AS KLGOR LGOBE
INTOCORRESPONDING FIELDS OF TABLE LT_KLGOR
FROMT001L
WHERE WERKS= GT_ZTRE055-KWERK.

CALL FUNCTION'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
RETFIELD = 'KLGOR'
* PVALKEY = ' '
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'GT_ZTRE055-KLGOR'
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* CALLBACK_METHOD =
* MARK_TAB =
*  IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = LT_KLGOR
* FIELD_TAB =
* RETURN_TAB =
* DYNPFLD_MAPPING =
*  EXCEPTIONS
* PARAMETER_ERROR = 1
* NO_VALUES_FOUND = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.

ENDMODULE. " F4_HELP_KLGOR  INPUT