ANN: "FastReport for [x]Harbour" (FRH) beta, trial

Spirin Sergey · January 27, 2008

Hello, Evandro.

citaÃ§Ã£o:
HÃ¡ muito tempo tento utilizar um bom relatÃ³rio e tenho algumas soluÃ§Ãµes interessantes ( RPV, VRport ) - comprei os dois - mas nenhum deles me entusiasmou. O FastReport, em princÃpio, sim.

Fiz alguns testes e achei o FR fÃ¡cil e prÃ¡tico de trabalhar. SÃ³ faltava se integrar ao xHarbour. EntÃ£o agora nÃ£o falta mais.

id=quote>id=quote>

Here, I only repeat:

-FRH and FastReport Studio are different realization.

-FastReport Studio is compiled with FastReport Enterprise (delphi-sources) and plus some universal COM-support. Studio-developers can know nothing about Harbour or even Clipper.

-FRH is compiled with FastReport Enterprise (delphi-sources) and plus special library around [x]Harbour. FRH is FULL integration with [x]Harbour. And I do it with authority of the OEM-agreement with Fast Report Inc.

citaÃ§Ã£o:
Eu nÃ£o sei falar inglÃªs,

id=quote>id=quote>

I do not speak Portuguese too but understand the meaning with Google-translator help.

citaÃ§Ã£o:
e fico mais fora do que dentro ( nÃ£o pensem mal pois no que estÃ£o pensando, fico sÃ³ fora ), mas assumo o compromisso de "The first developer in Brazil, who adapts a demo to FWH ". Eu sou o DEMO.

E ainda consegui matar um desejo meu: postar alguma coisa, como uns "tarados" fazem, depois das 23:00h. Hehehehe

id=quote>id=quote>

))))))

But we have a Sunday and Monday:) Therefore, the proposal is actual! So:

The first developer in Brazil, who adapts a demo to FWH (it's 15-30 minutes of work) will receive the discount-50%!

---

Spirin Sergey.

"Paritet Soft" Company.

FRH beta: http://www.paritetsoft.ru/frh.htm

FRAX sales: http://www.hotsoft.ru/ALASKA/frax_eng.htm

Spirin Sergey · January 27, 2008

Replying to questions:

- Just send me demo.prg which can compiled with the FWH and demo.exe.

Thank you

---

Spirin Sergey.

"Paritet Soft" Company.

FRH beta: http://www.paritetsoft.ru/frh.htm

FRAX sales: http://www.hotsoft.ru/ALASKA/frax_eng.htm

evandro · January 27, 2008

OlÃ¡,

Postei em "Dicas" o Demo do FastReport com FWH.

http://www.fivewin.com.br/exibedicas.asp?id=863 - fontes

http://www.fivewin.com.br/exibedicas.asp?id=864 - executÃ¡vel

citaÃ§Ã£o:The first developer in Brazil, who adapts a demo to FWH (it's 15-30 minutes of work) will receive the discount-50%!

id=quote>id=quote>

JÃ¡ estou contando com o desconto. Mineiro faz de tudo para economizar. Quando vÃª falar em desconto fica esperto demais!

citaÃ§Ã£o:- Just send me demo.prg which can compiled with the FWH and demo.exe.

id=quote>id=quote>

SÃ³ depois que postei em "Dicas" Ã© que vi a mensagem. Envei para spirin@paritetsoft.ru

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

I PREPARATÃ“RIO PARA O VI ENCONTRO FIVEWIN - JULHO/2008 - CURVELO - MG

evandro · January 28, 2008

OlÃ¡,

Estou tentando usar o FRH com o MySql e nÃ£o estou conseguindo. Configurei para abrir o banco de dados. Tudo certo. Ao tentar usar o banco de dados, me pede a senha vÃ¡rias vezes e nÃ£o acessa. Sempre emite a mensagem "Falha catastrÃ³fica". O que pode ser?

[]s,

Evandro G. de Paula

Curvelo - MG

evandro@skillnet.com.br (Escr. - na Cidade)

imortal@skillnet.com.br (Res. - na RoÃ§a)

FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib

I PREPARATÃ“RIO PARA O VI ENCONTRO FIVEWIN - JULHO/2008 - CURVELO - MG

Spirin Sergey · January 28, 2008

Hello, Evandro!

citaÃ§Ã£o:
JÃ¡ estou contando com o desconto. Mineiro faz de tudo para economizar. Quando vÃª falar em desconto fica esperto demais!

id=quote>id=quote>

Yes, of course. You have a 50% discount now! )

But why you have not made a choice of language and viewing of process? Were afraid to not be in time? )))

