Hola CESARCAES01.
Si entendí bien, deberías hacer esto.
DATA: v_gjahr TYPE bkpf-gjahr,
v_stblg TYPE bkpf-stblg.
CALL FUNCTION 'GET_DYNP_VALUE'
EXPORTING
i_field = 'INVFO-REBZJ'
i_repid = 'SAPLFDCB'
i_dynnr = '0020'
CHANGING
o_value = v_gjahr.
IF v_gjahr IS NOT INITIAL.
SELECT SINGLE stblg FROM bkpf INTO v_stblg
WHERE belnr EQ input
AND gjahr EQ v_gjahr
AND bukrs EQ 'Tu Sociedad'.
ENDIF.
Y ahí, en caso de que el campo stblg contenga valores, mandas el mensaje de error de que no se puede usar ese documento.
Espero te sirva.
Saludos.
|