• ABAP BAPI_ACC_DOCUMENT_POST 中 EXTENSION1的用法

    BAPI_ACC_DOCUMENT_POST 在过账会计凭证时候，经常会发现一些标准字段在参数中并没有

    可以通过CMOD/SMOD增强出口--》ACBAPI01--》EXIT_SAPLACC4_001--》ZXACCU15

    示例代码：

    1. DATA: wa_extension TYPE bapiextc,
    2.       it_extension TYPE STANDARD TABLE OF bapiextc.
    3. wa_extension(3) = '005'.               "ITEMNO_ACC
    4. wa_extension+3(11) = 'Note 487722'.    "Data, not in standard interface
    5. APPEND wa_extension TO it_extension.
    6.  
    7. 传递到函数里面
    8.  
    9.  
    10. 然后在include中这样写
    11. READ TABLE t_accit WITH KEY posnr = extension(3).
    12. IF sy-subrc IS INITIAL.
    13. * Update the line item text
    14.   t_accit-sgtxt = extension+3(11).
    15.   MODIFY t_accit INDEX sy-tabix.
    16. ENDIF.

    另外还可以通过BTE的增强：RWBAPI01

    1.FIBF--》设置--》产品--》客户的--》然后新增一条

    2.复制函数 SAMPLE_INTERFACE_RWBAPI01 示例代码

    （SE37-->/SAPPCE/DPC_PROCESS_EXTENSION）

    3.FIBF-->设置--》处理函数模块---》客户的-》新增条目 RWBAPI01 

    另外如果字段还是没找到你要的，可以在如下结构中：append structure

    示例代码：

    1. DATA: LS_EXTEND1 TYPE BAPIACEXTC.
    2. DATA: LT_EXTEND2 TYPE STANDARD TABLE OF BAPIACEXTC.
    3.  
    4. CLEAR:LS_EXTEND1.
    5. LS_EXTEND1-FIELD1 = LV_BUZEI.
    6. LS_EXTEND1-FIELD2 = 'KUNNR'.
    7. LS_EXTEND1-FIELD3 = '0000001000'.
    8. APPEND LS_EXTEND1 TO LT_EXTEND1.

    1. FUNCTION /sappce/dpc_process_extension.
    2. *"----------------------------------------------------------------------
    3. *"*"Lokale Schnittstelle:
    4. *"  TABLES
    5. *"      IT_ACCIT STRUCTURE  ACCIT
    6. *"      IT_ACCCR STRUCTURE  ACCCR
    7. *"      RETURN STRUCTURE  BAPIRET2
    8. *"      EXTENSION STRUCTURE  BAPIACEXTC
    9. *"      IT_ACCWT STRUCTURE  ACCIT_WT
    10. *"  CHANGING
    11. *"     VALUE(DOCUMENT_HEADER) LIKE  ACCHD STRUCTURE  ACCHD
    12. *"----------------------------------------------------------------------
    13.  
    14.   DATA ld_tabix TYPE sy-tabix.
    15.   DATA ld_posnr TYPE posnr_acc.
    16.  
    17.   DATA ls_bapi_extension TYPE bapiacextc.
    18.   DATA ls_accit    TYPE accit.
    19.   DATA ls_acccr    TYPE acccr.
    20.   DATA ls_accit_wt TYPE accit_wt.
    21.   DATA ld_shkzg    TYPE shkzg.
    22.   DATA ld_currtyp  TYPE acccr-currtyp.                       "N1282263
    24. * process extension data
    25.   LOOP AT extension INTO ls_bapi_extension.
    27.     ld_posnr = ls_bapi_extension-field1.
    29. * evaluate fieldname
    30.     CASE ls_bapi_extension-field2.
    32.       WHEN c_ext_document_status.
    33. * set document Status
    34.         READ TABLE it_accit INTO ls_accit
    35.              WITH KEY posnr = ld_posnr.
    36.         CHECK sy-subrc EQ 0.
    37.         ld_tabix = sy-tabix.
    38.         ls_accit-bstat = ls_bapi_extension-field3.
    39. * modify document item
    40.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    43.       WHEN c_ext_wbs_element.
    44. * set wbs element
    45.         READ TABLE it_accit INTO ls_accit
    46.              WITH KEY posnr = ld_posnr.
    47.         CHECK sy-subrc EQ 0.
    48.         ld_tabix = sy-tabix.
    49.         ls_accit-ps_psp_pnr = ls_bapi_extension-field3.
    50. * modify document item
    51.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    54.       WHEN c_ext_target_sp_ind.
    55.         READ TABLE it_accit INTO ls_accit
    56.              WITH KEY posnr = ld_posnr.
    57.         CHECK sy-subrc EQ 0.
    58.         ld_tabix = sy-tabix.
    59. * set target special G/L indicator
    60.         ls_accit-zumsk = ls_bapi_extension-field3.
    61. * modify document item
    62.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    65.       WHEN c_ext_tax_code.
    66. * set tax code
    67.         READ TABLE it_accit INTO ls_accit
    68.              WITH KEY posnr = ld_posnr.
    69.         CHECK sy-subrc EQ 0.
    70.         ld_tabix = sy-tabix.
    71.         ls_accit-mwskz = ls_bapi_extension-field3.
    72. * modify document item
    73.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    76.       WHEN c_ext_tax_base_amount.
    77. * set tax base amount
    78.         IF ls_bapi_extension-field4 IS INITIAL.              "N1282263
    79.           ld_currtyp = '00'.                                 "N1282263
    80.         ELSE.                                                "N1282263
    81.           ld_currtyp = ls_bapi_extension-field4.             "N1282263
    82.         ENDIF.                                               "N1282263
    83.  
    84.         READ TABLE it_acccr INTO ls_acccr
    85.              WITH KEY posnr   = ld_posnr                     "N1282263
    86.                       curtp   = ld_currtyp.                  "N1282263
    87. *            WITH KEY posnr = ld_posnr.                      "N1282263
    88.         CHECK sy-subrc EQ 0.
    89.         ld_tabix = sy-tabix.
    90.         ls_acccr-wmwst = ls_bapi_extension-field3.
    91. * modify document item
    92.         MODIFY it_acccr FROM ls_acccr INDEX ld_tabix.
    94.       WHEN c_ext_stat_tax_amount.
    95. * set statistic tax amount
    96.         READ TABLE it_accit INTO ls_accit
    97.              WITH KEY posnr = ld_posnr.
    98.         CHECK sy-subrc EQ 0.
    99.         ld_tabix = sy-tabix.
    100.         ls_accit-sttax = ls_bapi_extension-field3.
    101. * modify document item
    102.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    104.       WHEN c_ext_stat_tax_amount_ccc.
    105. * set statistic tax amount (company code currency)
    106.         READ TABLE it_accit INTO ls_accit
    107.              WITH KEY posnr = ld_posnr.
    108.         CHECK sy-subrc EQ 0.
    109.         ld_tabix = sy-tabix.
    110.         ls_accit-sthtx = ls_bapi_extension-field3.
    111. * modify document item
    112.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    114. * set WT_KEY for CREDITOR, if creditor is subject to withholding tax
    115.       WHEN c_ext_with_tax_creditor.
    116.         READ TABLE it_accit INTO ls_accit
    117.              WITH KEY posnr = ld_posnr.
    118.         CHECK sy-subrc EQ 0.
    119.         ld_tabix = sy-tabix.
    120.         ls_accit-wt_key = ls_bapi_extension-field3.
    121.         ls_accit-qsskz = 'XX'.
    122. * modify document item
    123.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    126. * set withholding tax
    127.       WHEN c_ext_withholding_tax.
    128.         CLEAR ls_accit_wt.
    130.         ls_accit_wt-wt_key    = ls_bapi_extension-field1+0(6).
    131.         ls_accit_wt-witht     = ls_bapi_extension-field1+6(2).
    132.         ls_accit_wt-wt_withcd = ls_bapi_extension-field1+8(2).
    133.         ld_shkzg              = ls_bapi_extension-field1+10(1).
    134.         ls_accit_wt-wt_qsshb  = ls_bapi_extension-field3.
    135.         ls_accit_wt-wt_qbuihb = ls_bapi_extension-field4.
    137.         APPEND ls_accit_wt TO it_accwt.
    139.       WHEN c_ext_activity.
    140. * set activity for down payment requests
    141.         READ TABLE it_accit INTO ls_accit
    142.              WITH KEY posnr = ld_posnr.
    143.         CHECK sy-subrc EQ 0.
    144.         ld_tabix = sy-tabix.
    145.         ls_accit-vorgn = ls_bapi_extension-field3.
    146. * modify document item
    147.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    149. *** header data *****************************************
    150.       WHEN c_ext_business_transaction.
    151. * change activity (needed for CA-JVA)
    152.         document_header-glvor = ls_bapi_extension-field3.
    154.       WHEN c_ext_transaction_code.
    155. * change transaction code (needed for CA-JVA)
    156.         document_header-tcode = ls_bapi_extension-field3.
    159.       WHEN c_ext_invoice_reference.
    160. * set invoice reference
    161.         READ TABLE it_accit INTO ls_accit
    162.              WITH KEY posnr = ld_posnr.
    163.         CHECK sy-subrc EQ 0.
    164.         ld_tabix = sy-tabix.
    165.         ls_accit-rebzg = ls_bapi_extension-field3.
    166. * modify document item
    167.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    169.       WHEN c_ext_invoice_reference_year.
    170. * set invoice reference year
    171.         READ TABLE it_accit INTO ls_accit
    172.              WITH KEY posnr = ld_posnr.
    173.         CHECK sy-subrc EQ 0.
    174.         ld_tabix = sy-tabix.
    175.         ls_accit-rebzj = ls_bapi_extension-field3.
    176. * modify document item
    177.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    179.       WHEN c_ext_invoice_reference_item.
    180. * set invoice reference item
    181.         READ TABLE it_accit INTO ls_accit
    182.              WITH KEY posnr = ld_posnr.
    183.         CHECK sy-subrc EQ 0.
    184.         ld_tabix = sy-tabix.
    185.         ls_accit-rebzz = ls_bapi_extension-field3.
    186. * modify document item
    187.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    189.       WHEN c_ext_sub_document_type.
    190. * set type of subsequent document
    191.         READ TABLE it_accit INTO ls_accit
    192.              WITH KEY posnr = ld_posnr.
    193.         CHECK sy-subrc EQ 0.
    194.         ld_tabix = sy-tabix.
    195.         ls_accit-rebzt = ls_bapi_extension-field3.
    196. * modify document item
    197.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    199.       WHEN c_ext_invoice_reference_check.
    200. * set invoice reference check = NO
    201.         READ TABLE it_accit INTO ls_accit
    202.              WITH KEY posnr = ld_posnr.
    203.         CHECK sy-subrc EQ 0.
    204.         ld_tabix = sy-tabix.
    205.         ls_accit-rebzg_check = ls_bapi_extension-field3.
    206. * modify document item
    207.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    209.       WHEN c_ext_allocation.
    210. * fill allocation for tax items
    211.         READ TABLE it_accit INTO ls_accit
    212.              WITH KEY posnr = ld_posnr.
    213.         CHECK sy-subrc EQ 0.
    214.         ld_tabix = sy-tabix.
    215.         ls_accit-zuonr = ls_bapi_extension-field3.
    216. * modify document item
    217.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    219. * insert XAUTO for tax clearing lines
    220.       WHEN c_xauto.
    221.         READ TABLE it_accit INTO ls_accit
    222.              WITH KEY posnr = ld_posnr.
    223.         CHECK sy-subrc EQ 0.
    224.         ld_tabix = sy-tabix.
    225.         ls_accit-xauto = ls_bapi_extension-field3.
    226. * modify document item
    227.         MODIFY it_accit FROM ls_accit INDEX ld_tabix.
    229. ** insert cash discount amount                               "#976257  "N1140971
    230. *      when c_ext_cash_discount_amount.                      "#976257  "N1140971
    231. *        read table it_acccr into ls_acccr                   "#976257  "N1140971
    232. *             with key posnr = ld_posnr.                     "#976257  "N1140971
    233. *        check sy-subrc eq 0.                                "#976257  "N1140971
    234. *        ld_tabix = sy-tabix.                                "#976257  "N1140971
    235. *        ls_acccr-wskto = ls_bapi_extension-field3.          "#976257  "N1140971
    236. ** modify document item                                      "#976257  "N1140971
    237. *        modify it_acccr from ls_acccr index ld_tabix.       "#976257  "N1140971
    239. * insert posting key (requested by functionality DBM)       "#976257
    240.       when c_ext_posting_key.                               "#976257
    241.         read table it_accit into ls_accit                   "#976257
    242.              with key posnr = ld_posnr.                     "#976257
    243.         check sy-subrc eq 0.                                "#976257
    244.         ld_tabix = sy-tabix.                                "#976257
    245.         ls_accit-bschl = ls_bapi_extension-field3.          "#976257
    246. * modify document item                                      "#976257
    247.         modify it_accit from ls_accit index ld_tabix.       "#976257
    248.  
    249. * others
    250.       WHEN OTHERS.
    251.  
    252.         CONTINUE.
    253.  
    254.     ENDCASE.
    255.  
    256.   ENDLOOP.
    257.  
    258.  
    259. ENDFUNCTION.

  • 相关阅读:
    redis持久化之RDB （七）
    设计模式之美——单元测试和代码可测性
    c小白勇闯结构体！！！！
    vue3怎么动态使用style
    FreeRTOS自我救赎3之USB虚拟串口
    Selenium 获取请求响应
    B. Kalindrome Array
    17. 电话号码的字母组合
    【Designing ML Systems】第 9 章 ：生产中的持续学习和测试
    Python钢筋混凝土结构计算.pdf-T001-混凝土强度设计值
  • 原文地址：https://blog.csdn.net/IamRunjiang/article/details/132758398