Clarioneros

Estimados maestros, estoy aprendiendo el lenguaje y tengo una duda, como puedo hacer un código mas resumido y obtener mas eficiencia cuando ejecuto el código.

Al inicio leo la tabla con un Set, luego con un get, podrán notar que el código realiza una sola lectura, pero no replica para el resto de columnas, mi consulta es que rutina o código debe tener para obtener un reporte en vertical según el excel que adjunto, por favor su apoyo, estoy aprendiendo aun.

clear(Mov:record,-1)
Mov:Cia=GLO:COD_EMP
Mov:Ano=GLO:PERIODO
Mov:Mes=GLO:MES
set(Mov:K_COD,Mov:K_COD)
loop
next(Movimiento)
if errorcode() then break end
if Mov:Cia<>GLO:COD_EMP then break end
if Mov:Ano<>GLO:PERIODO then break end
if Mov:Mes<>GLO:NUM_MES then break end

Pt:Cia=Mov:Cia
Pt:Ano=Mov:Ano
Pt:Mes=Mov:Mes
Pt:Cod=Mov:Cod
get(Ptabla,PLAM:K_CiaPerMesCod)
if errorcode()
clear(Pt:Record)
Pt:Cia=Mov:Cia
Pt:Ano=Mov:Ano
Pt:Mes=Mov:MES
Pt:Cod=Mov:Cod
Pt:Importe=Mov:Importe
add(Ptabla)
else
Pt:Importe=Mov:Importe
put(Ptabla)
end
cycle
end

Podrías cargarlo los resultados a una QUEUE local, y lo pasas como parámetro al RPT, e imprimí los datos de la QUEUE.