Field restrictions set in SWEC for BUS2012.

Question

Hi Gurus,
The field restrictions have been set for fields (ekpo-menge, ekpo-netpr etc..). But this doesnot seem to work. The workflow triggers if there is any change in the PO. This should not happen. Please help in this regards.
Thanks,
Sathish.

Answer 1

Please find below the code for the same.
FUNCTION ZTMP_CHECK_po_workflow.
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(EVENT) LIKE  SWETYPECOU-EVENT
*"     REFERENCE(RECTYPE) LIKE  SWETYPECOU-RECTYPE
*"     REFERENCE(OBJTYPE) LIKE  SWETYPECOU-OBJTYPE
*"     REFERENCE(OBJKEY) LIKE  SWEINSTCOU-OBJKEY
*"  TABLES
*"      EVENT_CONTAINER STRUCTURE  SWCONT
*"  EXCEPTIONS
*"      ANY_EXCEPTION
  TYPES:BEGIN OF ity_awkey,
          awkey TYPE awkey,
        END OF ity_awkey.
* Local internal table declaration
  DATA:it_cdpos TYPE STANDARD TABLE OF cdpos INITIAL SIZE 0,
        it_rseg TYPE STANDARD TABLE OF rseg INITIAL SIZE 0,
        it_bseg TYPE STANDARD TABLE OF bseg INITIAL SIZE 0,
        it_bkpf TYPE STANDARD TABLE OF bkpf INITIAL SIZE 0,
        it_rbkp TYPE STANDARD TABLE OF rbkp INITIAL SIZE 0,
        it_awkey TYPE STANDARD TABLE OF ity_awkey INITIAL SIZE 0 .
  DATA: wa_cont TYPE swr_cont,
it_cont TYPE STANDARD TABLE OF swr_cont.
* Local work area declaration
  DATA:wa_cdpos TYPE cdpos,
        wa_swcont TYPE swcont,
        wa_bkpf TYPE bkpf,
        wa_bseg TYPE bseg,
        wa_ekko TYPE ekko,
        wa_awkey TYPE ity_awkey,
        wa_rseg TYPE rseg,
        wa_rbkp TYPE rbkp.
* Local variable declaration
  DATA: lv_flag     TYPE i,
        lv_changenr TYPE cdchangenr,
        lv_change   TYPE char1,
        lv_po_change TYPE char1,
        lv_objtype TYPE swetypecou-objtype,
        lv_objkey TYPE sweinstcou-objkey.
* Get header data of PO
  SELECT SINGLE *
    FROM ekko
    INTO wa_ekko
    WHERE ebeln EQ objkey.
* If revised PO approved
  IF wa_ekko-frgke  EQ 'A' AND wa_ekko-procstat EQ '05'.
    SELECT *
      FROM rseg
      INTO TABLE it_rseg
      WHERE ebeln EQ wa_ekko-ebeln.
    IF sy-subrc EQ 0.
      SORT it_rseg BY belnr.
      DELETE ADJACENT DUPLICATES FROM it_rseg COMPARING belnr.
      LOOP AT it_rseg INTO wa_rseg.
        CONCATENATE wa_rseg-belnr wa_rseg-gjahr INTO wa_awkey-awkey.
        APPEND wa_awkey TO it_awkey.
      ENDLOOP.
      SORT it_awkey BY awkey.
      DELETE ADJACENT DUPLICATES FROM it_awkey.
*     Get invcoice document
      SELECT *
        FROM bkpf
        INTO TABLE it_bkpf
        FOR ALL ENTRIES IN it_awkey
        WHERE awkey EQ it_awkey-awkey.
      IF sy-subrc EQ 0.
        SELECT *
          FROM bseg
          INTO TABLE it_bseg
          FOR ALL ENTRIES IN it_bkpf
          WHERE bukrs EQ it_bkpf-bukrs
            AND belnr EQ it_bkpf-belnr
            AND gjahr EQ it_bkpf-gjahr.
      ENDIF.
    ENDIF.
*   Check if any invoice is blocked
    LOOP AT it_bseg INTO wa_bseg WHERE zlspr IS NOT INITIAL. "WHERE zlspr IS NOT INITIAL.
      READ TABLE it_bkpf
            INTO wa_bkpf
            WITH KEY bukrs = wa_bseg-bukrs
                     belnr = wa_bseg-belnr
                     gjahr = wa_bseg-gjahr.
      IF sy-subrc EQ 0.
        lv_objtype = 'BUS2081'.
        lv_objkey = wa_bkpf-awkey.
        CALL FUNCTION 'SAP_WAPI_CREATE_EVENT'
          EXPORTING
            object_type = lv_objtype
            object_key  = lv_objkey
            event       = 'ZPO_CHANGE'
            commit_work = ''.
      ENDIF.
    ENDLOOP.
* If revised PO changed and it has invoices pending for approvals.
  ELSE.
* Read change object document number
    READ TABLE  event_container
          INTO wa_swcont
          WITH KEY element = 'CD_CHANGENR'.
    IF sy-subrc EQ 0.
      lv_changenr = wa_swcont-value.
      CLEAR wa_swcont.
      SELECT *
        FROM cdpos
        INTO TABLE it_cdpos
        WHERE objectclas EQ 'EINKBELEG'
          AND objectid   EQ objkey
          AND changenr   EQ lv_changenr.
      IF sy-subrc EQ 0.
*   Check if PO Value is changed.
        READ TABLE it_cdpos
              INTO wa_cdpos
              WITH KEY tabname = 'EKKO'
                       fname   = 'RLWRT'.
        IF sy-subrc EQ 0.
          lv_po_change = 'X'.
        ENDIF.
