Modificando Aun
 

EL UNICO DETALLE QUE ASI COMO LO TIENES NO TRAE NADA PERO SI LO MODIFICO SOLO UN POCO ME TRAE SOLO 1 REGISTRO SE SUPONE QUE TRAIGA MUCHOS REGISTROS. TODOS LOS QUE EXISTA EN UN AÑO, O DEL TIPO ZC O DE CIERTO CENTRO :


SELECT BUKRS BELNR GJAHR BLDAT BUDAT XBLNR BKTXT BLART
FROM BKPF INTO TABLE T_BKPF
WHERE
BUKRS EQ P_BUKRS
AND BELNR IN S_BELNR
AND GJAHR IN S_GJAHR
AND BLART IN S_BLART.

IF T_BKPF[] IS NOT INITIAL.

SELECT BUKRS BELNR GJAHR SGTXT PRCTR
FROM BSEG INTO TABLE T_BSEG
FOR ALL ENTRIES IN T_BKPF
WHERE
BUKRS EQ T_BKPF-BUKRS
AND BELNR EQ T_BKPF-BELNR
AND GJAHR EQ T_BKPF-GJAHR.
ENDIF.

LOOP AT T_BKPF INTO WA_BKPF.
WA_DATOS-BUKRS = WA_BKPF-BUKRS.
WA_DATOS-BELNR = WA_BKPF-BELNR.
WA_DATOS-GJAHR = WA_BKPF-GJAHR.
WA_DATOS-XBLNR = WA_BKPF-XBLNR.
WA_DATOS-BKTXT = WA_BKPF-BKTXT.
WA_DATOS-BLART = WA_BKPF-BLART.
WA_DATOS-BUDAT = WA_BKPF-BUDAT.
WA_DATOS-BLDAT = WA_BKPF-BLDAT.
WA_DATOS-SGTXT = WA_BSEG-SGTXT.
WA_DATOS-PRCTR = WA_BSEG-PRCTR.

ENDLOOP.

IF SY-SUBRC EQ 0.
WA_DATOS-SGTXT = WA_BSEG-SGTXT.
WA_DATOS-PRCTR = WA_BSEG-PRCTR.
ENDIF.

READ TABLE T_BKPF INTO WA_BKPF
WITH KEY
BUKRS = WA_BKPF-BUKRS
BELNR = WA_BKPF-BELNR
GJAHR = WA_BKPF-GJAHR.

APPEND WA_DATOS TO T_DATOS.
CLEAR WA_DATOS.

El append tiene que ser dentro del loop, sino no vale para nada. Te he corregido a priori los fallos.

cuentame para que haces ese READ TABLE

Aun Nada
 

COMPAÑERO OKEY SI VA DENTRO .
PERO AL INGRESAR EN EL DEBUG Y EL IF QUE ME COLOCAS NO LEE :confused:
COMO LE HAGO PARA QUE ESTE LOOP NO SE DETENGA DE LEER LO QUE CONTENGA LA TABLA .
SI SACO EL APPEND DEL LOOP SOLO UNO TRAE .

IF SY-SUBRC = 0.
WA_DATOS-SGTXT = WA_BSEG-SGTXT.
WA_DATOS-PRCTR = WA_BSEG-PRCTR.
ENDIF.
APPEND WA_DATOS TO T_DATOS.
clear wa_datos.
:) POR CIERTO GRACIAS POR LA AYUDA

Copiame el código entero en pastebin () y me pasas el enlace por aqui.