Crystal Reports y tActiveX

[jlcapel]

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 view  RUN

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]

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

tReport:SetProp("Action",1)

[ronaldo]

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

[fgondi]

Hola Jose Luis:

Yo lo uso de la siguiente forma:

Code: Select all  Expand view  RUN

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]

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

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

[fgondi]

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 view  RUN

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 view  RUN

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

version 9 Crystal Report Viewer.

Code: Select all  Expand view  RUN

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

version 10.0 Crystal Report Viewer.

Code: Select all  Expand view  RUN

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

version 11.0 Crystal Report Viewer.

Code: Select all  Expand view  RUN

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

[mchumpitazv]

Saludos Fernando

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

Gracias

Martin

[fgondi]

Martín,

Antes del Define Window

Parámetros:

Code: Select all  Expand view  RUN

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

Formulas:

Code: Select all  Expand view  RUN

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


[ronaldo]

porque esta me ocorrendo este erro: Utilizo o Crystal 10


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

[fgondi]

Hola Ronaldo,

Has probado esto?

Code: Select all  Expand view  RUN

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

[jlcapel]

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]

sim... mudei conforme solicitado:

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

[fgondi]

Ronaldo,

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

[ronaldo]

perfeito! rs

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

[mchumpitazv]

Saludos Fernando

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

Gracias

Martin