Create and cancel operation for goods receipt purchase order with Behavior Definition/Implementation I MATERIALDOCUMENTTP

Create goods receipt for purchase order

• Create_and_cancel_operation_for_goods_receipt_purchase_order_with_Behavior_Definition/Implementation_R_MATERIALDOCUMENTTP#Create_goods_receipt_for_purchase_order

Cancel for goods receipt for purchase order

    MODIFY ENTITIES OF I_MaterialDocumentTP
           ENTITY MaterialDocumentItem
           EXECUTE Cancel
           FROM VALUE #( ( MaterialDocument     = keys[ 1 ]-PurchasingHistoryDocument
                           MaterialDocumentItem = keys[ 1 ]-PurchasingHistoryDocumentItem
                           MaterialDocumentYear = keys[ 1 ]-PurchasingHistoryDocumentYear ) )
           REPORTED DATA(reported)
           FAILED DATA(failed).

    IF failed IS INITIAL.
                APPEND VALUE #( %msg = new_message( id       = ycl_p2p_prmonitor_constants=>cv_message_class
                                          number   = '092'
                                          severity = if_abap_behv_message=>severity-success
                                          v1 = '' ) )
             TO reported-stohistory.
    ELSE.

      IF reported-MaterialDocument IS NOT INITIAL.
        APPEND VALUE #( %msg = new_message_with_text(
                                   severity = reported-MaterialDocument[ 1 ]-%msg->m_severity
                                   text     = reported-MaterialDocument[ 1 ]-%msg->if_message~get_text( ) ) )
               TO reported-poitemhistory.
      ENDIF.

      IF reported-MaterialDocumentItem IS NOT INITIAL.
        APPEND VALUE #( %msg = new_message_with_text(
                                   severity = reported-MaterialDocumentItem[ 1 ]-%msg->m_severity
                                   text     = reported-MaterialDocumentItem[ 1 ]-%msg->if_message~get_text( ) ) )
               TO reported-poitemhistory.
      ENDIF.

      IF reported-materialdocumentitemserialno IS NOT INITIAL.
        APPEND VALUE #(
            %msg = new_message_with_text(
                       severity = ls_reported-materialdocumentitemserialno[ 1 ]-%msg->m_severity
                       text     = ls_reported-materialdocumentitemserialno[ 1 ]-%msg->if_message~get_text( ) ) )
               TO reported-poitemhistory.
      ENDIF.

      APPEND VALUE #( PurchaseOrder                 = keys[ 1 ]-PurchaseOrder
                      PurchaseOrderItem             = keys[ 1 ]-PurchaseOrder
                      PurchasingHistoryDocument     = keys[ 1 ]-PurchasingHistoryDocument
                      PurchasingHistoryDocumentItem = keys[ 1 ]-PurchasingHistoryDocumentItem
                      PurchasingHistoryDocumentYear = keys[ 1 ]-PurchasingHistoryDocumentYear )
             TO failed-poitemhistory.
    ENDIF.

---

This is a wiki created in the spare time of a private person working in the SAP ERP area. The aim is to collect knowledge for the own use. The wiki is maintained to the best of knowledge and belief.
All products shown, including in form of screenshots, belong to SAP SE. Their trademarks are, among others: SAP®,ABAP®,SAP Fiori®,SAP HANA®,SAP NetWeaver®,SAP® R/3®,SAP S/4HANA®,SAP S/4HANA® Cloud