QuickReport imprimir um valor dependedo de uma condi��o

Question

Tenho um aplicativo de banco de dados feito em delphi, gostaria de saber, como um valor que est� em qrlabel(quickReport) mudar dependendo do que esteja inserido em um determinado campo de uma tabela?E...

Zottis · Answer

Voc� pode usar o evento onpreview ou ao chamar o form.

Ex:

procedure TFrmBaixas.BitBtn1Click(Sender: TObject);
const
Periodo = �De ��s�� At� ��s��;
begin
//ImprimirCtasvencidas � o form a ser impresso.
Application.CreateForm(TImprimirCtasvencidas,ImprimirCtasvencidas);
if RadioGroup1.ItemIndex = 0 then
begin
ImprimirCtasvencidas.QRlabel3.caption:=�Todos(Pagas e Abertas)�;
end;
if RadioGroup1.ItemIndex = 1 then
begin
ImprimirCtasvencidas.QRlabel3.caption:=�Liquidadas�;
end;
if RadioGroup1.ItemIndex = 2 then
begin
ImprimirCtasvencidas.QRlabel3.caption:=�N�o Pagas�;
end;
ImprimirCtasvencidas.Periodolabel.caption :=
Format(Periodo, [DateToStr(Data1.date), DateToStr(Data2.date)]);
ImprimirCtasvencidas.Preview;
ImprimirCtasvencidas.free;
end;

espero que te ajude.

Xadriano · Answer

o que estou querendo � seguinte:Se o aluno for do curso anual valor do qrlabel = 30,00Se o aluno for do curso semestral valor do qrlabel = 50,00se for de outro curso qr label = 60,00Ficarei muito grato se puderes me ajudar,Adriano...

Zottis · Answer

a sintese � essa que te passei� s� passar a condi��o e jogar no QRlabel.if Se o alunoCurso.value = �anual� then begin FormImpressao.QRlabel3.caption:=�R$30,00�; end elseif Se o alunoCurso.value = �semestral� then begin FormImpressao.QRlabel3.caption:=�R$50,00�; end elseif Se o alunoCurso.value = �Outro� then begin FormImpressao.QRlabel3.caption:=�R$60,00�; end;...

Xadriano · Answer

zottiseu fiz desta maneira no evento onpreview:procedure TFrmPrint.QuickRep1Preview(Sender: TObject);beginif Datamodule2.ADOQueryGeralCURSO.Value = �Anual� thenbeginQrlabel137.Caption:=�R$ 30,00�;End elseif Datamodule2.ADOQueryGeralCURSO.Value = �Semestral� thenbeginqrlabel137.Caption:=�R$ 50,00�;End Elseif Datamodule2.ADOQueryGeralCURSO.Value = �E.J.A� thenBeginqrlabel137.Caption:=�R$ 50,00�So que compila mas n�o abre, onde estou errando?...

Ariovaldo · Answer

Olha essa situa��o eu controlo com campo calculado, com certeza este relat�rio � resultado de uma query, pois bem nesta query no fields editor vc coloca um campo calculado por Ex. Calc_ValorMensal e no evento calcFields da query vc coloca o bloco de comando
if Datamodule2.ADOQueryGeralCURSO.Value = �Anual� then
begin
Qrlabel137.Caption:=�R$ 30,00�;
End else
||

Espero ter ajudado

Zottis · Answer

se voc� n�o quer usar as condi��es na chamada do formul�rio, tente usar isso:

procedure TImprime.QuickRepBeforePrint(
Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
Sender.AllDataSets.Add(Datamodule2.ADOQueryGeral);
end;

mas tente usar a 1� opc�o que te passei, para mim funciona redondinho.

ou tente no evento startpage.

procedure TQuickReport1.QuickRepStartPage(Sender: TCustomQuickRep);
begin

if Datamodule2.ADOQueryGeralCURSO.Value = �Anual� then
begin
Qrlabel137.Caption:=�R$ 30,00�;
End else
if Datamodule2.ADOQueryGeralCURSO.Value = �Semestral� then
begin
qrlabel137.Caption:=�R$ 50,00�;
End Else
if Datamodule2.ADOQueryGeralCURSO.Value = �E.J.A� then
Begin
qrlabel137.Caption:=�R$ 50,00�

end;

Xadriano · Answer

Valeu zottis, eu usei a rotina do onstartpage deu certinho, fico te devendo essa :lol: Adriano...

Zottis · Answer

se precisar...www.zottis.com.br estou come�ando e em breve ser� outro site mais incrementado para a programa��o delphi.zottis@zottis.com.brsuporte@zottis.com.br...

F�rum QuickReport imprimir um valor dependedo de uma condi��o #244273