*   Check if PO Value is changed.
        READ TABLE it_cdpos
              INTO wa_cdpos
              WITH KEY tabname = 'EKPO'
                       fname   = 'MENGE'.
        IF sy-subrc EQ 0.
          lv_po_change = 'X'.
        ENDIF.
*   Check if PO Value is changed.
        READ TABLE it_cdpos
              INTO wa_cdpos
              WITH KEY tabname = 'EKPO'
                       fname   = 'NETWR'.
        IF sy-subrc EQ 0.
          lv_po_change = 'X'.
        ENDIF.
        IF lv_po_change EQ 'X'..
* Get header data of PO
          SELECT SINGLE *
            FROM ekko
            INTO wa_ekko
            WHERE ebeln EQ objkey.
* If revised PO approved
          IF sy-subrc EQ 0.
            SELECT *
              FROM rseg
              INTO TABLE it_rseg
              WHERE ebeln EQ wa_ekko-ebeln.
            IF sy-subrc EQ 0.
              SORT it_rseg BY belnr.
              DELETE ADJACENT DUPLICATES FROM it_rseg COMPARING belnr.
              LOOP AT it_rseg INTO wa_rseg.
                CONCATENATE wa_rseg-belnr wa_rseg-gjahr INTO wa_awkey-awkey.
                APPEND wa_awkey TO it_awkey.
              ENDLOOP.
              SORT it_awkey BY awkey.
              DELETE ADJACENT DUPLICATES FROM it_awkey.
*     Get invcoice document
              SELECT *
                FROM bkpf
                INTO TABLE it_bkpf
                FOR ALL ENTRIES IN it_awkey
                WHERE awkey EQ it_awkey-awkey.
              IF sy-subrc EQ 0.
                SELECT *
                  FROM bseg
                  INTO TABLE it_bseg
                  FOR ALL ENTRIES IN it_bkpf
                  WHERE bukrs EQ it_bkpf-bukrs
                    AND belnr EQ it_bkpf-belnr
                    AND gjahr EQ it_bkpf-gjahr.
              ENDIF.
            ENDIF.
*   Check if any invoice is blocked
            LOOP AT it_bseg INTO wa_bseg WHERE zlspr IS NOT INITIAL. "WHERE zlspr IS NOT INITIAL.
              READ TABLE it_bkpf
                    INTO wa_bkpf
                    WITH KEY bukrs = wa_bseg-bukrs
                             belnr = wa_bseg-belnr
                             gjahr = wa_bseg-gjahr.
              IF sy-subrc EQ 0.
*                wa_cont-element = 'GV_CONFIRM_FLAG'.
*                wa_cont-value = 'X'.
*                APPEND wa_cont TO it_cont.
                lv_objtype = 'BUS2081'.
                lv_objkey = wa_bkpf-awkey.
                CALL FUNCTION 'SWE_EVENT_CREATE'
                  EXPORTING
                    objtype = lv_objtype
                    objkey  = lv_objkey
                    event   = 'ZPO_CHANGE2'.
                IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
                ENDIF.
              ENDIF.
            ENDLOOP.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDIF.
  CLEAR lv_po_change.
* Read change object document number
  READ TABLE  event_container
        INTO wa_swcont
        WITH KEY element = 'CD_CHANGENR'.
  IF sy-subrc EQ 0.
    lv_changenr = wa_swcont-value.
    CLEAR wa_swcont.
    SELECT *
      FROM cdpos
      INTO TABLE it_cdpos
      WHERE objectclas EQ 'EINKBELEG'
        AND objectid   EQ objkey
        AND changenr   EQ lv_changenr.
    IF sy-subrc EQ 0.
*   Check if PO Value is changed.
      READ TABLE it_cdpos
                   INTO wa_cdpos
                   WITH KEY tabname = 'EKKO'
                            fname   = 'RLWRT'.
      IF sy-subrc EQ 0.
        lv_po_change = 'X'.
      ENDIF.
*   Check if PO Value is changed.
      READ TABLE it_cdpos
            INTO wa_cdpos
            WITH KEY tabname = 'EKPO'
                     fname   = 'MENGE'.
      IF sy-subrc EQ 0.
        lv_po_change = 'X'.
      ENDIF.
*   Check if PO Value is changed.
      READ TABLE it_cdpos
            INTO wa_cdpos
            WITH KEY tabname = 'EKPO'
                     fname   = 'NETWR'.
      IF sy-subrc EQ 0.
        lv_po_change = 'X'.
      ENDIF.
      IF lv_po_change EQ 'X'.
        lv_change = 'X'.
        EXPORT ex_change FROM lv_change TO  MEMORY ID 'ZTMPANGE'.
        EXPORT ex_change FROM lv_change TO  MEMORY ID 'ZTMPANGE1'.
        lv_flag = 1.
      ELSE.
      ENDIF.
      IF lv_flag NE 1.
        RAISE any_exception.
      ENDIF.
    ENDIF."    IF sy-subrc EQ 0. CDPOS
  ENDIF."  IF sy-subrc EQ 0.
  IF objtype EQ 'BUS2012'.
    READ TABLE  event_container
          INTO wa_swcont
          WITH KEY element = 'RELEASECODE'.
    IF wa_swcont-value IS INITIAL AND sy-subrc EQ 0.
      RAISE any_exception.
    ENDIF.
    IF sy-subrc NE 0.
      RAISE any_exception.
    ENDIF.
  ENDIF.
ENDFUNCTION.