物料凭证过账BAPI

男娘i 2022-04-11 08:56 306阅读 0赞

一 测试

\*&---------------------------------------------------------------------\*  
\*& Report ZLXF12  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT ZLXF12.  
  
  
  DATA: ls\_goodsmvt\_header TYPE bapi2017\_gm\_head\_01,  
        ls\_goodsmvt\_code   TYPE bapi2017\_gm\_code.  
  
  DATA: ls\_goodsmvt\_item LIKE  bapi2017\_gm\_item\_create,  
        lt\_goodsmvt\_item LIKE TABLE OF   bapi2017\_gm\_item\_create.  
  
  DATA: lv\_materialdocument TYPE  bapi2017\_gm\_head\_ret-mat\_doc.  
  DATA: lv\_matdocumentyear  TYPE  bapi2017\_gm\_head\_ret-doc\_year.  
  
  DATA: ls\_return TYPE bapiret2,  
        lt\_return TYPE TABLE OF bapiret2.  
  DATA: lv\_msg TYPE  string.  
  DATA: lv\_message TYPE string.  
  ls\_goodsmvt\_header-pstng\_date = '20170630'."  凭证中的过帐日期  
  ls\_goodsmvt\_header-doc\_date    = '20170630'."凭证中的凭证日期  
  ls\_goodsmvt\_header-header\_txt =  'bapi create ' ."凭证抬头文本  
  ls\_goodsmvt\_code-gm\_code = '05'.  
  
\*  LOOP AT gt\_item INTO gs\_item WHERE zsfsl > 0 AND mblnr IS INITIAL.  
    ls\_goodsmvt\_item-material  = '10.130.000001'."物料号  
    ls\_goodsmvt\_item-plant     = '1000'."工厂  
    ls\_goodsmvt\_item-stge\_loc  = '1001'."库存地点  
    ls\_goodsmvt\_item-move\_type = '511'."移动类型  
\*    ls\_goodsmvt\_item-item\_text = gs\_head-zlldj."领料单号  
\*    ls\_goodsmvt\_item-gr\_rcpt = gs\_item-zxuha."序号  
\*    ls\_goodsmvt\_item-orderid   = gs\_item-aufnr."生产订单号  
    ls\_goodsmvt\_item-entry\_qnt = 520.  
    ls\_goodsmvt\_item-entry\_uom = 'ST' .  
\*    ls\_goodsmvt\_item-quantity  = gs\_item-zsfsl.  
    APPEND ls\_goodsmvt\_item TO lt\_goodsmvt\_item.  
    CLEAR: ls\_goodsmvt\_item.  
\*  ENDLOOP.  
  
  CALL FUNCTION 'BAPI\_GOODSMVT\_CREATE'  
    EXPORTING  
      goodsmvt\_header  = ls\_goodsmvt\_header  
      goodsmvt\_code    = ls\_goodsmvt\_code  
    IMPORTING  
      materialdocument = lv\_materialdocument  
      matdocumentyear  = lv\_matdocumentyear  
    TABLES  
      goodsmvt\_item    = lt\_goodsmvt\_item  
      return           = lt\_return.  
  IF lv\_materialdocument IS NOT INITIAL.  
    CALL FUNCTION 'BAPI\_TRANSACTION\_COMMIT'  
      EXPORTING  
        wait = 'X'.  
  
    IF sy-subrc EQ 0.  
      COMMIT WORK.  
\*      MESSAGE s000 WITH '过账成功，凭证号' lv\_materialdocument.  
      MESSAGE    lv\_materialdocument TYPE 'S' .  
      LEAVE TO SCREEN 0.  
  
    ELSE.  
      ROLLBACK WORK.  
\*      MESSAGE s000 WITH '过账成功，凭证号' lv\_materialdocument '数据保存失败！'.  
      MESSAGE  '数据保存失败！' TYPE 'W' .  
      LEAVE TO SCREEN 0.  
    ENDIF.  
  ELSE.  
    CALL FUNCTION 'BAPI\_TRANSACTION\_ROLLBACK'.  
  
    LOOP AT lt\_return INTO ls\_return WHERE type EQ 'A' OR type EQ 'E'.  
      CALL FUNCTION 'MESSAGE\_TEXT\_BUILD'  
        EXPORTING  
          msgid               = ls\_return-id  
          msgnr               = ls\_return-number  
          msgv1               = ls\_return-message\_v1  
          msgv2               = ls\_return-message\_v2  
          msgv3               = ls\_return-message\_v3  
          msgv4               = ls\_return-message\_v4  
        IMPORTING  
          message\_text\_output = lv\_msg.  
      IF lv\_message IS INITIAL.  
        lv\_message = lv\_msg.  
      ELSE.  
        CONCATENATE lv\_msg '/' lv\_message INTO lv\_message.  
      ENDIF.  
      CLEAR: ls\_return.  
    ENDLOOP.  
  
