我想知道您将如何在END ROUTINE中获取主数据属性

2020-09-06 19:15发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)大家好 我想在我的最终例程中为...

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

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


大家好

我想在我的最终例程中为客户主数据属性编写一个逻辑。 谁能告诉我是否可以在结束例程中为主数据属性编写逻辑。

我尝试了ABAP代码,但该代码无法正常工作。 请在下面找到代码。

从/BI0/PCUSTOMER中将客户/BIC/ZCUSTPAR/BIC/ZCUSTPARG选择到表IT_/BI0/PCUSTOMER中,以获取RESULT_PACKAGE中的所有条目,其中客户= Result_package-客户。

如果sy-subrc =0。

按客户对它_/BI0/PCUSTOMER进行排序。

ENDIF。

在Result_package ASSIGNING 处循环。

使用键Customer = wa_/BI0/PCUSTOMER-customer将表IT_/BI0/PCUSTOMER读入wa_/BI0/PCUSTOMER。

如果sy-subrc = 0。

如果 -zcustpar =``。

-zcustpar = wa_/BIO/PCUSTOMER-customer。

endif。

-zcustparg = -zcustpar。

endif。

如果 -customer + 7(3)='_IN'并且 -zcustpar =''。

<结果字段> -zcustpar = <结果字段> -customer + 0(7)。

endif。

如果 -customer + 7(3)='_IN'并且 -zcustparg =''。

<结果字段> -zcustparg = <结果字段> -zcustpar。 万一。

结束循环。

但是代码抛出错误,表明ZCUSTPAR和ZCUSTPARG不在result_fields中。 这两个字段不过是主数据属性。

请提供帮助。

8条回答
葫芦娃快救爷爷
2020-09-06 19:58

请使用代码 粘贴代码时,在编辑器中单击按钮。 它使读取起来非常容易-特别是如果您花时间对其进行格式化-例如,使用内置的漂亮打印机。
请注意,每行一个abap语句。

您 应该如下定义您的表IT_/BI0/PCUSTOMER:

 DATA it_/bi0/pcustomer类型散列表/bi0/pcustomer
      

然后使用TABLE KEY将READ更改为READ ...,这要快得多。

您的SORT不会使您的程序运行更快。

此外,您还应该在选择中包含OBJVERS EQ'A'子句,否则您也会选择不活动的值

从/BI0/PCUSTOMER中选择客户/BIC/ZCUSTPAR/BIC/ZCUSTPARG
        进入表IT_/BI0/PCUSTOMER
        适用于RESULT_PACKAGE中的所有条目
        客户= Result_package-customer
          AND objvers ='A'。
 在Result_package ASSIGNING 处循环。
   将表IT_/BI0/PCUSTOMER读入wa_/BI0/PCUSTOMER
         使用表键Customer = wa_/BI0/PCUSTOMER-customer。
   如果sy-subrc = 0。
     如果 -zcustpar =''。
         -zcustpar = wa_/BIO/PCUSTOMER-客户。
     万一。
     <结果字段> -zcustparg = <结果字段> -zcustpar。
   万一。
   
   如果 -customer + 7(3)='_IN'并且 -zcustpar =''。
     <结果字段> -zcustpar = <结果字段> -customer + 0(7)。
   万一。

   如果 -customer + 7(3)='_IN'并且 -zcustparg =''。
      <结果字段> -zcustparg = <结果字段> -zcustpar。
   万一。
 结束循环。
 

一周热门 更多>