CR出口-示例代码

2020-08-26 21:34发布

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

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


专家们!

我需要根据历史数据创建CR,并且我打算使用出口。 有很多可能的组合,而且没有人可以维护那么多数据,所以这就是为什么忽略其他方法(属性,dso ..)的原因。

有人可以为客户关系退出发布示例吗? 我一直在论坛附近搜索并查看CL_RSPLS_CR_EXIT_BASE,但是发现自己缺少信息来满足我的要求。

谢谢。

Al

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

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


专家们!

我需要根据历史数据创建CR,并且我打算使用出口。 有很多可能的组合,而且没有人可以维护那么多数据,所以这就是为什么忽略其他方法(属性,dso ..)的原因。

有人可以为客户关系退出发布示例吗? 我一直在论坛附近搜索并查看CL_RSPLS_CR_EXIT_BASE,但是发现自己缺少信息来满足我的要求。

谢谢。

Al

付费偷看设置
发送
2条回答
天桥码农
1楼 · 2020-08-26 22:16.采纳回答

嗨。

如果您要查找特征关系的示例,那么以下是执行下一个逻辑的简单代码:将10与具有国家和物料组的采购组织连接起来。

这只是一个示例,其中没有任何业务逻辑。

if_rspls_cr_methods〜derive方法

 方法if_rspls_cr_methods〜

 缓冲区所需的基础结构:
   数据:l_s_mesg TYPE if_rspls_cr_types => tn_s_mesg,
         l_is_valid TYPE rs_bool。

   FIELD-SYMBOLS: TYPE HASHED TABLE,
                   TYPE ANY。
   清除e_t_mesg。

 ****使用缓冲区?
 **** o_use_buffer默认在构造函数中打开
   如果o_use_buffer = rs_c_true。
 *是:
     ASSIGN o_r_th_buf-> *至。
     ASSIGN o_r_s_buf-> *至 = c_s_chas。
     从中读取表中。
     如果sy-subrc = 0。
       如果o_r_is_valid-> * = rs_c_true。
         c_s_chas = 。
         返回。
       其他。
         如果提供了e_t_mesg。
           附加o_r_s_mesg-> *到e_t_mesg。
         万一。
         引发例外类型cx_rspls_failed
           出口
             msgstr = o_r_s_mesg-> msgid
             msgty = o_r_s_mesg-> msgty
             msgno = o_r_s_mesg-> msgno
             msgv1 = o_r_s_mesg-> msgv1
             msgv2 = o_r_s_mesg-> msgv2
             msgv3 = o_r_s_mesg-> msgv3
             msgv4 = o_r_s_mesg-> msgv4。
       万一。
     万一。
   万一。

 ****您的推导算法在这里:

   字段符号: TYPE ANY。
   字段符号: TYPE ANY。
   字段符号:类型ANY。

   将结构的组件'/BI0/d_pur_org'分配给。
   将结构的组件'/BI0/d_country'分配到。
   将结构的组件'/BI0/'D_MTLGROUP'分配给。

   CONCATENATE'10'  INTO 。

   l_is_valid ='X'。

 ****推导算法的结尾:

 *用结果更新缓冲区:
 * l_s_mesg在"无效"的情况下应包含一条消息
 * l_is_valid应该指出是否可以推导
 * 应包含派生字段
   如果o_use_buffer = rs_c_true。
     o_r_is_valid-> * = l_is_valid。
     如果o_r_is_valid-> * = rs_c_true。
       插入到表中。
       c_s_chas = 。
     其他。
       如果提供了e_t_mesg。
         o_r_s_mesg-> * = l_s_mesg。
         附加l_s_mesg到e_t_mesg。
       万一。
       插入到表中。
       引发例外类型cx_rspls_failed
         出口
           msgstr = l_s_mesg-msgid
           msgty = l_s_mesg-msgty
           msgno = l_s_mesg-msgno
           msgv1 = l_s_mesg-msgv1
           msgv2 = l_s_mesg-msgv2
           msgv3 = l_s_mesg-msgv3
           msgv4 = l_s_mesg-msgv4。
     万一。
   万一。


 终结法。
 

致谢。

愤怒的猪头君
2楼-- · 2020-08-26 22:14

感谢您的时间和精力分享知识。

一周热门 更多>