>>IF seekchild("m", "a09ssale") >> SCAN WHILE relatedchild("m", "a09ssale") >>...etc... >>>>
>>*!***************************************************************************** >>*! >>*! Function: SEEKCHILD >>*! >>*! Called by: UNREGISTERED() (function in VSO.PRG) >>*! >>*!***************************************************************************** >>FUNCTION seekchild >> >> *@************************************************************************** >> *@ EXTERNAL FUNCTION => seekchild() >> *@ >> *@ Seeks the Parent DBF's Children in Children DBF using the UNIQUEID connection. >> *@ >> *@*** Parameters >> *@ String -> Parent DBF's Name >> *@ String -> Child DBF's Name in which to SEEK Parent's Current Record >> *@ >> *@*** Return Value >> *@ Logical -> .T. - SEEK Successful >> *@ .F. - SEEK Failed >> *@ >> *@************************************************************************** >> >> *** History >> *** >> *** 18/10/97 Created >> *** 13/05/99 store the tag name into m._vsoerror for reporting >> >> PARAMETERS m.zparent, m.zchild >> >> PRIVATE ALL LIKE z* >> >> m.zsavselect = SELECT() >> >> SELECT (m.zchild) >> m.zsavorder = ORDER() >> >> m._vsoerror = "docid" >> SET ORDER TO TAG docid >> >>*-* = _gotop() >>*-* >>*-* LOCATE FOR &zchild..docid = &zparent..uniqueid >>*-* >>*-* IF FOUND() >> >> IF SEEK(&zparent..uniqueid) >> m.zretval = .T. >> ELSE >> m.zretval = .F. >> ENDIF >> >> m._vsoerror = m.zsavorder >> SET ORDER TO TAG (m.zsavorder) >> >> SELECT (m.zsavselect) >> >> RETURN m.zretval >> >>*!***************************************************************************** >>*! >>*! Function: RELATEDCHILD >>*! >>*! Called by: UNREGISTERED() (function in VSO.PRG) >>*! >>*!***************************************************************************** >>FUNCTION relatedchild >> >> *@************************************************************************** >> *@ EXTERNAL FUNCTION => relatedchild() >> *@ >> *@ Return Logical values depending on the current record ID of the Parent >> *@ DBF's match with the current record ID of the Child DBF. >> *@ >> *@*** Parameters >> *@ String -> Parent DBF's Name >> *@ String -> Child DBF's Name with which to compare the Parent's >> *@ Current ID Value >> *@ >> *@*** Return Value >> *@ Logical -> .T. - Match Successful >> *@ .F. - Match Failed >> *@ >> *@************************************************************************** >> >> *** History >> *** >> *** 08/11/97 Created >> >> PARAMETERS m.zparent, m.zchild >> >> PRIVATE ALL LIKE z* >> >> RETURN &zchild..docid = &zparent..uniqueid >>>