ZCMM01-13

 MODIFY ZCM03 FROM TABLE ZCM03INS.
  IF SY-SUBRC NE 0.
    MESSAGE E000 WITH 'Table ZCM03 update error'.
  ENDIF.

  MODIFY ZCM04 FROM TABLE ZCM04INS.

  IF SY-SUBRC EQ 0.
*Elven20070511marked    SDOCYEAR =  ZCM03INS-DOCYEAR .
*Elven20070511marked    SET PARAMETER ID
*'PARA001'FIELDSDOCNUMBER.
*Elven20070511marked    SET PARAMETER
* ID 'PARA002'FIELDSDOCYEAR.

    LOOP AT PPORDER WHERE ORDER NE SPACE.
      ZCM17INS-DOCYEAR = ZCM03-DOCYEAR.
      ZCM17INS-DOCNUMBER = ZCM03-DOCNUMBER.
      ZCM17INS-AUFNR = PPORDER-ORDER.
      APPEND ZCM17INS. CLEAR ZCM17INS.
    ENDLOOP.
    MODIFY ZCM17 FROM TABLE ZCM17INS.

    IF TRANSACTION EQ SPACE.
      MESSAGE S000 WITH 'Warehouse document' SDOCNUMBER
'CREATED'.
      TRANSACTION = 'U' . "ElvenAdd20070118forupdafterDOCCREATED
    ELSE.
      MESSAGE S000 WITH 'Warehouse document' SDOCNUMBER
'UPDATED'.
    ENDIF.
  ELSE.
    ROLLBACK WORK.
    MESSAGE E000 WITH 'Table ZCM04 update error'.
  ENDIF.

*  g_document = ZCM03-DOCNUMBER,
  G_DOCYEAR = ZCM03-DOCYEAR.
  G_BADAT = ZCM03-BADAT.
  G_EMPLOYID = ZCM03-EMPLOYID  .
  G_AUFNR =  ZCM03-AUFNR .
  G_KOSTL =  ZCM03-KOSTL .
  G_DOCTYPE = ZCM03-DOCTYPE.
  G_WOQTY = ZCM03-ENMNG.

*Elven20070109Marked  if sy-calld eq space.
*    leave to transaction sy-tcode.
*  else.
*    leave to screen 0.
*  endif.
ENDFORM.                    " save_data

*&------------------------------------------------------
*&      Form  get_document_number
*&------------------------------------------------------
FORM. GET_DOCUMENT_NUMBER USING NRN DOCNUMBER.
  DATA: INRIWA LIKE INRI.

  INRIWA-NRRANGENR = NRN .
*  inriwa-nrrangenr = '01'.  "Elven Marked 20070104
  INRIWA-OBJECT = 'ZPCENUMBER'.
  CALL FUNCTION 'NUMBER_GET_NEXT'
  EXPORTING
  NR_RANGE_NR                   = INRIWA-NRRANGENR
  OBJECT                        = INRIWA-OBJECT
*            ignore_buffer                 = ' '
  IMPORTING
  NUMBER                        = DOCNUMBER
  EXCEPTIONS
  INTERVAL_NOT_FOUND            = 1
  NUMBER_RANGE_NOT_INTERN       = 2
  OBJECT_NOT_FOUND              = 3
  QUANTITY_IS_0                 = 4
  QUANTITY_IS_NOT_1             = 5
  INTERVAL_OVERFLOW             = 6
* Elven20070110           buffer_overflow               = 7
  OTHERS                        = 8.
ENDFORM.                    " get_document_number

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

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