REPORT YTEST001 MESSAGE-ID ZMSG.
**********************************************************
*BAPI TEST
**********************************************************
DATA : BEGIN OF ORDER_HEADER_IN.
INCLUDE STRUCTURE BAPISDHD1.
DATA : END OF ORDER_HEADER_IN.
DATA : CONVERT_PARVW_AUART LIKE BAPIFLAG-BAPIFLAG.
DATA: BAPIFLAG-BAPIFLAG LIKE BAPIFLAG-BAPIFLAG.
DATA : SALESDOCUMENT_EX LIKE BAPIVBELN-VBELN.
DATA : BEGIN OF RETURN OCCURS 0.
INCLUDE STRUCTURE BAPIRET2.
DATA : END OF RETURN.
DATA : BEGIN OF ORDER_ITEMS_IN OCCURS 0.
INCLUDE STRUCTURE BAPISDITM.
DATA : END OF ORDER_ITEMS_IN.
DATA : BEGIN OF ORDER_CONDITIONS_IN OCCURS 0.
INCLUDE STRUCTURE BAPICOND.
DATA : END OF ORDER_CONDITIONS_IN.
DATA : BEGIN OF ORDER_TEXT OCCURS 0.
INCLUDE STRUCTURE BAPISDTEXT.
DATA : END OF ORDER_TEXT.
DATA : BEGIN OF ORDER_PARTNERS OCCURS 0.
INCLUDE STRUCTURE BAPIPARNR.
DATA : END OF ORDER_PARTNERS.
DATA : BEGIN OF ORDER_SCHEDULES_IN OCCURS 0.
INCLUDE STRUCTURE BAPISCHDL.
DATA : END OF ORDER_SCHEDULES_IN.
DATA : BEGIN OF PARTNERADDRESSES OCCURS 0.
INCLUDE STRUCTURE BAPIADDR1.
DATA : END OF PARTNERADDRESSES.
DATA :LOGIC_SWITCH LIKE TABLE OF BAPISDLS WITH HEADER LINE.
*HEADER
ORDER_HEADER_IN-REFOBJKEY = 'VBBK'.
ORDER_HEADER_IN-DOC_TYPE = 'ZEC'.
ORDER_HEADER_IN-SALES_ORG = 'C001'.
ORDER_HEADER_IN-DISTR_CHAN = '40'.
ORDER_HEADER_IN-DIVISION = '00'.
ORDER_HEADER_IN-REQ_DATE_H = '20010208'.
ORDER_HEADER_IN-PURCH_DATE = '20010208'.
ORDER_HEADER_IN-PURCH_NO_C = 'Bapi TEST'.
*CONVERT FLAG (중요)
CONVERT_PARVW_AUART = 'X'.
*LGOIC _SWITCH (중요)
LOGIC_SWITCH-PRICING = 'G'.
APPEND LOGIC_SWITCH.
*TEXT
ORDER_TEXT-TEXT_ID = '0002'.
ORDER_TEXT-LANGU = '3'.
ORDER_TEXT-TEXT_LINE = 'Bapi로 낸 오더에요. 똑같죠 뭐~ ^^'.
APPEND ORDER_TEXT.
*ITEM
ORDER_ITEMS_IN-ITM_NUMBER = '10'.
ORDER_ITEMS_IN-MATERIAL = '000000000002002510'.
APPEND ORDER_ITEMS_IN.
*SCHEDULE
ORDER_SCHEDULES_IN-ITM_NUMBER = '10'.
ORDER_SCHEDULES_IN-REQ_QTY = '1'.
ORDER_SCHEDULES_IN-REQ_DATE = '20010208'.
APPEND ORDER_SCHEDULES_IN.
*CONDITION
ORDER_CONDITIONS_IN-ITM_NUMBER = '10'.
ORDER_CONDITIONS_IN-COND_TYPE = 'ZR00'.
ORDER_CONDITIONS_IN-COND_VALUE = '145000'.
ORDER_CONDITIONS_IN-CURRENCY = 'KRW'.
APPEND ORDER_CONDITIONS_IN.
*PARTNERS
ORDER_PARTNERS-PARTN_ROLE = 'AG'. "SOLD-TO-PARTY
ORDER_PARTNERS-PARTN_NUMB = '0005000002'.
ORDER_PARTNERS-ADDR_LINK = '11'.
APPEND ORDER_PARTNERS.
ORDER_PARTNERS-PARTN_ROLE = 'WE'. "SHIP-TO-PARTY
ORDER_PARTNERS-PARTN_NUMB = '0005000002'.
ORDER_PARTNERS-ADDR_LINK = '22'.
APPEND ORDER_PARTNERS.
*DETAIL ADDRESS
PARTNERADDRESSES-ADDR_NO = '11'. "SOLD-TO-PARTY
PARTNERADDRESSES-NAME = '이승철'.
PARTNERADDRESSES-NAME_2 = '승철'.
PARTNERADDRESSES-CITY = '서울'.
PARTNERADDRESSES-STREET ='영등포'.
PARTNERADDRESSES-TEL1_NUMBR = '1232-6552'.
PARTNERADDRESSES-COUNTRY = 'KR'.
PARTNERADDRESSES-LANGU = '3'.
APPEND PARTNERADDRESSES.
PARTNERADDRESSES-ADDR_NO = '22'. "SHIP-TO-PARTY
PARTNERADDRESSES-NAME = '이승철'.
PARTNERADDRESSES-NAME_2 = '승철'.
PARTNERADDRESSES-CITY = '서울'.
PARTNERADDRESSES-STREET ='영등포'.
PARTNERADDRESSES-TEL1_NUMBR = '1232-6552'.
PARTNERADDRESSES-COUNTRY = 'KR'.
PARTNERADDRESSES-LANGU = '3'.
APPEND PARTNERADDRESSES.
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
ORDER_HEADER_IN = ORDER_HEADER_IN
LOGIC_SWITCH = LOGIC_SWITCH
CONVERT_PARVW_AUART = CONVERT_PARVW_AUART
IMPORTING
SALESDOCUMENT_EX = SALESDOCUMENT_EX
TABLES
RETURN = RETURN
ORDER_ITEMS_IN = ORDER_ITEMS_IN
ORDER_CONDITIONS_IN = ORDER_CONDITIONS_IN
ORDER_TEXT = ORDER_TEXT
ORDER_PARTNERS = ORDER_PARTNERS
ORDER_SCHEDULES_IN = ORDER_SCHEDULES_IN
PARTNERADDRESSES = PARTNERADDRESSES.
IF SY-SUBRC = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
LOOP AT RETURN.
WRITE : '오더번호', SALESDOCUMENT_EX,
/ '메세지', RETURN-MESSAGE.
ENDLOOP.
댓글 7
-
Risky
2011.10.11 17:42
-
남군
2011.10.14 10:37
잘 보았습니다. 동일한 기능으로 "SD_SALESDOCUMENT_CREATE" 이것도 사용해 보세요~ ^^
-
깍지
2011.11.01 16:35
좋은정보 감사합니다
-
보라돌이!
2011.12.30 14:13
감사합니다.
-
플래툰K
2012.01.11 11:02
고맙습니다.
-
ninano95
2012.02.28 18:48
잘 보았습니다.
-
이수현
2013.08.01 11:22
좋은 자료 감사합니다.
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
64 | Web Dynpro를 아세요? - III [6] | 이선구 | 2007.03.06 | 5546 |
63 | Web Dynpro를 아세요? - II [9] | 이선구 | 2007.03.06 | 5378 |
62 | Web Dynpro를 아세요? - I [8] | 이선구 | 2007.03.06 | 5357 |
61 | About SAP Query [9] | 나침반친구 | 2007.03.05 | 3767 |
60 | About QuickView [10] | 나침반친구 | 2007.03.05 | 10065 |
59 | Unicode관련 소스입니다. [6] | 선별 | 2007.03.05 | 5360 |
58 | SQL 비교 [5] | sapjoy | 2007.03.05 | 5860 |
57 | Performance & Tunning [3] | sapjoy | 2007.03.05 | 7584 |
56 | ABAP 메뉴얼모음(영어) [4] | sapjoy | 2007.03.05 | 5224 |
55 | ABAP Program Tips v3 [9] | 소주와 막걸리 | 2007.03.03 | 5500 |
54 | lsmw [10] | 문준연 | 2007.03.03 | 6515 |
53 | An Easy Reference for ALV Grid Control [14] | 김현 | 2007.03.03 | 3919 |
52 | CATT 메뉴얼.. [22] | UKS | 2007.03.02 | 5469 |
51 | NEW ABAP EDITOR [9] | sapjoy | 2007.03.02 | 5559 |
50 | ALE [7] | sapjoy | 2007.03.02 | 4991 |
49 | 개발에 자주 쓰이는 TCODE(트랜잭션) [17] | sapjoy | 2007.03.02 | 11225 |
48 | ABAP/4 FAQ [8] | 재미있게 | 2007.03.01 | 10014 |
47 | Best Practices for performance-tunning.pdf [6] | 변상윤 | 2007.02.28 | 3996 |
46 | SAP Business one(SBO) [8] | sapjoy | 2007.02.28 | 4247 |
45 | SAP GUI 즐겨찾기 메뉴얼 [8] | 고수이고싶다. | 2007.02.28 | 10365 |
좋은 샘플 감사합니다.
무슨 bapi인지 처음에 설명해 주셨으면 더 이해가 쉬웠을것 같아요. ^^;;;
'BAPI_SALESORDER_CREATEFROMDAT2'