메뉴 건너뛰기

SAP 한국 커뮤니티

<img src=3.gif>전표 BDC 생성에 대한 질문입니다..

보경아빠 2010.01.27 01:58 조회 수 : 5308

 


 고정환율 적용을 위해 FBV1으로 아래와 같이 코딩 했습니다..


 그런데 코딩블럭 서 다음 단계로 넘어가질 않네요... 


 ( 일단 코딩블럭에 값은 정확히 들어 갑니다...  마우스로 OK 클릭하면 다음 단계로 진행됨 )


 제가 뭘 잘 못했을까요?   고수님들 도움 부탁 드립니다..


 


 


  loop  at  gt_dock.
    IF sy-tabix = 1.
       clear : lv_first, bdcdata[].


 


*      해당월의 마지막 일자 일자 구해서  lv_ldate에 저장


 


       PERFORM  bdc_dynpro    USING  'SAPLF040'     '0100'.
       PERFORM  bdc_field     USING  'BDC_CURSOR'   'RF05V-NEWKO'.
       PERFORM  bdc_field     USING  'BDC_OKCODE'   '/00'.
       PERFORM  bdc_field     USING  'BKPF-BLDAT'   lv_ldate.
       PERFORM  bdc_field     USING  'BKPF-BUDAT'   lv_ldate.
       PERFORM  bdc_field     USING  'BKPF-BLART'   'SA'.
       PERFORM  bdc_field     USING  'BKPF-BUKRS'   p_kokrs.
       PERFORM  bdc_field     USING  'BKPF-WAERS'   'USD'.
       PERFORM  bdc_field     USING  'BKPF-BKTXT'   ' '.
       PERFORM  bdc_field     USING  'VBKPF-XBWAE'  ' '.
    ENDIF.


* 금액 변환
    perform  currency_convert  using  gt_dock-wrbtr
                                      gt_dock-dmbtr
                                      lv_amtd
                                      lv_amtw.


    if gt_dock-shkzg   =  'S'.
       IF lv_first = 'X'.
          PERFORM  bdc_dynpro   USING  'SAPLF040'      '0300'.
          PERFORM  bdc_field    USING  'BDC_CURSOR'    'RF05V-NEWKO'.
          PERFORM  bdc_field    USING  'BDC_OKCODE'    '/00'.
       ENDIF.


       PERFORM  bdc_field       USING  'RF05V-NEWBS'   '40'.       "차변
       PERFORM  bdc_field       USING  'RF05V-NEWKO'   gt_dock-hkont.


       PERFORM  bdc_dynpro      USING  'SAPLF040'      '0300'.
       PERFORM  bdc_field       USING  'BDC_CURSOR'    'RF05V-NEWKO'.
       PERFORM  bdc_field       USING  'BDC_OKCODE'    '/00'.
       PERFORM  bdc_field       USING  'BSEG-WRBTR'    lv_amtd.
       PERFORM  bdc_field       USING  'BSEG-DMBTR'    lv_amtw.
       PERFORM  bdc_field       USING  'BSEG-ZUONR'    gt_dock-projk.
       PERFORM  bdc_field       USING  'BSEG-SGTXT'    gt_dock-ktext.


       PERFORM  bdc_dynpro      USING  'SAPLKACB'      '0002'.          
       PERFORM  bdc_field       USING  'BDC_CURSOR'    'COBL-PS_POSID'.
       PERFORM  bdc_field       USING  'BDC_OKCODE'    '=ENTE'.
       PERFORM  bdc_field       USING  'COBL-GSBER'    p_gsber.
       PERFORM  bdc_field       USING  'COBL-KOSTL'    'DB005'.
       PERFORM  bdc_field       USING  'COBL-PS_POSID' gt_dock-posid.   "<============여기서 멈춤 
       lv_first = 'X'.
    else.
       IF lv_first = 'X'.
          PERFORM  bdc_dynpro   USING  'SAPLF040'      '0300'.
          PERFORM  bdc_field    USING  'BDC_CURSOR'    'RF05V-NEWKO'.
          PERFORM  bdc_field    USING  'BDC_OKCODE'    '/00'.
       ENDIF.


       PERFORM  bdc_field       USING  'RF05V-NEWBS'   '50'.       "차변
       PERFORM  bdc_field       USING  'RF05V-NEWKO'   gt_dock-hkont.


       PERFORM  bdc_dynpro      USING  'SAPLF040'      '0300'.
       PERFORM  bdc_field       USING  'BDC_CURSOR'    'BSEG-WRBTR'.

       PERFORM  bdc_field       USING  'BDC_OKCODE'    '/00'.
       PERFORM  bdc_field       USING  'BSEG-WRBTR'    lv_amtd.
       PERFORM  bdc_field       USING  'BSEG-DMBTR'    lv_amtw.
       PERFORM  bdc_field       USING  'BSEG-ZUONR'    '건조보험료'.
       PERFORM  bdc_field       USING  'BSEG-SGTXT'    gt_dock-ktext.


 


       PERFORM  bdc_dynpro      USING  'SAPLKACB'      '0002'.
       PERFORM  bdc_field       USING  'BDC_CURSOR'    'COBL-GSBER'.
       PERFORM  bdc_field       USING  'BDC_OKCODE'    '=ENTE'.
       PERFORM  bdc_field       USING  'COBL-GSBER'    p_gsber.          "<============여기서 멈춤 
       lv_first = 'X'.
    endif.


  ENDLOOP.

