Function gettempalias && return cursor alias Local cTempalias cTempalias='A'+Substr(Sys(2015),3,10) If Used(cTempalias) Use In &cTempalias. Endif Return cTempalias Endfuncand in your program:
cAlias=gettempalias() Select ... From ... Into Cursor &cAlias. ... Select (cAlias) ... Use In &cAlias.>Hi Sir,
>SELECT * FROM poentry ; >INTO CURSOR crsPoEntry >>