#3
|
|||
|
|||
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! |
Herramientas | Buscar en Tema |
Desplegado | |
|
|