Ya tengo en código
Hola.
Para cerrar el tema.
He logrado obtener el soguiente código
CONSTANTS: lc_abzu TYPE tcode VALUE 'F-92',
lc_75 TYPE bschl VALUE '75',
lc_x(1) TYPE c VALUE 'X'.
DATA: lv_vbund TYPE BSEG-VBUND.
FIELD-SYMBOLS: <ls_bseg> TYPE bseg.
READ TABLE bool_data-bseg ASSIGNING <ls_bseg>
WITH KEY bschl = lc_75.
IF SY-SUBRC EQ 0.
clear lv_vbund.
SELECT SINGLE vbund
FROM anla
INTO lv_vbund
WHERE
bukrs EQ bkpf-bukrs AND
anln1 EQ <ls_bseg>-anln1 AND
annl2 EQ <ls_bseg>-anln2.
ENDIF.
Y por si acaso, transferí la petición a Soporte con desarrolladores que verifiquen y hagan lo requerido.
Gracias a todos.
__________________
María Alejandra Fernández
Consultor Senior FI-CO
|