\*    MESSAGE i000 WITH lv\_msg DISPLAY LIKE 'E'.  
      MESSAGE   lv\_msg TYPE 'W' .  
  ENDIF.

二 委外 ==================================================

FORM frm\_post .  
  DATA: lt\_zmmt009c LIKE TABLE OF zmmt009c,  
        ls\_zmmt009c LIKE zmmt009c.  
  
  DATA: lt\_zmmt009b LIKE TABLE OF zmmt009b,  
        ls\_zmmt009b LIKE zmmt009b.  
  
  DATA: lt\_009b LIKE TABLE OF zmmt009b.  
  
  DATA: ls\_goodsmvt\_header TYPE bapi2017\_gm\_head\_01,  
        ls\_goodsmvt\_code   TYPE bapi2017\_gm\_code.  
  
  DATA: ls\_goodsmvt\_item LIKE  bapi2017\_gm\_item\_create,  
        lt\_goodsmvt\_item LIKE TABLE OF   bapi2017\_gm\_item\_create.  
  
  DATA: lv\_materialdocument TYPE  bapi2017\_gm\_head\_ret-mat\_doc.  
  DATA: lv\_matdocumentyear  TYPE  bapi2017\_gm\_head\_ret-doc\_year.  
  
  DATA: ls\_return TYPE bapiret2,  
        lt\_return TYPE TABLE OF bapiret2.  
  DATA: lv\_msg TYPE  string.  
  DATA: lv\_message TYPE string.  
  ls\_goodsmvt\_header-pstng\_date = sy-datum."  凭证中的过帐日期  
  ls\_goodsmvt\_header-doc\_date    = sy-datum."凭证中的凭证日期  
  ls\_goodsmvt\_header-header\_txt = gs\_head-zwwck."凭证抬头文本  
  
  ls\_goodsmvt\_code-gm\_code = '04'.  
  
  
  
  LOOP AT gt\_item INTO gs\_item WHERE zgzsl > 0 AND mblnr IS INITIAL.  
    ls\_goodsmvt\_item-material  = gs\_item-matnr."物料号  
    ls\_goodsmvt\_item-plant     = gs\_head-werks."工厂  
    ls\_goodsmvt\_item-stge\_loc  = gs\_item-lgort."库存地点  
  
    ls\_goodsmvt\_item-move\_type = '541'."移动类型  
\*    ls\_goodsmvt\_item-orderid   = gs\_item-aufnr."生产订单号  
    ls\_goodsmvt\_item-vendor = gs\_item-lifnr.  
  
    ls\_goodsmvt\_item-gr\_rcpt = gs\_item-ebeln.  
    ls\_goodsmvt\_item-unload\_pt = gs\_item-ebelp.  
    ls\_goodsmvt\_item-item\_text = gs\_item-zhxmh."序号  
    ls\_goodsmvt\_item-entry\_qnt = gs\_item-zgzsl.  
    ls\_goodsmvt\_item-entry\_uom = gs\_item-meins.  
    ls\_goodsmvt\_item-val\_type = gs\_item-bwtar.  
  
    APPEND ls\_goodsmvt\_item TO lt\_goodsmvt\_item.  
    CLEAR: ls\_goodsmvt\_item.  
  ENDLOOP.  
  
  IF lt\_goodsmvt\_item\[\] IS INITIAL.  
    MESSAGE s000 WITH '没有符合条件的过账数据，请检查' DISPLAY LIKE 'E'.  
    EXIT.  
  ENDIF.  
  
  CALL FUNCTION 'BAPI\_GOODSMVT\_CREATE'  
    EXPORTING  
      goodsmvt\_header  = ls\_goodsmvt\_header  
      goodsmvt\_code    = ls\_goodsmvt\_code  
    IMPORTING  
      materialdocument = lv\_materialdocument  
      matdocumentyear  = lv\_matdocumentyear  
    TABLES  
      goodsmvt\_item    = lt\_goodsmvt\_item  
      return           = lt\_return.  
  IF lv\_materialdocument IS NOT INITIAL.  
    CALL FUNCTION 'BAPI\_TRANSACTION\_COMMIT'  
      EXPORTING  
        wait = 'X'.  
    LOOP AT gt\_item  INTO gs\_item WHERE mblnr IS INITIAL.  
      IF  gs\_item-zgzsl > 0.  
        gs\_item-mblnr = lv\_materialdocument.  
        gs\_item-mjahr = lv\_matdocumentyear.  
      ELSE.  
        gs\_item-loekz = 'X'.  
      ENDIF.  
      gs\_item-zhxgd = sy-datum.  
      gs\_item-zhxgr = sy-uname.  
      MODIFY gt\_item FROM gs\_item.  
      CLEAR: gs\_item.  
    ENDLOOP.  
  
  
    SELECT \*  
      INTO TABLE lt\_zmmt009b  
      FROM zmmt009b  
      FOR ALL ENTRIES IN gt\_item  
      WHERE lifnr = gt\_item-lifnr  
        AND matnr = gt\_item-matnr  
        AND werks = gt\_item-werks.  
  
    SORT lt\_zmmt009b BY lifnr matnr werks.  
    LOOP AT gt\_item INTO gs\_item.  
      MOVE-CORRESPONDING gs\_item TO ls\_zmmt009c.  
      APPEND ls\_zmmt009c TO lt\_zmmt009c.  
      IF gs\_item-loekz IS INITIAL.  
        CLEAR: ls\_zmmt009b.  
        READ TABLE lt\_zmmt009b INTO ls\_zmmt009b  
                               WITH KEY lifnr = gs\_item-lifnr  
                                        matnr = gs\_item-matnr  
                                        werks = gs\_item-werks  
                                        BINARY SEARCH.  
        IF sy-subrc EQ 0.  
          ls\_zmmt009b-zdfkc\_ye = ls\_zmmt009b-zdfkc\_ye + gs\_item-zbddf.  
          ls\_zmmt009b-zhxgd = sy-datum.  
          ls\_zmmt009b-zhxgr = sy-uname.  
