>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 >Bhavbuti,