Lo puedes controlar aquí:
IF_EX_ME_PROCESS_PO_CUST~PROCESS_HEADER
CHECK sy-tcode = 'ME21N' OR sy-tcode = 'ME22N'
*Obtengo datos de cabecera
CALL METHOD im_header->get_data
RECEIVING
re_data = ls_header.
*Obtengo las posiciones
CALL METHOD im_header->get_items
RECEIVING
re_items = lt_items.
*Marco el campo webre en vacio para las posiciones
LOOP AT lt_items INTO ls_item.
CLEAR ls_pos_tratada.
CALL METHOD ls_item-item->get_data
RECEIVING
re_data = ls_data_item.
CALL METHOD ls_item-item->is_valid
RECEIVING
re_valid = lv_pos_valida.
CASE ls_header-bsart.
WHEN 'CLASEPEDIDO'
ls_data_item-wepos = space.
ls_data_item-webre = space.
ENDCASE.
|