>>CLOSE all >>activate screen >>SET TALK OFF >>SET ECHO off >>GETDIR() >> >>thisform.text1.Value=GETFILE() >>thisform.text2.value ="am" >>SET DEFAULT TO e:\ut >>LOCAL am >>am = thisform.text2.value >>CREATE TABLE &am(char1 C(10), char2 C(70),char3 C(10), char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10),char9 c(10), char10 c(40),char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS) >>APPEND FROM (thisform.text1.value)TYPE XLS >> >>use am exclusive >> index on val(char9) tag char9 >> >> >>select sys(2015) as SortOrder,* from am ; >> order by 1 descending ; >> into cursor crsTemp nofilter >> >> >>select am >>zap >>select crsTemp >> >>scan >> if !seek(char9,'am','char9') >> scatter fields char2 , char4 , char7, char8, char9, char13 , char25, char26, char27, char28 memvar >> insert into am from memvar >> endif >>endscan >> >> >>Select * from am ; >> where INLIST( val(char3), 100, 201, 202, 203 ); >> and ( inList( upper(allt(char25)), "ADSL 1", "B ISDN ") or upper(left(char25,2)) = "LL" ); >> into table am2 nofilter >> brow >> >>**************************convert to excel***************** >>CLOSE all >>USE am2 >>*GETFILE() >> >>gcDelimName = ALIAS( ) + '.xls' >> >>gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >> >>IF EMPTY(gcDelimFile) && Esc pressed >> >> CANCEL >> >>ENDIF >> >>COPY TO (gcDelimFile) XLS && Create delimited file >> >>DROP TABLE am >>DROP TABLE am2 >>SET DEFAULT TO e:\ut >> >>>>
>>>>>scatter fields char2 , char4 , char7, char8, char9, char13 , char25, char26, char27, char28 memvar>>>>>
SCATTER MEMO MEMVAR BLANK>>>>>>>on the line before
scatter memvar memo>>>>>>>
>>>>>>>>scan >>>>>>>> if !seek(char9,'am','char9') >>>>>>>> * scatter memvar memo >>>>>>>>**i try as.. scatter fields char2 , char4 , char7, char8, char9, char13 , char25, char26, char27, char28 memvar &&& no data at my table >>>>>>>> >>>>>>>> scatter fields except char2 , char4 , char7, char8, char9, char13 , char25, char26, char27, char28 memvar >>>>>>>> insert into am from memvar >>>>>>>> >>>>>>>> endif >>>>>>>>endscan >>>>>>>>>>>>>>>>