BAPI_ACC_DOCUMENT_POST
*---BAPI_ACC_DOCUMENT_POST 所需要的參數
DATA: OBJ_TYPE LIKE BAPIACHE09-OBJ_TYPE,
OBJ_KEY LIKE BAPIACHE09-OBJ_KEY,
OBJ_SYS LIKE BAPIACHE09-OBJ_SYS,
DOCUMENTHEADER LIKE BAPIACHE09.
DATA: ACCOUNTGL LIKE BAPIACGL09 OCCURS 0 WITH HEADER LINE,
ACCOUNTRECEIVABLE LIKE BAPIACAR09 OCCURS 0 WITH HEADER LINE,
CURRENCYAMOUNT LIKE BAPIACCR09 OCCURS 0 WITH HEADER LINE,
RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
BAPI_RETN_INFO LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE,
EXTENSION1 LIKE BAPIACEXTC OCCURS 0 WITH HEADER LINE,
CRITERIA LIKE BAPIACKEC9 OCCURS 0 WITH HEADER LINE.
DATA: ERROR_FLAG.
IF ZJSJ > ZGDJ."支出
*---調用 BAPI_ACC_DOCUMENT_POST 創建應付憑證
LOOP AT TAB_ZZHJYJS INTO REC_ZZHJYJS WHERE ZCHKBOX = 'X'.
DOCUMENTHEADER-BUS_ACT = 'RFBU'.
DOCUMENTHEADER-USERNAME = SY-UNAME.
DOCUMENTHEADER-HEADER_TXT = '紙貨交易結算憑證(應付)'.
DOCUMENTHEADER-COMP_CODE = ZGSDM.
DOCUMENTHEADER-DOC_DATE = REC_ZZHJYJS-ZJSRQ.
DOCUMENTHEADER-PSTNG_DATE = REC_ZZHJYJS-ZJSRQ.
DOCUMENTHEADER-DOC_TYPE = 'SA'.
ACCOUNTGL-ITEMNO_ACC = '1'.
ACCOUNTGL-GL_ACCOUNT = '1002000000'.
ACCOUNTGL-COMP_CODE = ZGSDM.
ACCOUNTGL-PSTNG_DATE = REC_ZZHJYJS-ZJSRQ.
ACCOUNTGL-DOC_TYPE = 'SA'.
ACCOUNTGL-ACCT_TYPE = 'S'.
ACCOUNTGL-PROFIT_CTR = '1022000001'.
APPEND ACCOUNTGL.
CLEAR ACCOUNTGL.
ACCOUNTGL-ITEMNO_ACC = '2'.
ACCOUNTGL-GL_ACCOUNT = '2121000000'.
ACCOUNTGL-COMP_CODE = ZGSDM.
ACCOUNTGL-PSTNG_DATE = REC_ZZHJYJS-ZJSRQ.
ACCOUNTGL-DOC_TYPE = 'SA'.
ACCOUNTGL-ACCT_TYPE = 'K'.
*---獲得客戶所對應的供應商
SELECT SINGLE *
FROM KNA1
WHERE KUNNR = REC_ZZHJYJS-ZFDZF.
IF SY-SUBRC = 0.
ACCOUNTGL-VENDOR_NO = KNA1-LIFNR.
ENDIF.
ACCOUNTGL-PROFIT_CTR = '1022000001'.
APPEND ACCOUNTGL.
CLEAR ACCOUNTGL.
CURRENCYAMOUNT-ITEMNO_ACC = '1'.
CURRENCYAMOUNT-CURRENCY = 'CNY'.
CURRENCYAMOUNT-AMT_DOCCUR = REC_ZZHJYJS-ZGDJG.
APPEND CURRENCYAMOUNT.
CLEAR CURRENCYAMOUNT.
CURRENCYAMOUNT-ITEMNO_ACC = '2'.
CURRENCYAMOUNT-CURRENCY = 'CNY'.
CURRENCYAMOUNT-AMT_DOCCUR = -1 * REC_ZZHJYJS-ZGDJG.
APPEND CURRENCYAMOUNT.
CLEAR CURRENCYAMOUNT.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = DOCUMENTHEADER
IMPORTING
OBJ_TYPE = OBJ_TYPE
OBJ_KEY = OBJ_KEY
OBJ_SYS = OBJ_SYS
TABLES
ACCOUNTGL = ACCOUNTGL
CURRENCYAMOUNT = CURRENCYAMOUNT
RETURN = RETURN
EXTENSION1 = EXTENSION1
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC <> 0.
MESSAGE E999(RE) WITH '創建應付會計憑證時出錯'.
ELSE.
LOOP AT RETURN.
IF RETURN-TYPE = 'S'.
CLEAR BAPI_RETN_INFO.
MOVE-CORRESPONDING RETURN TO BAPI_RETN_INFO.
EXIT.
ELSEIF RETURN-TYPE = 'A' OR RETURN-TYPE = 'E'.
CLEAR BAPI_RETN_INFO.
MOVE-CORRESPONDING RETURN TO BAPI_RETN_INFO.
ERROR_FLAG = 'X'.
EXIT.
ENDIF.
ENDLOOP.
IF ERROR_FLAG = 'X'.
ROLLBACK WORK.
MESSAGE I066(Z1) WITH BAPI_RETN_INFO-MESSAGE.
ELSE.
COMMIT WORK.
REC_ZZHJYJS-ZJSPZ = OBJ_KEY+0(10).
MODIFY TAB_ZZHJYJS FROM REC_ZZHJYJS.
MESSAGE I066(Z1) WITH BAPI_RETN_INFO-MESSAGE.
UPDATE ZZHJYJS SET ZJSPZ = OBJ_KEY+0(10)
WHERE ZZGSDM = REC_ZZHJYJS-ZZGSDM
AND ZJYLB_ZH = REC_ZZHJYJS-ZJYLB_ZH
AND ZJYDH = REC_ZZHJYJS-ZJYDH
AND ZJSRQ = REC_ZZHJYJS-ZJSRQ.
ENDIF.
ENDIF.
ENDLOOP.
ELSEIF ZJSJ < ZGDJ."收入
*---調用 BAPI_ACC_DOCUMENT_POST 創建應收憑證
LOOP AT TAB_ZZHJYJS INTO REC_ZZHJYJS WHERE ZCHKBOX = 'X'.
DOCUMENTHEADER-BUS_ACT = 'RFBU'.
DOCUMENTHEADER-USERNAME = SY-UNAME.
DOCUMENTHEADER-HEADER_TXT = '紙貨交易結算憑證(應收)'.
DOCUMENTHEADER-COMP_CODE = ZGSDM.
DOCUMENTHEADER-DOC_DATE = REC_ZZHJYJS-ZJSRQ.
DOCUMENTHEADER-PSTNG_DATE = REC_ZZHJYJS-ZJSRQ.
DOCUMENTHEADER-DOC_TYPE = 'SA'.
ACCOUNTGL-ITEMNO_ACC = '1'.
ACCOUNTGL-GL_ACCOUNT = '5101100000'.
ACCOUNTGL-COMP_CODE = ZGSDM.
ACCOUNTGL-PSTNG_DATE = REC_ZZHJYJS-ZJSRQ.
ACCOUNTGL-DOC_TYPE = 'SA'.
ACCOUNTGL-ACCT_TYPE = 'S'.
ACCOUNTGL-PROFIT_CTR = '1022000001'.
APPEND ACCOUNTGL.
CLEAR ACCOUNTGL.
ACCOUNTGL-ITEMNO_ACC = '2'.
ACCOUNTGL-GL_ACCOUNT = '1131010000'.
ACCOUNTGL-COMP_CODE = ZGSDM.
ACCOUNTGL-PSTNG_DATE = REC_ZZHJYJS-ZJSRQ.
ACCOUNTGL-DOC_TYPE = 'SA'.
ACCOUNTGL-ACCT_TYPE = 'D'.
ACCOUNTGL-CUSTOMER = REC_ZZHJYJS-ZFDZF.
APPEND ACCOUNTGL.
CLEAR ACCOUNTGL.
CURRENCYAMOUNT-ITEMNO_ACC = '1'.
CURRENCYAMOUNT-CURRENCY = 'CNY'.
CURRENCYAMOUNT-AMT_DOCCUR = -1 * REC_ZZHJYJS-ZGDJG.
APPEND CURRENCYAMOUNT.
CLEAR CURRENCYAMOUNT.
CURRENCYAMOUNT-ITEMNO_ACC = '2'.
CURRENCYAMOUNT-CURRENCY = 'CNY'.
CURRENCYAMOUNT-AMT_DOCCUR = REC_ZZHJYJS-ZGDJG.
APPEND CURRENCYAMOUNT.
CLEAR CURRENCYAMOUNT.
*CO-PA Account Assignment Characteristics(獲利能力段分配)
CLEAR CRITERIA.
CRITERIA-ITEMNO_ACC = '1'.
CRITERIA-FIELDNAME = 'WW004'.
CRITERIA-CHARACTER = 'Z3'.
APPEND CRITERIA.
CLEAR CRITERIA.
CRITERIA-ITEMNO_ACC = '1'.
CRITERIA-FIELDNAME = 'SPART'.
CRITERIA-CHARACTER = '01'.
APPEND CRITERIA.
CLEAR CRITERIA.
CRITERIA-ITEMNO_ACC = '1'.
CRITERIA-FIELDNAME = 'WW007'.
CRITERIA-CHARACTER = '01'.
APPEND CRITERIA.
CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
EXPORTING
DOCUMENTHEADER = DOCUMENTHEADER
IMPORTING
OBJ_TYPE = OBJ_TYPE
OBJ_KEY = OBJ_KEY
OBJ_SYS = OBJ_SYS
TABLES
ACCOUNTGL = ACCOUNTGL
CURRENCYAMOUNT = CURRENCYAMOUNT
CRITERIA = CRITERIA
RETURN = RETURN
EXTENSION1 = EXTENSION1
EXCEPTIONS
OTHERS = 1.
IF SY-SUBRC <> 0.
MESSAGE E999(RE) WITH '創建應收會計憑證時出錯'.
ELSE.
LOOP AT RETURN.
IF RETURN-TYPE = 'S'.
CLEAR BAPI_RETN_INFO.
MOVE-CORRESPONDING RETURN TO BAPI_RETN_INFO.
EXIT.
ELSEIF RETURN-TYPE = 'A' OR RETURN-TYPE = 'E'.
CLEAR BAPI_RETN_INFO.
MOVE-CORRESPONDING RETURN TO BAPI_RETN_INFO.
ERROR_FLAG = 'X'.
EXIT.
ENDIF.
ENDLOOP.
IF ERROR_FLAG = 'X'.
ROLLBACK WORK.
MESSAGE I066(Z1) WITH BAPI_RETN_INFO-MESSAGE.
ELSE.
COMMIT WORK.
REC_ZZHJYJS-ZJSPZ = OBJ_KEY+0(10).
MODIFY TAB_ZZHJYJS FROM REC_ZZHJYJS.
MESSAGE I066(Z1) WITH BAPI_RETN_INFO-MESSAGE.
UPDATE ZZHJYJS SET ZJSPZ = OBJ_KEY+0(10)
WHERE ZZGSDM = REC_ZZHJYJS-ZZGSDM
AND ZJYLB_ZH = REC_ZZHJYJS-ZJYLB_ZH
AND ZJYDH = REC_ZZHJYJS-ZJYDH
AND ZJSRQ = REC_ZZHJYJS-ZJSRQ.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
BAPI_SALESORDER_CREATEFROMDAT2
*---------------------------------------------------------------------*
*創建銷售訂單(帶訂單價格)
*---------------------------------------------------------------------*
DATA: LOGIC_SWITCH TYPE BAPISDLS.
DATA: ORDER_HEADER_IN1 LIKE BAPISDHD1.
DATA: ORDER_HEADER_INTX LIKE BAPISDHD1X.
DATA: SALESDOCUMENT1 TYPE BAPIVBELN-VBELN.
DATA: RETURN2 TYPE BAPIRET2.
DATA: ORDER_PARTNERS1 TYPE BAPIPARNR OCCURS 0 WITH HEADER LINE.
DATA: ORDER_ITEMS_IN1 TYPE BAPISDITM OCCURS 0 WITH HEADER LINE.
DATA: ORDER_ITEMS_IN1X TYPE BAPISDITMX OCCURS 0 WITH HEADER LINE.
DATA: ORDER_SCHEDULES_IN1 TYPE BAPISCHDL OCCURS 0 WITH HEADER LINE.
DATA: ORDER_SCHEDULES_IN1X TYPE BAPISCHDLX OCCURS 0 WITH HEADER LINE.
DATA: ORDER_CONDITIONS_IN1 TYPE BAPICOND OCCURS 0 WITH HEADER LINE.
DATA: ORDER_CONDITIONS_INX TYPE BAPICONDX OCCURS 0 WITH HEADER LINE.
DATA: RETURN1 TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
LOGIC_SWITCH-COND_HANDL = 'X'.
ORDER_HEADER_IN1-DOC_TYPE = 'Z093'.
ORDER_HEADER_IN1-SALES_ORG = '1046'.
ORDER_HEADER_IN1-DISTR_CHAN = '98'.
ORDER_HEADER_IN1-DIVISION = '00'.
ORDER_HEADER_IN1-REQ_DATE_H = '20081016'.
ORDER_HEADER_IN1-PURCH_NO_C = 'PO-2008-10-16'.
ORDER_HEADER_IN1-REF_1 = 'PO-2008-10-16'.
* ORDER_HEADER_IN1-SD_DOC_CAT = 'C'.
* ORDER_HEADER_IN1-REF_DOC = '0040000820'.
* ORDER_HEADER_IN1-REF_DOC_L = '40000820'.
* ORDER_HEADER_IN1-REFDOCTYPE = 'Z067'.
* ORDER_HEADER_IN1-REFDOC_CAT = 'G'.
* ORDER_HEADER_IN1-PRICE_DATE = '20081006'."定價日期
* ORDER_HEADER_IN1-INCOTERMS1 = VBKD-INCO1.
* ORDER_HEADER_IN1-INCOTERMS2 = VBKD-INCO2.
* ORDER_HEADER_IN1-PMNTTRMS = VBKD-ZTERM.
* ORDER_HEADER_IN1-SALES_OFF = VBAK-VKBUR.
CLEAR ORDER_ITEMS_IN1.
ORDER_ITEMS_IN1-ITM_NUMBER = '000010'.
ORDER_ITEMS_IN1-PO_ITM_NO = '000010'.
ORDER_ITEMS_IN1-MATERIAL = '000000000080013569'.
ORDER_ITEMS_IN1-PLANT = '1270'.
ORDER_ITEMS_IN1-STORE_LOC = '0001'.
* ORDER_ITEMS_IN1-REF_DOC = '0040000820'.
* ORDER_ITEMS_IN1-REF_DOC_IT = '000010'.
* ORDER_ITEMS_IN1-REF_DOC_CA = 'G'.
APPEND ORDER_ITEMS_IN1.
CLEAR ORDER_SCHEDULES_IN1.
ORDER_SCHEDULES_IN1-ITM_NUMBER = '000010'.
ORDER_SCHEDULES_IN1-SCHED_LINE = '0001'.
ORDER_SCHEDULES_IN1-REQ_QTY = 1.
APPEND ORDER_SCHEDULES_IN1.
CLEAR ORDER_PARTNERS1.
ORDER_PARTNERS1-PARTN_ROLE = 'AG'.
ORDER_PARTNERS1-PARTN_NUMB = '0400000135'.
APPEND ORDER_PARTNERS1.
CLEAR ORDER_CONDITIONS_IN1.
ORDER_CONDITIONS_IN1-ITM_NUMBER = '000010'.
ORDER_CONDITIONS_IN1-COND_ST_NO = '010'.
ORDER_CONDITIONS_IN1-COND_COUNT = '01'.
ORDER_CONDITIONS_IN1-COND_TYPE = 'Z089'.
ORDER_CONDITIONS_IN1-COND_VALUE = '90'.
ORDER_CONDITIONS_IN1-CURRENCY = 'USD'.
ORDER_CONDITIONS_IN1-CURR_ISO = 'BBL'.
APPEND ORDER_CONDITIONS_IN1.
CLEAR: ORDER_CONDITIONS_INX .
ORDER_CONDITIONS_INX-ITM_NUMBER = '000010'.
ORDER_CONDITIONS_INX-COND_ST_NO = '010'.
ORDER_CONDITIONS_INX-COND_COUNT = '01'.
ORDER_CONDITIONS_INX-COND_TYPE = 'Z089'.
ORDER_CONDITIONS_INX-UPDATEFLAG = 'U'.
ORDER_CONDITIONS_INX-COND_VALUE = 'X'.
ORDER_CONDITIONS_INX-CURRENCY = 'X'.
APPEND ORDER_CONDITIONS_INX.
PERFORM CALL_FUNCTION.
*&---------------------------------------------------------------------*
*& Form call_function
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CALL_FUNCTION .
CALL FUNCTION 'BAPI_SALESORDER_CREATEFROMDAT2'
EXPORTING
* SALESDOCUMENTIN = P_NEW
ORDER_HEADER_IN = ORDER_HEADER_IN1
ORDER_HEADER_INX = ORDER_HEADER_INTX
* SENDER =
* BINARY_RELATIONSHIPTYPE =
* INT_NUMBER_ASSIGNMENT =
* BEHAVE_WHEN_ERROR =
LOGIC_SWITCH = LOGIC_SWITCH
* TESTRUN =
* CONVERT = ' '
IMPORTING
SALESDOCUMENT = SALESDOCUMENT1
TABLES
RETURN = RETURN1
ORDER_ITEMS_IN = ORDER_ITEMS_IN1
ORDER_ITEMS_INX = ORDER_ITEMS_IN1X
ORDER_PARTNERS = ORDER_PARTNERS1
ORDER_SCHEDULES_IN = ORDER_SCHEDULES_IN1
* ORDER_SCHEDULES_INX = ORDER_SCHEDULES_IN1X
ORDER_CONDITIONS_IN = ORDER_CONDITIONS_IN1
ORDER_CONDITIONS_INX = ORDER_CONDITIONS_INX
* ORDER_CFGS_REF =
* ORDER_CFGS_INST =
* ORDER_CFGS_PART_OF =
* ORDER_CFGS_VALUE =
* ORDER_CFGS_BLOB =
* ORDER_CFGS_VK =
* ORDER_CFGS_REFINST =
* ORDER_CCARD =
* ORDER_TEXT =
* ORDER_KEYS =
* EXTENSIONIN =
* PARTNERADDRESSES =
.
*
IF NOT SALESDOCUMENT1 IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = RETURN2.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
ENDFORM. "call_function
BAPI_SALESORDER_CHANGE
*---------------------------------------------------------------------*
*銷售訂單價格修改
*---------------------------------------------------------------------*
DATA: ZSALESDOCUMENT1 TYPE BAPIVBELN-VBELN.
DATA: LOGIC_SWITCH TYPE BAPISDLS.
DATA: ORDER_HEADER_IN1 LIKE BAPISDH1.
DATA: ORDER_HEADER_INTX LIKE BAPISDH1X.
DATA: ORDER_ITEMS_IN1 TYPE BAPISDITM OCCURS 0 WITH HEADER LINE.
DATA: ORDER_ITEMS_IN1X TYPE BAPISDITMX OCCURS 0 WITH HEADER LINE.
DATA: SCHEDULE_LINES TYPE BAPISCHDL OCCURS 0 WITH HEADER LINE.
DATA: SCHEDULE_LINESX TYPE BAPISCHDLX OCCURS 0 WITH HEADER LINE.
DATA: RETURN1 TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: RETURN2 TYPE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: CONDITIONS_IN TYPE BAPICOND OCCURS 0 WITH HEADER LINE.
DATA: CONDITIONS_INX TYPE BAPICONDX OCCURS 0 WITH HEADER LINE.
START-OF-SELECTION.
ZSALESDOCUMENT1 = '0000004013'.
ORDER_HEADER_INTX-UPDATEFLAG = 'U'.
LOGIC_SWITCH-COND_HANDL = 'X'.
CONDITIONS_IN-ITM_NUMBER = '000010'.
CONDITIONS_IN-COND_ST_NO = '010'.
CONDITIONS_IN-COND_COUNT = '01'.
CONDITIONS_IN-COND_TYPE = 'Z089'.
CONDITIONS_IN-COND_VALUE = '90'.
CONDITIONS_IN-CURRENCY = 'USD'.
CONDITIONS_IN-CURR_ISO = 'BBL'.
APPEND CONDITIONS_IN.
CONDITIONS_INX-ITM_NUMBER = '000010'.
CONDITIONS_INX-COND_ST_NO = '010'.
CONDITIONS_INX-COND_COUNT = '01'.
CONDITIONS_INX-COND_TYPE = 'Z089'.
CONDITIONS_INX-UPDATEFLAG = 'U'.
CONDITIONS_INX-COND_VALUE = 'X'.
CONDITIONS_INX-CURRENCY = 'X'.
APPEND CONDITIONS_INX.
PERFORM CALL_FUNCTION.
*&---------------------------------------------------------------------*
*& Form call_function
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM CALL_FUNCTION .
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
SALESDOCUMENT = ZSALESDOCUMENT1
* ORDER_HEADER_IN =
ORDER_HEADER_INX = ORDER_HEADER_INTX
* SIMULATION =
* BEHAVE_WHEN_ERROR = ' '
* INT_NUMBER_ASSIGNMENT = ' '
LOGIC_SWITCH = LOGIC_SWITCH
* NO_STATUS_BUF_INIT = ' '
TABLES
RETURN = RETURN1
* ORDER_ITEM_IN = ORDER_ITEMS_IN1
* ORDER_ITEM_INX = ORDER_ITEMS_IN1X
* PARTNERS =
* PARTNERCHANGES =
* PARTNERADDRESSES =
* ORDER_CFGS_REF =
* ORDER_CFGS_INST =
* ORDER_CFGS_PART_OF =
* ORDER_CFGS_VALUE =
* ORDER_CFGS_BLOB =
* ORDER_CFGS_VK =
* ORDER_CFGS_REFINST =
* SCHEDULE_LINES = SCHEDULE_LINES
* SCHEDULE_LINESX = SCHEDULE_LINESX
* ORDER_TEXT =
* ORDER_KEYS =
CONDITIONS_IN = CONDITIONS_IN
CONDITIONS_INX = CONDITIONS_INX
* EXTENSIONIN =
.
IF SY-SUBRC = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = RETURN2.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
ENDFORM. "call_function
BAPI_PO_CHANGE
*&---------------------------------------------------------------------*
*& Form ZMM_FR0003
*&---------------------------------------------------------------------*
* 保存PO時對非服務行項目將"交貨已完成"標識設置爲L
* 對服務行項目將"交貨已完成"標識設置爲S
*----------------------------------------------------------------------*
FORM ZMM_FR0003 .
DATA: ZMESSAGE TYPE STRING.
DATA: PURCHASEORDER LIKE BAPIMEPOHEADER-PO_NUMBER.
DATA: POHEADER LIKE BAPIMEPOHEADER OCCURS 0 WITH HEADER LINE.
DATA: POHEADERX LIKE BAPIMEPOHEADERX OCCURS 0 WITH HEADER LINE.
DATA: POITEM LIKE BAPIMEPOITEM OCCURS 0 WITH HEADER LINE.
DATA: POITEMX LIKE BAPIMEPOITEMX OCCURS 0 WITH HEADER LINE.
DATA: RETURN1 LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
CLEAR: REC_MSG,TAB_MSG[].
LOOP AT TAB_PO_CLOSE INTO REC_PO_CLOSE WHERE ZCHKBOX = 'X'.
PURCHASEORDER = REC_PO_CLOSE-EBELN.
POHEADER-PO_NUMBER = REC_PO_CLOSE-EBELN.
APPEND POHEADER.
POHEADERX-PO_NUMBER = 'X'.
APPEND POHEADERX.
POITEM-PO_ITEM = REC_PO_CLOSE-EBELP.
IF REC_PO_CLOSE-PSTYP <> '9'.
POITEM-NO_MORE_GR = 'X'.
ELSE.
POITEM-DELETE_IND = 'S'.
ENDIF.
APPEND POITEM.
POITEMX-PO_ITEM = REC_PO_CLOSE-EBELP.
POITEMX-PO_ITEMX = 'X'.
IF REC_PO_CLOSE-PSTYP <> '9'.
POITEMX-NO_MORE_GR = 'X'.
ELSE.
POITEMX-DELETE_IND = 'X'.
ENDIF.
APPEND POITEMX.
CALL FUNCTION 'BAPI_PO_CHANGE'
EXPORTING
PURCHASEORDER = PURCHASEORDER
POHEADER = POHEADER
POHEADERX = POHEADERX
TABLES
RETURN = RETURN1
POITEM = POITEM
POITEMX = POITEMX.
READ TABLE RETURN1 WITH KEY TYPE = 'E' TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
ENDIF.
LOOP AT RETURN1.
REC_MSG-TYP = RETURN1-TYPE.
CONCATENATE '採購訂單' REC_PO_CLOSE-EBELN '行項目' REC_PO_CLOSE-EBELP RETURN1-MESSAGE INTO REC_MSG-MESSAGE.
APPEND REC_MSG TO TAB_MSG.
CLEAR: REC_MSG,RETURN1.
ENDLOOP.
ENDLOOP.
SORT TAB_MSG BY TYP MESSAGE.
DELETE ADJACENT DUPLICATES FROM TAB_MSG COMPARING TYP MESSAGE.
CALL SCREEN 100 STARTING AT 40 1
ENDING AT 140 20.
ENDFORM. " ZMM_FR0003
BAPI_REQUISITION_CREATE
DATA: LS_SELECTED_LINE LIKE LVC_S_ROW,
LF_ROW_INDEX TYPE LVC_INDEX.
DATA: NUM(5) TYPE N.
DATA: ZMESSAGE TYPE STRING.
DATA: H(20) TYPE C.
DATA: TLINK TYPE TABLE OF TLINE.
DATA: PRHEADER LIKE BAPIMEREQHEADER OCCURS 0 WITH HEADER LINE.
DATA: PRHEADERX LIKE BAPIMEREQHEADERX OCCURS 0 WITH HEADER LINE.
DATA: NUMBER LIKE BAPIMEREQHEADER-PREQ_NO.
DATA: PRITEM LIKE BAPIMEREQITEMIMP OCCURS 0 WITH HEADER LINE.
DATA: PRITEMX LIKE BAPIMEREQITEMX OCCURS 0 WITH HEADER LINE.
DATA: PRHEADERTEXT LIKE BAPIMEREQHEADTEXT OCCURS 0 WITH HEADER LINE.
DATA: RETURN LIKE BAPIRETURN OCCURS 0 WITH HEADER LINE.
DATA: BAPIRET LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: REQUISITION_ITEMS_TO_DELETE LIKE BAPIEBAND OCCURS 0 WITH HEADER LINE.
DATA: ZRETURN LIKE BAPIRETURN OCCURS 0 WITH HEADER LINE.
DATA: REQUISITION_ITEMS LIKE BAPIEBANC OCCURS 0 WITH HEADER LINE.
LOOP AT LT_ROWS INTO LS_SELECTED_LINE.
LF_ROW_INDEX = LS_SELECTED_LINE-INDEX.
* read selected row from internal table tab_eban
READ TABLE TAB_EBAN INDEX LF_ROW_INDEX INTO REC_EBAN.
* creating new purchase requisition
CLEAR NUM.
NUM = SY-TABIX * 10.
REQUISITION_ITEMS-PREQ_ITEM = NUM.
REQUISITION_ITEMS-DOC_TYPE = REC_EBAN-BSART.
REQUISITION_ITEMS-PUR_GROUP = P_EBAN_EKGRP.
REQUISITION_ITEMS-PREQ_NAME = REC_EBAN-BANFN.
REQUISITION_ITEMS-MATERIAL = REC_EBAN-MATNR.
REQUISITION_ITEMS-PLANT = REC_EBAN-WERKS.
REQUISITION_ITEMS-STORE_LOC = REC_EBAN-LGORT.
IF REC_EBAN-ZXGSL <> 0.
REQUISITION_ITEMS-QUANTITY = REC_EBAN-ZXGSL.
ELSE.
REQUISITION_ITEMS-QUANTITY = REC_EBAN-MENGE.
ENDIF.
REQUISITION_ITEMS-DELIV_DATE = REC_EBAN-LFDAT.
REQUISITION_ITEMS-C_AMT_BAPI = REC_EBAN-PREIS.
APPEND REQUISITION_ITEMS.
CLEAR: REQUISITION_ITEMS,REC_EBAN.
ENDLOOP.
* call bapi for creating new purchase requisition
CALL FUNCTION 'BAPI_REQUISITION_CREATE'
IMPORTING
NUMBER = NUMBER
TABLES
REQUISITION_ITEMS = REQUISITION_ITEMS
RETURN = RETURN.
BAPI_REQUISITION_DELETE
LOOP AT LT_ROWS INTO LS_SELECTED_LINE.
LF_ROW_INDEX = LS_SELECTED_LINE-INDEX.
* read selected row from internal table tab_eban
READ TABLE TAB_EBAN INDEX LF_ROW_INDEX INTO REC_EBAN.
* deleting old purchase requisition
REQUISITION_ITEMS_TO_DELETE-PREQ_ITEM = REC_EBAN-BNFPO.
REQUISITION_ITEMS_TO_DELETE-DELETE_IND = 'X'.
APPEND REQUISITION_ITEMS_TO_DELETE.
CALL FUNCTION 'BAPI_REQUISITION_DELETE'
EXPORTING
NUMBER = REC_EBAN-BANFN
TABLES
REQUISITION_ITEMS_TO_DELETE = REQUISITION_ITEMS_TO_DELETE
RETURN = ZRETURN.
REFRESH BAPIRET.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'
IMPORTING
RETURN = BAPIRET.
REC_EBAN-ZFLAG = 'X'.
MODIFY TAB_EBAN FROM REC_EBAN INDEX LF_ROW_INDEX.
ENDLOOP.
BAPI_PR_CHANGE
DATA: LS_SELECTED_LINE LIKE LVC_S_ROW,
LF_ROW_INDEX TYPE LVC_INDEX.
DATA: NUM(5) TYPE N.
DATA: ZMESSAGE TYPE STRING.
DATA: PRHEADER LIKE BAPIMEREQHEADER OCCURS 0 WITH HEADER LINE.
DATA: PRHEADERX LIKE BAPIMEREQHEADERX OCCURS 0 WITH HEADER LINE.
DATA: PRITEM LIKE BAPIMEREQITEMIMP OCCURS 0 WITH HEADER LINE.
DATA: PRITEMX LIKE BAPIMEREQITEMX OCCURS 0 WITH HEADER LINE.
DATA: PRITEMEXP LIKE BAPIMEREQITEM OCCURS 0 WITH HEADER LINE.
DATA: PRACCOUNT LIKE BAPIMEREQACCOUNT OCCURS 0 WITH HEADER LINE.
DATA: PRACCOUNTX LIKE BAPIMEREQACCOUNTX OCCURS 0 WITH HEADER LINE.
DATA: RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: BAPIRET LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: REQUISITION_ITEMS_TO_DELETE LIKE BAPIEBAND OCCURS 0 WITH HEADER LINE.
DATA: ZRETURN LIKE BAPIRETURN OCCURS 0 WITH HEADER LINE.
DATA: REQUISITION_ITEMS LIKE BAPIEBAN OCCURS 0 WITH HEADER LINE.
DATA: REQUISITION_ITEMS_OLD LIKE BAPIEBANV OCCURS 0 WITH HEADER LINE.
DATA: REQUISITION_ITEMS_NEW LIKE BAPIEBANV OCCURS 0 WITH HEADER LINE.
LOOP AT LT_ROWS INTO LS_SELECTED_LINE.
LF_ROW_INDEX = LS_SELECTED_LINE-INDEX.
* Read selected row from internal table tab_eban
READ TABLE TAB_EBAN INDEX LF_ROW_INDEX INTO REC_EBAN.
SELECT SINGLE *
FROM MBEW
WHERE MATNR = REC_EBAN-MATNR
AND BWKEY = REC_EBAN-WERKS
AND LBKUM = '0.000'
AND VERPR = '0.00'.
IF SY-SUBRC = 0.
* Call bdc for updating the material price
PERFORM ZMM_FR0005.
ELSE.
* Can't adding new line item when there is stock but no price
SELECT SINGLE *
FROM MBEW
WHERE MATNR = REC_EBAN-MATNR
AND BWKEY = REC_EBAN-WERKS
AND LBKUM <> '0.000'
AND VERPR = '0.00'.
IF SY-SUBRC = 0.
FLAG = 'F'.
EXIT.
ENDIF.
ENDIF.
* Can't adding new line item when there is released item
SELECT SINGLE *
FROM EBAN
WHERE BANFN = P_EBAN_BANFN
AND FRGZU = 'X'.
IF SY-SUBRC = 0.
FLAG = 'G'.
EXIT.
ENDIF.
NUM = NUM + 10.
REC_NETVALUE-NUM = NUM.
REC_NETVALUE-PREIS = REC_EBAN-PREIS.
APPEND REC_NETVALUE TO TAB_NETVALUE.
CLEAR REC_NETVALUE.
PRITEM-PREQ_ITEM = NUM.
PRITEM-PUR_GROUP = P_EBAN_EKGRP.
PRITEM-PREQ_NAME = REC_EBAN-BANFN.
PRITEM-MATERIAL = REC_EBAN-MATNR.
PRITEM-PLANT = REC_EBAN-WERKS.
PRITEM-STORE_LOC = REC_EBAN-LGORT.
IF REC_EBAN-ZXGSL <> 0.
PRITEM-QUANTITY = REC_EBAN-ZXGSL.
ELSE.
PRITEM-QUANTITY = REC_EBAN-MENGE.
ENDIF.
PRITEM-DELIV_DATE = REC_EBAN-LFDAT.
PRITEM-PREQ_PRICE = REC_EBAN-PREIS.
PRITEM-PRICE_UNIT = '1'.
PRITEM-MRP_CTRLER = REC_EBAN-DISPO.
APPEND PRITEM.
CLEAR PRITEM.
PRITEMX-PREQ_ITEM = NUM.
PRITEMX-PREQ_ITEMX = 'X'.
PRITEMX-PUR_GROUP = 'X'.
PRITEMX-PREQ_NAME = 'X'.
PRITEMX-MATERIAL = 'X'.
PRITEMX-PLANT = 'X'.
PRITEMX-STORE_LOC = 'X'.
PRITEMX-QUANTITY = 'X'.
PRITEMX-DELIV_DATE = 'X'.
PRITEMX-PREQ_PRICE = 'X'.
PRITEMX-PRICE_UNIT = 'X'.
PRITEMX-MRP_CTRLER = 'X'.
APPEND PRITEMX.
CLEAR PRITEMX.
ENDLOOP.
CALL FUNCTION 'BAPI_PR_CHANGE'
EXPORTING
NUMBER = P_EBAN_BANFN
TABLES
RETURN = RETURN
PRITEM = PRITEM
PRITEMX = PRITEMX.
BAPI_REQUISITION_GETDETAIL
CALL FUNCTION 'BAPI_REQUISITION_GETDETAIL'
EXPORTING
NUMBER = P_EBAN_BANFN
TABLES
REQUISITION_ITEMS = REQUISITION_ITEMS.
BAPI_REQUISITION_CHANGE
LOOP AT REQUISITION_ITEMS.
MOVE-CORRESPONDING REQUISITION_ITEMS TO REQUISITION_ITEMS_OLD.
APPEND REQUISITION_ITEMS_OLD.
MOVE-CORRESPONDING REQUISITION_ITEMS TO REQUISITION_ITEMS_NEW.
APPEND REQUISITION_ITEMS_NEW.
CLEAR: REQUISITION_ITEMS,REQUISITION_ITEMS_OLD,REQUISITION_ITEMS_NEW.
ENDLOOP.
* Change the evaluating price and Replace purchase group
LOOP AT REQUISITION_ITEMS_NEW.
READ TABLE TAB_NETVALUE INTO REC_NETVALUE WITH KEY NUM = REQUISITION_ITEMS_NEW-PREQ_ITEM.
IF SY-SUBRC = 0.
REQUISITION_ITEMS_NEW-C_AMT_BAPI = REC_NETVALUE-PREIS.
ENDIF.
REQUISITION_ITEMS_NEW-PUR_GROUP = P_EBAN_EKGRP.
MODIFY REQUISITION_ITEMS_NEW.
CLEAR: REC_NETVALUE,REQUISITION_ITEMS_NEW.
ENDLOOP.
* Change Purchase Requisition
CALL FUNCTION 'BAPI_REQUISITION_CHANGE'
EXPORTING
NUMBER = P_EBAN_BANFN
TABLES
REQUISITION_ITEMS_OLD = REQUISITION_ITEMS_OLD
REQUISITION_ITEMS_NEW = REQUISITION_ITEMS_NEW.