I MATERIALDOCUMENTTP

Storno zu Wareneingang zu Bestellung erstellen

    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(ls_reported)
           FAILED DATA(ls_failed).

    IF ls_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 ls_reported-MaterialDocument IS NOT INITIAL.
        APPEND VALUE #( %msg = new_message_with_text(
                                   severity = ls_reported-MaterialDocument[ 1 ]-%msg->m_severity
                                   text     = ls_reported-MaterialDocument[ 1 ]-%msg->if_message~get_text( ) ) )
               TO reported-stohistory.
      ENDIF.

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

      IF ls_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-stohistory.
      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-stohistory.
    ENDIF.