첨부파일도 동일한 내용입니다.
*-자재정보 조회
* 분류뷰를 선택한다
CALL FUNCTION 'CATT_MATVIEW_SELECT'
EXPORTING
BILDSEQUENZ = '21'
SICHT07 = ' '
SICHT08 = ' '
SICHT23 = 'X'
SICHT09 = ' '
SICHT10 = ' '
SICHT11 = ' '
SICHT12 = ' '
SICHT13 = ' '
SICHT14 = ' '
SICHT15 = ' '
SICHT16 = ' '
SICHT26 = ' '
SICHT27 = ' '
SICHT28 = ' '
SICHT29 = ' '
SICHT30 = ' '
SICHT31 = ' '
SICHT17 = ' '
SICHT18 = ' '
SICHT19 = ' '
SICHT32 = ' '
SICHT33 = ' '
SICHT20 = ' '
SICHT21 = ' '
SICHT22 = ' '
SICHT34 = ' '
SICHT35 = ' '
SICHT24 = ' '
SICHT25 = ' '
EXCEPTIONS
NO_USER = 1
NO_UPDATE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
ENDIF.
SET PARAMETER ID 'MAT' FIELD GT_PU202-MATNR.
CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
*-재고/소요량 List
SET PARAMETER ID 'MAT' FIELD PT_TR-KEY01.
SET PARAMETER ID 'WRK' FIELD PT_TR-KEY02.
CALL TRANSACTION 'MD04' AND SKIP FIRST SCREEN.
*-MRP List
SET PARAMETER ID 'MAT' FIELD PT_TR-KEY01.
SET PARAMETER ID 'WRK' FIELD PT_TR-KEY02.
CALL TRANSACTION 'MD05' AND SKIP FIRST SCREEN.
*-구매요청(PR) 조회
SET PARAMETER ID 'BAN' FIELD GT_PLAN-BANFN.
CALL TRANSACTION 'ME53N' AND SKIP FIRST SCREEN.
*-구매오더변경
SET PARAMETER ID 'BES' FIELD GV_FL_PONUM.
CALL TRANSACTION 'ME22N' AND SKIP FIRST SCREEN.
*-구매오더조회
SET PARAMETER ID 'BES' FIELD *ZMM0001T-EBELN.
CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
SET PARAMETER ID 'BES' FIELD ST_PU025-EBELN.
CALL TRANSACTION 'ME23' AND SKIP FIRST SCREEN.
*-PM 오더조회
SET PARAMETER ID 'ANR' FIELD GT_200-AUFNR.
CALL TRANSACTION 'IW33' AND SKIP FIRST SCREEN.
*-예약조회
SET PARAMETER ID 'RES' FIELD GT_200-RSNUM.
CALL TRANSACTION 'MB23' AND SKIP FIRST SCREEN.
*-MIRO 호출 - 상태 변경
SET PARAMETER ID 'RBN' FIELD GT_LIST-BELNR.
SET PARAMETER ID 'GJR' FIELD GT_LIST-GJAHR.
CALL TRANSACTION 'MIR4' AND SKIP FIRST SCREEN.
*-재고 개요
SET PARAMETER ID 'MAT' FIELD GT_300-MATNR.
SET PARAMETER ID 'WRK' FIELD VIAUFKS-WERKS.
SET PARAMETER ID 'LAG' FIELD SPACE.
CALL TRANSACTION 'MMBE' AND SKIP FIRST SCREEN.
*-자재문서조회
SET PARAMETER ID 'MBN' FIELD LS_320-MBLNR. " 자재문서번호
SET PARAMETER ID 'MJA' FIELD LS_320-MJAHR. " 자재문서연도
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.
*-공급업체조회
SET PARAMETER ID 'LIF' FIELD GT_BASE-LIFNR.
CALL TRANSACTION 'XK03' AND SKIP FIRST SCREEN.
*-전표 조회
SET PARAMETER ID 'BLN' FIELD ST_0300H-APLNR.
SET PARAMETER ID 'BUK' FIELD CS_BUKRS.
SET PARAMETER ID 'GJR' FIELD ST_0300H-APAHR.
CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
*-견적요청 조회
SET PARAMETER ID 'ANF' FIELD LV_VALUE.
CALL TRANSACTION 'ME43' AND SKIP FIRST SCREEN.
*-Contract 조회
SET PARAMETER ID 'VRT' FIELD *ZMM0001T-EBELN.
CALL TRANSACTION 'ME33K' AND SKIP FIRST SCREEN.
*-개괄계약
SET PARAMETER ID 'VRT' FIELD PT_TR-KEY01.
CALL TRANSACTION 'ME33' AND SKIP FIRST SCREEN.
*-견적서 생성
SET PARAMETER ID 'ANF' FIELD ZMM0013T-ANFNR.
CALL TRANSACTION 'ME47' AND SKIP FIRST SCREEN.
*-견적 조회
SET PARAMETER ID 'ANF' FIELD GT_ITEM-ANFNR.
CALL TRANSACTION 'ME48' AND SKIP FIRST SCREEN.
*-예약 변경
SET PARAMETER ID 'RES' FIELD P_RSNUM.
CALL TRANSACTION 'MB22' AND SKIP FIRST SCREEN.
*-자재 이동
SET PARAMETER ID 'MBN' FIELD PV_VALUE1.
SET PARAMETER ID 'MJA' FIELD PV_VALUE2.
CALL TRANSACTION 'MIGO' AND SKIP FIRST SCREEN.
*-검사 로트 조회
SET PARAMETER ID 'QLS' FIELD PV_LOTNO.
CALL TRANSACTION 'QA03' AND SKIP FIRST SCREEN.
*-아웃바운드 납품 조회
SET PARAMETER ID 'VL' FIELD PA_VALUE.
CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.
*-서비스입력서 조회
SET PARAMETER ID 'BES' FIELD PA_VALUE1.
SET PARAMETER ID 'LBL' FIELD PA_VALUE2.
CALL TRANSACTION 'ML82' AND SKIP FIRST SCREEN.
*-서비스 입력 시트
SET PARAMETER ID 'LBL' FIELD PA_VALUE.
CALL TRANSACTION 'ML81N' AND SKIP FIRST SCREEN.
*-문서 조회
SET PARAMETER ID 'CV1' FIELD GT_DRAD-DOKNR.
SET PARAMETER ID 'CV2' FIELD GT_DRAD-DOKAR.
SET PARAMETER ID 'CV4' FIELD GT_DRAD-DOKTL.
SET PARAMETER ID 'CV3' FIELD GT_DRAD-DOKVR.
CALL TRANSACTION 'CV03N' AND SKIP FIRST SCREEN.
* e-abap님에 의해서 게시물 복사되었습니다 (2008-10-20 16:34)
