取商品的可用量函数，类似CO09

来源：互联网发布：淘宝买家信誉有什么用编辑：程序博客网时间：2024/05/21 15:51

FUNCTION ZF_GET_SP_KYL.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     REFERENCE(MATNR) LIKE  MARA-MATNR
*"     REFERENCE(WERKS) LIKE  T001W-WERKS
*"     REFERENCE(PRREG) LIKE  ATPCS-PRREG DEFAULT '02'
*"  TABLES
*"      IT_ATPDS STRUCTURE  ATPDS
*"----------------------------------------------------------------------
  DATA: F_IT_ATPCS LIKE TABLE OF ATPCS WITH HEADER LINE,
        F_IT_ATPCA  LIKE TABLE OF ATPCA WITH HEADER LINE.

*调用可用量检查的函数返回可用量
  CLEAR F_IT_ATPCS[].
  " LOOP AT it_zsatp_web.
  F_IT_ATPCS-MATNR = MATNR."'000000001000000008'.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      INPUT  = F_IT_ATPCS-MATNR
    IMPORTING
      OUTPUT = F_IT_ATPCS-MATNR.

  F_IT_ATPCS-WERKS = WERKS.
  F_IT_ATPCS-PRREG = PRREG.
  F_IT_ATPCS-CHMOD = 'EXP'.
  F_IT_ATPCS-DELKZ = 'VC'.
  F_IT_ATPCS-BDTER = SY-DATUM."it_zsatp_web-bdter.
  F_IT_ATPCS-XLINE = '1'."it_zsatp_web-bdter.
  F_IT_ATPCS-XLINE = '0'.
  F_IT_ATPCS-TRTYP = 'A'. "Transaction type - Display
  F_IT_ATPCS-IDXATP = '1'.
  F_IT_ATPCS-RESMD = 'X'. "Mode for Results of Check - Proposal
  F_IT_ATPCS-CHKFLG = 'X'.
  APPEND F_IT_ATPCS.
  CLEAR F_IT_ATPCS.

  "控制参数
  F_IT_ATPCA-ANWDG = '8'.
  F_IT_ATPCA-ANWDG_ORIG = '4'.
  F_IT_ATPCA-AZERG = 'T'.
  F_IT_ATPCA-RDMOD = 'A'.
  F_IT_ATPCA-XENQMD = 'N'.
  "APPEND f_it_ATPCA.

  CALL FUNCTION 'AVAILABILITY_CHECK'
    EXPORTING
      P_SCHEDSH = 'X'
      P_SCHEDTR = 'X'
    TABLES
      P_ATPCSX  = F_IT_ATPCS
      P_ATPDSX  = IT_ATPDS
    CHANGING
      P_ATPCA   = F_IT_ATPCA
    EXCEPTIONS
      ERROR     = 1
      OTHERS    = 2.

ENDFUNCTION.