oCrys:=tOleAuto():New("CrystalRunTime.Application")
oRpt:=oCrys:OpenReport(oAppl:cDirRpt+"QSL.rpt")
oRpt:Database:Tables(1):Location:=oAppl:cDirRpt+'Log.dbf'
IF oRPt:HasSavedData //si tenia datos guardados con el reporte, lo borra.
oRPT:DiscardSavedData() //obligando asi la lectura desde el fichero dbf.
ENDIF
oCrRpt:=tActiveX():New(oWnd,"CrystalReports11.ActiveXReportViewer.1")
oCrRpt:SetProp("ReportSource",oRpt)
oCrRpt:SetProp("DisplayGroupTree",.F.)
oCrRpt:DO("ViewReport")
oWnd:oClient:=oCrRpt
ACTIVATE WINDOW oWnd VALID (oCrRpt:END(),oCrys:END(),oRpt:END(),.T.)
oCrys:=tOleAuto():New("CrystalRunTime.Application")
oRpt:=oCrys:OpenReport(oAppl:cDirRpt+"QSL.rpt")
oRpt:Database:Tables(1):Location:=oAppl:cDirRpt+'Log.dbf'
IF oRPt:HasSavedData //si tenia datos guardados con el reporte, lo borra.
oRPT:DiscardSavedData() //obligando asi la lectura desde el fichero dbf.
ENDIF
oRpt:PrintOut(.f.)
oRpt:END()
oCrys:END()
Biel EA6DD wrote:Por cierto Rene, como te las arreglas para distribuir Crystal con tus aplicaciones.
A mi solo me ha ido bien con InstallShield, pero el tamaño de la instalacion es muy grande, y aunque dice que puedes marcar que modulos incluir, a mi no me hace ni caso y siempre me pone todos los modulos en la instalacion.
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: AngelSalom, cmsoft, karinha and 23 guests