谢谢!楼主,顶一下!
还有一个问题:请教:ABAP中普通LIST报表SELECT-OPTION的问题,下面的代码没有出来的结果,望大侠指教.谢谢!
各位大侠:请问如何在ABAP普通LIST报表中(屏幕输入条件中)实现下拉SELECT-OPTION,如点击屏幕输入条件中location,会在屏幕输入条件中显示一些指定的location(只显示非1开头的位置编号).谢谢!代码如下:
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:
s_umwrk FOR mseg-umwrk,"mseg-werks,
s_umlgo FOR mseg-umlgo,
s_matnr FOR mseg-matnr,
s_budat FOR mkpf-budat.
SELECTION-SCREEN END OF BLOCK block1.
at selection-screen on value-request for s_umlgo-low.
DATA: BEGIN OF value_tab OCCURS 0,
umlgo LIKE mseg-umlgo ,
END OF value_tab.
DATA: return_values LIKE ddshretval OCCURS 0 WITH HEADER LINE.
"DATA: retfield LIKE dfies-fieldname VALUE 'UMLGO'.
SELECT UMLGO FROM mseg INTO corresponding fields of tablevalue_tab WHERE umlgo NOT like '1%'."not like '1%'.
REFRESH: value_tab, return_values.
clear: value_tab, return_values.
*SELECT DISTINCT knvv~kunnr kna1~name1
*FROM knvv left join
* kna1 on knvv~kunnr = kna1~kunnr and kna1~spras = sy-langu
*INTO corresponding fields of table value_tab
*where knvv~bzirk in s_area.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield= 'UMLGO'
* dynpprog= g_repid
* dynpnr= sy-dynnr
* dynprofield = 'CLIENT-LOW'
value_org = 'S'
TABLES
value_tab = value_tab
return_tab= return_values
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS
= 3.
READ TABLE return_values index 1.
MOVE return_values-fieldval TO s_umlgo-low.
at selection-screen on value-request for s_umlgo-high.
DATA: BEGIN OF value_tab OCCURS 0,
umlgo LIKE mseg-umlgo ,
END OF value_tab.
DATA: return_values LIKE ddshretval OCCURS 0 WITH HEADER LINE.
"DATA: retfield LIKE dfies-fieldname VALUE 'UMLGO'.
SELECT UMLGO FROM mseg INTO corresponding fields of tablevalue_tab WHERE umlgo NOT like '1%'. "not like '1%'.
REFRESH: value_tab, return_values.
clear: value_tab, return_values.
*SELECT DISTINCT knvv~kunnr kna1~name1
*FROM knvv left join
* kna1 on knvv~kunnr = kna1~kunnr and kna1~spras = sy-langu
*INTO corresponding fields of table value_tab
*where knvv~bzirk in s_area.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield= 'UMLGO'
value_org = 'S'
TABLES
value_tab = value_tab
return_tab= return_values
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS
= 3.
READ TABLE return_values index 1.
MOVE return_values-fieldval TO s_umlgo-high..
|