hi,

still take the same time,
after convert i missed fields as customer name,
in this code i get error message (index on char11 tag char11)type of char 11 as xml type
,and i get another error message (file is in use)

***************

thisform.text1.Value=GETFILE()
SET DEFAULT TO e:\samerqda
LOCAL lcTableName
lcTableName = thisform.text2.value  
XMLTOCURSOR(ALLTRIM(thisform.Text1.Value),"VFPCursorName",512)
SELECT VFPCursorNAME
*COPY STRUCTURE TO cVFPTable
COPY TO (thisform.text2.value)

SELECT 0
*USE cVFPTable
USE (thisform.text2.value)
BROW
m.t=(thisform.text2.value)
CLOSE all

*USE (thisform.text2.value) exclusive ALIAS SomeAlias
USE (m.t) exclusive ALIAS SomeAlias
index on char11 tag char11

select sys(2015) as SortOrder,* from SomeAlias ;
 into cursor crsTemp nofilter

select SomeAlias && now it should work
zap
select crsTemp
MY_CHAR11="POTHWAY"

scan
 if !seek(char11 ,'SomeAlias','char119')
scatter memvar memo
 insert into (thisform.text2.value) from memvar
 endif
endscan