提问
ABAP Development cl_abap

如何获取基于在本地定义的结构中使用的TYPE的表名和字段名？

2020-09-17 04:07发布

站内问答 / ABAP
2678 9 4

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

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


人们好，

我需要获取本地定义的结构中字段的标签，如下所示：

类型：开始于ty_out，
              kunnr TYPE kna1-kunnr，
              vkorg TYPE knvv-vkorg，
              vtweg TYPE knvv-vtweg，
              kukla TYPE kna1-kukla，
              vtext TYPE tkukt-vtext，
              pltyp TYPE knvv-pltyp，
              .....
            ty_out的第END个。

结构中的所有字段都是根据现有SAP表字段键入的。

我想利用功能模块DDIF_FIELDINFO_GET（除非有等效的类方法？）通过返回的表dfies_tab获取字段描述：

通话功能'DDIF_FIELDINFO_GET'
       出口
         tabname = i_tablename
         字段名称= i_fieldname
         langu = sy-langu
       桌子
         dfies_tab = lt_dfies
       例外情况
         not_found = 1
         internal_error = 2
         其他= 3。
    
      如果sy-subrc EQ 0。
        读取表lt_dfies到ls_dfies索引1。
        如果sy-subrc EQ 0。
          r_descr = ls_dfies-scrtext_m。
        其他。
          r_descr = i_fieldname。
        万一。
      其他。
        r_descr = i_fieldname。
      ENDIF。

我已经根据结构搜索了合适的方法来获取表名和字段名，但并不幸运。 我最接近的是使用cl_abap_typedescr => describe_by_data，但这仅返回字段名称以及字段的实际类型和长度。 有没有类似的简单方法可以"更进一步"，并且还返回TYPE之后但又分为表名和字段名的内容？

现在-为了能够快速测试我的程序，我通过提供i_tablename和i_fieldname这样的方式（不是很喜欢-尤其是因为结构相当大）而以"艰难的方式"做到了： 

 get_field_descr（导出i_tablename ='KNA1'
                                i_fieldname ='KUNNR'
                      接收r_descr = lv_descr）。

我想坚持使用本地定义的结构，因为它只需要一个程序，因此没有真正的理由在字典中对其进行定义（对于DDIC更改，我们有一个"有趣的"过程，因此请尝试 尽量避免使用它们，以防万一您想知道我为什么要提起这个问题。

我们正在使用EHP8的NW750。

欢呼

Baerbel

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

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


人们好，

我需要获取本地定义的结构中字段的标签，如下所示：

类型：开始于ty_out，
              kunnr TYPE kna1-kunnr，
              vkorg TYPE knvv-vkorg，
              vtweg TYPE knvv-vtweg，
              kukla TYPE kna1-kukla，
              vtext TYPE tkukt-vtext，
              pltyp TYPE knvv-pltyp，
              .....
            ty_out的第END个。

结构中的所有字段都是根据现有SAP表字段键入的。

我想利用功能模块DDIF_FIELDINFO_GET（除非有等效的类方法？）通过返回的表dfies_tab获取字段描述：

通话功能'DDIF_FIELDINFO_GET'
       出口
         tabname = i_tablename
         字段名称= i_fieldname
         langu = sy-langu
       桌子
         dfies_tab = lt_dfies
       例外情况
         not_found = 1
         internal_error = 2
         其他= 3。
    
      如果sy-subrc EQ 0。
        读取表lt_dfies到ls_dfies索引1。
        如果sy-subrc EQ 0。
          r_descr = ls_dfies-scrtext_m。
        其他。
          r_descr = i_fieldname。
        万一。
      其他。
        r_descr = i_fieldname。
      ENDIF。

我已经根据结构搜索了合适的方法来获取表名和字段名，但并不幸运。 我最接近的是使用cl_abap_typedescr => describe_by_data，但这仅返回字段名称以及字段的实际类型和长度。 有没有类似的简单方法可以"更进一步"，并且还返回TYPE之后但又分为表名和字段名的内容？

现在-为了能够快速测试我的程序，我通过提供i_tablename和i_fieldname这样的方式（不是很喜欢-尤其是因为结构相当大）而以"艰难的方式"做到了： 

 get_field_descr（导出i_tablename ='KNA1'
                                i_fieldname ='KUNNR'
                      接收r_descr = lv_descr）。

