urgente Llamar desde visual foxpro un reporte de cistal con variables desde fox
Johann Maceo
15 de Agosto del 2003
Local objCristal, objCrpReport, lcPrnName,lcPrnPort
*--Se instancia la aplicaci贸n crystal
objCrystal =Createobject("crystal.crpe.application")
*--Se verifica que se haya instanciado crystal
If Type("objCrystal") # "O"
=Messagebox(" No se pudo crear el objeto de automatizaci贸n de Crystal Reports. Verifique que se"+Chr(13)+;
"instalado en el equipo",64,"No se encontro el archivo CPEAUT32.DLL")
Return
Endif
*--Se instancia la aplicaci贸n crystal
objCrystal =Createobject("crystal.crpe.application")
*--Se verifica que se haya instanciado crystal
If Type("objCrystal") # "O"
=Messagebox(" No se pudo crear el objeto de automatizaci贸n de Crystal Reports. Verifique que se"+Chr(13)+;
"instalado en el equipo",64,"No se encontro el archivo CPEAUT32.DLL")
Return
Endif