메뉴 건너뛰기

SAP 한국 커뮤니티

 


◆ 하고자 하는 것


    MM02 품질 검사 탭 (Quality management) - Inspection setup 체크 되어 있으면 해지


     -------> 입고 작업 -----> 체크 해지 되어 있는 것 다시 원복


 


◆ 구현


  MM02로 자재 변경으로 Inspection setup 변경하고 원복하는 것을 BDC로 구현함


     (BAPI를 몰라서 ㅡㅜ)


 


◆ 문제점


  첫번째 BDC는 정상적으로 실행 됩니다.


  ( 디버깅과 자재 조회, 변경이력으로 확인)


  두번째 다시 원복하는 BDC가 타지 않네요.... 에러도 아니고 특별한 메세지 넘기지도 않고요...


 


  원인이 어떤 걸까요?? 고수님들의 답변을 기다립니다.  


 


  (위에 변경하는 BAPI 있으면 알려 주시면 고맙겠습니다. 굽신굽신~~ )


 


◆ 프로그램


FUNCTION Z_IWMS_GR_LOC_CREATE.


 


.......


 


      PERFORM mat_inspect_update USING 'S'.


 


     write : '입고 작업 실행 중...'.


 


      PERFORM mat_inspect_update USING 'E'.


...........


ENDFUNCTION.


 


FORM mat_inspect_update  USING  p_exit.


  DATA : lv_qmatv     LIKE marc-qmatv ,
         lv_temp_ins  TYPE c.


  CLEAR: lv_qmatv, lv_temp_ins .


  SELECT SINGLE qmatv  INTO lv_qmatv
           FROM marc
          WHERE matnr = i_tc100-matnr
            AND werks = i_tc100-werks .


  IF sy-subrc = 0 and lv_qmatv = 'X' and p_exit = 'S'.
      lv_temp_ins = ' '.
  ELSEIF sy-subrc = 0 and lv_qmatv = ' ' and p_exit = 'E'


      lv_temp_ins = 'X '.


  ENDIF.


 


*   First Screen (material 입력)
    PERFORM  bdc_process USING :
             'X'  'SAPLMGMM'     '0060' ,
             ' '  'RMMG1-MATNR'  i_tc100-matnr ,  " Material
             ' '  'BDC_OKCODE'   '/00' .


    PERFORM  bdc_process USING :
             'X'  'SAPLMGMM'      '0070' ,
             ' '  'BDC_CURSOR'    'MSICHTAUSW-DYTXT(01)',
             ' '  'BDC_OKCODE'    '=ENTR' ,
             ' '  'MSICHTAUSW-KZSEL(01)'  'X' .  " 선택


* 품질 검사 탭으로 이동
    PERFORM  bdc_process USING :
             'X'  'SAPLMGMM'      '4004',
             ' '  'BDC_OKCODE'    '=SP23' ,
             ' '  'BDC_CURSOR'    'MAKT-MAKTX' .
*  Plant
    PERFORM  bdc_process USING :
             'X'  'SAPLMGMM'    '0081' ,
             ' '  'BDC_CURSOR'  'RMMG1-WERKS',
             ' '  'BDC_OKCODE'  '=ENTR' ,
             ' '  'RMMG1-WERKS' i_tc100-werks .   " Plant


    PERFORM  bdc_process USING :
             'X'  'SAPLMGMM'    '4000'  ,
             ' '  'BDC_OKCODE'  '=PB01' ,
             ' '  'BDC_CURSOR'  'MAKT-MAKTX' .
