relatorio com opcoes

[Guilherme]

Boa tarde a todos,

estou desenvolvendo um projeto, e me deparei com um problema que não consegui resolver, é o seguinte estou precisando fazer um relatorio com as seguintes opções:

(ProcEletr.Vencto = :XDateEdit1)

if CheckBox1.Checked
begin
(ProcEletr.Vencto = :XDateEdit1)
end;

if CheckBox2.Checked
begin
(ProcEletr.Vencto > :XDateEdit1)
end;

if CheckBox3.Checked
begin
(ProcEletr.Vencto < :XDateEdit1)
end;

mais ou menos isso, e já fiz de tudo e não deu certo, será que alguém pode me auxiliar?

obrigado

[Guilherme]

[flaviogonzaga]

Bom dia!!!

Qual é a versão do xmaker que você usa???

Vou montar um exemplo pra você!!!!

Depois a gente disponibiliza aqui no grupo!!!

Grande abraço!!!

[Guilherme]

[flaviogonzaga]

Boa tarde guilherme!!!

Vou fazer na versão que vc está utilizando para ficar fácil de vc adaptar.

Vai ser um exemplo bem simples mas vai funcionar da maneira que vc precisa.

Vou precisar de um tempinho, por conta de outros projetos que estou desenvolvendo.

Grande abraço!!!

[Guilherme]

[Leão]

Olá, cara usando este exemplo dar para você decolar...
observer que existe [s] para abrir e para fechar [\s]

boa sorte...
Obrigado,
Leão



(Vendas.DATA >= :XDateEdit1)
AND (Vendas.DATA <= :XDateEdit2)
AND (Vendas.COD_CLIENTE >= :XNumEdit1)
AND (Vendas.COD_CLIENTE <= :XNumEdit2)
AND (Vendas.COD_REGIAO >= :XNumEdit7)
AND (Vendas.COD_REGIAO <= :XNumEdit8)
AND (Vendas.COD_VENDEDOR >= :XNumEdit3)
AND (Vendas.COD_VENDEDOR <= :XNumEdit4)
AND (Vendas.COD_FINAN >= :XNumEdit77)
AND (Vendas.COD_FINAN <= :XNumEdit88)
AND (Clientes.COD_STATUS >= :XNumEdit9)
AND (Clientes.COD_STATUS <= :XNumEdit10)
[s]
if CheckBox4.checked=True then
begin
[\s]
AND (Vendas.DATA_ENTREGA IS NULL)
[s]
end;
[\s]
[s]
if CheckBox5.checked = true then
DVendas.ChaveIndice := 'Vendas.COD_VENDEDOR,Vendas.DATA,Vendas.PEDIDO'
else if CheckBox5.checked = false then
DVendas.ChaveIndice := 'Vendas.DATA,Vendas.PEDIDO';
[\s]

[Guilherme]

[Leão]

Olá veja esse...:


(ProcEletr.Vencto = :XDateEdit1)

if CheckBox1.Checked
begin
(ProcEletr.Vencto = :XDateEdit1)
end;

[s]
if CheckBox1.checked=True then
begin
[\s]
AND (ProcEletr.Vencto = :XDateEdit1)
[s]
end;
[\s]

[Guilherme]