我想坚持使用本地定义的结构，因为它只需要一个程序，因此没有真正的理由在字典中对其进行定义（对于DDIC更改，我们有一个"有趣的"过程，因此请尝试 尽量避免使用它们，以防万一您想知道我为什么要提起这个问题。

我们正在使用EHP8的NW750。

欢呼

Baerbel

付费偷看设置
发送
9条回答
shere_lin
1楼 · 2020-09-17 04:55.采纳回答

你好

另一种尝试使用较短技术来获取局部结构字段的标签

报告toti。
 **＆--------------------------------------------------------------  ---------------------- *
 执行local_routine。

 FORM local_routine。
   类型：开始于ty_out，
            kunnr TYPE kna1-kunnr，
            vkorg TYPE knvv-vkorg，
            vtweg TYPE knvv-vtweg，
            kukla TYPE kna1-kukla，
            vtext TYPE tkukt-vtext，
            pltyp TYPE knvv-pltyp，
          结束于ty_out。
   数据ls_out TYPE ty_out。
   数据lo_rtti_struct类型参考cl_abap_structdescr。


 * DATA（lo_rtti_struct）= cl_rodps_odp_rt => get_structdescr_from_input（ls_out）。
 * CL_GENIOS_CUST_PARAMETER GET_STRUCT_DESCR
   DATA（lo_typedescr）= cl_abap_structdescr => describe_by_data（ls_out）。
   IF（lo_typedescr-> kind = cl_abap_typedescr => kind_struct）。
     lo_rtti_struct？= lo_typedescr。
     DATA（lt_dfies）= cl_salv_data_descr => read_structdescr（lo_rtti_struct）。
   万一。

 ENDFORM。

Chaouki

哎，真难
2楼-- · 2020-09-17 04:49

第二版... 

 DATA：结构类型REF到cl_abap_structdescr，
       组件类型abap_component_tab，
       ddic_object类型dd_x031l_table，
       元素TYPE REF TO cl_abap_elemdescr，
       dfies TYPE dfies，
       dfies_tab类型dfies_tab。
 FIELD-SYMBOLS 类型abap_componentdescr。

 结构？= cl_abap_structdescr => describe_by_data（p_data = myvar）。
 组件＝结构-> get_components（）。
 环向组件ASSIGNING 。
   IF  -type-> is_ddic_type（）EQ abap_true。
     元素？= -类型。
     dfies = element-> get_ddic_field（sy-langu）。
     将dfies附加到dfies_tab。
   万一。
 结局。
ZJXianG
3楼-- · 2020-09-17 04:42

你好，

您可以执行以下操作，表名称可以是具有本地结构中所有字段的表或结构（它可以具有任何其他字段）。

数据：lt_fcat类型slis_t_fieldcat_alv，
        ls_fcat与lt_fcat类似。


   数据：i_tablename TYPE ddobjname，
        lt_dfies dfies类型表，
        ls_dfies与lt_dfies类似。


   i_tablename ='具有所有字段的表'。


   通话功能" DDIF_FIELDINFO_GET"
     出口
       tabname = i_tablename
 *字段名称= i_fieldname
 *语言= sy语言
     桌子
       dfies_tab = lt_dfies
     例外情况
       not_found = 1
       internal_error = 2
       其他= 3。


   FIELD-SYMBOLS  TYPE任意。
   将lt_dfies循环到ls_dfies。
     将结构ls_vbrp的ASSIGN COMPONENT ls_dfies-fieldname分配给。
     如果已分配。
       清除ls_fcat。
       ls_fcat-seltext_l = ls_dfies-scrtext_l。
       ls_fcat-seltext_m = ls_dfies-scrtext_m。
       ls_fcat-seltext_s = ls_dfies-scrtext_s。
       ls_fcat-fieldname = ls_dfies-fieldname。
       附加ls_fcat至lt_fcat。
     万一。
   ENDLOOP。
上一页 1 2

一周热门 更多>

点击此处---> EasySAP.com 一起学习S4 HANA ...