Fórum Report Builder Duvida. #475718

Qual erro estar apresentando


não seria a falta do caption

if DBText94.Caption = '09316105000129' then
memo1.Visible := True
else
memo1.Visible := False
end;

Valeu galera estava com preça e coloque mais um dbtext mais simples com codigo de filial;


Agora

eu fiz assim :

so que tem o seguinte nao esta dando certo para as outras filials e nao estou conseguindo achar os tipos que o calc do report builder aceita:(

porque eu acho que o mais correto seria fazer um case:(

procedure MemFrioVix2OnPrint;

begin
if DBText96.FieldValue = '2' then
begin
MemFrioVix2.Visible := True;
end
else
begin
MemFrioVix2.Visible := False;
end;

if DBText96.FieldValue = '5' then
begin
MemFrioVix2.Visible := True;
end
else
begin
MemFrioVix2.Visible := False;
end;

if DBText96.FieldValue = '7' then
begin
MemFrioVix2.Visible := True;
end
else
begin
MemFrioVix2.Visible := False;
end;

if DBText96.FieldValue = '9' then
begin
MemFrioVix2.Visible := True;
end
else
begin
MemFrioVix2.Visible := False;
end;

if DBText96.FieldValue = '12' then
begin
MemFrioVix2.Visible := True;
end
else
begin
MemFrioVix2.Visible := False;
end;

if DBText96.FieldValue = '13' then
begin
MemFrioVix2.Visible := True;
end
else
begin
MemFrioVix2.Visible := False;
end;

if DBText96.FieldValue = '14' then
begin
MemFrioVix2.Visible := True;
end
else
begin
MemFrioVix2.Visible := False;
end;

end;

Resolvi com assim :



if ((DBText96.FieldValue = '2') or
(DBText96.FieldValue = '5') or
(DBText96.FieldValue = '7') or
(DBText96.FieldValue = '9') or
(DBText96.FieldValue = '12') or
(DBText96.FieldValue = '13') or
(DBText96.FieldValue = '14'))
then
MemFrioVix.Visible := True
else
MemFrioVix.Visible := False;
end;


erra erro meu mesmo kkk desculpa ai galera:)

Pra evitar essa IF gigante, você pode criar um função ou fazer um loop como o seguinte:



onde 'valor' é uma variável do tipo Integer
O resultado é o mesmo, ai vai em questão de gosto!

mas do seu geito é bem mais pratico 1 ne velho :)