And language only Portuguese. Let's for pleasure we'll complete together a little bit? ) Ok?

And what your impressions?

---

Spirin Sergey.

"Paritet Soft" Company.

FRH beta: http://www.paritetsoft.ru/frh.htm

FRAX sales: http://www.hotsoft.ru/ALASKA/frax_eng.htm

Spirin Sergey · January 28, 2008

citaÃ§Ã£o:
Estou tentando usar o FRH com o MySql e nÃ£o estou conseguindo. Configurei para abrir o banco de dados. Tudo certo. Ao tentar usar o banco de dados, me pede a senha vÃ¡rias vezes e nÃ£o acessa. Sempre emite a mensagem "Falha catastrÃ³fica". O que pode ser?

id=quote>id=quote>

Hello,

How do you connect to MySql? Is it ADODatabase in FRH? Or rdd and HarbourWorkArea?

dorneles · January 28, 2008

Access violation at address 01B1F6AB in module 'FrSystH.dll'.Read of address 00000000

OlÃ¡,

alguem sabe que erro e esse?

e qual o preÃ§o da FastReport?

Obrigado

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

dorneles · January 28, 2008

citaÃ§Ã£o:Access violation at address 01B1F6AB in module 'FrSystH.dll'.Read of address 00000000
OlÃ¡,

alguem sabe que erro e esse?

e qual o preÃ§o da FastReport?

Obrigado

id=quote>id=quote>

Resolvido

Como alterar o DATASET, para fazer a ligaÃ§ao com o meu banco.dbf?

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

Spirin Sergey · January 28, 2008

Hello,

citaÃ§Ã£o:
Access violation at address 01B1F6AB in module 'FrSystH.dll'.Read of address 00000000

alguem sabe que erro e esse?

e qual o preÃ§o da FastReport?

id=quote>id=quote>

How can I repeat that error? How do you get it? Sorry, I do not understand your second message.

About price.

My similar system - FRAX (for Alaska Xbase + +) has price EUR 299. I think FRH will cost about the same.

---

Spirin Sergey.

"Paritet Soft" Company.

FRH beta: http://www.paritetsoft.ru/frh.htm

FRAX sales: http://www.hotsoft.ru/ALASKA/frax_eng.htm

dorneles · January 28, 2008

Changing the DATASET, to make the connection with my banco.dbf?

Which procedure to make the purchase?

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

Spirin Sergey · January 28, 2008

citaÃ§Ã£o:
Changing the DATASET, to make the connection with my banco.dbf?

id=quote>id=quote>

And during changing you have that error? What property have you changed?

citaÃ§Ã£o:
Which procedure to make the purchase?

id=quote>id=quote>

Now FRH is beta, so wait a little, please. But I think that it will be the simple payment to one of electronic systems.

dorneles · January 28, 2008

FrPrn:SetWorkArea("Cliente", 1)

FrPrn:SetFieldAliases("Cliente", "CUSTNO=Cust No;Cliente;ADDR1=Endereco;Fone1;Fone2;Contato")

lShowCustName := .t.

DoFrAction("rel.fr3")

I would change the rel.fr3, so he opens the cliente.dbf and not the Customer.dbf

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

qiinfo · January 28, 2008

OlÃ¡,

O exemplo abaixo gera erro de GPF usando xptheme.

DEMO.PRG

#include 'fivewin.ch'

#include 'FastRepH.CH'

#include 'lang_en.ch'

function Main()

local aTmp, x, oDlg

MEMVAR RepDir, DataDir, ResDir

MEMVAR FrPrn, lShowCustName

FIELD CustNo, Company, OrderNo, ItemNo, PartNo

