Changes to Communication Structure for Release of Purchasing Documents

EXIT_SAPLEBND_002

*&---------------------------------------------------------------------*
*& Include ZXM06U22 *
*&---------------------------------------------------------------------*
* If PDUMMY = 'X' then Approval Procedure is Activate

TABLES: EBAN.
DATA: MRP_IND TYPE EBAN.
DATA: BEGIN OF Z_BEKPO OCCURS 50.
INCLUDE STRUCTURE BEKPO.
DATA: END OF Z_BEKPO.

LOOP AT IT_BEKPO INTO Z_BEKPO.

* IF PO line item has no P.R. Reference
IF Z_BEKPO-BANFN EQ SPACE.

WRITE: Z_BEKPO-BANFN, Z_BEKPO-BNFPO.
MOVE 'X' TO I_CEKKO-PDUMMY.
EXIT.

ELSE.
* If PR Creation Indicator <> B
SELECT SINGLE * FROM EBAN INTO MRP_IND WHERE
BANFN = Z_BEKPO-BANFN AND
BNFPO = Z_BEKPO-BNFPO.
* IF SY-SUBRC <> 0 or MRP_IND-ESTKZ NE 'B'. update by ricky 050802
IF SY-SUBRC <> 0 or ( MRP_IND-ESTKZ NE 'B' and
MRP_IND-ESTKZ NE 'U').
MOVE 'X' TO I_CEKKO-PDUMMY.
EXIT.
ENDIF.
ENDIF.

ENDLOOP.

MOVE-CORRESPONDING I_CEKKO TO E_CEKKO.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/166523/viewspace-153321/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-153321/