FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Crystal Reports y tActiveX
jlcapel
Posts: 229
Joined: Wed Oct 12, 2005 05:32 PM
Crystal Reports y tActiveX
Posted: Wed Aug 30, 2006 07: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 Collapse
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
Saludos,
José Luis Capel
www.capelblog.com
www.pepeluiscapel.wordpress.com
ronaldo
Posts: 139
Joined: Fri Nov 25, 2005 04:38 PM
Crystal Reports y tActiveX
Posted: Mon Mar 10, 2008 05:51 PM

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

tReport:SetProp("Action",1)

Ronaldo Minacapelli
Sistemas, Hospedagem e Criação de WebSites
http://www.bazevani.com.br
ronaldo
Posts: 139
Joined: Fri Nov 25, 2005 04:38 PM
Crystal Reports y tActiveX
Posted: Mon Mar 10, 2008 06:53 PM

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

Ronaldo Minacapelli
Sistemas, Hospedagem e Criação de WebSites
http://www.bazevani.com.br
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Crystal Reports y tActiveX
Posted: Wed Mar 12, 2008 07:23 PM
Hola Jose Luis:

Yo lo uso de la siguiente forma:

Code: Select all Collapse
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
Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos
ronaldo
Posts: 139
Joined: Fri Nov 25, 2005 04:38 PM
Crystal Reports y tActiveX
Posted: Thu Mar 13, 2008 02:05 PM
Quando compilei este exemplo: ao executar ele diz não encontrar:

oCrp := oCRApp:OpenReport("c:\bazevani\ancora\caixa4.rpt")
Ronaldo Minacapelli
Sistemas, Hospedagem e Criação de WebSites
http://www.bazevani.com.br
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Crystal Reports y tActiveX
Posted: Fri Mar 14, 2008 07: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 Collapse
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 Collapse
oActiveX := TActiveX():New( oVentHija, "CRViewer.CRViewer" )


version 9 Crystal Report Viewer.
Code: Select all Collapse
oActiveX := TActiveX():New( oVentHija, "CRViewer9.CRViewer" )


version 10.0 Crystal Report Viewer.
Code: Select all Collapse
oActiveX := TActiveX():New( oVentHija, "CrystalReports10.ActiveXReportViewer.1" )


version 11.0 Crystal Report Viewer.
Code: Select all Collapse
oActiveX := TActiveX():New( oVentHija, "CrystalReports11.ActiveXReportViewer.1" )
Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos
mchumpitazv
Posts: 54
Joined: Thu Dec 27, 2007 06:56 PM
Crystal Reports y tActiveX
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

fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Crystal Reports y tActiveX
Posted: Tue Mar 18, 2008 12:02 PM
Martín,

Antes del Define Window

Parámetros:
Code: Select all Collapse
oCrp:FormulaFields:GetItemByName( 'vAlmacen' ):Text( "'"+cAlmacen+"'" )


Formulas:
Code: Select all Collapse
oCrp:RecordSelectionFormula( '{FVCAB.FACTURA} = "'+cFactura+'"' )
Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos
ronaldo
Posts: 139
Joined: Fri Nov 25, 2005 04:38 PM
Crystal Reports y tActiveX
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

Ronaldo Minacapelli
Sistemas, Hospedagem e Criação de WebSites
http://www.bazevani.com.br
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Crystal Reports y tActiveX
Posted: Tue Mar 18, 2008 06:39 PM
Hola Ronaldo,

Has probado esto?
Code (fw): Select all Collapse
oCRApp := CreateObject("CrystalRuntime.Application.10")
Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos
jlcapel
Posts: 229
Joined: Wed Oct 12, 2005 05:32 PM
Crystal Reports y tActiveX
Posted: Tue Mar 18, 2008 06: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.

Saludos,
José Luis Capel
www.capelblog.com
www.pepeluiscapel.wordpress.com
ronaldo
Posts: 139
Joined: Fri Nov 25, 2005 04:38 PM
Crystal Reports y tActiveX
Posted: Tue Mar 18, 2008 07:56 PM

sim... mudei conforme solicitado:

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

Ronaldo Minacapelli
Sistemas, Hospedagem e Criação de WebSites
http://www.bazevani.com.br
fgondi
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Crystal Reports y tActiveX
Posted: Wed Mar 19, 2008 08:22 AM

Ronaldo,

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

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos
ronaldo
Posts: 139
Joined: Fri Nov 25, 2005 04:38 PM
Crystal Reports y tActiveX
Posted: Wed Mar 19, 2008 01:28 PM

perfeito! rs

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

Ronaldo Minacapelli
Sistemas, Hospedagem e Criação de WebSites
http://www.bazevani.com.br
mchumpitazv
Posts: 54
Joined: Thu Dec 27, 2007 06:56 PM
Crystal Reports y tActiveX
Posted: Wed Mar 19, 2008 02:40 PM

Saludos Fernando

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

Gracias

Martin

Static archive · New replies & topics via GitHub Discussions