Anónimo
Reporte utilizando cursor
Hola como estan expertos mi pregunta es como generar un reporte utilizando cursores to hice lo siguiente hago lo siguiente: conexion con BD postgre
IF rset1.state=1
rset1.close
ENDIF
rset1.open("select * from paci_hel.menfer",cone_odbc,2,2)
IF !rset1.eof
cur1.rstocursor(rset1,"imfe")
ENDIF
SELECT imfe
GO top
REPORT FORM \sqlhis\frm\imef PREVIEW
rset1.close
paci_hel.menfer es la BD de Postgres y la paso al cursor llamado imfe
y en el reporte imef coloco en detalle solo los datos del cursor sin el alias por ejemplo código y no imfe. Código en la banda de detalle y en el data environment no coloco nada que estaré haciendo Mal gracias y espero pronta respuesta
IF rset1.state=1
rset1.close
ENDIF
rset1.open("select * from paci_hel.menfer",cone_odbc,2,2)
IF !rset1.eof
cur1.rstocursor(rset1,"imfe")
ENDIF
SELECT imfe
GO top
REPORT FORM \sqlhis\frm\imef PREVIEW
rset1.close
paci_hel.menfer es la BD de Postgres y la paso al cursor llamado imfe
y en el reporte imef coloco en detalle solo los datos del cursor sin el alias por ejemplo código y no imfe. Código en la banda de detalle y en el data environment no coloco nada que estaré haciendo Mal gracias y espero pronta respuesta
1 respuesta
Respuesta de ingesoft
1
Comos e ve desde aquí solo quedaría que hagas un brow si toda la consulta esta bien y luego cuando hayas creado el cursor infe te vayas a modificar el reporte y seleccionando la tbla infe le das un preview para ver donde sale el error por que no comentaste que error te sale o que pasa .otra cosa puede ser que rset1. Close se cierre sin esperar que se muestre el reporte. Contáctame para saber como te fue
Hola amigo experto gracias por tu atención ya solucione el problema lo que pasaba es que el selec imfe y el report from tenia que estar dentro del if de lo contrario envía un mensaje de que no hay datos y ademas quitar el reset1.close eso era todo ya me esta funcionando bien..
De todas maneras estoy muy agradecido lo que vale es la intencion gracias muchas gracias
IF rset1.state=1
rset1.close
ENDIF
rset1.open("select * from paci_hel.menfer",cone_odbc,2,2)
IF !rset1.eof
cur1.rstocursor(rset1,"imfe")
SELECT imfe
GO top
REPORT FORM \sqlhis\frm\imef to printer PREVIEW
endif
asi es que me funciono .....
De todas maneras estoy muy agradecido lo que vale es la intencion gracias muchas gracias
IF rset1.state=1
rset1.close
ENDIF
rset1.open("select * from paci_hel.menfer",cone_odbc,2,2)
IF !rset1.eof
cur1.rstocursor(rset1,"imfe")
SELECT imfe
GO top
REPORT FORM \sqlhis\frm\imef to printer PREVIEW
endif
asi es que me funciono .....