select "a09ssale" SET ORDER TO TAG docid if seek(m.uniqueid) scan while docid = m.uniqueid *...Work same as your routine ?
>>>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 >>>>>