|
hola jjeffer,
Tenes que implementar la BADI N1_WP_LSTAMB y como bien decis luego agregar el código en el método exit display. Para que tu campo z se vea en pantalla se lo vas a tener que pasa a la tabla new_t_lststelle_list.
te paso un código de ejemplo(el campo que yo agrego es el ztriage):
FIELD-SYMBOLS: <fs_list> LIKE LINE OF new_t_lststelle_list.
* Asign data to new structure.
new_t_lststelle_list[] = old_t_lststelle_list[].
* ¿Hay registros?
CHECK NOT new_t_lststelle_list[] IS INITIAL.
SELECT einri falnr patnr dokar doknr dokvr doktl
FROM ndoc
into table it_ndoc
FOR ALL ENTRIES IN new_t_lststelle_list
WHERE einri = new_t_lststelle_list-einri
and falnr = new_t_lststelle_list-falnr
and patnr = new_t_lststelle_list-patnr.
IF sy-subrc EQ 0.
select *
FROM Y0000001
INTO table it_Y0000001
FOR ALL ENTRIES IN it_ndoc
where dokar = it_ndoc-dokar
and doknr = it_ndoc-doknr
and dokvr = it_ndoc-dokvr
and doktl = it_ndoc-doktl.
ENDIF.
loop at new_t_lststelle_list assigning <fs_list>.
READ TABLE it_ndoc INTO wa_ndoc with key einri = <fs_list>-einri
falnr = <fs_list>-falnr
patnr = <fs_list>-patnr.
IF sy-subrc = 0.
READ TABLE it_Y0000001 INTO wa_Y0000001 with key dokar = wa_ndoc-dokar
doknr = wa_ndoc-doknr
dokvr = wa_ndoc-dokvr
doktl = wa_ndoc-doktl.
ENDIF.
select single ddtext
from dd07t
into <fs_list>-ztriage
where domname = 'ZN_ACUITY'
and ddlanguage = sy-langu
and domvalue_l = wa_Y0000001-ztrg_acu.
clear: wa_Y0000001, wa_ndoc.
endloop.
también vas a tener que implementar el metodo EXIT_FUNCTION de la siguiente manera.
method IF_EX_N1_WP_LSTAMB~EXIT_FUNCTION.
* Para mantener funcionamiento de función sobrescribo
* cambio de función con anterior.
P_FCODE_CHANGED = P_FCODE.
endmethod.
Espero que te sirva.
Saludos,
|