zoukankan      html  css  js  c++  java
  • 在KO88结算成本之后,对特定的内部订单类型,替换默认的统驭科目

    BTE增强 1120可以直接解决。

    除了BTE1120之外,下面的做法更复杂点。

     

     

     

     

     

     

    代码参考:

    ENHANCEMENT 1  ZEN_KO88.    "active version
    *
    *  BREAK DS01.
    
      DATA:e_aufk TYPE AUFK,
           LR_co_acdoc_post_data Type Ref To CL_FINS_ACDOC_POST_DATA,
           LR_IO_ACDOC_DATA      TYPE Ref To CL_FINS_ACDOC_DATA,
           LT_ACDOC_ITEM         TYPE FINST_ACDOC_ITEM.
    
     IMPORT e_aufk TO e_aufk FROM MEMORY ID 'KO88'.
     IF e_aufk-AUART = '11111111'.
    
     LR_IO_ACDOC_DATA      = co_acdoc_post_data->MO_ACDOC_DATA.
     LT_ACDOC_ITEM         = LR_IO_ACDOC_DATA->MT_ACDOC_ITEM.
    
     LOOP AT LT_ACDOC_ITEM ASSIGNING FIELD-SYMBOL(<FS_ITEM>).
       CASE <FS_ITEM>-KOART.
         WHEN 'D'.
          SELECT SINGLE BU_GROUP INTO @DATA(V_BU_GROUP) FROM BUT000 WHERE PARTNER = @<FS_ITEM>-KUNNR.
              IF V_BU_GROUP = 'Z003'.
                <FS_ITEM>-HKONT = '11111111'.
              ELSEIF V_BU_GROUP = 'Z004'.
                <FS_ITEM>-HKONT = '11111111'.
              ENDIF.
              <FS_ITEM>-ALTKT = '0012310000'.
    
         WHEN 'K'.
          SELECT SINGLE BU_GROUP INTO V_BU_GROUP FROM BUT000 WHERE PARTNER = <FS_ITEM>-LIFNR.
              IF V_BU_GROUP = 'Z003'.
                <FS_ITEM>-HKONT = '111111111'.
              ELSEIF V_BU_GROUP = 'Z004'.
                <FS_ITEM>-HKONT = '111111111'.
              ENDIF.
              <FS_ITEM>-ALTKT = '011111111'.
         WHEN OTHERS.
       ENDCASE.
     ENDLOOP.
    
     LR_IO_ACDOC_DATA->MT_ACDOC_ITEM = LT_ACDOC_ITEM.
     co_acdoc_post_data->MO_ACDOC_DATA = LR_IO_ACDOC_DATA.
    
    ENDIF.
    ENDENHANCEMENT. 
    View Code

     2)

     

     

  • 相关阅读:
    web----VLAN
    安装 Android Studio 2.3.2
    对于“2017面向对象程序设计(Java)第三周学习总结”存在问题的反馈
    2017面向对象程序设计(JAVA)第3周学习指导及要求(2017.9.6-2017.9.12)
    第3周教学课件及实验任务已发布!
    关于字符串比较
    优秀博文推荐
    新手如何学习Java——Java学习路线图
    2017面向对象程序设计(Java)第2周学习指导及要求(2017.8.28-2017.9.3)
    第二周教学课件及实验任务已发布!
  • 原文地址:https://www.cnblogs.com/chaguoguo/p/15540454.html
Copyright © 2011-2022 走看看