with qry_material do begin
     close;
     sql.Clear;
     SQL.Add('select A.*, B.Descricao');;
     SQL.Add('from CL_PRECO_MATERIAL   A');
     Open;
     qry.FieldByName('valor').OnSetText(procedure (Sender: TField; const Text: string)
      begin
          TField(Sender).Value:=get_IBNumericLiteral(Text);
       end
     );
  end;