BAPI 实例：GR with inbound delivery

我会带着你远行 2022-10-01 02:00 111阅读 0赞

REPORT  z101\_gr.  
TABLES:ekpo, yindct, ymaret, zlocct.  
  
DATA: mat\_doc  LIKE bapi2017\_gm\_head\_ret-mat\_doc.  
  
DATA:save\_code  LIKE sy-ucomm,  
      ok\_code  LIKE sy-ucomm,  
      loc\_msg( 50),  
      flag  TYPE  i,  
      gmnga  LIKE afru-gmnga,  
      errflag.  
DATA: w\_textout  LIKE t100- text.  
DATA: it\_itab   TYPE  STANDARD  TABLE  OF yindct  INITIAL  SIZE  0,  
      yt\_itab   TYPE  STANDARD  TABLE  OF ymaret  INITIAL  SIZE  0,  
      et\_itab   TYPE  STANDARD  TABLE  OF ekpo  INITIAL  SIZE  0,  
      wa\_itab   TYPE yindct,  
      ya\_itab   TYPE ymaret,  
      wa\_success   TYPE yindct,  
      wa\_error  TYPE yindct,  
      wa\_ztab  TYPE zlocct.  
DATA: s\_vbeln  LIKE yindct-vbeln.  
DATA:save\_ok  LIKE sy-ucomm.  
  
DATA:  BEGIN  OF sumtable,  
  matnr  LIKE ymaret-matnr,  
  casno  LIKE yindct-casno,  
  lgort  LIKE yindct-lgort,  
  bwart  LIKE zlocct-bwart,  
  wemng  LIKE ymaret-wemng,  
  meins  LIKE ymaret-meins,  
  bstnr  LIKE ymaret-bstnr,  
  ebelp  LIKE ymaret-ebelp,  
\*      LIFNR LIKE YINDCT-LIFNR,  
END  OF sumtable.  
DATA: s\_table  LIKE sumtable  OCCURS  0  WITH  HEADER  LINE,  
      sa\_table  LIKE sumtable.  
  
DATA: BEGIN  OF gt\_afpo  OCCURS  0.  
         INCLUDE  STRUCTURE afpo.  
DATA: END  OF gt\_afpo.  
  
DATA:gmhead  LIKE bapi2017\_gm\_head\_01.  
  
DATA:  BEGIN  OF gmcode.  
         INCLUDE  STRUCTURE bapi2017\_gm\_code.  
DATA:  END  OF gmcode.  
  
DATA:  BEGIN  OF mthead.  
         INCLUDE  STRUCTURE bapi2017\_gm\_head\_ret.  
DATA:  END  OF mthead.  
  
DATA:  BEGIN  OF itab  OCCURS  100.  
         INCLUDE  STRUCTURE bapi2017\_gm\_item\_create.  
DATA:  END  OF itab.  
  
DATA:  BEGIN  OF errmsg  OCCURS  10.  
         INCLUDE  STRUCTURE bapiret2.  
DATA:  END  OF errmsg.  
  
START- OF\-SELECTION.  
   CALL  SCREEN  1000.  
  
\*----------------------------------------------------------------------\*  
\*  MODULE user\_command\_1000 INPUT  
\*----------------------------------------------------------------------\*  
\*  
\*----------------------------------------------------------------------\*  
MODULE user\_command\_1000  INPUT.  
  save\_ok = ok\_code.  
   CLEAR ok\_code.  
   CASE save\_ok.  
     WHEN  'TE'.  
       LEAVE  PROGRAM.  
     WHEN  OTHERS.  
       IF s\_vbeln  IS  INITIAL.  
         MESSAGE  'NO INBOUND INPUT!'  TYPE  'S'.  
       ELSE.  
         PERFORM add\_zero.  
\*      PERFORM data.  
         PERFORM get\_data.  
\*      IF wa\_itab-vbeln <> ''.  
         PERFORM fun.  
         CLEAR errflag.  
         CLEAR: s\_vbeln.  
         CLEAR: wa\_itab,wa\_ztab,sumtable,s\_table\[\].  
       ENDIF.  
   ENDCASE.  
ENDMODULE.                     "user\_command\_1000 INPUT  
  
\*&---------------------------------------------------------------------\*  
\*&      Form  add\_zero  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
FORM add\_zero.  
   CALL  FUNCTION  'CONVERSION\_EXIT\_ALPHA\_INPUT'  
     EXPORTING  
       input  = s\_vbeln  
     IMPORTING  
       output = s\_vbeln.  
ENDFORM.                     "add\_zero  
  
