<P>* transaction code - cjr2에 대한 데이터 입력</P>
<P> </P>
<P>HTML로 보이시면 첨부파일을...</P>
<P>사용예를 두 가지 올림 비교하여 사용하시길...</P>
<P> </P>
<P>두번째 소스는 다른분의 소스라 그분께는 죄송하지만....도용했습니다. 넓은 아량을...</P>
<P> </P>
<P>ps모듈 플젝에서 사용했는 데 다른쪽에서 사용을 하는 지는 의문...</P>
<P> </P>
<P>1.-----------------------------------------------------------------------------</P>
<P>    CALL FUNCTION 'BAPI_COSTACTPLN_POSTPRIMCOST'<BR>    EXPORTING<BR>      HEADERINFO     = GS_HEADERINFO<BR>      DELTA          = ''  "C_X "Add Value<BR>    TABLES<BR>      INDEXSTRUCTURE = GT_INDEXSTRUCTURE<BR>      COOBJECT       = GT_COOBJECT<BR>      PERVALUE       = GT_PERVALUE<BR>      RETURN         = GT_RETURN. </P>
<P> </P>
<P>* start...................................................................................................</P>
<P><BR>  DATA: L_AMOUNT(18),<BR>        L_DIFF TYPE I,<BR>        L_CNT  TYPE I.</P>
<P>  DATA: LV_OBJ_INX        LIKE BAPIACISTRU-OBJECT_INDEX,<BR>        LV_VAL_INX        LIKE BAPIACISTRU-VALUE_INDEX.</P>
<P><BR>  DATA: LT_AMOUNT TYPE TABLE OF STRING,<BR>        LW_AMOUNT TYPE STRING.</P>
<P>*-----------------------------------------------------<BR>* Cost는 BAPI 수행<BR>*-----------------------------------------------------<BR>  GT_INDEXSTRUCTURE-OBJECT_INDEX = '1'.<BR>  GT_INDEXSTRUCTURE-VALUE_INDEX  = '1'.<BR>  APPEND GT_INDEXSTRUCTURE.</P>
<P>    LOOP AT GT_ITAB.<BR>      INIT: GT_COOBJECT, GT_PERVALUE,<BR>            GT_TOTVALUE, GT_RETURN.</P>
<P>*   Header<BR>      GS_HEADERINFO-CO_AREA     = GT_ITAB-KOKRS.     " Controlling area.<BR>      GS_HEADERINFO-VERSION     = GT_ITAB-VERSN.     " Version.<BR>      GS_HEADERINFO-FISC_YEAR   = GT_ITAB-MONTH(4).  " YYYY<BR>      GS_HEADERINFO-PERIOD_FROM = GT_ITAB-MONTH+4(2)." MM - START MONTH<BR>      GS_HEADERINFO-PERIOD_TO   = GT_ITAB-MONTH+4(2)." MM - END MONTH<BR>      GS_HEADERINFO-PLAN_CURRTYPE = 'T'. " or 'C'     플랜에 대한 CURRENCY(?)<BR>                                                     <BR>*   Item<BR>      GT_COOBJECT-OBJECT_INDEX = '1'.                 " INDEXSTRUCTURE의   </P>
<P>                                                        object index와 Match<BR>      GT_COOBJECT-WBS_ELEMENT  = GT_ITAB-POSID.       " WBS<BR>      APPEND GT_COOBJECT.</P>
<P>      GT_PERVALUE-VALUE_INDEX = '1'.                  " INDEXSTRUCTURE의 </P>
<P>                                                        value index와 Match   <BR>      GT_PERVALUE-COST_ELEM   = GT_ITAB-KSTAR.        " Cost element<BR>      GT_PERVALUE-TRANS_CURR  = GT_ITAB-WAERS.        " currency</P>
<P>*   금액에 Currency를 적용한 후 콤마 분리<BR>      WRITE GT_ITAB-AMOUNT TO L_AMOUNT LEFT-JUSTIFIED CURRENCY GT_ITAB-WAERS.</P>
<P>      " 금액을 char type으로 변환<BR>      SPLIT L_AMOUNT AT GC_COMMA INTO TABLE LT_AMOUNT.<BR>      CLEAR L_AMOUNT.<BR>      LOOP AT LT_AMOUNT INTO LW_AMOUNT.<BR>        CONCATENATE L_AMOUNT LW_AMOUNT INTO L_AMOUNT.<BR>      ENDLOOP.<BR>* 월별로 값을 저장<BR>      CASE GT_ITAB-MONTH+4(2).<BR>        WHEN '01'.  GT_PERVALUE-FIX_VAL_PER01 = L_AMOUNT.<BR>        WHEN '02'.  GT_PERVALUE-FIX_VAL_PER02 = L_AMOUNT.<BR>        WHEN '03'.  GT_PERVALUE-FIX_VAL_PER03 = L_AMOUNT.<BR>        WHEN '04'.  GT_PERVALUE-FIX_VAL_PER04 = L_AMOUNT.<BR>        WHEN '05'.  GT_PERVALUE-FIX_VAL_PER05 = L_AMOUNT.<BR>        WHEN '06'.  GT_PERVALUE-FIX_VAL_PER06 = L_AMOUNT.<BR>        WHEN '07'.  GT_PERVALUE-FIX_VAL_PER07 = L_AMOUNT.<BR>        WHEN '08'.  GT_PERVALUE-FIX_VAL_PER08 = L_AMOUNT.<BR>        WHEN '09'.  GT_PERVALUE-FIX_VAL_PER09 = L_AMOUNT.<BR>        WHEN '10'.  GT_PERVALUE-FIX_VAL_PER10 = L_AMOUNT.<BR>        WHEN '11'.  GT_PERVALUE-FIX_VAL_PER11 = L_AMOUNT.<BR>        WHEN '12'.  GT_PERVALUE-FIX_VAL_PER12 = L_AMOUNT.<BR>      ENDCASE.<BR>      APPEND GT_PERVALUE.</P>
<P>    CALL FUNCTION 'BAPI_COSTACTPLN_POSTPRIMCOST'<BR>    EXPORTING<BR>      HEADERINFO     = GS_HEADERINFO<BR>      DELTA          = ''  "C_X "Add Value<BR>    TABLES<BR>      INDEXSTRUCTURE = GT_INDEXSTRUCTURE<BR>      COOBJECT       = GT_COOBJECT<BR>      PERVALUE       = GT_PERVALUE<BR>      RETURN         = GT_RETURN.</P>
<P><BR> </P>
<P>* 수행후 아무런 메시지가 없으면 ok!<BR>  READ TABLE GT_RETURN INDEX 1.<BR>  IF SY-SUBRC NE 0.<BR>    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'. </P>
<P>  ENDIF.</P>
<P> </P>
<P>2.-----------------------------------------------------------------------------</P>
<P>    DATA: LV_OBJ_INX        LIKE BAPIACISTRU-OBJECT_INDEX,<BR>        LV_VAL_INX        LIKE BAPIACISTRU-VALUE_INDEX,<BR>        LV_ERR_FLAG.</P>
<P>  REFRESH GT_1. CLEAR GT_1.<BR>  LOOP AT ITAB.<BR>    MOVE-CORRESPONDING ITAB TO GT_1.<BR>    APPEND GT_1. CLEAR GT_1.<BR>  ENDLOOP.</P>
<P>  SORT GT_1 BY YYYY MM KOSTL SAKNR.</P>
<P>  CLEAR LV_ERR_FLAG.<BR>  LOOP AT GT_1.<BR>    AT NEW MM.<BR>      REFRESH: GT_INDEXSTRUCTURE,GT_COOBJECT,GT_PERVALUE,<BR>               GT_TOTVALUE,GT_RETURN.<BR>      CLEAR  : GT_INDEXSTRUCTURE,GT_COOBJECT,GT_PERVALUE,<BR>               GT_TOTVALUE,GT_RETURN,GS_HEADERINFO,<BR>               LV_OBJ_INX ,LV_VAL_INX.</P>
<P>      PERFORM PUT_HEADERINFO.<BR>    ENDAT.</P>
<P>    AT NEW KOSTL.<BR>      LV_OBJ_INX = LV_OBJ_INX + 1.<BR>      PERFORM PUT_COOBJECT USING LV_OBJ_INX GT_1-KOSTL.<BR>    ENDAT.</P>
<P>    AT NEW SAKNR.<BR>      LV_VAL_INX = LV_VAL_INX + 1.<BR>      PERFORM PUT_INDEXSTRUCTURE USING LV_OBJ_INX LV_VAL_INX.<BR>      CLEAR GT_PERVALUE.<BR>    ENDAT.</P>
<P>    PERFORM PUT_PERVALUE USING<BR>            LV_VAL_INX GT_1-MM GT_1-SAKNR GT_1-AM_AMT.</P>
<P>    AT END OF SAKNR.<BR>      APPEND GT_PERVALUE.<BR>    ENDAT.</P>
<P>    AT END OF MM.<BR>      CALL FUNCTION 'BAPI_COSTACTPLN_POSTPRIMCOST'<BR>        EXPORTING<BR>          HEADERINFO     = GS_HEADERINFO<BR>        TABLES<BR>          INDEXSTRUCTURE = GT_INDEXSTRUCTURE<BR>          COOBJECT       = GT_COOBJECT<BR>          PERVALUE       = GT_PERVALUE<BR>          TOTVALUE       = GT_TOTVALUE<BR>          RETURN         = GT_RETURN.</P>
<P>      READ TABLE GT_RETURN INDEX 1.</P>
<P> </P>
<P>      IF SY-SUBRC EQ 0.<BR>        SET PF-STATUS '100' EXCLUDING 'EXECUTE'.</P>
<P>        LOOP AT GT_RETURN.<BR>          WRITE: / GT_RETURN-MESSAGE.<BR>        ENDLOOP.</P>
<P>        LV_ERR_FLAG  = 'X'.<BR>        EXIT.<BR>      ENDIF.<BR>    ENDAT.<BR>  ENDLOOP.</P>
<P>  CHECK LV_ERR_FLAG IS INITIAL.<BR>  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.<BR>  MESSAGE S355(00). </P>
<P> </P>
<P>*&---------------------------------------------------------------------*<BR>*&      Form  PUT_HEADERINFO<BR>*&---------------------------------------------------------------------*<BR>*       text<BR>*----------------------------------------------------------------------*<BR>FORM PUT_HEADERINFO.</P>
<P>  GS_HEADERINFO-CO_AREA       = P_KOKRS.<BR>  GS_HEADERINFO-VERSION       = P_VERSN.<BR>  GS_HEADERINFO-FISC_YEAR     = GT_1-YYYY.<BR>  GS_HEADERINFO-PERIOD_FROM   = GT_1-MM.<BR>  GS_HEADERINFO-PERIOD_TO     = GT_1-MM.<BR>  GS_HEADERINFO-PLAN_CURRTYPE = 'C'.</P>
<P>ENDFORM.                    " PUT_HEADERINFO </P>
<P>*&---------------------------------------------------------------------*<BR>*&      Form  PUT_COOBJECT<BR>*&---------------------------------------------------------------------*<BR>*       text<BR>*----------------------------------------------------------------------*<BR>FORM PUT_COOBJECT USING P_OBJ_INX P_KOSTL.</P>
<P>  GT_COOBJECT-OBJECT_INDEX = P_OBJ_INX.<BR>  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'<BR>    EXPORTING<BR>      INPUT  = P_KOSTL<BR>    IMPORTING<BR>      OUTPUT = GT_COOBJECT-COSTCENTER.</P>
<P>  APPEND GT_COOBJECT.</P>
<P>ENDFORM.                    " PUT_COOBJECT </P>
<P> </P>
<P>*&---------------------------------------------------------------------*<BR>*&      Form  PUT_INDEXSTRUCTURE<BR>*&---------------------------------------------------------------------*<BR>*       text<BR>*----------------------------------------------------------------------*<BR>FORM PUT_INDEXSTRUCTURE USING P_OBJ_INX P_VAL_INX.</P>
<P>  GT_INDEXSTRUCTURE-OBJECT_INDEX = P_OBJ_INX.<BR>  GT_INDEXSTRUCTURE-VALUE_INDEX  = P_VAL_INX.<BR>  APPEND GT_INDEXSTRUCTURE.</P>
<P>ENDFORM.                    " PUT_INDEXSTRUCTURE </P>
<P> </P>
<P>  *&---------------------------------------------------------------------*<BR>*&      Form  PUT_PERVALUE<BR>*&---------------------------------------------------------------------*<BR>*       text<BR>*----------------------------------------------------------------------*<BR>FORM PUT_PERVALUE USING P_VAL_INX P_MM P_SAKNR P_AM_AMT.</P>
<P>  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'<BR>    EXPORTING<BR>      INPUT  = P_SAKNR<BR>    IMPORTING<BR>      OUTPUT = GT_PERVALUE-COST_ELEM.</P>
<P>  GT_PERVALUE-VALUE_INDEX = P_VAL_INX.</P>
<P>  CASE P_MM.<BR>    WHEN '1'.  GT_PERVALUE-FIX_VAL_PER01 = P_AM_AMT.<BR>    WHEN '2'.  GT_PERVALUE-FIX_VAL_PER02 = P_AM_AMT.<BR>    WHEN '3'.  GT_PERVALUE-FIX_VAL_PER03 = P_AM_AMT.<BR>    WHEN '4'.  GT_PERVALUE-FIX_VAL_PER04 = P_AM_AMT.<BR>    WHEN '5'.  GT_PERVALUE-FIX_VAL_PER05 = P_AM_AMT.<BR>    WHEN '6'.  GT_PERVALUE-FIX_VAL_PER06 = P_AM_AMT.<BR>    WHEN '7'.  GT_PERVALUE-FIX_VAL_PER07 = P_AM_AMT.<BR>    WHEN '8'.  GT_PERVALUE-FIX_VAL_PER08 = P_AM_AMT.<BR>    WHEN '9'.  GT_PERVALUE-FIX_VAL_PER09 = P_AM_AMT.<BR>    WHEN '10'. GT_PERVALUE-FIX_VAL_PER10 = P_AM_AMT.<BR>    WHEN '11'. GT_PERVALUE-FIX_VAL_PER11 = P_AM_AMT.<BR>    WHEN '12'. GT_PERVALUE-FIX_VAL_PER12 = P_AM_AMT.<BR>  ENDCASE.</P>
<P>ENDFORM.                    " PUT_PERVALUE <BR></P>
<P> </P>