Jump to content
Fivewin Brasil

Relatorio analitico e sitetico fastreport


fernandoluizol

Recommended Posts

Olá a todos, estou fazendo um relatorio de clientes no fastreport, e tenho a opção analitico e sintetico, ou seja quando é analitico não apresento alguns campos da tabela como cnpj, rg, etc...

antes de migrar para o fast eu fazia assim...

oPrn:Say(oPrn:nRow+1,00, "+--------------------------------------------------------------------------------------------------------------------------------------+")

oPrn:Say(oPrn:nRow+1,00, "| Codigo | Nome | Endereco / Bairro | Cidade |UF| Cep | Telefone |")

If Left(aOpcRel[1],1)="S" // analitico

oPrn:Say(oPrn:nRow+1,00, "| CNPJ/CPF | Ident./Inscr. |Aniversar.| Protesto |Chq Devol.| Fat./Renda | Lim.Compra |FP|TP|Acr./Desc|D.Cobranca|Bloqueio |")

EndIf

Será que alguem ja desenvolveu algun relatorio assim no fast e poderia me ajudar por favor.....

Desde já agradeço a todos e informo que estou migrando todos relatorios de nosso sistema e se alguem precisar de alguma dica do que eu já migrei como pedido, OS, etc...

FWH 8.12,XHARBOUR 1.1,PELES,XDEV,VLIB, TexPad 4, SQLLIB, FASTREPORT

Msn:

fernando@success.inf.br

fernandoluizol@hotmail.com

Link to comment
Share on other sites

Olá a todos, estou fazendo um relatorio de clientes no fastreport, e tenho a opção analitico e sintetico, ou seja quando é analitico não apresento alguns campos da tabela como cnpj, rg, etc...

antes de migrar para o fast eu fazia assim...

oPrn:Say(oPrn:nRow+1,00, "+--------------------------------------------------------------------------------------------------------------------------------------+")

oPrn:Say(oPrn:nRow+1,00, "| Codigo | Nome | Endereco / Bairro | Cidade |UF| Cep | Telefone |")

If Left(aOpcRel[1],1)="S" // analitico

oPrn:Say(oPrn:nRow+1,00, "| CNPJ/CPF | Ident./Inscr. |Aniversar.| Protesto |Chq Devol.| Fat./Renda | Lim.Compra |FP|TP|Acr./Desc|D.Cobranca|Bloqueio |")

EndIf

Será que alguem ja desenvolveu algun relatorio assim no fast e poderia me ajudar por favor.....

Desde já agradeço a todos e informo que estou migrando todos relatorios de nosso sistema e se alguem precisar de alguma dica do que eu já migrei como pedido, OS, etc...

FWH 8.12,XHARBOUR 1.1,PELES,XDEV,VLIB, TexPad 4, SQLLIB, FASTREPORT

Msn:

fernando@success.inf.br

fernandoluizol@hotmail.com

Link to comment
Share on other sites

Bom dia !!!

O FastReport tem uma parte programável , vc pode fazer o seguinte , não sei onde vc está colocando os campos , pode ser no MasterDetail ou no DetailData , todos eles são objetos , que tem Eventos e propriedades . neste caso vc pode fazer o seguinte !!!

Crie um grupo e some os campos que vc precisa !!!

depois esconda o grupo de acordo com os parametros

este parametro vc vai criar a partir do seu código e enviando através do FastReport : AddVariable(,,,,)

sintaxe em Delphi

If ( Param )

MasterDetail1.visible := false

else

MasterDetail1.visible := true;

para esconder campos é a mesma coisa ...

Pablo Andrés Reyes Rivera

FWH 2.7 , xHarbour Compiler build 0.99.61

(SimpLex) &

FWH 9.11 , xHarbour Compiler build 1.2.1

(SimpLex) - PellesC

Link to comment
Share on other sites

citação:

Bom dia !!!

O FastReport tem uma parte programável , vc pode fazer o seguinte , não sei onde vc está colocando os campos , pode ser no MasterDetail ou no DetailData , todos eles são objetos , que tem Eventos e propriedades . neste caso vc pode fazer o seguinte !!!

Crie um grupo e some os campos que vc precisa !!!

depois esconda o grupo de acordo com os parametros

este parametro vc vai criar a partir do seu código e enviando através do FastReport : AddVariable(,,,,)

sintaxe em Delphi

If ( Param )

MasterDetail1.visible := false

else

MasterDetail1.visible := true;

para esconder campos é a mesma coisa ...

Pablo Andrés Reyes Rivera

FWH 2.7 , xHarbour Compiler build 0.99.61

(SimpLex) &

FWH 9.11 , xHarbour Compiler build 1.2.1

(SimpLex) - PellesC


id=quote>id=quote>

Obrigado pela dica Pablo nao conssegui fazer o q vc me recomendou, mas atraves da sua dica utilizei algumas propiedades dos objetos e ficou assim.

If Not() Then

Begin

// memos do cabeçalho e banda1 desabilitar e diminuir altura quando nao for mostrar dados complementares

Memo57.Height:=(PageHeader1.Height-Memo57.Height);

