CLOSE ALL USE ALLTRIM(thisform.text3.value) exclusive index ON(ALLTRIM(thisform.text1.value)) TAG (ALLTRIM(thisform.text1.value)) select sys(2015) as SortOrder,* from ALLTRIM(thisform.text3.value) ; order by 1 descending ; into cursor crsTemp nofilter SELECT ALLTRIM(thisform.text3.value) zap&&file is in use select crsTemp scan if !seek(ALLTRIM(thisform.text1.value),'(ALLTRIM(thisform.text3.value))','(ALLTRIM((thisform.text1.value))')&&Alias is not found scatter memvar memo insert into (ALLTRIM(thisform.text3.value)) from memvar endif endscan browthanks
>>CLOSE ALL >>USE (thisform.text3.value) exclusive >>index on (thisform.text1.value) TAG(thisform.text1.value) >>select sys(2015) as SortOrder,* from (thisform.text3.value) ; >> order by 1 descending ; >> into cursor crsTemp nofilter >> SELECT (thisform.text3.value)&&& error message above >> BROW >>zap >>select crsTemp >>scan >> if !seek(thisform.text1.value,'(thisform.text3.value)','(thisform.text1.value)') >> scatter memvar memo >> insert into (thisform.text3.value) from memvar >> endif >>endscan >>brow >>>>
>>CLOSE all >>*use AMMAN_REGION exclusive >>*USE alldat exclusive >>USE ADSL_ALL exclusive >>index on CLIENT tag CLIENT >>select sys(2015) as SortOrder,* from ADSL_ALL ; >> order by 1 descending ; >> into cursor crsTemp nofilter >>select ADSL_ALL >>zap >>select crsTemp >>scan >> if !seek(CLIENT,'ADSL_ALL','CLIENT') >> scatter memvar memo >> insert into ADSL_ALL from memvar >> endif >>endscan >>brow >>>>