SAP CV03N User exit

*&---------------------------------------------------------------------*
*&  Include           ZXCV110U04
*&---------------------------------------------------------------------*
IF PFX_OKCODE = 'CHANGE' OR PFX_OKCODE = 'CHANGE_DIS'.
  DATA: WA_DRAW TYPE DRAW.
  DATA: L_DOKST TYPE DOKST.
  DATA: L_WFID TYPE ZWFID.

  IMPORT WA_DRAW TO WA_DRAW FROM MEMORY ID 'ZDRAW_CHK'.

  "If user change edit mode, then check status released or not
  IF WA_DRAW-DOKAR = 'CPS'.
    L_WFID = 'WFDRAW01'.

    "If launch workflow
    CALL FUNCTION 'ZWF_CHECK_WF_RUN'
      EXPORTING
        WFID    = L_WFID
      EXCEPTIONS
        NOT_RUN = 1
        OTHERS  = 2.
    IF SY-SUBRC <> 0.
      EXIT.
    ENDIF.

    SELECT SINGLE DOKST INTO L_DOKST FROM DRAW
      WHERE DOKAR = WA_DRAW-DOKAR AND DOKNR = WA_DRAW-DOKNR
    AND DOKVR = WA_DRAW-DOKVR AND DOKTL = WA_DRAW-DOKTL.
    IF L_DOKST = 'RE'.
      MESSAGE E011(ZWF_1) WITH 'Status is released'.
    ENDIF.
  ENDIF.

ENDIF.