PRIVATE FrPrn, lShowCustName := .f., nAction:=1

REQUEST DBFCDX

RepDir := CurDrive() +":\"+ CurDir() + '\REPS\'

DataDir := CurDrive() +":\"+ CurDir() + '\DATA\'

ResDir := CurDrive() +":\"+ CurDir() + '\LANGRES\'

SET DEFAULT TO "data\"

IF ! AllFilesExist( { "CUSTA.NTX", "CUSTB.NTX" } )

USE Customer EXCLUSIVE

INDEX ON CustNo TO CustA

INDEX ON Company TO CustB

CLOSE

ENDIF

IF ! AllFilesExist( { "ORDERSA.NTX", "ORDERSB.NTX" } )

USE Orders EXCLUSIVE

INDEX ON OrderNo TO ORDERSA

INDEX ON CustNo TO ORDERSB

CLOSE

ENDIF

IF ! AllFilesExist( { "itemsa.NTX", "itemsb.NTX", "itemsc.NTX" } )

USE Items EXCLUSIVE

INDEX ON str(OrderNo, 15)+str(ItemNo, 15) TO itemsa

INDEX ON OrderNo TO itemsb

INDEX ON PartNo TO itemsc

CLOSE

ENDIF

IF ! AllFilesExist( { "parts.NTX", } )

USE Parts EXCLUSIVE

INDEX ON PartNo TO parts

CLOSE

ENDIF

SET DELETED ON

USE Customer NEW

SET INDEX TO CustA, CustB

SET ORDER TO 2

GO TOP

USE Orders NEW

SET INDEX TO ORDERSA, ORDERSB

SET ORDER TO 2

GO TOP

USE Items NEW

SET INDEX TO itemsa, itemsb, itemsc

SET ORDER TO 2

GO TOP

USE Parts NEW

SET INDEX TO Parts

SET ORDER TO 1

GO TOP

define dialog odlg

//----------- Now load and init FastReport --------------------------------------

FrPrn := frReportManager():new()

//---------- Set the same icon for FastReport windows----------

FrPrn:SetIcon(1)

//---------- Set the same title for FastReport taskBar-window

FrPrn:SetTitle(_cTitle)

//-----------Set to disable main window when FastReport executes----------------------

// FrPrn:SetVisualActions(FR_ACT_NONE)

//FrPrn:SetVisualActions(FR_ACT_USER, .F., {|| DoMethod('Form_1', 'Hide')}, {|| DoMethod('Form_1', 'Show')})

//-----------Set progress event handlers-----------------------------------------------

//FrPrn:SetEventHandler("Report", "OnProgressStart", {|x,y|ShowProgress(x, y, 1)})

//FrPrn:SetEventHandler("Report", "OnProgressStop", {|x,y|ShowProgress(x, y, 2)})

//FrPrn:SetEventHandler("Report", "OnProgress", {|x,y|ShowProgress(x, y, 3)})

//FrPrn:SetEventHandler("Report", "OnBeforePrint", {|ObjName|ShowProcess(ObjName)})

//-------- add function to FastReport (see calls example)----------------------

FrPrn:SetEventHandler("Report", "OnUserFunction", {|FName, FParams| CallUserFunction(FName, FParams)})

FrPrn:AddFunction("function XBaseStr(nValue: Double, nLength: Variant = EmptyVar, nDecimals: Variant = EmptyVar): Variant",;

"My Lovely Functions!", "It's a XBase Str() function!")

FrPrn:LoadLangRes(ResDir + "Brazil.xml")

activate dialog odlg on init ( DoSimpleList(), odlg:end() )

return nil

///////////////////////////////////////////////////////////////////////

// Unload FastReport //

///////////////////////////////////////////////////////////////////////

function UnloadFr()

FrPrn:DestroyFR()

return nil

///////////////////////////////////////////////////////////////////////

function DoFrAction( cFileName, lPrepared )

local lNotOpened := .f.

private cExpObj, cExpFile, lExpOpt, lExpOpen, cExtention

lPrepared := IF(lPrepared <> NIL, lPrepared, .f.)

if !lPrepared .and. (cFileName <> NIL)

