FileMaker Treeview Navigation

 -

-

-

-

-

-

-

-

-

スクリプト名

NavHide(PortalRowNumber)

• 変数を設定 [ $arg; 値:Get(スクリプト引数) ]
• If [ IsEmpty ( $arg ) ]
• 現在のスクリプト終了 [ ]
• End If
• 変数を設定 [ $targetPortalRowNumber; 値:$arg ]
• 変数を設定 [ $_kActive; 値:GetNthRecord ( NavSelector»Nav::_k ; $targetPortalRowNumber ) ]
• 変数を設定 [ $PortalRowNumber; 値:$targetPortalRowNumber + 1 ]
• 変数を設定 [ $filter; 値:NavSelector::gNavFilter ]
• 変数を設定 [ $level; 値:"" ]
• 変数を設定 [ $MAX; 値:Count ( NavSelector»Nav::_k ) ]
• Loop
• Exit Loop If [ $PortalRowNumber > $MAX ]
• Exit Loop If [ Length ( $level )>Length ( GetNthRecord(NavSelector»Nav::level;$PortalRowNumber) ) ]
• Exit Loop If [ IsEmpty ( GetNthRecord(NavSelector»Nav::level;$PortalRowNumber) ) ]
• 変数を設定 [ $_kPotal; 値:GetNthRecord( NavSelector»Nav::_k ; $PortalRowNumber ) ]
• 変数を設定 [ $filter; 値:Substitute ( $filter ; $_kPotal ; $_kActive & "/" & $_kPotal) ]
• If [ IsEmpty ( $level ) ]
• 変数を設定 [ $level; 値:GetNthRecord( NavSelector»Nav::level ; $PortalRowNumber ) ]
• End If
• 変数を設定 [ $PortalRowNumber; 値:$PortalRowNumber+1 ]
• End Loop
• フィールド設定 [ NavSelector::gNavFilter; $filter ]
• レコード/検索条件確定 [ ダイアログなし ]
• ポータルの更新 [ オブジェクト名: "portal_Nav" ]

-

スクリプト名

NavShow(_kChild)

• 変数を設定 [ $arg; 値:Get(スクリプト引数) ]
• If [ IsEmpty ( $arg ) ]
• 現在のスクリプト終了 [ ]
• End If
• 変数を設定 [ $_kNav; 値:$arg ]
• フィールド設定 [ NavSelector::gNavFilter; Substitute ( NavSelector::gNavFilter; $_kNav & "/" ; "" ) ]
• レコード/検索条件確定 [ ダイアログなし ]
• ポータルの更新 [ オブジェクト名: "portal_Nav" ]

-

スクリプト名

NavShowAll

• フィールド設定 [ NavSelector::gNavFilter; Let( ~val=Substitute ( NavSelector::gNavFilter ; "/" ; ¶ ) ; UniqueValues ( ~val ; 1 ) ) ]
• レコード/検索条件確定 [ ダイアログなし ]
• ポータルの更新 [ オブジェクト名: "portal_Nav" ]

-

スクリプト名

NavHideAll

• 変数を設定 [ $MAX; 値:Count ( NavSelector»Nav::_k ) ]
• 変数を設定 [ $PortalRowNumber; 値:$MAX ]
• Loop
• Exit Loop If [ $PortalRowNumber ≤ 0 ]
• 変数を設定 [ $_kPotal; 値:GetNthRecord ( NavSelector»Nav::_k ; $PortalRowNumber ) ]
• If [ PatternCount ( $filter ; $_kPotal & "/" )=0 and $MAX ≠ $PortalRowNumber ]
• 変数を設定 [ $bool; 値:Let([ ~p1=GetNthRecord ( NavSelector»Nav::level ; $PortalRowNumber ) ;~p2=GetNthRecord ( NavSelector»Nav::level ; $PortalRowNumber+1 ) ]; Case( ~p1 = ~p2 ; 0; IsEmpty ( ~p2 ) ; 0; Length ( ~p1 )>Length ( ~p2 ) ; 0; 1 ) ) ]
• If [ $bool ]
• スクリプト実行 [ 「NavHide(PortalRowNumber)」; 引数: $PortalRowNumber ]
• End If
• End If
• 変数を設定 [ $PortalRowNumber; 値:$PortalRowNumber-1 ]
• End Loop
• レコード/検索条件確定 [ ダイアログなし ]
• ポータルの更新 [ オブジェクト名: "portal_Nav" ]

-