Crear un Reporte desde un Grid
Publicado por christian (8 intervenciones) el 05/03/2003 16:26:19
hola! necesito crear un reporte con los resultados de una consulta , estos resultados aparacen en un Grid , pero al apretar en boton imprimir que tengo creado , me imprime solo un resultado y los demas que aparecen no salen porque??.. aqui les mando el codigo... por si alguien sabe....
El boton buscar es asi..
LOCAL lc
private Cvec
lc=rtrim(THISFORM.TEXT1.VALUE)
lc= "%" + lc +"%"
if !empty(THISFORM.TEXT1.VALUE)
WITH THISFORM.Grid1
SELECT nombre,apellido,cargo,telefonos,rut FROM areaeducacion WHERE cargo like lc into CURSOR CVec;
order by apellido;
.recordsource="Cvec"
.Columns(1).Header1.Caption = "Rut"
.Columns(1).Width = 100
.Columns(2).Header1.Caption = "Nombre"
.Columns(2).Width = 100
.Columns(3).Header1.Caption = "Apellido"
.Columns(3).Width = 100
.Columns(4).Header1.Caption = "Cargo"
.Columns(4).Width = 100
.Columns(5).Header1.Caption = "Telefonos"
.Columns(5).Width = 100
.recordsourcetype=1
.column1.controlsource="Cvec.rut"
.column2.controlsource="Cvec.nombre"
.column3.controlsource="Cvec.apellido"
.column4.controlsource="Cvec.Cargo"
.column5.controlsource="Cvec.telefonos"
ENDWITH
endif
el boton imprimir es asi...
REPORT FORM f:\Curriculum\final\informes\listadoespe_ae.frx preview
de ante mano gracias.....
PD:upliftmofopartyplan gracias por tu ayuda me sirvio de mucho en otras consultas que hice..
El boton buscar es asi..
LOCAL lc
private Cvec
lc=rtrim(THISFORM.TEXT1.VALUE)
lc= "%" + lc +"%"
if !empty(THISFORM.TEXT1.VALUE)
WITH THISFORM.Grid1
SELECT nombre,apellido,cargo,telefonos,rut FROM areaeducacion WHERE cargo like lc into CURSOR CVec;
order by apellido;
.recordsource="Cvec"
.Columns(1).Header1.Caption = "Rut"
.Columns(1).Width = 100
.Columns(2).Header1.Caption = "Nombre"
.Columns(2).Width = 100
.Columns(3).Header1.Caption = "Apellido"
.Columns(3).Width = 100
.Columns(4).Header1.Caption = "Cargo"
.Columns(4).Width = 100
.Columns(5).Header1.Caption = "Telefonos"
.Columns(5).Width = 100
.recordsourcetype=1
.column1.controlsource="Cvec.rut"
.column2.controlsource="Cvec.nombre"
.column3.controlsource="Cvec.apellido"
.column4.controlsource="Cvec.Cargo"
.column5.controlsource="Cvec.telefonos"
ENDWITH
endif
el boton imprimir es asi...
REPORT FORM f:\Curriculum\final\informes\listadoespe_ae.frx preview
de ante mano gracias.....
PD:upliftmofopartyplan gracias por tu ayuda me sirvio de mucho en otras consultas que hice..
Valora esta pregunta


0