>LPARAMETERS oRs, cAlias > > LOCAL loCursor, lcCursor, lcAlias > Try > lcCursor = Sys(2015) > loCursor = CREATEOBJECT("CursorAdapter") > lcAlias=IIF( Type('cAlias') = 'C', cAlias, Sys(2015) ) >..... > Catch > Finally > loCursor = null > loRs=null > EndTry > >Return Iif( Used(lcAlias), 1, -1 ) >>