Comments on: Search an entire NAV database with 10 lines of code https://www.hougaard.com/search-an-entire-nav-database-with-10-lines-of-code/ Do more with apps Fri, 23 Feb 2018 15:59:07 +0000 hourly 1 https://wordpress.org/?v=6.9.4 By: hougaard https://www.hougaard.com/search-an-entire-nav-database-with-10-lines-of-code/#comment-262 Fri, 23 Feb 2018 15:59:07 +0000 https://www.hougaard.com/?p=943#comment-262 In reply to Peter.

Hi Peter,

FORMAT in NAV2016+ returns as much as you need. Text variables are converted into DotNet String variables with a maximum of a million characters (32 bit limit for wide characters in 16bit).

Other than that, I would not call UPPERCASE(SearchValue) for each single field, that’s quite an big overhead instead of doing it once at the beginning 🙂

]]> By: Peter https://www.hougaard.com/search-an-entire-nav-database-with-10-lines-of-code/#comment-261 Fri, 23 Feb 2018 09:12:49 +0000 https://www.hougaard.com/?p=943#comment-261 Nice, but your FORMAT(R) only returns the first 1024 chars as far as I know. Otherwise you couldn’t do it in 10 lines, you say?

Challenge accepted!

OnRun()
SearchValue := ‘NaV’;

Tables.SETRANGE(“Object Type”,Tables.”Object Type”::TableData);
IF Tables.FINDSET THEN REPEAT
R.CLOSE;
R.OPEN(Tables.”Object ID”);
IF R.FINDSET THEN REPEAT
FOR FldNo := 1 TO R.FIELDCOUNT DO
IF STRPOS(UPPERCASE(FORMAT(R.FIELDINDEX(FldNo).VALUE)),UPPERCASE(SearchValue)) 0 THEN
ERROR(‘Found in %1\Found in field: %2\\%3’,R.RECORDID,R.FIELDINDEX(FldNo).NAME,FORMAT(R));
UNTIL R.NEXT = 0;
UNTIL Tables.NEXT = 0;

I might bend/abuse a single C/AL guideline a tiny bit, but please notice I even had to add an R.CLOSE in my NAV 2009R2, but I also made it case insensitive for free 🙂

]]>