사내거래 PCA 전표 생성

1) 결산연월 : 2020.001

2) 상세내역

- 수익 프로젝트 : A

- 대상 프로젝트 : B

- 사내 매출 부서 : C

- 사내 매출 금액 : 100,000

- 거래내역 : 매출 : A(100,000) → C(100,000) 원가: A->A(80,000), B(20,000)

3) 사내매출/ 사내원가 계정

- 사내매출 : 1001

- 사내원가 : 1002

  DATA: LV_MESSG TYPE BAPI_MSG,
        LV_MESTY TYPE BAPI_MTYPE.

  DATA: LS_HEADDATA TYPE PROFITCENTER_HEAD.
  DATA: LS_RETURN TYPE BAPIRET2 .
  DATA: LT_LINEDATA TYPE PROFITCENTER_DATA OCCURS 0 WITH HEADER LINE,
        LT_LMESSAGE TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE.

  LS_HEADDATA-KURST         = 'M'.
  LS_HEADDATA-DOCUMENT_TYPE = 'A0'.
  LS_HEADDATA-PSTNG_DATE    = I_SENDT.
  LS_HEADDATA-SPEC_PERIOD   = ''.
  LS_HEADDATA-COMP_CODE     = '1000'.
  LS_HEADDATA-CURRENCY      = 'KRW'.
  LS_HEADDATA-LOG_SYSTEM    = ''.

* ZSRBT ZSRBT CURR  15  2 사내 매출 금액
* ZSRMJ  ZSRMJ  DEC  5  2  사내마진율(%)

  DATA: LV_ZSRBT_X TYPE ZSRBT, "원가 A
        LV_ZSRBT_Y TYPE ZSRBT. "원가 B

  LV_ZSRBT_X = ES_DATA-ZSRBT * ES_DATA-ZSRMJ / 100.
  LV_ZSRBT_Y = ES_DATA-ZSRBT - LV_ZSRBT_X.

* 전사 매출 C
  PERFORM SET_INNER_DEAL_LINE
   TABLES LT_LINEDATA
    USING ZCL_CO_COMMON=>C_INNER_DEAL_SELL "사내매출 C +
          ES_DATA-CD_PROJECT   "A -
          ZCL_CO_COMMON=>C_INNER_DEAL_PRCTR_BEFI "사내마진
          ES_DATA-ZSRBT. "X + Y = 100

* 사내원가 A
  PERFORM SET_INNER_DEAL_LINE
   TABLES LT_LINEDATA
    USING ES_DATA-CD_PROJECT   "A +
          ZCL_CO_COMMON=>C_INNER_DEAL_PRCTR_BEFI "사내마진 C -
          ZCL_CO_COMMON=>C_INNER_DEAL_BASE "사내원가
          LV_ZSRBT_X. "X

* 사내원가 B
  PERFORM SET_INNER_DEAL_LINE
   TABLES LT_LINEDATA
    USING ES_DATA-CD_PROJECT_F "B +
          ZCL_CO_COMMON=>C_INNER_DEAL_PRCTR_BEFI "사내마진 C -
          ZCL_CO_COMMON=>C_INNER_DEAL_BASE "사내원가
          LV_ZSRBT_Y. "Y

  CALL FUNCTION 'PROFITCENTER_DOCUMENT_POST'
    EXPORTING
      HEADDATA = LS_HEADDATA
    IMPORTING
      RETURN   = LS_RETURN
    TABLES
      LINEDATA = LT_LINEDATA
      LMESSAGE = LT_LMESSAGE.

ENDFUNCTION.
FORM SET_INNER_DEAL_LINE TABLES PT_LINEDATA STRUCTURE PROFITCENTER_DATA
                          USING P_PRCTR_F
                                P_PRCTR_T
                                P_KSTAR
                                P_BETRG.

  PT_LINEDATA-PROFIT_CTR = P_PRCTR_F.
  PT_LINEDATA-PART_PRCTR = P_PRCTR_T.
  PT_LINEDATA-GL_ACCOUNT = P_KSTAR.
  PT_LINEDATA-IN_TC      = P_BETRG.
  APPEND PT_LINEDATA.
  CLEAR: PT_LINEDATA.

  PT_LINEDATA-PROFIT_CTR = P_PRCTR_T.
  PT_LINEDATA-PART_PRCTR = P_PRCTR_F.
  PT_LINEDATA-GL_ACCOUNT = P_KSTAR.
  PT_LINEDATA-IN_TC      = P_BETRG  * ( -1 ).
  APPEND PT_LINEDATA.
  CLEAR: PT_LINEDATA.

ENDFORM.