CRYSTAL Y FOXPRO AYUDA
Publicado por ANTONY (6 intervenciones) el 05/06/2007 22:56:11
HOLA ESPERO Y ALGUIEN PUEDAD AYUDAREME MI PROBLEMA ES QUE ESTOY UTILIZANDO EL FOXPRO PERO LOS INFORMES LO QUIERO HACER EN CRYSTAL REPORTE EL PROBLEMA QUE TENGO ES QUE NO PUEDO HACER QUE LOS DATOS QUE CAPTURE EN MI TABLA TEMPORAL APARESCAN EN EL REPORT5EDOR DE CRYSTAL ME DICE QUE LA CONEXION CONEXION NO ES POSIBLE POR QUE PASA ESE ERROR LE MANDO EL CODIGO OJALA PUEDA ALGUIEN AYUDARME
** Crea una instancia del RDC de Crystal Reports.
loCR= CREATEOBJECT( "CrystalRuntime.Application")
** Abre el reporte y guarda una referencia en ‘loRpt’.
loRpt= loCR.OpenReport( "c:\prueba\info.RPT")
** Descarta los datos que se hayan grabado con el reporte.
IF loRpt.HasSavedData
loRpt.DiscardSavedData()
ENDIF
** Crea nombre para tabla temporal que va a estar
** ubicada en la carpeta TEMP de Windows.
lcTabla= ADDBS( GETENV("TEMP"))+ SYS(3)+ ".DBF"
SELECT clientes.id_cli,clientes.nombre,clientes.apellidos FROM clientes INTO CURSOR curPedidos
SELECT curPedidos
COPY TO ( lcTabla ) TYPE FOX2X AS 850
** Cambia la ubicación de la tabla en el reporte.
loRpt.Database.Tables( 1).Location= lcTabla
thisform.OleControl1.reportsource = loRpt
thisform.OleControl1.viewreport
** Imprime el reporte con los datos de la nueva ubicación.
*loRpt.PrintOut()
** Borra la tabla temporal.
DELETE FILE ( lcTabla )
** Crea una instancia del RDC de Crystal Reports.
loCR= CREATEOBJECT( "CrystalRuntime.Application")
** Abre el reporte y guarda una referencia en ‘loRpt’.
loRpt= loCR.OpenReport( "c:\prueba\info.RPT")
** Descarta los datos que se hayan grabado con el reporte.
IF loRpt.HasSavedData
loRpt.DiscardSavedData()
ENDIF
** Crea nombre para tabla temporal que va a estar
** ubicada en la carpeta TEMP de Windows.
lcTabla= ADDBS( GETENV("TEMP"))+ SYS(3)+ ".DBF"
SELECT clientes.id_cli,clientes.nombre,clientes.apellidos FROM clientes INTO CURSOR curPedidos
SELECT curPedidos
COPY TO ( lcTabla ) TYPE FOX2X AS 850
** Cambia la ubicación de la tabla en el reporte.
loRpt.Database.Tables( 1).Location= lcTabla
thisform.OleControl1.reportsource = loRpt
thisform.OleControl1.viewreport
** Imprime el reporte con los datos de la nueva ubicación.
*loRpt.PrintOut()
** Borra la tabla temporal.
DELETE FILE ( lcTabla )
Valora esta pregunta


0