Relatório a Prazo (ajuda)

select
c.nome_cliente,
(i.prec_unitario * i.quantidade) as total,
 v.codigo,
 p.nome,
 i.prec_unitario,
 i.quantidade,
v.total_venda
from cliente c, produtos_servicos p, itens i,venda_servico v
where v.codigo = :codvenda
and i.cod_venda = v.codigo
and c.cod_cliente = v.cod_cliente
and p.cod_produto_servicos = i.cod_produto_servico 

dm.IBQ_RelVenda.Close;
        dm.IBQ_RelVenda.ParamByName('codvenda').AsInteger :=
          dm.IB_VENDAS_SERVICOSCODIGO.AsInteger;
        dm.IBQ_RelVenda.Prepare;
        dm.IBQ_RelVenda.Open;

With DM.IB_RECEBER Do
  begin
    Close;
    SQL.Clear;
    SQL.add(
      'Select venda_servico.data_venda,parcela.cod_parcela, parcela.valor_parcela,cliente.nome_cliente,parcela.situacao,parcela.valor_pago,parcela.data_pagamento');
    SQL.add(' From VENDA_SERVICO ');
    SQL.add('Inner Join PARCELA');
    SQL.add(' On PARCELA.COD_VENDA = VENDA_SERVICO.CODIGO');
    SQL.add('Inner Join CLIENTE');
    SQL.add('On VENDA_SERVICO.COD_CLIENTE = CLIENTE.COD_CLIENTE');
    SQL.add('and (upper(cliente.nome_cliente) like upper(:name))');
    ParamByName('name').AsString :=  Edit1.Text + '%';
    Open;
    DM.IBTransaction1.CommitRetaining;

  end;

With DM.IB_RECEBER Do
  begin
    Close;
    SQL.Clear;
    SQL.add(
      'Select venda_servico.data_venda,parcela.cod_parcela, parcela.valor_parcela,cliente.nome_cliente,parcela.situacao,parcela.valor_pago,parcela.data_pagamento');
    SQL.add(' From VENDA_SERVICO ');
    SQL.add('Inner Join PARCELA');
    SQL.add(' On PARCELA.COD_VENDA = VENDA_SERVICO.CODIGO');
    SQL.add('Inner Join CLIENTE');
    SQL.add('On VENDA_SERVICO.COD_CLIENTE = CLIENTE.COD_CLIENTE');
    SQL.add('and (upper(cliente.nome_cliente) like upper(:name))');
    ParamByName('name').AsString :=  Edit1.Text + '%';
    Open;
    DM.IBTransaction1.CommitRetaining;

  end;

Select venda_servico.data_venda,parcela.cod_parcela, parcela.valor_parcela,cliente.nome_cliente,parcela.situacao,parcela.valor_pago,parcela.data_pagamento
From VENDA_SERVICO
Inner Join PARCELA
On PARCELA.COD_VENDA = VENDA_SERVICO.CODIGO
Inner Join CLIENTE
On VENDA_SERVICO.COD_CLIENTE = CLIENTE.COD_CLIENTE

select
v.data_venda ,
parc.valor_parcela,
c.nome_cliente,
parc.situacao,
PARC.numero_de_parcelas,
PARC.numero_daparcela,
p.nome

from parcela parc,cliente c,venda_servico v,produtos_servicos p,itens i

where codigo = :codivenda
and v.codigo = parc.cod_venda
and v.cod_cliente = c.cod_cliente
and p.cod_produto_servicos = i.cod_produto_servico

Select v.data_venda, p.cod_parcela, p.valor_parcela,
c.nome_cliente, p.situacao, pr.nome, p.valor_pago, p.data_pagamento
From VENDA_SERVICO v
Inner Join PARCELA p
On P.COD_VENDA = V.CODIGO
Inner Join CLIENTE c
On V.COD_CLIENTE = C.COD_CLIENTE
Inner Join PRODUTOS_SERVICOS pr
On P.cod_produto = PR.cod_produto_servicos
where P.situacao = :PSITUACAO
order by 1

Select
parcela.valor_parcela,
itens.quantidade,
itens.prec_unitario,
produtos_servicos.nome,
cliente.nome_cliente,
venda_servico.data_venda,
parcela.situacao


From PARCELA
Inner Join VENDA_SERVICO
On PARCELA.COD_VENDA = VENDA_SERVICO.CODIGO
Inner Join ITENS
On VENDA_SERVICO.CODIGO = ITENS.COD_VENDA
Inner Join PRODUTOS_SERVICOS
On PRODUTOS_SERVICOS.COD_PRODUTO_SERVICOS = ITENS.COD_PRODUTO_SERVICO
Join CLIENTE
On CLIENTE.COD_CLIENTE = VENDA_SERVICO.COD_CLIENTE