Production confirmation cancel through QM

Question

Dear Sir/Mam
In our scenario when production order is confirmed we get inspection lot with inspection lot origin 04,if material is accepted i post the stock in unrestricted which acceptable by the user,but if the material has to be rejected we do not want put the stock in blocked.We required that if material is rejected its production confirmation should be reversed means its last operation should be cancalled that means mvt type 102.Please guide
regards
kunal

Answer 1

Dear Sir
Function module done and assigned to Follow up action of Manual and even assigned to catalog 3 in inspection lot orgin 04 in that rejected(R) selected and that follow up is assigned.
In qa32 when i m going to usage decision selecting 04, R-Rejected I can see follow up action but Function module is not triggered and where the stock to posted should it to be remained in quality.Can this function module can used for the lot whose stock is posted to unrestricted.Awaiting for your valuable answer.
Please go through  below code
Let me know the changes if any.
FUNCTION ZQM_BAPI_PROD_ORDER.
""Local Interface:
*"  IMPORTING
*"     VALUE(I_QALS) LIKE  QALS STRUCTURE  QALS OPTIONAL
*"     VALUE(I_QAVE) LIKE  QAVE STRUCTURE  QAVE OPTIONAL
*"     VALUE(I_QAPO) TYPE  QAPO OPTIONAL
*"  EXPORTING
*"     VALUE(E_SUBRC) LIKE  SY-SUBRC
*"  TABLES
*"      E_PROTOCOL STRUCTURE  RQEVP OPTIONAL
*"  EXCEPTIONS
*"      NOT_FOUND
*"      INVALID
**"     REFERENCE(PRUEFLOS) TYPE  QPLOS
*"     REFERENCE(I_QALS) LIKE  QALS STRUCTURE  QALS OPTIONAL
*"     REFERENCE(I_QAVE) LIKE  QAVE STRUCTURE  QAVE OPTIONAL
*"     REFERENCE(I_QAPO) TYPE  QAPO OPTIONAL
*"  EXPORTING
*"     VALUE(E_SUBRC) LIKE  SY-SUBRC
*"  TABLES
*"      E_PROTOCOL STRUCTURE  RQEVP OPTIONAL
*"  EXCEPTIONS
*"      NOT_FOUND
*"      INVALID
  DATA : CONFIR LIKE  BAPI_PP_CONF_KEY-CONF_NO,
         CONFCOU LIKE  BAPI_PP_CONF_KEY-CONF_CNT,
         RETURN LIKE  BAPIRET1 ,
         LOCKED LIKE  BAPI_CORU_PARAM-LOCKED,
         CREATED_CONF_NO LIKE  BAPI_PP_CONF_KEY-CONF_NO,
         CREATED_CONF_COUNT LIKE  BAPI_PP_CONF_KEY-CONF_CNT.
  DATA:   P_RUECK TYPE AFRC-RUECK,
          P_RMZHL TYPE AFRC-RMZHL.
  DATA: BEGIN OF IT_QALS OCCURS 0.
          INCLUDE STRUCTURE QALS.
  DATA END OF IT_QALS.
  DATA: BEGIN OF IT_AFRC OCCURS 0,
          AUFNR TYPE AFRC-AUFNR,
          RUECK TYPE AFRC-RUECK,
          RMZHL TYPE AFRC-RMZHL,
        END OF IT_AFRC.
break abap-core.
*START-OF-SELECTION.
  SELECT single  *
    FROM QALS
    INTO IT_QALS
   WHERE PRUEFLOS = I_QALS-PRUEFLOS.
  IF IT_QALS[] IS NOT INITIAL.
    SELECT AUFNR
           RUECK
           RMZHL
      FROM AFRC
      INTO TABLE IT_AFRC
      FOR ALL ENTRIES IN IT_QALS
      WHERE AUFNR = IT_QALS-AUFNR.
  ENDIF.
  READ TABLE IT_AFRC INDEX 1.
  MOVE : IT_AFRC-RUECK TO P_RUECK,
         IT_AFRC-RMZHL TO P_RMZHL.
  IF SY-SUBRC NE 0.
    MESSAGE 'Value Not Found' TYPE 'I'.
  ENDIF.
  CALL FUNCTION 'BAPI_PRODORDCONF_CANCEL'
    EXPORTING
      CONFIRMATION              = P_RUECK "CONFIR
      CONFIRMATIONCOUNTER       = P_RMZHL "CONFCOU
  POSTG_DATE                =
  CONF_TEXT                 =
   IMPORTING
     RETURN                    =  RETURN
     LOCKED                    =  LOCKED
     CREATED_CONF_NO           =  CREATED_CONF_NO
     CREATED_CONF_COUNT        =  CREATED_CONF_COUNT .
  COMMIT WORK.
  IF SY-SUBRC EQ 0.
    WRITE 'PO Canceled'.
  ENDIF.
ENDFUNCTION.
regards,
Kunal.