ActiveDelphi

[redmar]

Tenho que fazer uma condição: se a sigla for 'A' (subtrair) num_final - Num_inicial + 1

fiz um botão, mas quando coloco o case da erro:

begin
with adoquery1 do
begin
adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('Select letra,num_inicial,num_final, sigla,num_final - num_inicial + 1 AS Qtd,');
adoquery1.SQL.Add('case when sigla = "A" then num_final - num_inicial + 1 AS QtdA');
adoquery1.SQL.Add('from selos where data = '
+ quotedStr(FormatDateTime('yyyy-mm-dd',StrToDate(Maskedit1.text))));
adoquery1.SQL.Add('group by letra');
open;
end;
end;


Tentei assim tb e deu erro tb:
adoquery1.SQL.Add('case when sigla = "A" then 1 else 0 end) as TotA');

[imex]

Boa tarde,

Experimente desta forma:

[redmar]

Blza era isso mesmo deu certinho. Vlw amigão.

Só mais uma coisa, tem como eu aproveitar u qrport que fiz, copiei e colei mais fica saindo errado, mudei o data set e os campos mesmo assim n fica repetindo os resultados, existe alguma forma de aproveirtar os relatórios?

[Batera]

redmar, além do DataSet do QR, você precisa também alterar o DataSet de cada campo no relatório. Sempre quando reaproveito relatórios, só preciso alterar essa propriedade.

[redmar]

Fiz exatamente isso, no Queckrep1 coloquei o data set do form onde esta minha adoquery e dentro de cada campo (TrdbText) coloquei o dataset e o datafield.

E não funcionou, ai peguei e fiz um no qreport do zero ai funciona.

Não sei o que deve ser.