메뉴 건너뛰기

SAP 한국 커뮤니티

REPORT  z_datainit_me51n  .


TABLES:eban.
DATA: BEGIN OF itab OCCURS 0,
     NO(5),
     bnfpo LIKE eban-bnfpo,
     bsart LIKE eban-bsart,
     matnr LIKE eban-matnr,
     lgort LIKE eban-lgort,
     menge LIKE eban-menge,
     bednr LIKE eban-bednr,
     lfdat LIKE eban-lfdat,
     TX(132),
     END OF itab.



DATA :


prheader LIKE TABLE OF bapimereqheader WITH HEADER LINE,
prheaderx LIKE TABLE OF bapimereqheaderx WITH HEADER LINE,
PRITEMEXP LIKE TABLE OF BAPIMEREQITEM WITH HEADER LINE,
return LIKE TABLE OF bapiret2 WITH HEADER LINE,
pritem LIKE TABLE OF bapimereqitemimp WITH HEADER LINE,
pritemx LIKE TABLE OF bapimereqitemx WITH HEADER LINE,
PRITEMTEXT LIKE TABLE OF BAPIMEREQITEMTEXT WITH HEADER LINE.



DATA auxfilename LIKE rlgrap-filename.


CALL FUNCTION 'UPLOAD'
 EXPORTING
   filename     = 'C:PRCREATE.TXT'
   filetype     = 'DAT'
 IMPORTING
   act_filename = auxfilename
 TABLES
   data_tab     = itab.


IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
         WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.



LOOP AT ITAB .


 prheader-pr_type = itab-bsart.
 APPEND prheader.
 CLEAR prheader.


 prheaderx-pr_type = 'X'.
 APPEND prheaderx.
 CLEAR prheaderx.


 pritem-preq_item = itab-bnfpo.
 pritem-material = itab-matnr.
 pritem-plant = '0100'.
 pritem-store_loc = itab-lgort.
 pritem-quantity = itab-menge.
 pritem-trackingno = itab-bednr.
 pritem-deliv_date = itab-lfdat.


 APPEND pritem.
 CLEAR pritem.


 pritemx-PREQ_ITEM = itab-bnfpo.
 pritemx-preq_itemX = 'X'.
 pritemx-material = 'X'.
 pritemx-plant = 'X'.
 pritemx-store_loc = 'X'.
 pritemx-quantity = 'X'.
 pritemx-trackingno = 'X'.
 pritemx-deliv_date = 'X'.
 pritemx-SHORT_TEXT = 'X'.


 APPEND pritemx.
 CLEAR pritemx.


 PRITEMTEXT-PREQ_ITEM = itab-BNFPO.
 PRITEMTEXT-TEXT_ID = 'B01'.
 PRITEMTEXT-TEXT_LINE = ITAB-TX.
 append PRITEMTEXT.
  CLEAR PRITEMTEXT.


ENDLOOP.


CALL FUNCTION 'BAPI_PR_CREATE'
* EXPORTING
*   VERSIONS                    =
*   SKIP_ITEMS_WITH_ERROR       =
*   TESTRUN                     =
* IMPORTING
*   PRNUMBER                    =
 TABLES
   RETURN     =  RETURN
   pritem     =  PRITEM
  PRITEMX     =  PRITEMX
*  PRITEMEXP    =  PRITEMEXP
*   PRITEMSOURCE                =
*   PRACCOUNT                   =
*   PRACCOUNTPROITSEGMENT       =
*   PRACCOUNTX                  =
*   PRADDRDELIVERY              =
  PRITEMTEXT  = PRITEMTEXT
*   PRHEADERTEXT                =
*   PRLIMITS                    =
*   PRCONTRACTLIMITS            =
*   PRSERVICES                  =
*   PRSRVACCESSVALUES           =
*   PRSERVICESTEXT              =
*   EXTENSIONIN                 =
*   EXTENSIONOUT                =
*   ALLVERSIONS                 =
 CHANGING
  PRHEADER   = PRHEADER
  PRHEADERX  = PRHEADERX .



CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
REFRESH PRITEM.
REFRESH prheader.
REFRESH prheaderx.
REFRESH PRITEMX.
REFRESH PRITEMTEXT.

번호 제목 글쓴이 날짜 조회 수
167 TABLE INDEX 추가 및 후속작업 [16] file 루베루베루베룹 2009.04.22 6668
166 특수 문자 표현 [8] ecbase 2006.12.02 6678
» BAPI_PR_CREATE 구매요청 생성시에 사용하세요. 이렇게도 쓸 수 있군요. [1] 노름마치 2007.12.10 6683
164 유용한 Abap Sample Package [2] 양키(이경환) 2014.03.31 6712
163 자주 사용하는 시스템변수 [8] 열공아밥 2009.12.20 6715
162 LIKE (% _)의 사용법 [8] ecbase 2006.12.02 6721
161 Second index 생성시 MANDT 필드 필요 없다. [2] 모포 2012.05.08 6744
160 Difference between select single and up to 1 row [2] sapjoy 2006.12.12 6817
159 Email 전송 Sample [6] 양키(이경환) 2014.03.12 6818
158 프로그램간 테이블 넘김 [6] ecbase 2006.12.02 6820
157 [TIP] FILE_OPEN_DIALOG시 바탕화면을 기본경로로 설정하기 [16] file 고양이야옹 2010.06.29 6853
156 AT 의 사용법(LOOP) [19] ecbase 2006.12.02 6864
155 message table의 각 필드들을 모아서 하나의 문장으로 [4] 꿀단지 2011.10.11 6866
154 SAP 지뢰 찾기 [10] file 버미! 2010.06.09 6868
153 GUI_DOWNLOAD 펑션(메소드) 사용시 Leading Zero현상 해결방법 [3] 양키(이경환) 2014.02.17 6896
152 debug 시 문장 skip 요령 [36] 하마대왕 2013.10.04 6900
151 명령어 결과에 따른 SY-SUBRC [5] sapjoy 2014.09.16 6977
150 IE 9.0 설치 시 se80 다운되는 문제 해결 [5] Jey 2011.03.16 6996
149 SAPLINK - 소스 업&다운 프로그램 입니다. [5] file abaper_qj 2014.06.18 6999
148 문자열 자를 때 자르는 위치에 2BYTE문자가 있는지를 체크하는 방법입니다. [8] 꿈하루 2007.12.01 7065