\*&---------------------------------------------------------------------\*  
\*&      Form  get\_data  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
FORM get\_data.  
   " check duplicate scan  
   CLEAR flag.  
   SELECT  COUNT(\*)  INTO flag  FROM yindct  WHERE yindct~statg  IN ( '101S', '102E')  AND yindct~vbeln = s\_vbeln.  
   IF flag >  0.  
     CLEAR sumtable.  
     SELECT  SINGLE yindct~bstnr yindct~casno  INTO (sumtable-bstnr,sumtable-casno)  FROM yindct  WHERE yindct~vbeln = s\_vbeln.  
     CLEAR w\_textout.  
     CONCATENATE  'PO-' sumtable-bstnr ' Case' sumtable-casno ' have been GR'  INTO w\_textout.  
     MESSAGE w\_textout  TYPE  'S'.  
     CLEAR s\_vbeln.  
     CALL  SCREEN  1000.  
   ELSE.  
     SELECT \*  INTO wa\_itab  
     FROM yindct  
     WHERE yindct~vbeln = s\_vbeln.  
     ENDSELECT.  
     SELECT yindct~bstnr yindct~casno yindct~lgort  INTO (sumtable-bstnr,sumtable-casno,sumtable-lgort)  
     FROM yindct  
     WHERE yindct~vbeln = s\_vbeln.  
  
       SELECT ymaret~matnr ymaret~wemng ymaret~meins ymaret~ebelp  INTO (sumtable-matnr,sumtable-wemng,sumtable-meins,sumtable-ebelp)  
       FROM ymaret  
       WHERE ymaret~bstnr = sumtable-bstnr  AND ymaret~casno = sumtable-casno.  
         APPEND sumtable  TO s\_table.  
       ENDSELECT.  
     ENDSELECT.  
  
   ENDIF.  
ENDFORM.                     "get\_data  
  
\*&---------------------------------------------------------------------\*  
\*&      Form  fun  
\*&---------------------------------------------------------------------\*  
\*       text  
\*----------------------------------------------------------------------\*  
FORM fun.  
  gmcode-gm\_code =  '01'.  
  gmhead-ref\_doc\_no =  '3'.  
  gmhead-pstng\_date = sy-datum . "mkpf-bldat.sy-datum  
  gmhead-doc\_date = sy-datum . "mkpf-budat.  
  gmhead-pr\_uname = sy-uname.  
   CLEAR itab\[\].  
   LOOP  AT s\_table  INTO sa\_table.  
    itab-material = sa\_table-matnr.  
    itab-plant =  'LMWC'.  
    itab-stge\_loc = sa\_table-lgort.  
    itab-move\_type =  '101'.  
\*  itab-spec\_stock = 'wlog'..  
    itab-entry\_qnt = sa\_table-wemng.  
    itab-entry\_uom = sa\_table-meins.  
    itab-po\_number = sa\_table-bstnr.  
    itab-po\_item = sa\_table-ebelp.  
    itab-mvt\_ind =  'B'.  
\*  itab-move\_mat = '409031751'.  
    itab-move\_plant =  'LMWC'.  
    itab-move\_stloc = sa\_table-lgort.  
    itab-nb\_slips =  1.  
     APPEND itab.  
     CLEAR:sa\_table,itab.  
   ENDLOOP.  
  
   CALL  FUNCTION  'BAPI\_GOODSMVT\_CREATE'  
     EXPORTING  
      goodsmvt\_header  = gmhead  
      goodsmvt\_code    = gmcode  
     IMPORTING  
      goodsmvt\_headret = mthead  
      materialdocument = mat\_doc  
     TABLES  
      goodsmvt\_item    = itab  
       return           = errmsg.  
  
   LOOP  AT errmsg.  
     CLEAR loc\_msg.  
     IF errmsg- type  EQ  'E'.  
       IF wa\_itab-statg <>  'S'.  
        wa\_error = wa\_itab.  
        wa\_error-bedat1 = sy-datum.  
        wa\_error-lzeit1 = sy-uzeit.  
        wa\_error-ernam1 = sy-uname.  
        wa\_error-statg =  '101E'.  
        wa\_error- text = errmsg- message.  
         MODIFY yindct  FROM wa\_error.  
         CLEAR: wa\_error.  
         CLEAR: wa\_itab.  
         MESSAGE errmsg- message  TYPE  'S'.  
        errflag =  'X'.  
       ELSE.  
         MESSAGE errmsg- message  TYPE  'S'.  
        errflag =  'X'.  
       ENDIF.  
     ENDIF.  
   ENDLOOP.  
  
  
   IF errflag  IS  INITIAL.  
     COMMIT  WORK  AND  WAIT.  
     CLEAR loc\_msg.  
     IF sy-subrc  NE  0.  
       MESSAGE  'error! please try again.'  TYPE  'S'.  
       EXIT.  
     ELSE.  
       CONCATENATE  'Material document  '  mat\_doc  ' posted'  INTO loc\_msg.  
      wa\_success = wa\_itab.  
      wa\_success-bedat1 = sy-datum.  
      wa\_success-lzeit1 = sy-uzeit.  
      wa\_success-ernam1 = sy-uname.  
      wa\_success-statg =  '101S'.  
      wa\_success-mblnr = mat\_doc.  
      wa\_success- text = loc\_msg.  
      wa\_success-locst = wa\_success-lgort.  
       MODIFY yindct  FROM wa\_success.  
       CLEAR: wa\_success.  
       CLEAR: wa\_itab.  
       MESSAGE  loc\_msg  TYPE  'S'.  
     ENDIF.  
   ENDIF.  
  
   CALL  FUNCTION  'BAPI\_TRANSACTION\_COMMIT'  
     EXPORTING  
       wait =  'X'.  
ENDFORM.