FileMaker Pro Custom Functions

/* VisiblePortalRows ( objName ; portalName ) Fabrice Nordmann, BH&A 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 = "" ]; "" ) ))
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.