AVAILABILITY_CHECK for Make to order or Purchase to order

Question

All,
I am trying to use the FM AVAILABILITY_CHECK on a make to order sales order. As each MTO sales order is unique, the ATP check is done on each individual line item.
However, when I do an ATP check with the SO and line item, I still get a zero result. Has anyone done an ATP check for PTO or MTO SO?

Answer 1

Here is the code, as you can see we are using the correct internal numbering range.
*&      Form  get_atp_qty
      Call the FM AVAILIBILITY_CHECK to find the ATP Qty and Qty
      Received
FORM get_atp_qty   USING     lp_matnr " Material
                             lp_werks " Plant
                             lp_kdauf " SO
                             lp_kdpos " SO item
                   CHANGING  lp_qty   " ATP qty
                           lp_qty_o " Qty received
                             lp_meins." Base UoM
  CONSTANTS :
      c_plant_stock    TYPE atpds-delkz          VALUE 'WB'.
Structure to hold ATP Controller: Control Parameters
  DATA: BEGIN OF gwa_atpca.
          INCLUDE STRUCTURE atpca.
  DATA: END OF gwa_atpca.
Table to hold ATP: Requirements to be Checked/Considered
  DATA: BEGIN OF git_atpcs OCCURS 0.
          INCLUDE STRUCTURE atpcs.
  DATA: END OF git_atpcs.
Table to hold ATP Server: ATP data for display
  DATA: BEGIN OF git_atpds OCCURS 0.
          INCLUDE STRUCTURE atpds.
  DATA: END OF git_atpds.
Table to hold ATP Server: Material Table
  DATA: BEGIN OF git_atpmat OCCURS 0.
          INCLUDE STRUCTURE atpmat.
  DATA: END OF git_atpmat.
Populate GWA_ATPCA
  CLEAR gwa_atpca.
  gwa_atpca-anwdg  = '8'.    "Calling App - Explaination
  gwa_atpca-azerg  = 'T'.    "ATP Display Result
  gwa_atpca-rdmod  = 'A'.    "Read Mode - Totals
  gwa_atpca-xenqmd = 'N'.    "Do not read Blocks
Populate GIT_ATPCS
  CLEAR   git_atpcs.
  REFRESH git_atpcs.
  git_atpcs-matnr  = lp_matnr.  "Material
  git_atpcs-werks  = lp_werks.  "Plant
  git_atpcs-kdauf  = lp_kdauf.  "SO
  git_atpcs-kdpos  = lp_kdpos.  "SO item
  git_atpcs-prreg  = 'A'.      "Checking Rule for Avail Check
  git_atpcs-chmod  = 'EXP'.    "ATP: Check mode
  git_atpcs-delkz  = 'VC'.     "MRP element indicator
  git_atpcs-bdter  = sy-datum. "Requirements date for the component
  git_atpcs-xline  = '1'.
  git_atpcs-trtyp  = 'A'.      "Transaction type - Display
  git_atpcs-idxatp = '1'.
  git_atpcs-resmd  = 'X'.      "Mode for Results of Check - Proposal
  git_atpcs-chkflg = 'X'.
  APPEND git_atpcs.
  CALL FUNCTION 'AVAILABILITY_CHECK'
       TABLES
            p_atpcsx  = git_atpcs
            p_atpdsx  = git_atpds
            p_atpmatx = git_atpmat
       CHANGING
            p_atpca   = gwa_atpca
       EXCEPTIONS
            error     = 1
            OTHERS    = 2.
  CHECK sy-subrc EQ 0.
  READ TABLE git_atpds WITH KEY delkz = c_plant_stock. "'WB'
  IF sy-subrc EQ 0.
  Get the Base UoM
    READ TABLE git_atpmat WITH KEY matnr = lp_matnr.
    IF sy-subrc EQ 0.
      lp_meins = git_atpmat-meins.
    ENDIF.
  Quantities
    lp_qty   = git_atpds-qty.
  lp_qty_o = git_atpds-qty_o.
  ENDIF.
ENDFORM.