FUNCTION clubtestnames LPARAMETERS tiPID, tiType LOCAL lcStr, lcSelect, llsPatients, llmTests lcSelect = SELECT() lcStr = "" IF !USED("sPatients") USE sPatients IN 0 llsPatients = .T. ELSE llsPatients = .F. ENDIF IF !USED("mTests") USE mTests IN 0 llmTests = .T. ELSE llmTests = .F. ENDIF SELECT sPatients SCAN FOR sPatients.iPID = tiPID SELECT mTests SCAN FOR mTests.iID = sPatients.iTest ; AND mTests.iType = tiType lcStr = lcStr + ALLTRIM(mTests.cTest) + " " SELECT mTests ENDSCAN SELECT sPatients ENDSCAN IF llmTests USE IN mTests ENDIF IF llsPatients USE IN sPatients ENDIF RETURN PADR(lcStr, 50) ENDFUNC>>Hi Sergey
LPARAMETERS lcLn >LOCAL lcStr, lcOldArea >lcOldArea = SELECT() >lcStr = "" >IF NOT USED("test0") > USE test0 IN 0 >ENDIF >SELECT test0 >SCAN FOR ln = lcLn > lcStr = lcStr + " " + sn >ENDSCAN >SELECT (lcOldArea ) >RETURN PADR(ALLTRIM(lcStr),32)