번호 제목 글쓴이 날짜 조회 수
6387 [요청]BAPI중 BAPI_COPAPLANNING_POSTDATA 에 관련된 질문입니다. [2] 리브레 2008.09.05 5302
6386 [요청]Batch Job Cancel시 기록이 되는 테이블이 있나요? [5] SAP폐인 2009.02.23 5295
6385 <img src=2.gif>screen structure 에서 group1 ~ group4 사용방법 [5] copine 2011.04.01 5287
6384 [요청]단위참조가 안됩니다 왜 소수점이 나오는지 모르겟습니다 alv입력에서요 [4] 초초보보 2008.07.16 5287
6383 <b>[완료]</b>자재 수량 단위변환에 대하여( M -> FT) [5] SARA 2008.05.27 5285
6382 [요청]온라인(모듈풀)에서 라디오버튼 사용법요!!! [6] CoolGuy 2008.08.06 5256
6381 RFC만들고 sm59에서 destination생성방법 한량도깡 2011.03.31 5234
6380 subscreen 에서 사용 하는 sy-repid 변수에 관한질문입니다. [2] bd 2007.04.10 5224
6379 <b>[완료]</b>개인pc에 SAP NetWeaver 2004s 설치방법에 질문입니다. [5] file 로미오 2006.12.25 5221
6378 <b>[완료]</b>smartforms 한글이 깨져요...ㅜ.ㅜ [4] file 초보찍고 고수 2008.12.25 5218
6377 <b>[완료]</b>LOCK OBJECT 에서 잠긴(ENQUEUE) 데이터를 프로그램에서 알 수 있는지 궁금합니다. [8] 하이원 2008.02.21 5216
6376 [re] BAPI에 대해 [5] sapjoy 2007.03.28 5197
6375 <img src=3.gif>loop at screen을 이용한 스크린 Block 제어 [3] Fjohnny 2010.02.25 5184
6374 <img src=2.gif>자재 마스터 [분류 뷰] 에 대해서 질문합니다. [2] file 다르게 2011.03.23 5179
6373 <b>[완료]</b>팝업창에서 메시지를 두줄로 쓰는게 가능한가요. [5] 대략나 2008.02.18 5170
6372 <b>[완료]</b>엑셀업로드시 데이터건수제한에 대해서 질문드립니다. [3] kan145 2009.03.25 5153
6371 [질문] 주민번호 뒷자리를 *******로 표현하고 싶다.. [3] 나도아밥퍼 2007.05.25 5145
6370 TRY 구문해석좀 해주세요. 이렇게 쓰는 것과 그냥 SELECT 하는 차이가 뭔지요? [7] 김창훈 2007.08.22 5130
6369 [요청]SELECT~ENDSELECT 문에서 문의드립니다. [2] 풍뎅이 2007.12.12 5123
6368 이렇게 하시면 됩니다. [1] sapjoy 2006.12.03 5121