파일 업로드 해서 코스트센터 생성하는 BDC 프로그램인데요.
아래 소스중 빨간색부분 화면에 들어가면 값을 못받습니다.
CALL 했을 때 GT_BDCDATA 에는 0200 화면에 들어가야될 데이터들이 정상으로 갖고 있거든요.
그런데 실질적으로는 화면에 값을 가져다 박지 못하고 있어서...
값넣으라는 에러를 뿌려요.
어떻게 해결해야될까요?
집에도 못가고 이러고 있어요.
LOOP AT GT_LIST.
REFRESH : GT_BDCDATA,
GT_MESSTAB .
L_IDX = SY-TABIX.
PERFORM DYNPRO USING:
'X' 'SAPLSPO4' '0300' ,
' ' 'BDC_CURSOR' 'SVALD-VALUE(01)',
' ' 'BDC_OKCODE' '=FURT',
' ' 'SVALD-VALUE(01)' '1000'.
PERFORM DYNPRO USING:
'X' 'SAPLKMA1' '0200' ,
' ' 'BDC_CURSOR' 'CSKSZ-DATBI_ANFO',
' ' 'BDC_OKCODE' '/00',
' ' 'CSKSZ-KOSTL' GT_LIST-KOSTL,
' ' 'CSKSZ-DATAB_ANFO' GT_LIST-DATAB ,
' ' 'CSKSZ-DATBI_ANFO' GT_LIST-DATBI .
PERFORM DYNPRO USING:
'X' 'SAPLKMA1' '0299' ,
' ' 'BDC_OKCODE' '=+CU1' ,
' ' 'BDC_SUBSCR' 'SAPLKMA1 0300SUBSCREEN_EINZEL' ,
' ' 'BDC_CURSOR' 'CSKSZ-PRCTR' ,
' ' 'CSKSZ-KTEXT' GT_LIST-KTEXT ,
' ' 'CSKSZ-LTEXT' GT_LIST-LTEXT ,
' ' 'CSKSZ-VERAK' GT_LIST-VERAK ,
' ' 'CSKSZ-KOSAR' GT_LIST-KOSAR ,
' ' 'CSKSZ-KHINR' GT_LIST-KHINR ,
' ' 'CSKSZ-BUKRS' GT_LIST-BUKRS ,
' ' 'CSKSZ-GSBER' GT_LIST-GSBER ,
' ' 'CSKSZ-WAERS' GT_LIST-WAERS ,
' ' 'CSKSZ-PRCTR' GT_LIST-PRCTR .
PERFORM DYNPRO USING:
'X' 'SAPLKMA1' '0299' ,
' ' 'BDC_OKCODE' '=GRUN' ,
' ' 'BDC_SUBSCR' 'SAPLKMA1 0399SUBSCREEN_EINZEL' ,
' ' 'BDC_SUBSCR' 'SAPLXKM1 0999CUSTFLDS' ,
' ' 'BDC_CURSOR' 'CSKS_CI-ZZBUCODE' ,
' ' 'CSKS_CI-ZZBUCODE' GT_LIST-ZZBUCODE.
PERFORM DYNPRO USING:
'X' 'SAPLKMA1' '0299' ,
' ' 'BDC_OKCODE' '=BU' ,
' ' 'BDC_SUBSCR' 'SAPLKMA1 0300SUBSCREEN_EINZEL' ,
' ' 'BDC_CURSOR' 'CSKSZ-KTEXT' ,
' ' 'CSKSZ-KTEXT' GT_LIST-KTEXT ,
' ' 'CSKSZ-LTEXT' GT_LIST-LTEXT ,
' ' 'CSKSZ-VERAK' GT_LIST-VERAK ,
' ' 'CSKSZ-KOSAR' GT_LIST-KOSAR ,
' ' 'CSKSZ-KHINR' GT_LIST-KHINR ,
' ' 'CSKSZ-BUKRS' GT_LIST-BUKRS ,
' ' 'CSKSZ-GSBER' GT_LIST-GSBER ,
' ' 'CSKSZ-CSKSZ-FUNC_AREA' GT_LIST-FUNC_AREA ,
' ' 'CSKSZ-WAERS' GT_LIST-WAERS ,
' ' 'CSKSZ-PRCTR' GT_LIST-PRCTR .
*--Call Transaction
CALL TRANSACTION 'KS01' USING GT_BDCDATA
MESSAGES INTO GT_MESSTAB
OPTIONS FROM GS_BDC_OPTION.
관리회계영역은 한번만 설정해주시면 됩니다.
아래와 같이 한번해보세요... 잘되길 바랍니다.
REFRESH : GT_BDCDATA,
GT_MESSTAB .
PERFORM DYNPRO USING:
'X' 'SAPLSPO4' '0300' ,
' ' 'BDC_CURSOR' 'SVALD-VALUE(01)',
' ' 'BDC_OKCODE' '=FURT',
' ' 'SVALD-VALUE(01)' '1000'.
*--Call Transaction
CALL TRANSACTION 'OKKS' USING GT_BDCDATA
MESSAGES INTO GT_MESSTAB
OPTIONS FROM GS_BDC_OPTION.
LOOP AT GT_LIST.
REFRESH : GT_BDCDATA,
GT_MESSTAB .
L_IDX = SY-TABIX.
PERFORM DYNPRO USING:
'X' 'SAPLKMA1' '0200' ,
' ' 'BDC_CURSOR' 'CSKSZ-DATBI_ANFO',
' ' 'BDC_OKCODE' '/00',
' ' 'CSKSZ-KOSTL' GT_LIST-KOSTL,
' ' 'CSKSZ-DATAB_ANFO' GT_LIST-DATAB ,
' ' 'CSKSZ-DATBI_ANFO' GT_LIST-DATBI .
.......중간생략
*--Call Transaction
CALL TRANSACTION 'KS01' USING GT_BDCDATA
MESSAGES INTO GT_MESSTAB
OPTIONS FROM GS_BDC_OPTION.
ENDLOOP.