【FI】制造费用尾差结转Program

【FI】制造费用尾差结转

SAP的标准成本中心实际/计划/差异报表“S_ALR_87013611”在每月月结处理完毕之后，有存在尾差的情况，某些集团公司由于生产成本中心有上百个，逐个确认耗时费劲，则会按照一定的规则自动生成一张结转凭证。

【开发思路】

1、根据成本中心组获取成本中心信息

  IF NOT P_KOSET IS INITIAL.
    PERFORM DISSOLVE_SET TABLES LR_COSEL
                         USING P_KOSET
                               '0101'
                               'KOSTL'
                               P_KOKRS
                               'FMOP'
                        CHANGING GT_GROUPS[].

    LT_SUB = GT_GROUPS[ 1 ]-SUB.

    CLEAR LR_COSEL.
    LR_COSEL-FIELD = 'KOKRS'.
    LR_COSEL-SIGN = 'I'.
    LR_COSEL-OPTION = 'EQ'.
    LR_COSEL-LOW  = P_KOKRS.
    APPEND LR_COSEL.
    SORT LR_COSEL BY HIGH LOW.
    LS_OBART-SIGN = 'I'.
    LS_OBART-OPTION = 'EQ'.
    LS_OBART-LOW = 'KS'.
    APPEND LS_OBART TO LR_OBART.
    CALL FUNCTION 'ROMU_OM_CONVERT_TO_OBJNR'
      TABLES
        I_COSEL = LR_COSEL
        R_OBJNR = LR_OBJNR
        R_OBART = LR_OBART.
    IF SY-SUBRC = 0.
    ENDIF.
  ENDIF.

2、从成本控制对象: 期间和凭证抬头相关的行项目表“COVP”中获取费用明细信息

  SELECT * FROM COVP
    INTO TABLE LT_COVP
    WHERE KOKRS = P_KOKRS
      AND GJAHR = P_GJAHR
      AND PERIO = P_PERIO
      AND LEDNR = '00'
      AND WRTTP = '04'
      AND OBJNR IN LR_OBJNR

3、整理内表，自动生成结转凭证，保存Log信息

  CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
    EXPORTING
      DOCUMENTHEADER    = LS_HEADER
    IMPORTING
      OBJ_TYPE          = LV_OBJTYP
      OBJ_KEY           = LV_OBJKEY
      OBJ_SYS           = LV_OBJSYS
    TABLES
      ACCOUNTGL         = LT_GLACCT
      ACCOUNTRECEIVABLE = LT_ACCOUNTRECEIVE
      ACCOUNTPAYABLE    = LT_ACCOUNTPAYABLE
      CURRENCYAMOUNT    = LT_CURRENCYAMOUNT
      RETURN            = LT_RETURN.

  LOOP AT LT_RETURN INTO  LS_RETURN
                       WHERE TYPE = 'E' OR
                             TYPE = 'X' OR
                             TYPE = 'A'.
    EXIT.
  ENDLOOP.
  IF SY-SUBRC = 0.
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    LOOP AT LT_RETURN INTO  LS_RETURN
                       WHERE TYPE = 'E' OR
                             TYPE = 'X' OR
                             TYPE = 'A'.
      LV_MESSAGE = LV_MESSAGE && LS_RETURN-MESSAGE && ';'.
    ENDLOOP.
    GT_BAPIRET[] = LT_RETURN[].
    PERFORM DISPLAY_ERROR.
  ELSE.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT = 'X'.
    "凭证 + 公司代码 + 年度
    LV_BELNR = LV_OBJKEY+0(10).
  ENDIF.

【完整代码】

链接：下载Download