VisiblePortalRows ( objName ; portalName )

Returns a list of visible row numbers of a portal

Average rating: 4.2 (38 votes) Log in to vote

Fabrice Nordmann - Show more from this author
1-more-thing
https://www.1-more-thing.com

Sample input:

VisiblePortalRows ( aField ; aPortal )

Sample output:

4¶5¶6¶7¶8 if user scrolled down to row number 4 and the portal is displaying 5 rows.

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

/*
VisiblePortalRows ( objName ; portalName )

Fabrice Nordmann
v.1, apr 2007

fabrice@bh-a.com

objName : the name of an object within the portal row
portalName : the name of the portal layout object

returns the visible row numbers as a list.

Based on a crazy Agnès Barouh idea and an insane solution by Alexandre Vial
*/


Let([
   $$cf_counter = Case ( $$cf_counter < 1 ; 1 ; $$cf_counter + 1 )
 ; $portalTop = GetLayoutObjectAttribute ( portalName ; "top" ) + 1
 ; $portalBottom = GetLayoutObjectAttribute ( portalName ; "bottom" ) -1
];


Case ( $$cf_counter = 1 ; Let ([ $$cf_firstRow = "" ; $$cf_lastRow = "" ]; "" ))
&
Case ( IsEmpty ( $$cf_lastRow )
; Case (
     GetAsNumber ( GetLayoutObjectAttribute ( objName ; "top" ; 1 ; $$cf_counter )) >= $portalbottom
   ; Let ( $$cf_lastRow = $$cf_counter - 1 ; "" )
   ; GetAsNumber ( GetLayoutObjectAttribute ( objName ; "bottom" ; 1 ; $$cf_counter )) >= $portalTop
   ; Let ( $$cf_firstRow = Case ( not IsEmpty ( $$cf_firstRow ) ; $$cf_firstRow & ¶ ) & $$cf_counter ; "" )
   )
& VisiblePortalRows ( objname ; portalname )
; $$cf_firstRow & Let ([ $$cf_firstRow = "" ; $$cf_lastRow = "" ; $$cf_counter = "" ]; "" )
))

No matter where the user scrolled, this function lets you know exactly what rows are visible.
The Objname parameter means you'll need to have a named object in the portal rows. The portal also has to be named.

FileMaker 8.5 required.

Comments

		Jonathan Mickelson Aug 18, 2009
Great Custom Function, but I felt the chance for recursion failure due to missing object names really needed an explicit test and escape prior to running recursion. So I added the following lines to my version, perhaps this comment will help anyone else do it without having to re-invent this: Case ( // Test for valid Object names PatternCount ( LayoutObjectNames ( Get ( FileName ) ; Get ( LayoutName ) ) & Â¶ ; objName & Â¶ ) <= 0 ; "objName missing" ; PatternCount ( LayoutObjectNames ( Get ( FileName ) ; Get ( LayoutName ) ) & Â¶ ; portalName & Â¶ ) <= 0 ; "portalName missing" ; // Object names Exist, continue ... Continue existing Let () and add and ending ")" to close the above Case.

		silba, Chicago Jan 28, 2013
Doesn't seem to work with FM12, getting a "?" Worked great with FM11

		justin, Riverview NB Nov 26, 2013
if you get a "?" try giving a object within the portal a name, that solved the problem for me on a similar portal Row Count CF

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

VisiblePortalRows ( objName ; portalName )

Comments

Support this website.

Support this website.