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.