Page History

*Calling AppNote directly from an event script.
Declare Subroutine AppNote
Declare Function Get_Property, Repository, entid
$insert Appnote_Equates
AppRec=""
AppRec<ACOL$> = -2
AppRec<AROW$> = -2
AppRec<AFGCOLOR$> = 0:@VM:0:@VM:255
AppRec<ATITLE$>="App Note Test"
AppRec<ATEXT$>="This displays a HelpNote from your code."
PARENT Get_Property(ctrlentID, "PARENT")
AppNote(PARENT, ctrlentID, AppRec)

* Executing an AppNote entity.
Declare Subroutine AppNote, Repository
Declare Function Repository, entid
ID = entid("CARPARTS","AppNote","",ctrlentID)
PARENT = Get_Property(ctrlentID, "PARENT")
 
* attempt to execute AppNote
Success = Repository("EXECUTE", ID, PARENT, "")
 
* If AppNote not in Repository, make one and execute it.
If (Success) Else 
       Repository("WRITE" , ID, "", 1, 1, "", "", "", "", "",|
        "HelpNote", "")
       Repository("EXECUTE", ID, PARENT, "")
End