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
REPORTE VERTICAL DE UNA LINEA HORIZONTAL
-
- Mensajes: 2
- Registrado: Mar May 15, 2018 4:49 pm
- Contactar:
REPORTE VERTICAL DE UNA LINEA HORIZONTAL
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
-
- Al nivel de RZ
- Mensajes: 108
- Registrado: Dom Abr 17, 2011 6:07 pm
- Contactar:
Re: REPORTE VERTICAL DE UNA LINEA HORIZONTAL
Podrías cargarlo los resultados a una QUEUE local, y lo pasas como parámetro al RPT, e imprimí los datos de la QUEUE.
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado