用SELECTION-TABLE和FREE SELECTIONS提交标准程序。

2020-08-13 23:53发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)大家好, 我正在开发一个程序来...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好,

我正在开发一个程序来自动执行CML发票过帐。

具有正常选择屏幕和动态选择的标准程序,我需要同时填写两者才能正确运行该程序。

问题是SELECTION-TABLE值正确传递,但是当我检查texpr表时,在调用的程序中它为空。

下面是我的示例代码:



ls_fields-arity =0。
ls_fields-fieldname ='SKOART'。
ls_fields-option ='EQ'。
ls_fields-low ='1105'。

APPEND ls_fields到ls_texpr-expr_tab。
ls_texpr-tablename ='VDBEPP'。
APPEND ls_texpr到texpr。


清除ls_seltab。
ls_seltab-selname =' SO_BUKRS'。
ls_seltab-kind ='S'。
ls_seltab-sign ='I'。
ls_seltab-option ='EQ'。
ls_seltab-low ='ABCD'。
* ls_seltab- 高= so_date-high。
附加ls_seltab到lt_seltab。
*
*
清除ls_seltab。
ls_seltab-selname ='SO_RANL'。
ls_seltab-kind ='S'。
ls_seltab-sign ='I'。
ls_seltab-option ='EQ'。
* ls_seltab-low ='123456'。
* ls_seltab- 高= so_date-high。
附加ls_seltab到lt_seltab。

清除ls_seltab。
ls_seltab-selname ='P_DDISPO'。
ls_seltab-kind ='P'。
ls_seltab-low ='20201211'。

附加ls_seltab到lt_seltab。
*
清除ls_seltab。
ls_seltab-selname = " P_KDATE"。
ls_seltab-kind ='P'。
* ls_seltab-sign ='I'。
* ls_seltab-option ='EQ'。
ls_seltab-low = sy-datum。
* ls_seltab-high = so_date-high。
附加ls_seltab到lt_seltab。







提交带有选择表的rfvsold2
lt_seltab
可自由选择的texpr
导出列表以存储并返回。



*
调用功能'LIST_FROM_MEMORY'
表格
listobject = list_obj
EXCEPTIONS
not_found = 1
其他=2。
*
呼叫功能'LIST_TO_ASCI'
TABLES
listasci = list_asc
listobject = list_obj
例外
empty_list = 1
list_index_invalid = 2
OTHERS = 3。

6条回答
闻人可可
2020-08-14 00:10

p>

 DATA:ls_fields TYPE rsdsexpr,
       ls_texpr TYPE rsds_expr,
       texpr TYPE rsds_texpr,
       ls_seltab TYPE rsparams,
       lt_seltab rsparams的类型表。

 ls_fields-arity = 0。
 ls_fields-fieldname ='SKOART'。
 ls_fields-option ='EQ'。
 ls_fields-low ='1105'。
 将ls_fields附加到ls_texpr-expr_tab。
 ls_texpr-tablename ='VDBEPP'。
 将ls_texpr附加到texpr。

 清除ls_seltab。
 ls_seltab-selname ='SO_BUKRS'。
 ls_seltab-kind ='S'。
 ls_seltab-sign ='I'。
 ls_seltab-option ='EQ'。
 ls_seltab-low ='ABCD'。
 附加ls_seltab至lt_seltab。

 清除ls_seltab。
 ls_seltab-selname ='SO_RANL'。
 ls_seltab-kind ='S'。
 ls_seltab-sign ='I'。
 ls_seltab-option ='EQ'。
 ls_seltab-low ='123456'。
 附加ls_seltab至lt_seltab。

 清除ls_seltab。
 ls_seltab-selname ='P_DDISPO'。
 ls_seltab-kind ='P'。
 ls_seltab-low ='20201211'。
 附加ls_seltab至lt_seltab。

 清除ls_seltab。
 ls_seltab-selname ='P_KDATE'。
 ls_seltab-kind ='P'。
 ls_seltab-low = sy数据。
 附加ls_seltab至lt_seltab。


 提交rfvsold2
   与SELECTION-TABLE lt_seltab
   免费选择texpr
   导出列表到内存
   然后返回。


 通话功能" LIST_FROM_MEMORY"
   桌子
   listobject = list_obj
   例外情况
   not_found = 1
   其他= 2。

 通话功能" LIST_TO_ASCI"
   桌子
   listasci = list_asc
   listobject = list_obj
   例外情况
   empty_list = 1
   list_index_invalid = 2
   OTHERS = 3。

一周热门 更多>