\*          APPEND ls\_zmmt009b TO lt\_009b.  
          MODIFY lt\_zmmt009b FROM ls\_zmmt009b INDEX sy-tabix.  
        ELSE.  
          MOVE-CORRESPONDING gs\_item TO ls\_zmmt009b.  
          ls\_zmmt009b-zdfkc\_ye = gs\_item-zbddf.  
          ls\_zmmt009b-zhxgd = sy-datum.  
          ls\_zmmt009b-zhxgr = sy-uname.  
\*          APPEND ls\_zmmt009b TO lt\_zmmt009b.  
          COLLECT ls\_zmmt009b INTO lt\_009b.  
        ENDIF.  
      ENDIF.  
  
      CLEAR: ls\_zmmt009c,gs\_item.  
    ENDLOOP.  
  
    IF lt\_009b\[\] IS NOT INITIAL.  
      APPEND LINES OF lt\_009b TO lt\_zmmt009b.  
    ENDIF.  
  
    CALL FUNCTION 'DEQUEUE\_ALL'.  
    MODIFY zmmt009c FROM TABLE lt\_zmmt009c.  
    IF sy-subrc EQ 0.  
      MODIFY zmmt009b FROM TABLE lt\_zmmt009b.  
      COMMIT WORK.  
      MESSAGE s000 WITH '过账成功，凭证号' lv\_materialdocument.  
      LEAVE TO SCREEN 0.  
    ELSE.  
      ROLLBACK WORK.  
      MESSAGE s000 WITH '过账成功，凭证号' lv\_materialdocument '数据保存失败！'.  
      LEAVE TO SCREEN 0.  
    ENDIF.  
  
  ELSE.  
    CALL FUNCTION 'BAPI\_TRANSACTION\_ROLLBACK'.  
    CALL FUNCTION 'DEQUEUE\_ALL'.  
    LOOP AT lt\_return INTO ls\_return WHERE type EQ 'A' OR type EQ 'E'.  
      CALL FUNCTION 'MESSAGE\_TEXT\_BUILD'  
        EXPORTING  
          msgid               = ls\_return-id  
          msgnr               = ls\_return-number  
          msgv1               = ls\_return-message\_v1  
          msgv2               = ls\_return-message\_v2  
          msgv3               = ls\_return-message\_v3  
          msgv4               = ls\_return-message\_v4  
        IMPORTING  
          message\_text\_output = lv\_msg.  
      IF lv\_message IS INITIAL.  
        lv\_message = lv\_msg.  
      ELSE.  
        CONCATENATE lv\_msg '/' lv\_message INTO lv\_message.  
      ENDIF.  
      CLEAR: ls\_return.  
    ENDLOOP.  
    MESSAGE s000 WITH lv\_msg DISPLAY LIKE 'E'.  
  ENDIF.  
  
ENDFORM.