Implementar badi

[Edna Ivette]

Hola a todos
Alguien me puede ayudar? , es la primera vez que tengo que implementar una badi, se trata de la FAGL_ITEMS_CH_DATA, ya que debo desplegar la informacion del numero de orden de compras en el reporte de la tx FAGLB03, ya cree la implementación Z en la Tx SE19 de dicha badi, pero el único metodo que tiene esta badi es CHANGE_ITEMS, ya en el codigo de dicho metodo es donde no sé como hacer que traiga la infor de la OC, alguién tendrá algún ejemplo de algo parecido???

Gracias por el apoyo.

[caralbgro]

respuesta

anda a la solapa metods (IF_EX_FAGL_ITEMS_CH_DATA~CHANGE_ITEMS)
doble click

la oc no la tenes por ende create una funcion

ejemplo

todo dentro de un loop a

loop at CT_ITEMS into wa_datos.

*agrego almacen
CALL FUNCTION 'Z_DATO_ALMACEN'
EXPORTING
I_BELNR = wa_datos-belnr
IMPORTING
E_LGORT = mAlm.
endloop.

FUNCTION Z_DATO_ALMACEN.
*"--------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" VALUE(I_BELNR) TYPE RBKP-BELNR
*" EXPORTING
*" VALUE(E_LGORT) TYPE EKPO-LGORT
*"--------------------------------------------------------------------

tables: bseg,ekpo.

*busca almacen
data: mebeln like bseg-ebeln,
mebelp like bseg-ebelp,
var like ekpo-lgort.

select single ebeln from bseg
into mebeln
where belnr = I_BELNR and ebeln <> ''.

if sy-subrc = 0 and mebeln <> '' .
select single ebelp from bseg
into mebelp
where belnr = I_BELNR and ebelp <> ''.

select single lgort from ekpo
into var
where ebeln = mebeln
and ebelp = mebelp.
else.
var = ''.
endif.

E_LGORT = var.

ENDFUNCTION.

aca agrego la almacen en cada linea, vos deberias poden el nro de Oc que esta en esta funcion

slds-

para servir!!!

[Edna Ivette]

Gracias

GRACIAS POR TU RESPUESTA.
Ya lo pase a QAS, ya lo validaron y todo es perfecto.

Nuevamente.... GRACIAS