Problema Con Select Single

[aaron alfonso]

Hola Necesito Dejar De Usar El Select Single Por que Solo Me Trae Un Solo Registro Pero He Intentado Pero No He Podido Alguien Me Puede Apoyar Con Un Ejemplo O Algun Comentario Se Lo Agradeceria Mucho.

Select Single Bukrs Belnr Gjahr Bldat Budat Xblnr Bktxt Blart
From Bkpf Into (t_datos-bukrs , T_datos-belnr , T_datos-gjahr , T_datos-bldat , T_datos-budat , T_datos-xblnr , T_datos-bktxt , T_datos-blart)
Where Bukrs Eq P_bukrs
And Belnr In S_belnr
And Gjahr In S_gjahr.

Select Single Sgtxt Prctr
Into (t_datos-sgtxt , T_datos-prctr)
From Bseg
Where Bukrs Eq T_datos-bukrs
And Belnr Eq T_datos-belnr
And Gjahr Eq T_datos-gjahr.

Loop At T_datos.
Select Single Sgtxt Prctr
Into (t_datos-sgtxt , T_datos-prctr)
From Bseg
Where Bukrs Eq T_datos-bukrs
And Belnr Eq T_datos-belnr
And Gjahr Eq T_datos-gjahr.
Endloop.

Append T_datos.

Endform.