Clarion - Como Ordenar un Report

 
Vista:

Como Ordenar un Report

Publicado por Fernando (18 intervenciones) el 10/02/2009 22:56:03
Hola a todos, quiero saber como hacer para ordenar por código en forma dinámica un report, por un campo determinado.

Saludos y Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como Ordenar un Report

Publicado por Asdrúbal Petit Serrano (36 intervenciones) el 11/02/2009 02:48:39
Previamente debes tener una ventana preguntando por el tipo de ordenamiento
ok... llamas al reporte en el boton (procedimiento) y
al entrar al reporte en Before first record o report setup colocas
SET(Prefijo:Llave) ! prefijo de la tabla y su clave
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como Ordenar un Report

Publicado por Bassi, Rodrigo (112 intervenciones) el 11/02/2009 11:37:25
En Process Field Template (punto de embebido del report)

CASE LOC:lpor
OF 1 ! Por RP Numérico
ThisReport.AddSortOrder()
ThisReport.AppendOrder('EXI:RPNU')
ThisReport.SetFilter('EXI:RPNU>=LOC:drpn AND EXI:RPNU<=LOC:hrpn','rpnu')
ThisReport.ApplyFilter
OF 2 ! Por RP de la Cria
ThisReport.AddSortOrder()
ThisReport.AppendOrder('EXI:RPEX')
ThisReport.SetFilter('EXI:RPEX>=LOC:drpe AND EXI:RPEX<=LOC:hrpe','rpex')
ThisReport.ApplyFilter
OF 3 ! Por Caravana
ThisReport.AddSortOrder()
ThisReport.AppendOrder('EXI:cara')
ThisReport.SetFilter('EXI:cara>=LOC:dcar AND EXI:cara<=LOC:hcar','cara')
ThisReport.ApplyFilter
OF 4 ! Por Fecha Nacimiento
ThisReport.AddSortOrder(EXI:k_fnac)
ThisReport.AddRange(EXI:FNAC,LOC:dfec,LOC:hfec)
OF 5 ! Por Madre
ThisReport.AddSortOrder()
ThisReport.AppendOrder('EXI:RPMD')
ThisReport.SetFilter('EXI:RPMD>=LOC:drpm AND EXI:RPMD<=LOC:hrpm','rpmd')
ThisReport.ApplyFilter
END!CASE


SI QUIERES MANEJAR RANGOS PUEDES HACER ESTO TAMBIEN:

CASE LOC:lpor
OF 1 ! Por RP Receptora
ThisReport.AddSortOrder(NOV:k_proc_rpex_fmov)
ThisReport.AddRange(NOV:rpex,LOC:drpe,LOC:hrpe)
OF 2 ! Por Nº de Madre
NOV:asom = 0
ThisReport.AddSortOrder(NOV:k_proc_asom_hbam_rgsm_frec_fser)
ThisReport.AddRange(NOV:hbam,LOC:dhba,LOC:hhba)
OF 3 ! Por Fecha de Implante
ThisReport.AddSortOrder(NOV:k_proc_fmov_rpex)
ThisReport.AddRange(NOV:fmov,LOC:dfec,LOC:hfec)
END!CASE
ThisReport.SetFilter('NOV:fimp>0 AND NOV:PROP=USU:CRIA')
ThisReport.ApplyFilter


ESPERO TE SIRVA EN ALGO..
SALUDOS,
BASSI, RODRIGO.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar