grisel
09 de Agosto del 2004

Hola tengo un problema estoy haciendo los reportes en crystal concectado a una base de dato
access y la aplicacion es vfp; para el reporte tengo el siguiente còdigo, pero tengo problemas
si pudieran ayudarme. Gracias a todos por su atencion.

LPARAMETERS Accion
LOCAL InstCryRep, InstRDC, InstReporte
LOCAL cCodMarca, cTablaTemp, Condicion
cCodMarca=ALLTRIM(Thisform.txtCodMar.Value)
SELECT CODMAR,DESMAR FROM MARCA WHERE CODMAR=cCodMarca INTO CURSOR curMar
SELECT curMar

** Crea una instancia del RDC de Crystal Reports.
InstRDC= CREATEOBJECT("CrystalRuntime.Application")

**crea una instancia del reporte
InstReporte= CREATEOBJECT("CrystalRuntime.Report")

** Abre el reporte.
InstReporte=InstRDC.OpenReport("G:BDMCReportesRepMarca.rpt")

** Descarta los datos que se hayan grabado con el reporte.
IF InstReporte.HasSavedData
InstReporte.DiscardSavedData()
ENDIF

** Cambia la ubicación de la tabla donde el reporte toma los datos

InstReporte.Database.Tables(1).Location=curmar (AQUI TENGO EL PROBLEMA)


** Realiza la acción deseada por el usuario.
DO CASE
CASE Accion = 1
** Imprimir.
InstReporte.PrintOut(.T.)
CASE Accion = 2
** Vista previa.
DO FORM c:sistemamcformasvistaprevia.scx WITH InstReporte
CASE Accion = 3
** Exportar.
InstReporte.Export(.T.)
ENDCASE


en ese punto necesito pasarle el cursor al reporte para que muestre los datos.
La cuestion esta que esa consulta es echa sobre una tabla de access.

Otra opcion para mi seria pasarle la consulta en ves de una cursor, pero cuando
le paso la consulta al reporte me da un error que no existe la tabla.

Necesito de su ayuda.

sgomez
09 de Agosto del 2004

InstReporte.Database.Tables(1).Location=curmar

Supongo que esta propiedad está esperando que le pases el archivo con los datos. Pero en el ejemplo le estás pasando el nombre del alias del archivo.

Probá de esta forma :
InstReporte.Database.Tables(1).Location=dbf("curmar")