https://dataflex.wiki/api.php?action=feedcontributions&feedformat=atom&user=Garretmott 2026-04-30T15:14:54Z User contributions MediaWiki 1.43.8 https://dataflex.wiki/index.php?title=Talk:Portal:Data_Connectivity&diff=1897 2008-04-30T03:27:17Z

<p>Garretmott: Run a procedure after a record is found &amp; all relates, constraints, etc. are done</p> <hr /> <div>One thing VDF is missing is an event that fires after a record is found &amp; all relates, constrains, etc. are done.<br /> <br /> Matthew Davidian responded to a post of mine in the VDF newsgroup with a great solution. I've expanded it to cover VDF 11.1 &amp; later - which use FindByRowID instead of Find_By_Recnum.<br /> <br /> After putting the code below in your DataDictionary subclass, put the following in a local DataDictionary (one in a view, dialog, etc.):<br /> <br /> Object oTable_DD is a Table_DataDictionary<br /> Set DDO_Server to oParent_DD<br /> <br /> Set AfterRecordFound_msg to ProcName<br /> <br /> Procedure ProcName<br /> Do something<br /> Do something else<br /> End_Procedure<br /> <br /> The code for your DataDictionary class:<br /> <br /> Class MyDataDictionary is a DataDictionary<br /> <br /> // Construct_Object: Object constructor.<br /> Procedure Construct_object<br /> Forward Send Construct_Object<br /> <br /> // Define new Properties: Property {Type} {pxName} {initial_value}<br /> <br /> // Set this property in Local DD to a local proc<br /> // that will get called after records are found<br /> Property String AfterRecordFound_msg &quot;&quot;<br /> <br /> // Create child objects<br /> <br /> // Set property values:<br /> End_Procedure<br /> <br /> // Below three procs from Matthew Davidian to create a proc<br /> // that runs after Finds/constraints, etc. are done<br /> // GM Added Procedure FindByRowID<br /> <br /> Procedure Request_Find Integer iFind_Mode# Integer iFile# Integer iIndex#<br /> Integer iAfterRecordFound<br /> <br /> Forward Send Request_Find iFind_Mode# iFile# iIndex#<br /> <br /> [Found] If (AfterRecordFound_msg(Self)) Begin<br /> Get AfterRecordFound_msg to iAfterRecordFound<br /> Send iAfterRecordFound iFile#<br /> Indicate Found True<br /> End<br /> End_Procedure<br /> <br /> Procedure Find_By_Recnum Integer iFile# Integer iRec#<br /> Integer iAfterRecordFound<br /> <br /> Forward Send Find_By_Recnum iFile# iRec#<br /> <br /> [Found] If (AfterRecordFound_msg(Self)) Begin<br /> Get AfterRecordFound_msg to iAfterRecordFound<br /> Send iAfterRecordFound iFile#<br /> Indicate Found True<br /> End<br /> End_Procedure<br /> <br /> Procedure Request_Assign Integer iFile#<br /> Integer iAfterRecordFound<br /> <br /> Forward Send Request_Assign iFile#<br /> <br /> [Found] If (AfterRecordFound_msg(Self)) Begin<br /> Get AfterRecordFound_msg to iAfterRecordFound<br /> Send iAfterRecordFound iFile#<br /> Indicate Found True<br /> End<br /> End_Procedure<br /> <br /> Procedure FindByRowID Integer iFile# RowID riRowId<br /> Integer iAfterRecordFound<br /> <br /> Forward Send FindByRowId iFile# riRowId<br /> <br /> [Found] If (AfterRecordFound_msg(Self)) Begin<br /> Get AfterRecordFound_msg to iAfterRecordFound<br /> Send iAfterRecordFound iFile#<br /> Indicate Found True<br /> End<br /> End_Procedure</div>

Garretmott