Por favor, urgeme ayuda en user exit

[sanangie]

Buenas tardes,

Tengo una gran urgencia, me dieron un requerimiento donde tengo que verificar que no existan dos materiales repetidos en la orden de compra (ME21N), para esto ya encontré que con la ampliación MM06E005 podría hacerlo, mi código lo implementé en el Módulo EXIT_SAPMM06E-012 pero resulta que al guardar la orden no pasa por ese Exit aún cuando ya está activo...... Alguien sabe de qué otra forma podría hacerlo?

Muchisimas gracias por su ayuda!

[temaljose]

Buenas tardes,

Tengo una gran urgencia, me dieron un requerimiento donde tengo que verificar que no existan dos materiales repetidos en la orden de compra (ME21N), para esto ya encontré que con la ampliación MM06E005 podría hacerlo, mi código lo implementé en el Módulo EXIT_SAPMM06E-012 pero resulta que al guardar la orden no pasa por ese Exit aún cuando ya está activo...... Alguien sabe de qué otra forma podría hacerlo?

Muchisimas gracias por su ayuda!

Buenas, utiliza el badi ME PROCESS PO CUST, con el puedes hacer esa validación, saludos

[sanangie]

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!