Crystal Reports y tActiveX

jlcapel · Post by **jlcapel** » Wed Aug 30, 2006 7:25 am

Hola,

Estoy a ver si utilizo el control OCX "Crystal.CrystalReport" con la clase tActiveX pero no se por cuales motivos, en vez de mostrarme el informe aparece un botoncito :-)

Este es el trozo de código que utilizo:

Code: Select all | Expand

METHOD Pruebas() CLASS tMante_Vendedor

       LOCAL tReport

       tReport := tActiveX(oApp:oDlg, "Crystal.CrystalReport")
       tReport:SetProp("WindowParentHandle",oApp:oDlg:hWnd)
       tReport:SetProp("ReportFileName","R:\informesluis\listadomovalmacen.rpt")
       tReport:SetProp("WindowTitle","Listado de movimientos de almacén")
       tReport:Do("Action",1)


RETURN NIL

Donde oApp:oDlg es la ventana donde quiero que aparezca el informe.

¿Qué más me falta para que se visualice correctamente?

Gracias por vuestra ayuda.
José Luis Capel

ronaldo · Post by **ronaldo** » Mon Mar 10, 2008 5:51 pm

Estou com muitas dificuldades tambem, porem percebi que você deve colocar esta informação:

tReport:SetProp("Action",1)

ronaldo · Post by **ronaldo** » Mon Mar 10, 2008 6:53 pm

Ate aqui esta beleza, gostaria de saber como posso fazer para Mandar um FORMULA ou selecionar determinados registros

fgondi · Post by **fgondi** » Wed Mar 12, 2008 7:23 pm

Hola Jose Luis:

Yo lo uso de la siguiente forma:

Code: Select all | Expand

oCRApp := CreateObject("CrystalRuntime.Application.11") 
oCrp := oCRApp:OpenReport("R:\informesluis\listadomovalmacen.rpt")
oCRReportBlanc := oCRApp:OpenReport("blanc.rpt")

DEFINE Window oVentHija MDICHILD Title cTitle OF oPublic:oWnd
oActiveX := TActiveX():New( oVentHija, "CrystalReports11.ActivexReportViewer.1" )  
oVentHija:oClient := oActiveX
oVentHija:cTitle( "Título de la ventana" )
oActivex:SetProp( "ReportSource",  oCrp )
oActiveX:SetProp( "EnableStopButton",     1  )
oActiveX:SetProp( "EnableAnimationCtrl",  0  )
oActiveX:SetProp( "EnableCloseButton",    1  ) 
oActiveX:SetProp( "EnableExportButton",   1  )
oActiveX:SetProp( "EnablePopupMenu",      0  )  
oActiveX:bOnEvent = { | event, aParams | EventInfo( event, aParams, oCrp, oActivex  ) }
ACTIVATE WINDOW oVentHija;
  ON INIT ( oActiveX:Do( "Viewreport" ), oActivex:Do( "Zoom", '90' )  );  
  Valid (  oActivex:SetProp( "ReportSource",  oCRReportBlanc ), .T. )
return

function EventInfo( event, aParams, oCRReport, oActivex )
   local cMsg := cValToChar( event ) //+ CRLF
return cMsg

ronaldo · Post by **ronaldo** » Thu Mar 13, 2008 2:05 pm

Quando compilei este exemplo: ao executar ele diz não encontrar:

oCrp := oCRApp:OpenReport("c:\bazevani\ancora\caixa4.rpt")

fgondi · Post by **fgondi** » Fri Mar 14, 2008 7:39 am

Ronaldo,

El error puede ser porque no se ha podido abrir el objeto Crystal Runtime.

El código que he puesto es para crystal 11. Sino tienes crystal 11 prueba con lo siguiente:

Code: Select all | Expand

oCRApp := CreateObject("CrystalRuntime.Application")

En cuanto a la llamada al viewer depende de la version de crystal

version 8.5 Crystal Report Viewer.

Code: Select all | Expand

oActiveX := TActiveX():New( oVentHija, "CRViewer.CRViewer" )

version 9 Crystal Report Viewer.

Code: Select all | Expand

oActiveX := TActiveX():New( oVentHija, "CRViewer9.CRViewer" )

version 10.0 Crystal Report Viewer.

Code: Select all | Expand

oActiveX := TActiveX():New( oVentHija, "CrystalReports10.ActiveXReportViewer.1" )

version 11.0 Crystal Report Viewer.

Code: Select all | Expand

oActiveX := TActiveX():New( oVentHija, "CrystalReports11.ActiveXReportViewer.1" )

mchumpitazv · Post by **mchumpitazv** » Mon Mar 17, 2008 10:51 pm

Saludos Fernando

Una pregunta y como se le hace para pasarle parametros y formulas al reporte tengo el crystal developer XI

Gracias

Martin

fgondi · Post by **fgondi** » Tue Mar 18, 2008 12:02 pm

Martín,

Antes del Define Window

Parámetros:

Code: Select all | Expand

oCrp:FormulaFields:GetItemByName( 'vAlmacen' ):Text( "'"+cAlmacen+"'" )

Formulas:

Code: Select all | Expand

oCrp:RecordSelectionFormula( '{FVCAB.FACTURA} = "'+cFactura+'"' )

ronaldo · Post by **ronaldo** » Tue Mar 18, 2008 12:26 pm

porque esta me ocorrendo este erro: Utilizo o Crystal 10

Error description: Error CrystalRuntime.Application/16389 E_FAIL: OPENREPORT

fgondi · Post by **fgondi** » Tue Mar 18, 2008 6:39 pm

Hola Ronaldo,

Has probado esto?

Code: Select all | Expand

oCRApp := CreateObject("CrystalRuntime.Application.10")

jlcapel · Post by **jlcapel** » Tue Mar 18, 2008 6:56 pm

Hola,

Ya ni me acordaba de esa pregunta!!!

Ahora estamos probando el FastReports para [x]Harbour.

Tiene muy buena pinta.

Saludos y gracias por la respuesta.

ronaldo · Post by **ronaldo** » Tue Mar 18, 2008 7:56 pm

sim... mudei conforme solicitado:

CrystalRuntime.Application.10, porem o problema ainda continua....

fgondi · Post by **fgondi** » Wed Mar 19, 2008 8:22 am

Ronaldo,

¿Puedes enviarme un ejemplo sencillo con el rpt para probarlo sobre crystal 11?

ronaldo · Post by **ronaldo** » Wed Mar 19, 2008 1:28 pm

perfeito! rs

o problema foi EU que coloquei o nome do arquivo Errado... agora esta funcionando obrigado.

mchumpitazv · Post by **mchumpitazv** » Wed Mar 19, 2008 2:40 pm

Saludos Fernando

Gracias por tu respuesta, dime crees posible poder enviarme un ejemplo pequeño de ello para examinarlo..

Gracias

Martin