FrPrn:LoadFromFile(RepDir + cFileName)

endif

DO CASE

CASE nAction == 1

FrPrn:ShowReport()

CASE nAction == 2

FrPrn:DesignReport()

CASE nAction == 3

FrPrn:SetProperty("Report", "ShowProgress", .f.)

if !lPrepared

FrPrn:PrepareReport()

endif

FrPrn:Print(.t.)

FrPrn:SetProperty("Report", "ShowProgress", .t.)

CASE nAction == 4

* if GetExportObject()

* FrPrn:SetProperty("Report", "ShowProgress", .f.)

* if !lPrepared

* FrPrn:PrepareReport()

* endif

* FrPrn:SetProperty(cExpObj, "ShowDialog", lExpOpt)

* if (cExpObj = "MailExport").and.!lExpOpt

* FrPrn:SetProperty(cExpObj, "ShowDialog", .t.)

* endif

* if AScan({"XLSExport","XMLExport"}, cExpObj) > 0

* FrPrn:SetProperty(cExpObj, "OpenExcelAfterExport", lExpOpen)

* else

* if AScan({"BMPExport", "TIFFExport", "JPEGExport", "GIFExport",;

* "DotMatrixExport", "TXTExport"}, cExpObj) > 0

* lNotOpened := .t.

* else

* FrPrn:SetProperty(cExpObj, "OpenAfterExport", lExpOpen)

* endif

* if lExpOpen .and. !lNotOpened

* if cExpObj <> "SimpleTextExport"

* cExtention := "." + Left(cExpObj, 3)

* else

* cExtention := ".TXT"

* endif

* if right(cExpFile, 4) <> cExtention

* cExpFile := cExpFile + cExtention

* endif

* FrPrn:SetProperty(cExpObj, "FileName", cExpFile)

* FrPrn:DoExport(cExpObj)

* if lExpOpen .and. lNotOpened

* Msgalert(_cNoOpen, "AtenÃ§Ã£o")

* endif

* FrPrn:SetProperty("Report", "ShowProgress", .t.)

* endif

ENDCASE

return nil

///////////////////////////////////////////////////////////////////////

function DoSimpleList()

FrPrn:SetWorkArea("Customers", 1)

FrPrn:SetFieldAliases("Customers", "CUSTNO=Cust No;Company;ADDR1=Address;Phone;Fax;Contact")

lShowCustName := .t.

DoFrAction("1.fr3")

FrPrn:ClearDataSets()

lShowCustName := .f.

return

///////////////////////////////////////////////////////////////////////

function AllFilesExist( aFiles )

local lExist := .T., i:=0, imax := len(aFiles)

do while ++i <= imax .and. lExist

lExist := File( aFiles )

enddo

return lExist

///////////////////////////////////////////////////////////////////////

function CallUserFunction(FName, FParams)

local RES

if (FName == "XBASESTR")

RES := Str(FParams[1], FParams[2], FParams[3])

endif

return RES

id=code>id=code>

DEMO.RC

1 24 "/FWH/SAMPLES/winxp/WindowsXP.Manifest"

id=code>id=code>

Veja as imagens abaixo:

http://br.geocities.com/qiinformatica2000/FAST.PNG

Obrigado,

Rossine

FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 2.7 + @say + xHarbour DivinÃ³polis/ MG

Spirin Sergey · January 28, 2008

Hello.

FrPrn:SetIcon(1(!!!!))

1(!!!) 24 "/FWH/SAMPLES/winxp/WindowsXP.Manifest"

Ok. I think it's clear ))

---

Spirin Sergey.

"Paritet Soft" Company.

FRH beta: http://www.paritetsoft.ru/frh.htm

FRAX sales: http://www.hotsoft.ru/ALASKA/frax_eng.htm

Spirin Sergey · January 28, 2008

Hello, qiinfo

citaÃ§Ã£o:
#include 'fivewin.ch'

#include 'FastRepH.CH'

#include 'lang_en.ch'

function Main()

................

id=quote>id=quote>

Why you do not use Evandro code?

qiinfo · January 28, 2008

OlÃ¡,

citaÃ§Ã£o:
FrPrn:SetIcon(1(!!!!))

