Olá Barani,
ORDENAR T_BSEG POR belnr gjahr.
LOOP AT T_BKPF WHERE SUPER = T_SUPER-NAME.
IF USNAM NE T_BKPF-USNAM.
MOVER T_BKPF-UNAM A H-USNAM.
NOVA PÁGINA.
FIM SE.
REALIZAR OUT.
LER TABELA T_BSEG COM CHAVE BELNR = T_BKPF-BELNR GJAHR = T_BKPF-GJAHE
BUSCA BINÁRIA.
SE SY-SUBRC EQ 0.
LOOP AT T_BSEG DESDE ÍNDICE sy-tabix .
SE T_BSEG-BELNR EQ T_BKPF-BELNR E T_BSEG- GJAHR = T_BKPF-GJAHE.
CASO T_BSEG-KOART.
QUANDO 'L'.
EXECUTAR....
...................
FIMCASO.
SENÃO.
SAIR.
FIM SE.
FIM SE.
FIMLOOP.
FIMLOOP.
Saudações,
Archer
