Hola Barani,
ORDENA 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.
NUEVA-PÁGINA.
FIN SI.
REALIZAR OUT.
LEER TABLA T_BSEG CON CLAVE BELNR = T_BKPF-BELNR GJAHR = T_BKPF-GJAHE
BÚSQUEDA BINARIA.
SI SY-SUBRC EQ 0.
LOOP AT T_BSEG DESDE ÍNDICE sy-tabix .
SI T_BSEG-BELNR EQ T_BKPF-BELNR Y T_BSEG- GJAHR = T_BKPF-GJAHE.
CASO T_BSEG-KOART.
CUANDO 'L'.
EJECUTAR....
...................
FINCASO.
SINO.
SALIR.
FIN SI.
FIN SI.
FINLOOP.
FINLOOP.
Saludos,
Archer
