BAPI 使用

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.

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.

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.

*&20150122

订单

BAPI_SALESORDER_CREATEFROMDAT2	创建销售订单
BAPISDORDER_GETDETAILEDLIST	销售订单明细
BAPI_SALESORDER_GETLIST	销售订单列表
BAPI_SALESORDER_CHANGE	修改销售订单

交货单

BAPI_OUTB_DELIVERY_READ_SLS	根据销售订单创建交货单，得到交货单创建初始页面所需的数据
BAPI_OUTB_DELIVERY_GETDETAIL	根据交货单号读取单据的详细内容
BAPI_OUTB_DELIVERY_CREATE_SLS	根据销售订单创建交货单
BAPI_OUTB_DELIVERY_CHANGE	根据交货单号修改、删除单据的详细内容

采购订单

BAPI_PO_CREATEREF_PR	根据采购申请创建采购订单，得到采购订单创建初始页面所需的数据
BAPI_READ_GOODS_RECEIPT	根据采购订单创建收货，得到货物接收初始页面所需的数据
BAPI_PO_RELEASE	审批采购订单
BAPI_PO_RESET_RELEASE	取消审批采购订单
BAPI_PO_CHANGE	修改采购订单
BAPI_PO_CREATE1	创建采购订单
BAPI_PO_GETDETAIL1	采购订单明细
BAPI_PO_GET_LIST	采购订单列表
BAPI_PO_GETITEMS	采购订单明细列表

报价单

BAPI_QUOTATION_GETDETAILBOS	报价单明细
BAPI_CUSTOMERQUOTATION_CHANGE	修改销售订单
BAPI_QUOTATION_CREATEFROMDATA2	创建报价单

功能描述事务码 BAPI函数名称

检验批
修改建议批              QA02 暂未找到
查看检验批明细      QA03 BAPI_INSPLOT_GETDETAIL

检验结果
记录检验点结果            QE11 BAPI_INSPPOINT_CREATEFROMDATA
修改检验点结果            QE12 BAPI_INSPPOINT_CHANGE
显示检验点结果明细     QE13 BAPI_INSPPOINT_GETREQUIREMENTS

缺陷检验
记录缺陷 QF01   QFFE_FAILURE_RECORDING
修改缺陷 QF02   暂未找到
显示缺陷 QF03   暂未找到

使用决策
记录使用决策 QA11 BAPI_INSPLOT_SETUSAGEDECISION
修改使用决策 QA12 暂未找到
显示使用决策 QA13 暂未找到

质量结果通知单
创建质量通知单           QM01 BAPI_QNOTIFICAT_CREATE
修改质量通知单           QM02 BAPI_QUALNOT_MODIFY_DATA
显示质量通知单明细    QM03 BAPI_QUALNOT_GETDETAIL

检验批清单
检验批清单列表 QA32 BAPI_INSPLOT_GETLIST 选择检验批

BAPI 使用的更多相关文章

创建SO bapi
转自http://blog.sina.com.cn/s/blog_1647b3eff0102wi32.html 1.创建销售订单使用的BAPI BAPI_SALESORDER_CREATEFROMDA ...
PP常用bapi
PPCO0012 co01/CO02/CO03屏幕bapi 生产订单:显示/更改订单抬头数据 PPCO0001 开发应用程序: PP订单 PPCO0007 保存生产订单时退出 PPCO0001 A ...
BAPI 调用相当于BAPI_TRANSACTION_COMMIT 的方法
为什么.net调用SAP的BAPI接口需要调用BAPI_TRANSACTION_COMMIT呢?首先得明白BAPI_TRANSACTION_COMMIT这个BAPI的作用.它功劳很大,在SAP里面很多 ...
idoc 和 bapi 和 rfc 之间的区别
se37 写出来的叫function,其中可以远程调用的叫rfc,remote-enabled function,abap语法和输入输出参数就会有一些限制.bapi是sap做好的实现特定业务操 ...
业务对象和BAPI
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
[SAP ABAP开发技术总结]BAPI调用
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
[SAP ABAP开发技术总结]业务对象和BAPI
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
获利能力分析COPA的BAPI：BAPI_COPAACTUALS_POSTCOSTDATA 通过增强返回凭证号
用这个BAPI:BAPI_COPAACTUALS_POSTCOSTDATA 记录销售成本的时候,发现不能return生产的co凭证号,利用内存应该是最好的方法. SCN上的帖子:https://blo ...
BAPI
MM模块 1. BAPI_MATERIAL_SAVEDATA 创建物料主数据注意参数EXTENSIONIN的使用,可以创建自定义字段例如:WA_BAPI_TE_MARA-MATERIAL = IT ...

随机推荐

jsm使用
参考:http://blog.csdn.net/robinjwong/article/details/38820259
$(":input").each()和$.each()的区别
<body> <form action="strutsAction" method="get"> <input ...
优化MYSQL数据库的方法
1.选取最适用的字段属性,尽可能减少定义字段长度,尽量把字段设置NOT NULL,例如'省份,性别',最好设置为ENUM2.使用连接(JOIN)来代替子查询: a.删除没有任何订单客户:DELETE ...
LinearLayout练习
<?xml version="1.0" encoding="utf-8"?> <LinearLayout xmlns:android=&quo ...
UVa 10561 - Treblecross
http://uva.onlinejudge.org/index.php?option=com_onlinejudge&Itemid=8&page=show_problem&p ...
routeProvider
In a previous post about testing I mentioned that route resolves can make authoring unit tests for a ...
RM报表预览，只有固定的1个订单页面
明明选了多个记录,预览时,只显示最后一个. 原因: 主项数据的数据集选了报表自带的虚拟数据集了.
Linux下screen命令
//1.列出当前的screenscreen -ls //2.新建一个screen,直接在命令行键入screen命令 screen -S [会话名称][root@www.lnuxidc.com ~]# ...
poj2891 拓展欧几里得
//Accepted 164 KB 16 ms //拓展欧几里得 //m=a1*x+b1 --(1) //m=a2*(-y)+b2 --(2) //->a1*x+a2*y=b2-b1 //由欧几 ...
catch的执行与try的匹配
这里有一段代码: public class EmbededFinally { public static void main(String args[]) { int result; try { Sy ...

BAPI 使用

BAPI 使用的更多相关文章

随机推荐

热门专题