Fórum Filtro data no firebird #349639

procedure TFormRelatorioOrdemServico.ButtonPesquisaClick(Sender: TObject);
var
  CodigoOS, DescricaoOS, Empresa, Prioridade,
  TipoManutencao, Status: String;
begin
  CodigoOS := AnsiUpperCase(EditCodigoOrdemServico.Text);
  DescricaoOS := AnsiUpperCase(EditDescricaoOrdemServico.text);
  Empresa := AnsiUpperCase(DBLookupComboBoxCodigoEmpresa.text);
  Prioridade := AnsiUpperCase(DBLookupComboBoxCodigoPrioridade.text);
  TipoManutencao := AnsiUpperCase(DBLookupComboBoxCodigoTipoManutencao.text);
  Status := AnsiUpperCase(DBLookupComboBoxCodigoStatus.text);

  with DataModuleManut.IBQueryOrdemServico do
  begin
    close;
    Sql.Clear;
    Sql.Add(´SELECT * FROM OrdemServico´);
    Sql.Add(´WHERE UPPER(CodOrdemServico) LIKE :CodOrdemServico´);
    Sql.Add(´AND UPPER(DescricaoOrdemServico) LIKE :DescricaoOrdemServico´);
    Sql.Add(´AND UPPER(CodEmpresa) LIKE :CodEmpresa´);
    Sql.Add(´AND UPPER(CodPrioridade) LIKE :CodPrioridade´);
    Sql.Add(´AND UPPER(CodTipoManutencao) LIKE :CodTipoManutencao´);
    Sql.Add(´AND UPPER(CodStatus) LIKE :CodStatus´);
    Sql.Add(´AND DATA BETWEEN :DATAINICIAL AND :DATAFINAL´);

    ParamByName(´CodOrdemServico´).AsString := ´¬´+ CodigoOS + ´¬´;
    ParamByName(´DescricaoOrdemServico´).AsString := ´¬´+ DescricaoOS +´¬´;
    ParamByName(´CodEmpresa´).AsString := ´¬´+ Empresa +´¬´;
    ParamByName(´CodPrioridade´).AsString := ´¬´+ Prioridade +´¬´;
    ParamByName(´CodTipoManutencao´).AsString := ´¬´+ TipoManutencao +´¬´;
    ParamByName(´CodStatus´).AsString := ´¬´+ Status +´¬´;
    ParamByName(´DataInicial´).AsDate := DateTimePickerDataInicio.Date;
    ParamByName(´DataFinal´).AsDate := DateTimePickerDataFinal.Date;
    Open;

    if IsEmpty then
      ShowMessage(´Nenhum registro foi localizado.´);
  end;
end;

procedure TFormRelatorioOrdemServicoItem.ButtonPesquisaClick
(Sender: TObject);
var
  CodigoOSItem, CodigoOS, SubConjunto, Defeito, Causa,
  Providencia, TipoProblema, Mantenedor, Status: String;
begin
  CodigoOSItem := AnsiUpperCase(EditCodigoOrdemServicoItem.Text);
  CodigoOS := AnsiUpperCase(DBLookupComboBoxCodigoOrdemServico.text);
  SubConjunto := AnsiUpperCase(DBLookupComboBoxCodigoSubConjunto.text);
  Defeito := AnsiUpperCase(DBLookupComboBoxCodigoDefeito.text);
  Causa := AnsiUpperCase(DBLookupComboBoxCodigoCausa.text);
  Providencia := AnsiUpperCase(DBLookupComboBoxCodigoProvidencia.text);
  TipoProblema := AnsiUpperCase(DBLookupComboBoxTipoProblema.text);
  Mantenedor := AnsiUpperCase(DBLookupComboBoxCodigoMantenedor.text);
  Status := AnsiUpperCase(DBLookupComboBoxCodigoStatus.text);

  with DataModuleManut.IBQueryOrdemServicoItem do
  begin
    close;
    Sql.Clear;
    Sql.Add(´SELECT * FROM OrdemServicoItem´);
    Sql.Add(´WHERE ( (CodItem) = :CodItem´); // *** abri o parêntesis ***
    Sql.Add(´or (CodOrdemServico) = :CodOrdemServico´);
    Sql.Add(´or (CodSubConjunto) = :CodSubConjunto´);
    Sql.Add(´or (CodDefeito) = :CodDefeito´);
    Sql.Add(´or (CodCausa) = :CodCausa´);
    Sql.Add(´or (CodProvidencia) = :CodProvidencia´);
    Sql.Add(´or (CodTipoProblema) = :CodTipoProblema´);
    Sql.Add(´or (CodMantenedor) = :CodMantenedor´);
    Sql.Add(´or (CodStatus) = :CodStatus )´); // *** fechei o parêntesis ***
    Sql.Add(´and DATADAOSITEM BETWEEN :DATAINICIAL AND :DATAFINAL´);

    ParamByName(´CodItem´).AsString := CodigoOSItem ;
    ParamByName(´CodOrdemServico´).AsString := CodigoOS ;
    ParamByName(´CodSubConjunto´).AsString := SubConjunto ;
    ParamByName(´CodDefeito´).AsString := Defeito ;
    ParamByName(´CodCausa´).AsString := Causa ;
    ParamByName(´CodProvidencia´).AsString := Providencia ;
    ParamByName(´CodTipoProblema´).AsString := TipoProblema ;
    ParamByName(´CodMantenedor´).AsString := Mantenedor ;
    ParamByName(´CodStatus´).AsString := Status ;
    ParamByName(´DataInicial´).AsDate := DateTimePickerDataInicio.Date;
    ParamByName(´DataFinal´).AsDate := DateTimePickerDataFinal.Date;

    Open;

    if IsEmpty then
      ShowMessage(´Nenhum registro foi localizado.´);
  end;
end;