财务凭证创建增强，过账到指定平行账套

财务启用平行账套 主分类账0L  平行分类账ZL 

实现要求，凭证导入只在特定账套过账

BAPI: BAPI_ACC_DOCUMENT_POST 

抬头增强字段：LDGRP 分类账组 

  IF  rb_3 = 'X'.  "ZL分类账套
    CLEAR zsbapi_EXTENSION.
    MOVE: 'ZL' TO zsbapi_EXTENSION-ldgrp,
          'ZSBAPI_EXTENSION' TO extension2-structure.
    cl_abap_container_utilities=>fill_container_c( EXPORTING im_value = zsbapi_EXTENSION 
    IMPORTING ex_container = extension2+30 ).
    APPEND extension2.
  ENDIF.

 

增强点：BADI_ACC_DOCUMENT 

IF_EX_ACC_DOCUMENT~CHANGE方法

    
   FIELD-SYMBOLS: <acchd> TYPE acchd.
   DATA: zext_extension    TYPE zsbapi_extension.

   IF c_extension2[] IS NOT INITIAL.
      LOOP AT c_extension2 INTO wa_extension
                           WHERE structure = 'zsbapi_extension'.

        zext_extension-ldgrp = wa_extension-valuepart1.
        MOVE-CORRESPONDING zext_acchd TO c_acchd.

      ENDLOOP.
    ENDIF.