*  Active 선택/비선택
    PERFORM  bdc_process USING :
             'X'  'SAPLQPLS'        '0100' ,
             ' '  'BDC_CURSOR'      'RMQAM-AKTIV(01)' ,
             ' '  'BDC_OKCODE'      '=WEIT' ,
             ' '  'RMQAM-AKTIV(01)' lv_temp_ins . 


    PERFORM  bdc_process USING :
             'X'  'SAPLMGMM'    '4000' ,
             ' '  'BDC_OKCODE'  '=BU' ,
             ' '  'BDC_CURSOR'  'MAKT-MAKTX'.


    CALL TRANSACTION 'MM02'  USING     bdcdata
                             MODE      'N'
                             UPDATE    'S'
                             MESSAGES  INTO messtab.  " message


    CLEAR messtab.
    READ  TABLE  messtab WITH KEY msgid = 'M7' msgnr = '060'.


    IF sy-subrc = 0.
    ELSE.



      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
       WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO i_tab-msg1.


 


      i_tab-msgtyp = 'F'.
    ENDIF.


 


    WAIT UP TO 3 SECONDS.



    CALL FUNCTION 'DEQUEUE_ALL'.


    COMMIT WORK AND WAIT.


ENDFORM.                    " MAT_INSPECT_UPDATE
 

번호 제목 글쓴이 날짜 조회 수
5510 <img src=2.gif>Windows7에서 ALV, Table Control 반응 문제 (OSS 문의 진행중..) [5] K 2010.11.11 1097
5509 <img src=3.gif>screen field 설명좀 부탁드립니다. [3] 여리 2010.11.11 1270
5508 <img src=1.gif>BKPF테이블에 BKTXT의 필드에 USEREXIT, BADI, ENHANCEMENT을 알고 싶습니다. 쓰나미 2010.11.11 1725
5507 <img src=3.gif><img src=3.gif>시간 conversion 함수가 있는지 문의드립니다. [2] 맹꽁이 2010.11.11 871
» <img src=2.gif>MM02 두번 BDC 실행 - Quality Man 탭의 속성 변경 [4] 워너송 2010.11.11 1929
5505 <img src=2.gif>특정파일의 보안 설정 방법에 대한 ABAP 기능이 궁금합니다. [3] 맑은하늘 2010.11.11 1360
5504 <img src=3.gif>ALV 필터링 길이와 컬럼 제목 설정 충돌 문제 [7] 모포 2010.11.11 1912
5503 <img src=2.gif>겹치는 번호 찾아낼껀데 인터널 테이블 전체를 돌리는거 말고 다른방법 없나요? [4] 오렌지겅주님 2010.11.10 1297
5502 <img src=3.gif>문자열 자릿수 계산 질문입니다!! [5] ASDF 2010.11.09 4551
5501 <img src=2.gif>TCODE:MD15 에서 요청 전환시 USER EXIT 이 있나요. [1] 지니 2010.11.09 1109
5500 <img src=2.gif>로컬 하드디스크에 저장된 파일을 일괄로 삭제하는 펑션이 있나요? [10] dusrude 2010.11.09 2175
5499 <img src=3.gif>ABAP - data: SPECHARSEAR 의미와 사용 예에 대해서 알고 싶습니다. [2] 그저조아 2010.11.08 1442
5498 <img src = 2.gif>수행되고있지는 않으나 SM37에서는 여전히 활성중인 JOB이 있습니다. [1] file 나만고양이 2010.11.08 1782
5497 <img src=2.gif>나누기 관련 펑션, 함수 질문입니다!! [1] 초밥 2010.11.08 3150
5496 <img src=2.gif>필드관련하여 abap dictionary 에 없다고 나오네요 [4] file marco 2010.11.06 1060
5495 <img src=2.gif>infoset / Function 사용하는 및 변경 방법 [2] imgood 2010.11.05 1197
5494 <img src=3.gif>다시한번 스크린 커서관련 질문올립니다!! [3] ASDF 2010.11.04 1263
5493 <img src=3.gif>Sales order 생성시 파트너 정보 입력 질문드려요 [2] file 서영아빠 2010.11.04 1787
5492 <img src=3.gif>도와주세요!!ㅠㅠ E-Mail 첨부파일 기능 추가 건. [7] 파초선 2010.11.04 1839
5491 <img src=2.gif>한 loop 안에 delete랑 modify랑 같이 쓰니깐 자꾸 오류나요.. [4] 오렌지겅주님 2010.11.04 1918