TCODE : AS91로 해서
고정자산 업로드 BDC 생성 중인데요.
*01 K-IFRS 감가상각(재무회계)
취득가액01
충당금01
전기된상각비01
*60 K-GAAP 감가상각
취득가액60
충당금60
전기된상각비60
*02 세무회계 감가상각
취득가액02
충당금02
*20 원가회계 감가상각
원가회계20
원가회계20
값을 넣어야 되는데...
AS91에는 입력하는 해당화면이 없거든요.
주황색에 해당하는 값들은 어디다 넣어야 되나요?
해당 BDC는 어떻게 구성해야될지....
========================해당BDC 로직============================
LOOP AT GT_LIST WHERE STATUS NE 'E'.
REFRESH : GT_BDCDATA,
GT_MESSTAB .
L_IDX = SY-TABIX.
PERFORM DYNPRO USING:
'X' 'SAPLAIST' '0105' ,
' ' 'BDC_OKCODE' '/00' ,
' ' 'ANLA-ANLKL' GT_LIST-ANLKL,
' ' 'ANLA-BUKRS' P_BUKRS.
* ' ' 'RA02S-NASSETS' C_NASSETS.
PERFORM DYNPRO USING:
'X' 'SAPLAIST' '1000' ,
' ' 'BDC_OKCODE' '=TAB02' ,
' ' 'ANLA-TXT50' GT_LIST-TXT50,
' ' 'ANLA-TXA50' GT_LIST-TXA50,
' ' 'ANLA-SERNR' GT_LIST-SERNR,
' ' 'ANLA-INVNR' GT_LIST-INVNR,
' ' 'ANLA-MENGE' GT_LIST-MENGE,
' ' 'ANLA-MEINS' GT_LIST-MEINS,
' ' 'RA02S-XHIST' 'X',
' ' 'ANLA-AKTIV' GT_LIST-AKTIV. "자본화일
PERFORM DYNPRO USING:
'X' 'SAPLAIST' '1000' ,
' ' 'BDC_OKCODE' '=TAB03' ,
' ' 'ANLZ-GSBER' GT_LIST-GSBER,
' ' 'ANLZ-KOSTL' GT_LIST-KOSTL.
PERFORM DYNPRO USING:
'X' 'SAPLAIST' '1000' ,
' ' 'BDC_OKCODE' '=TAB08' ,
' ' 'ANLA-GDLGRP' GT_LIST-GDLGRP,
' ' 'RA02S-EQANZ' C_EQANZ.
PERFORM DYNPRO USING:
'X' 'SAPLAIST' '1000' ,
' ' 'BDC_OKCODE' '=BUCH' ,
' ' 'ANLB-AFASL(01)' GT_LIST-AFASL_01,
* ' ' 'ANLB-AFASL(02)' GT_LIST-AFASL_02,
* ' ' 'ANLB-AFASL(03)' GT_LIST-,
' ' 'ANLB-AFASL(04)' GT_LIST-AFASL_02,
' ' 'ANLB-NDJAR(01)' GT_LIST-NDJAR_01,
* ' ' 'ANLB-NDJAR(02)' GT_LIST-NDJAR_02.
* ' ' 'ANLB-NDJAR(03)' GT_LIST-,
' ' 'ANLB-NDJAR(04)' GT_LIST-NDJAR_02.
*--Call Transaction
CALL TRANSACTION 'AS91' USING GT_BDCDATA
MESSAGES INTO GT_MESSTAB
OPTIONS FROM GS_BDC_OPTION.
L_SUBRC = SY-SUBRC .
*--Message 처리
DESCRIBE TABLE GT_MESSTAB LINES SY-TFILL.
READ TABLE GT_MESSTAB INDEX SY-TFILL.
PERFORM BUILD_MESSAGE USING GT_MESSTAB
CHANGING L_TEXT.
*--성공 OR 에러건수 COUNT .
IF L_SUBRC = 0 AND GT_MESSTAB-MSGTYP <> 'E'.
GT_LIST-STATUS = 'S'.
GT_LIST-MESSAGE = L_TEXT.
__MAKE_ICON 'ICON_LED_GREEN' TEXT-I01 GT_LIST-ICON.
ELSE.
GT_LIST-STATUS = 'E'.
GT_LIST-MESSAGE = L_TEXT.
__MAKE_ICON 'ICON_LED_RED' TEXT-I01 GT_LIST-ICON.
ENDIF.
MODIFY GT_LIST INDEX L_IDX.
CLEAR : GT_LIST.
ENDLOOP .
* 無念군님에 의해서 게시물 이동되었습니다 (2010-05-20 13:03)
자산 생성 쪽이시면 .. FI쪽인거 같아서 이동 시켰습니다 ..
모듈 관련 Q&A는
일반 Q&A 보다 모듈 Q&A에 올리시는 편이 빠른답변을 받으시는 데에 도움이 됩니다 .