ZCMM01-29

MODULE CHECK_POST INPUT.
  DATA: S_MBLNR TYPE ZCM03-MBLNR .
  SELECT SINGLE MBLNR FROM ZCM03
  INTO S_MBLNR
  WHERE DOCNUMBER = ZCM03-DOCNUMBER
  AND DOCYEAR = ZCM03-DOCYEAR
  AND MBLNR <> '' .
  IF SY-SUBRC = 0.
    MESSAGE E000 WITH 'Change not allowed,'
      'it had already been POSTED TO' S_MBLNR.
  ENDIF.
ENDMODULE.                 " check_post  INPUT
*&--------------------------------------------------------
*&      Module  get_document_data_D  INPUT
*&---------------------------------------------------------
*       text
*-------------------------------------------------------
MODULE GET_DOCUMENT_DATA_D INPUT.
  SELECT * FROM ZCM03 WHERE DOCNUMBER EQ ZCM03-DOCNUMBER
  AND DOCYEAR = ZCM03-DOCYEAR.
    EXIT.
  ENDSELECT.
  IF SY-SUBRC NE 0.
    MESSAGE E000 WITH 'Document number' ZCM03-DOCNUMBER
    '  does not exist'.
  ENDIF.
  SELECT * INTO CORRESPONDING FIELDS OF TABLE ZCM04TAB FROM
  ZCM04
  WHERE DOCNUMBER EQ ZCM03-DOCNUMBER
  AND DOCYEAR EQ ZCM03-DOCYEAR.
***mark by liuchun 20070925
*  SORT ZCM04TAB BY MATNR .    "Elven 20070403
*Ariel add090818.start display post id
  SELECT SINGLE FRBNR  INTO S_POSTID
  FROM MKPF
  WHERE MBLNR = ZCM03-MBLNR
  AND MJAHR = ZCM03-MJAHR.
*Ariel add090818.end display post id

  LOOP AT ZCM04TAB.

    ZCM04TAB-PERSISTENT = 'X'.
    MODIFY ZCM04TAB INDEX SY-TABIX TRANSPORTING PERSISTENT.
    LASTDOCITEM = ZCM04TAB-DOCITEM.
    DATA: EX_STATUS TYPE STATUSICON .

*IF ZCM04TAB-MARKDELETION ='X'.
*             ex_status = '@11@'.
*     ZCM04TAB-STATUSICON = '@11@'.
*ENDIF.

  ENDLOOP.

 

  TRANSACTION = 'D'.

ENDMODULE.                 " get_document_data_D  INPUT
*&-------------------------------------------------------
*&      Module  check_SLOC  INPUT
*&----------------------------------------------------
*       text
*-----------------------------------------------------
MODULE CHECK_SLOC_ALL INPUT.
  G_SLOC = '1' .

ENDMODULE.                 " check_SLOC  INPUT
*&----------------------------------------------------
*&      Module  check_SLOC_A  INPUT
*&------------------------------------------------------
*       text
*-------------------------------------------------------
MODULE CHECK_SLOC_A INPUT.
  G_SLOC = 'A' .
ENDMODULE.                 " check_SLOC_A  INPUT
*&----------------------------------------------------------

*&      Module  check_SLOC_B  INPUT
*&-----------------------------------------------

*       text
*--------------------------------------------

MODULE CHECK_SLOC_B INPUT.
  G_SLOC = 'B' .
ENDMODULE.                 " check_SLOC_B  INPUT
*&--------------------------------------------------------------

*&      Module  check_SLOC_C  INPUT
*&--------------------------------------------------

*       text
*----------------------------------------

MODULE CHECK_SLOC_C INPUT.
  G_SLOC = 'C' .
ENDMODULE.                 " check_SLOC_C  INPUT
*&--------------------------------------------------------------

*&      Module  check_SLOC_D  INPUT
*&--------------------------------------------------------------

*       text
*---------------------------------------------------------------

MODULE CHECK_SLOC_D INPUT.
  G_SLOC = 'D' .
ENDMODULE.                 " check_SLOC_D  INPUT

 

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

转载于:http://blog.itpub.net/14397246/viewspace-666182/