Skip to content

Instantly share code, notes, and snippets.

@seanbamforth
Created July 20, 2012 09:09
Show Gist options
  • Save seanbamforth/3149752 to your computer and use it in GitHub Desktop.
Save seanbamforth/3149752 to your computer and use it in GitHub Desktop.
Override Find Logic with Visual Dataflex DataDictionaries
// Used to perform any After Find logic.
Procedure mAfter_Find
Send OnChange of grpStage
End_Procedure
// Augmented to implement mAfter_Find.
Procedure Request_Find Integer eFindMode Integer iFile Integer
iIndex
Forward Send Request_Find eFindMode iFile iIndex
Send mAfter_Find
End_Procedure
// Augmented to implement mAfter_Find.
Procedure Find Integer iMode Integer iIndex
Forward Send Find iMode iIndex
Send mAfter_Find
End_Procedure
// Augmented to implement mAfter_Find.
Procedure FindByRowId Integer iFile RowID riRowId
Forward Send FindByRowId iFile riRowId
Send mAfter_Find
End_Procedure
// Augmented to implement mAfter_Find.
Procedure Find_By_Recnum Integer iFile Integer iRecnum
Forward Send Find_By_Recnum iFile iRecnum
Send mAfter_Find
End_Procedure
// Augmented to implement mAfter_Find.
Procedure Clear
Forward Send Clear
Send mAfter_Find
End_Procedure
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment