cfLayoutLister ( whichFile ; counter ; fieldName ; onlyLayouts ; result )

List layouts and fields for specified file. Option to limit to match by field name.

Average rating: 4.6 (28 votes) Log in to vote

Bruce Robertson - Show more from this author

Sample input:

Example 1:
cfLayoutLister( "Contacts"; 1; "Name*"; ""; "")

Example 2:
cfLayoutLister( "Contacts"; 1; "Name*"; "x"; "Layouts where name field exists:")

Sample output:

Example 1
Data Entry
city
groupID
kp_CustomerID
nameFirst
State
street
ZIP

List View
city
Contacts_SameGroup::city
Contacts_SameGroup::nameFirst
kp_CustomerID
nameFirst

Example 2
Layouts where name field exists:
Data Entry
List View

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
cfLayoutLister( whichFile; counter; fieldName; onlyLayouts; result) 

returns a list of layouts and the fields on each layout
enter 1 for the counter, unless you want to start at
a layout later in the file

if fileName is "" then current file is used

if fieldname is specified then result only show for
layouts containing field fieldname

if fieldName is "" then all layouts are returned

if onlyLayouts is not "" then only layout names
  will be returned
*/

Let ([
f = Case( IsEmpty( whichFile) ; Get(FileName); whichFile);
layoutlist = LayoutNames ( f ) ;
n = ValueCount ( layoutlist );
findAll = Case(PatternCount(fieldName; "*"); 1);
thisField = Substitute(fieldName; "*"; "");
thisLayout = GetValue ( layoutlist ; counter );
fieldList = ¶ & FieldNames ( f ; GetValue ( layoutlist ; counter )) & ¶;

flag = Case( 
IsEmpty(fieldName); 1;
PatternCount( fieldList; ¶ & thisField & ¶) > 0; 1;
PatternCount( fieldList; "::" & thisField & ¶) > 0; 1;
FindAll = 1 and PatternCount( fieldList; thisField ) > 0; 1
);

thisResult =  
Case(
Flag = 1 and IsEmpty( onlyLayouts) ;
   Case(IsEmpty(result); ""; result & "¶¶" ) &
    TextStyleAdd ( thisLayout ; Bold ) & ¶ & QuickSort( FieldNames ( f ; GetValue ( layoutlist ; counter )));

Flag = 1;
    Case(IsEmpty(result); ""; result & "¶" ) & thisLayout;

Result
)
] ; 
//end variables


Case ( counter < n; 
  cfLayoutLister ( whichFile; counter+1; fieldName; onlyLayouts; thisresult); 
  result)
)

List layouts and fields. You may specify file or leave blank for current file. You may specify field name and only layouts containing this field will be returned; together with the list of all fields on that layout. If you enter any value in "onlyLayouts" then the field list is not returned, only layout names. Some degree of "wild card" support is provided. So you could enter "Items::*" and all layouts showing related fields such as Line Items::Qty, Line Items::Price; PO Items::Qty etc will be returned. Requires Quicksort custom function but that part can be easily removed.

Comments

		Stephen, Minneapolis Jul 4, 2016
With the custom function 'Quicksort' installed, along with this custom function, when I set a variable as: cfLayoutLister( ""; 1; ""; ""; "" ) I get nothing back, the variable is blank and I get no error in my script. Perhaps I am missing something but I am not seeing what the last parameter [result] should be set to. Should my example above not return a list of all layouts, all fields? I am using FM 15

		Bruce, Redmond WA Jul 4, 2016
Your expression works fine. But you will need to fix the Quicksort function first.

		Eric, SJSU Sep 14, 2018
Would this function be better if all the field names were fully qualified?

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

cfLayoutLister ( whichFile ; counter ; fieldName ; onlyLayouts ; result )

Comments

Support this website.

Support this website.