Fórum Ajuda para simplificar IsEmpty envolvendo duas tabelas #354159

procedure TF_LANCAMENTO_PROJETO.codExit(Sender: TObject);
begin

  //**IsEmpty verificando se o código de material existe**//
  if not (cod.Text=´´) then begin
   dm.sdsMaterial.Close;
   dm.sdsMaterial.CommandText:=´select * from MATERIAL where cod_ordenado= :pcod_ordenado´;
   dm.sdsMaterial.ParamByName(´pcod_ordenado´).AsString:=cod.Text;
   dm.sdsMaterial.Open;
    if not dm.sdsMaterial.IsEmpty then
     begin
      descricao.Text:=dm.sdsMaterial.FieldByName(´descricao´).AsString;
      un.Text:=dm.sdsMaterial.FieldByName(´un´).AsString;
      unitario.Text:=dm.sdsMaterial.FieldByName(´preco_unitario´).AsString;
      qt.SetFocus;
      end
      else
      ShowMessage(´Código não Localizado.´);
      cod.SetFocus;
      end;
      
    //**IsEmpty para não duplicar o material para o grupo, 1 material para um grupo**//
    if not (cod.Text=´´) then begin
      dm.sdsLancamento.Close;
      dm.sdsLancamento.CommandText:=´select * from lancamento_projeto where ´ +
                                    ´cod_projeto_lancamento= :cod_projeto_lancamento and ´ +
                                    ´cod_grupo_fk= :cod_grupo_fk and ´ +
                                    ´cod_ordenado_m= :cod_ordenado_m´;
      dm.sdsLancamento.ParamByName(´cod_projeto_lancamento´).AsString:=projeto.Text;
      dm.sdsLancamento.ParamByName(´cod_grupo_fk´).AsString:=grupo1.Text;
      dm.sdsLancamento.ParamByName(´cod_ordenado_m´).AsString:=cod.Text;
      dm.sdsLancamento.Open;
       if not dm.sdsLancamento.IsEmpty then
        begin
          ShowMessage(´Código já existe para grupo!´);
          cod.Text:=´´;
          descricao.Text:=´´;
          un.Text:=´´;
          qt.Text:=´´;
          unitario.Text:=´´;
          cod.SetFocus;
        end
        else
        qt.SetFocus;
  
 end;
end;