1(!!!) 24 "/FWH/SAMPLES/winxp/WindowsXP.Manifest"

id=quote>id=quote>

NÃ£o entendi !!!

citaÃ§Ã£o:
#include 'fivewin.ch'

#include 'FastRepH.CH'

#include 'lang_en.ch'

function Main()

................

Why you do not use Evandro code?

id=quote>id=quote>

O exemplo que passei, foi retirado do exemplo do Evandro. Somente acrescentei o xp thme (.RC)

Obrigado,

Rossine

FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 2.7 + @say + xHarbour DivinÃ³polis/ MG

kleyber · January 28, 2008

Rossine, nem te preocupa. Ele estÃ¡ usando o tradutor do Google pra entender o que falamos em portuguÃªs. Mas se ele (ou vocÃªs) nÃ£o entender(em) alguma coisa, estamos aqui pra ajudar.

AbraÃ§o,

Kleyber Derick

xHarbour 99.71 + FWH 7.11 (BMW Zerada!!!) + xDevStudio + SQLLIB

Visite SÃ£o LuÃs - MA A Ilha dos Amores

Spirin Sergey · January 28, 2008

citaÃ§Ã£o:
NÃ£o entendi !!!

id=quote>id=quote>

OK. Try:

In Demo.rc---------------

1 24 "/FWH/SAMPLES/winxp/WindowsXP.Manifest"

2 ICON MyDemo.ico

In Demo.prg--------------

FrPrn:SetIcon(2)

--------------------------

WindowsXP.Manifest is not icon ))

---

Spirin Sergey.

"Paritet Soft" Company.

FRH beta: http://www.paritetsoft.ru/frh.htm

FRAX sales: http://www.hotsoft.ru/ALASKA/frax_eng.htm

qiinfo · January 28, 2008

OlÃ¡ Evandro,

Teria como vocÃª testar o exemplo que citei acima ?

Kleyber:

citaÃ§Ã£o:
Mas se ele (ou vocÃªs) nÃ£o entender(em) alguma coisa, estamos aqui pra ajudar.

id=quote>id=quote>

OK obrigado :-)

Spirin:

citaÃ§Ã£o:
WindowsXP.Manifest is not icon ))

id=quote>id=quote>

Obrigado,

Rossine

FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 2.7 + @say + xHarbour DivinÃ³polis/ MG

qiinfo · January 28, 2008

Favor comentar o trecho abaixo no exemplo que citei acima:

//---------- Set the same icon for FastReport windows----------

*FrPrn:SetIcon(1)

id=code>id=code>

...mas o erro continua ...

AbraÃ§os,

Rossine

FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 2.7 + @say + xHarbour DivinÃ³polis/ MG

Spirin Sergey · January 28, 2008

citaÃ§Ã£o:
Favor comentar o trecho abaixo no exemplo que citei acima:
//---------- Set the same icon for FastReport windows----------

*FrPrn:SetIcon(1)

id=code>id=code>
...mas o erro continua ...

id=quote>id=quote>

Gm .... I was sure almost. Ok. Let us go further. Some questions:

-Do you see first report.

-When an error occurs?

-I do not see where UnloadFr()is called, why?

-What Windows?

-Can you send me exe-file?

Wait your answers.

foliene · January 28, 2008

dÃ¡ para compilar com o Harbour ?

tentei linkar deu falta de funcoes..

Ari

Spirin Sergey · January 28, 2008

citaÃ§Ã£o:
dÃ¡ para compilar com o Harbour ?

tentei linkar deu falta de funcoes..

id=quote>id=quote>

I use Harbour as main test-language. Now I use 0.99-3. But I was tested it and in 0.99-1.

What functions?

dorneles · January 28, 2008

How to change the dataset?

FW 2.6 + HB 0.9950 + Pelles + Clipper 5.3 + VLib + xDevStudio

Spirin Sergey · January 28, 2008

citaÃ§Ã£o:
How to change the dataset?

id=quote>id=quote>

Menu -> Report -> Data

Select used dataset and unselect unused.

ANN: "FastReport for [x]Harbour" (FRH) beta, trial

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation