Developer Extensibility

" Extending a SAP-released CDS projection view with a custom field
" The standard view is I_SalesOrder — we extend the projection C_SalesOrder

@AbapCatalog.sqlViewAppendName: 'ZSO_EXT_DEWA'
extend view entity C_SalesOrderItemTp with
{
  " Expose custom field defined via Custom Fields (F1481)
  SalesOrderItem.YY1_ApprovalStatus_SDH  as ApprovalStatus,
  SalesOrderItem.YY1_ApprovalRequired_SDH as ApprovalRequired,

  " Association to custom business object data
  _DEWAApprovalData.ApproverName as AssignedApprover
}

" Extend standard SalesOrder RAP BO with a custom validation
" File: ZBP_C_SALESORDERTP.abap

CLASS lhc_salesorder DEFINITION INHERITING FROM cl_abap_behavior_handler.
  PRIVATE SECTION.
    METHODS validate_dewa_approval FOR VALIDATE ON SAVE
      IMPORTING keys FOR SalesOrder~CheckDewaApproval.
ENDCLASS.

CLASS lhc_salesorder IMPLEMENTATION.
  METHOD validate_dewa_approval.
    " Read sales order items to check approval status
    READ ENTITIES OF c_salesordertp IN LOCAL MODE
      ENTITY SalesOrder
        FIELDS ( TotalNetAmount TransactionCurrency )
        WITH CORRESPONDING #( keys )
      RESULT DATA(lt_salesorders).

    LOOP AT lt_salesorders INTO DATA(ls_so).
      " DEWA rule: Sales orders > AED 1,000,000 require approval
      IF ls_so-TotalNetAmount > 1000000
         AND ls_so-TransactionCurrency = 'AED'
         AND ls_so-YY1_ApprovalRequired_SDH = abap_true
         AND ls_so-YY1_ApprovalStatus_SDH <> 'APPROVED'.

        APPEND VALUE #(
          %tky        = ls_so-%tky
          %state_area = 'ZCHK_DEWA_APPROVAL'
        ) TO failed-salesorder.

        APPEND VALUE #(
          %tky        = ls_so-%tky
          %state_area = 'ZCHK_DEWA_APPROVAL'
          %msg        = new_message_with_text(
            severity = if_abap_behv_message=>severity-error
            text     = 'High-value orders require approval before saving'
          )
        ) TO reported-salesorder.
      ENDIF.
    ENDLOOP.
  ENDMETHOD.
ENDCLASS.