SAP 创建物料凭证BAPI

今天药忘吃喽~ 2021-10-16 01:54 849阅读 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 = '20190821'.*"  **凭证中的过帐日期*  
  ls\_goodsmvt\_header\-doc\_date    = '20190821'.*"**凭证中的凭证日期*  
  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 = 52.  
    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.