|
Muchas gracias, al final fue lo que hice...... Si a alguien le sirve aquí está el código:
METHOD if_ex_me_process_po_cust~check .
* Data definitions
DATA: t_item TYPE purchase_order_items,
wa_item TYPE purchase_order_item,
ls_header TYPE mepoheader,
ls_item TYPE mepoitem.
DATA t_ekpo TYPE STANDARD TABLE OF mepoitem.
* Getting header
ls_header = im_header->get_data( ).
* Getting ITEMS table
CALL METHOD im_header->get_items
RECEIVING
re_items = t_item.
* Becoming object-item to mm-item
LOOP AT t_item INTO wa_item.
ls_item = wa_item-item->get_data( ).
APPEND ls_item TO t_ekpo.
ENDLOOP.
SORT t_ekpo BY matnr.
DELETE ADJACENT DUPLICATES FROM t_ekpo COMPARING matnr.
IF sy-subrc = 0.
* Mensaje de error (aun estoy en eso, jeje).
ch_failed = 'X'.
ENDIF.
ENDMETHOD.
Si alguien ve alguna mejora se agradece la sugerencia..... Saludos!
|