以编程方式从 BW 检索 BAdI.如何

Question

我想以编程方式检索使用 BW 生成的 ABAP 程序的源代码。

我想要一个 ABAP 程序，该程序可以使用其名称作为参数来检索 BADI 源，然后将源保存在本地磁盘上，将每个 BADI 保存在具有程序名称的文件中。

Answer 1

如果您知道实现的名称，则必须查找实现类的名称。 根据 BAdI 类型（经典或快速内核），您必须使用不同的例程来读取类名（尝试函数模块SXO_IMPL_FOR_BADI_READ并阅读类CL_ENH_BADI_RUNTIME_FUNCTIONS方法GET_BADI_SHORTTEXT的编码，以了解如何使用各种 BAdI 类型）。然后，看看名为 SEO* 的函数模块 - 你会发现阅读类的结构、它的超类和方法所需的所有东西（仅仅导出源代码是不够的，对吧？

Answer 2

你可以通过这种方式实现这一点：

SELECT class_name
  INTO TABLE @DATA(lt_badi)
  FROM badi_impl
 WHERE badi_name = 'value'. " <- your badi name
LOOP AT lt_badi ASSIGNING FIELD-SYMBOL(<badi_class>).
  DATA(lo_instance) =  cl_oo_factory=>create_instance( ).
  DATA(lo_source) = lo_instance->create_clif_source( clif_name = CONV string( <badi_class> )
                                                     version   = 'A' ).
  lo_source->get_source( IMPORTING source = DATA(rt_source) ).
ENDLOOP.

将包含源的内部表保存到文件是微不足道的。