WITH THISFORM.oCurrentData llReturnValue = TABLEREVERT(.F., ._cAlias) && <--- this change RECNO() -> move childs IF NOT llReturnValue = 0 TABLEREVERT(.F., "LAB_PHYSICAL") TABLEREVERT(.F., "LAB_VISUAL") TABLEREVERT(.F., "LAB_MECHANICAL") TABLEREVERT(.F., "LAB_COMP") TABLEREVERT(.F., "LAB_TREATMENT") TABLEREVERT(.F., "LAB_RUNNING") ENDIFExist a general rule:
WITH THISFORM.oCurrentData IF MIN( TABLEREVERT(.F., "LAB_RUNNING") ; , TABLEREVERT(.F., "LAB_TREATMENT") ; , TABLEREVERT(.F., "LAB_COMP") ; , TABLEREVERT(.F., "LAB_MECHANICAL") ; , TABLEREVERT(.F., "LAB_VISUAL") ; , TABLEREVERT(.F., "LAB_PHYSICAL") ; , TABLEREVERT(.F., ._cAlias))=0 * error ENDIFFabio