Memo57.Visible:=False;

Memo58.Visible:=False;

Memo59.Visible:=False;

Memo60.Visible:=False;

Memo61.Visible:=False;

Memo62.Visible:=False;

Memo63.Visible:=False;

Memo64.Visible:=False;

Memo65.Visible:=False;

Memo66.Visible:=False;

Memo67.Visible:=False;

Memo68.Visible:=False;

Memo69.Visible:=False;

MasterData1.Height:=(MasterData1.Height-MemoAna1.Height);

MemoAna1.Visible:=False;

MemoAna2.Visible:=False;

End;

end;

FWH 8.12,XHARBOUR 1.1,PELES,XDEV,VLIB, TexPad 4, SQLLIB, FASTREPORT

Msn:

fernando@success.inf.br

fernandoluizol@hotmail.com

Link to comment
Share on other sites

citação:

Qdo vc adquire o FRH vem um help bem detalhado das ferramentas ...

e vários exemplos

Pablo Andrés Reyes Rivera

FWH 2.7 , xHarbour Compiler build 0.99.61

(SimpLex) &

FWH 9.11 , xHarbour Compiler build 1.2.1

(SimpLex) - PellesC


id=quote>id=quote>

Então Pablo, no dia do encontro eu vi o Evandro falando sobre o help, o problema é que nao conssigo abrir.....como faço para abrir ?

FWH 8.12,XHARBOUR 1.1,PELES,XDEV,VLIB, TexPad 4, SQLLIB, FASTREPORT

Msn:

fernando@success.inf.br

fernandoluizol@hotmail.com

Link to comment
Share on other sites

isso é facil como mel

faça o seguinte, vc deve ter uma variavel

informando se é analitico ou sintetico certo,

no masterdata e tambem no cabeçalho, faça o seguinte

vamos supor que tenha uma variavel chamada

vResumido:=.f. ou vResumido:=.t.

no campo a imprimir faça:

[EvalMacro('if(vResumido," ", dbf->campo )')]

no cabeçalho o mesmo

[EvalMacro('if(vResumido," ", "Nome do Campo" )')]

faça isso em todos os campos que tiver esse criterio

vitor

s.b.c.

Link to comment
Share on other sites

Olá,

citação:Evandro falando sobre o help, o problema é que nao conssigo abrir.....como faço para abrir ?
id=quote>id=quote>

Copie o arquivo de help ( extensão .CHM ) para a pasta do seu sistema com o nome de FRUSER.CHM. Aí, no modo "designer" do FR a tecla F1 aciona o help.

[]s,

Evandro G. de Paula

Curvelo - MG

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

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

FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib

Link to comment
Share on other sites

citação:

Olá,

citação:Evandro falando sobre o help, o problema é que nao conssigo abrir.....como faço para abrir ?
id=quote>id=quote>

Copie o arquivo de help ( extensão .CHM ) para a pasta do seu sistema com o nome de FRUSER.CHM. Aí, no modo "designer" do FR a tecla F1 aciona o help.

[]s,

Evandro G. de Paula

Curvelo - MG

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

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

FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib


id=quote>id=quote>

Boa tarde Evandro, este arquivo vem junto com a DLL? ou tenho que baixar no site do fastreport? No site encontrei varios arquivos de ajuda sao estes?

FWH 8.12,XHARBOUR 1.1,PELES,XDEV,VLIB, TexPad 4, SQLLIB, FASTREPORT

Msn:

fernando@success.inf.br

fernandoluizol@hotmail.com

Link to comment
Share on other sites

Olá,

citação:Do you know that for help in designer:

1. Rename the UserManual-en.chm file (you can download it here:

http://www.fast-report.com/en/download/fast-report-4-download.html ,

"User's manual (chm)"-item) to the FRUser.chm.

2. Put FRUser.chm to your FRSystH.dll folder

3. Press F1 in the FRH designer and you'll get the help.


id=quote>id=quote>

É isto.

[]s,

Evandro G. de Paula

Curvelo - MG

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

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

FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib

Link to comment
Share on other sites

  • 7 years later...
 

Olá,

 

citação:Do you know that for help in designer:

1. Rename the UserManual-en.chm file (you can download it here:

http://www.fast-report.com/en/download/fast-report-4-download.html ,

"User's manual (chm)"-item) to the FRUser.chm.

2. Put FRUser.chm to your FRSystH.dll folder

3. Press F1 in the FRH designer and you'll get the help.


id=quote>id=quote>

É isto.

[]s,

Evandro G. de Paula

Curvelo - MG

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

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

FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib

Alguém tem este CHM  FRUser.chm pra mandar? Não achei.

Link to comment
Share on other sites

Obrigado Evandro, achei q era um CHM diferente do q eu tinha aki, pq o q eu tenho aki abre tudo mas não aparece informação (imagem em anexo), este q recebi agora seu tb procede igual, deve ser algo relativo, talvez ao SO 64 bits, vou testar amanhã em outro micro pra comparar.

Independentemente, agradeço.

 

Sem título.bmp

 

Sem título.bmp

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...