Crystal Reports 2011

[Taavi]

Hello,
is somebody using Crystal 2011 with xHarbour? They seems to have API for .NET ja Java only.
But I also found crpe23.dll in installation folder,was able to load it in application and even got an meaningful error when trying to load report.

Anybody using CR 2011 with (x)Harbour?
Antonio, could it be possible to use CR .NET or Java API?

Taavi.

[Antonio Linares]

Taavi,

Yes, we could use the .NET, you can review FiveNet for an example of use:
http://code.google.com/p/fivenet/

I have seen how to use Java from C in Harbour, not sure if it will also work the same way on Windows. You could try that too:

Code: Select all | Expand

#pragma BEGINDUMP

#include <jni.h>

HB_FUNC( YOUR_FUNCTION )
{
   JNIEnv * env = create_vm();
   jclass class = JavaFindClass( env, "myclass" );
   jobject obj = JavaGetClass( env, class );

   ...
}

#pragma ENDDUMP   
 

[Marc Vanzegbroeck]

Taavi,

Did you succeeded to connect Crystal 2011 with xHarbour?

[Marc Vanzegbroeck]

Hi,

Does anyone else use Crystal-Reports 2011 with xHarbour?

[fgondi]

Yo uso Crystal report 11 con ADS

Code: Select all | Expand

oCRApp         := CreateObject("CrystalRuntime.Application.11") 
oCRReport     := oCRApp:OpenReport(cRpt)
oCRDatabase := oCRReport:Database
oCRTables     := oCRDatabase:Tables

oCRTable:= oCRDatabase:Tables(1)
oCRTable:ConnectionProperties:DeleteAll()

oCRDatabase:LogOnServer ('crdb_Ads', "BASE DE DATOS ADD",, cUsuario, cPassword )

For i:= 1 to oCRTables:Count()
  oCRTable:= oCRDatabase:Tables(i)
  oCRTable:SetLogOnInfo( "BASE DE DATOS ADD", , cUsuario, cPassword )
next
oCRReport:EnableParameterPrompting("False")
oCRReport:DiscardSavedData()

//Ejemplo de Parametros si hacen falta
oCRParameterField := oCRReport:ParameterFields
if oCRParameterField:Count() > 0
  oCRParameterField:GetItemByName('pFchIni'):AddCurrentValue( dFchIni )
  ...
endif


//Visor ActiveX
 DEFINE Window oVentHija MDICHILD Title cTitle
 oActiveX := TActiveX():New( oVentHija, "CrystalReports11.ActivexReportViewer.1" )  
 oVentHija:oClient := oActiveX
 oVentHija:cTitle( cTitle )
 oActivex:SetProp( "ReportSource", oCRReport )
 oActiveX:SetProp( "EnableStopButton",     1  )
 oActiveX:SetProp( "EnableAnimationCtrl",  0  )
 oActiveX:SetProp( "EnableCloseButton",    1  ) 
 oActiveX:SetProp( "EnableExportButton",   1  )
 oActiveX:SetProp( "EnablePopupMenu",      0  ) 
 oActiveX:SetProp( "EnableRefreshButton",  0  )
 oActiveX:bOnEvent = { | event, aParams | EventInfo( event, aParams, oCRReport, oActivex  ) } 

ACTIVATE WINDOW oVentHija;
 ON INIT ( oActiveX:Do( "Viewreport" ) );
 Valid ( oCRDatabase:LogOffServer ('crdb_Ads', "BASE DE DATOS ADD",, cUsuario, cPassWord ), oCRDatabase := NIL, oActiveX := NIL, oCRReport := NIL )


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

[Marc Vanzegbroeck]

Thank you Fernando for the example.

I will try it.