FiveTech Software tech support forums

Posted: **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

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

Posted: **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)

Posted: **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

Posted: **Wed Mar 12, 2008 7:23 pm**

Hola Jose Luis:

Yo lo uso de la siguiente forma:

Code: Select all

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

Posted: **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")

Posted: **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

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

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

version 9 Crystal Report Viewer.

Code: Select all

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

version 10.0 Crystal Report Viewer.

Code: Select all

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

version 11.0 Crystal Report Viewer.

Code: Select all

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

Posted: **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

Posted: **Tue Mar 18, 2008 12:02 pm**

Martín,

Antes del Define Window

Parámetros:

Code: Select all

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

Formulas:

Code: Select all

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

Posted: **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

Posted: **Tue Mar 18, 2008 6:39 pm**

Hola Ronaldo,

Has probado esto?

Code: Select all

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

Posted: **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.

Posted: **Tue Mar 18, 2008 7:56 pm**

sim... mudei conforme solicitado:

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

Posted: **Wed Mar 19, 2008 8:22 am**

Ronaldo,

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

Posted: **Wed Mar 19, 2008 1:28 pm**

perfeito! rs

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

Posted: **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

FiveTech Software tech support forums

Crystal Reports y tActiveX

Crystal Reports y tActiveX