Доброго времени суток! Помогите, пожайлуста новичку, которая только начинает осваивать азы программирования. суть задачи в следующем: есть txt файл, нужно перевести в dbf, чтобы потом в нем проводить поиск. Файл примерно такого вида:

000000000642973247 20061205 0 473.0020061204 20061205 151653001805 165801001 40911810100135400001049205805301018100000000008051659017978 165901001 04920500140101810800000010001 1 5 0.00 1821060401202100011092401000000ТП0 0 0 НС18210604012021000110, 92401000000, Транспортный налог, согласно реестру; , 3 квитанций 20061205 и все это в одну строку

Что-то накалякала, но где-то напортачила. Подскажите что не так

close all
close database
pathmain='C:\proect\'
If file('ufk.dbf')
Delete file ufk.dbf
endif

ifp=fopen('c:\1\vr1205_1.txt')
if ifp<0
? "Невозможно открыть файл c:\1\vr1205.txt"
return
else

*use pathmain+'otdel_vvoda.dbc'
STORE FSEEK(ifp, 0) to f_bof
do while !eof()
fstr=fgets(ifp)
*ls=len(fstr)
*? ls
if substr(fstr,1)="СТР"
=fputs(ifp,fstr)
*exit
CREATE TABLE ufk (nom_rach n(3), svodsum n(15.2), status_pl n(2), innpol n(12), kpppol n(9), okato n(11), kbk n(20))
*if substr(fstr,66,2)='15' and substr(fstr,68,10)='1653001805' and substr(fstr,80,9)='165801001'
append blank in ufk
repl in ufk
nraschd=substr(fstr,17,3) && номер расчетного документа
*? nraschd
status_pl=substr(fstr,66,2) && статус 15
*? status_pl
svodsum=substr(fstr,31,15.2)&& сводная сумма
*? svodsum
innpol=substr(fstr,68,10)&& ИНН получателя
*? innpol
kpppol=substr(fstr,80,9)&& КПП получателя
*? kpppol
fstr=fgets(ifp)
inn_nalog=substr(fstr,458-254,12)&& ИНН нал огового органа
*? inn_nalog
gni=substr(fstr,458-254+2,2)&& определяем гни налогового органа
*? gni
*fstr=fgets(ifp)
*fstr=fgets(ifp)
kbk=substr(fstr,900-254,20)&& КБК
*? kbk
okato=substr(fstr,920-254,11)&& ОКАТО
*? okato

*set procedure to pathmain+"poisk.prg"
*do poisk1 with gni,nraschd, svodsum
*nz=recno() && skip
*? nz
wait

fstr=fgets(ifp)
fstr=fgets(ifp)
fstr=fgets(ifp)
else
fstr=fgets(ifp)
fstr=fgets(ifp)
fstr=fgets(ifp)
fstr=fgets(ifp)

endif
* endif
enddo
endif
wait

Всем доброго времени суток! Просмотрела про APPEND FROM FileNam при отладке выдает ошибку что файл используется, что не так и что делать? Заранее Большое спасибо за ответ