hola, no entiendo porque comparas lfb1 con bseg , sino has buscado primero en lfb1

lo que deberias de hacer es lo siguiente:

TABLES:LFB1.

select single cerdt into lfb1-cerdt from lfb1 where lifnr eq BSEG-LIFNR
if sy-subrc eq 0.
IF lfb1-cerdt < bseg-zfbdt .
bseg-zlspr = 'A'.
ENDIF.
endif.