SAP: CV12 Enhancement LCSDIF2B

ENHANCEMENT 1  ZWF_MS_ENIM1.    "active version
  CALL FUNCTION 'ZWF_MS_APPRBOX'
    EXPORTING
      RC29N         = RC29N.

ENDENHANCEMENT.

 

FUNCTION ZWF_MS_APPRBOX.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(RC29N) TYPE  RC29N OPTIONAL
*"----------------------------------------------------------------------
  DATA: L_OBJKEY TYPE SIBFBORIID.
  DATA: L_SPID TYPE ZSPID.
  DATA: L_STLST TYPE STLST.
  DATA: L_WFID TYPE ZWFID.
  DATA: L_TYPEID TYPE SWO_OBJTYP.
  DATA: SWO_RETURN TYPE SWOTRETURN.
  DATA: IT_CONTAINER TYPE TABLE OF SWCONT WITH HEADER LINE.
  DATA: L_ISLAU TYPE ZISLAU.
  DATA: L_STSPID TYPE ZSPID.
  DATA: BEGIN OF OBJKEY,
        DOKAR TYPE DOKAR,
        DOKNR TYPE DOKNR,
        DOKTL TYPE DOKTL,
        DOKVR TYPE DOKVR,
        END OF OBJKEY.

  IF SY-TCODE <> 'CV12' AND SY-TCODE <> 'CV13'.
    EXIT.
  ENDIF.

*  AUTHORITY-CHECK OBJECT 'C_STUE_NOH' ID 'NOHIS' FIELD 'X'.
*  IF SY-SUBRC = 0.
*    EXIT.
*  ENDIF.

  L_TYPEID = 'DRAW'.
  OBJKEY-DOKAR = RC29N-DOKAR.
  OBJKEY-DOKNR = RC29N-DOKNR.
  OBJKEY-DOKTL = RC29N-DOKTL.
  OBJKEY-DOKVR = RC29N-DOKVR.
  L_OBJKEY = OBJKEY.

  CALL FUNCTION 'SWU_OBJECT_PUBLISH'
    EXPORTING
      OBJTYPE           = L_TYPEID
      OBJKEY            = L_OBJKEY
      MODE              = 'D'
    EXCEPTIONS
      OBJTYPE_NOT_FOUND = 1
      OTHERS            = 2.
  IF SY-SUBRC <> 0.
    MESSAGE A018(ZWF_1).
  ENDIF.

  "Check enhancement program or not (ZCS02)
  CALL FUNCTION 'ZKZ_CHECK_CUSTOM_PRGM'
    EXCEPTIONS
      CUSTOM_PRGM = 1
      OTHERS      = 2.
  IF SY-SUBRC <> 0.
    EXIT.
  ENDIF.

*  IF SY-SUBRC <> 0.
*    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*  ENDIF.

ENDFUNCTION.FUNCTION ZKZ_CHECK_CUSTOM_PRGM.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  EXCEPTIONS
*"      CUSTOM_PRGM
*"----------------------------------------------------------------------
  DATA: L_TCVARIANT TYPE SHDTVCIU-TCVARIANT.
  DATA: L_RC TYPE SY-SUBRC.

  CALL FUNCTION 'RS_HDSYS_GET_TC_VARIANT'
    IMPORTING
      TCVARIANT = L_TCVARIANT
      RC        = L_RC.
  IF L_RC = 0 AND L_TCVARIANT IS NOT INITIAL.
    RAISE CUSTOM_PRGM.
  ENDIF.

ENDFUNCTION.