Проблема в коде, вылетает ошибка (в коде выделена красным), не могу понять почему!!!!

Код:

pr_03='COPY FILE "'+gcDelimFile+'base\objects.dbf" to "'+puti_server1+'fivestars\wrem\objects1.dbf"'
&pr_03
pr_03='USE "'+puti_server1+'fivestars\wrem\objects1.dbf" in 0'
&pr_03

pr_03='COPY FILE "'+gcDelimFile+'base\pas_objects.dbf" to "'+puti_server1+'fivestars\wrem\pas_objects1.dbf"'
&pr_03
pr_03='USE "'+puti_server1+'fivestars\wrem\pas_objects1.dbf" in 0'
&pr_03

pr_03='COPY FILE "'+gcDelimFile+'base\asu_objects.dbf" to "'+puti_server1+'fivestars\wrem\asu_objects1.dbf"'
&pr_03
pr_03='USE "'+puti_server1+'fivestars\wrem\asu_objects1.dbf" in 0'
&pr_03

pr_03='COPY FILE "'+gcDelimFile+'base\st_objects.dbf" to "'+puti_server1+'fivestars\wrem\st_objects1.dbf"'
&pr_03
pr_03='USE "'+puti_server1+'fivestars\wrem\st_objects1.dbf" in 0'
&pr_03

pr_03='COPY FILE "'+gcDelimFile+'base\st.dbf" to "'+puti_server1+'fivestars\wrem\st1.dbf"'
&pr_03
pr_03='USE "'+puti_server1+'fivestars\wrem\st1.dbf" in 0'
&pr_03


pr_03='USE "'+puti_server1+'fivestars_data\base\objects.dbf" in 0'
&pr_03

pr_03='USE "'+puti_server1+'fivestars_data\base\pas_objects.dbf" in 0'
&pr_03

pr_03='USE "'+puti_server1+'fivestars_data\base\asu_objects.dbf" in 0'
&pr_03

pr_03='USE "'+puti_server1+'fivestars_data\base\st_objects.dbf" in 0'
&pr_03

pr_03='USE "'+puti_server1+'fivestars_data\base\st.dbf" in 0'
&pr_03



*!* *объединение
Select objects
Go Bottom
pr_03=id_naim+1

Select objects1
Scan
id_naim_02=id_naim
naim_02=naim
adres_02=adres
napr_02=napr
mark_02=Mark
naim_fil_02=naim_fil
Select objects
Append Blank
Replace id_naim With pr_03, naim With naim_02, adres With adres_02, napr With napr_02, Mark With mark_02, naim_fil With naim_fil_02

Select *;
from pas_objects1;
where id_naim=id_naim_02;
into Cursor t1 READWRITE
SELECT t1
Count To zap_01
If zap_01>0
Replace All id_naim With pr_03
Select pas_objects
Append From t1 &&-t1 does not exist
ENDIF

Select *;
from asu_objects1;
where id_naim=id_naim_02;
into Cursor t1 readwrite
Count To zap_01
If zap_01>0
Replace All id_naim With pr_03
Select asu_objects
Append From t1
Endif

Select st
Count To zap_09
Select st1
Count To zap_10
Do Case
Case zap_09=zap_10
Select *;
FROM st_objects1;
WHERE id_naim=id_naim_02;
INTO Cursor t1 readwrite
Count To zap_01
If zap_01>0
Replace All id_naim With pr_03
Select st_objects
Append From t1
Endif
Case zap_09<zap_10
Create Cursor t9(st c(255))
Select st1
Go Top
Do While .T. You can place comments here!
If Eof( )
Exit
Endif

st_02=st
Select st
Locate For st=st_02
If Found()=.T.
Select t9
Append Blank
Replace st With st_02
Endif
Select st1
Skip
Enddo Or You can place comments here!


Select objects1
Go Top
Do While .T. You can place comments here!
If Eof( )
Exit
Endif
st_02=st
Select st_objects
id_naim_03=id_naim
Append Blank
Replace id_naim With id_naim_03, stages With st_02
Select t9
Skip
Enddo Or You can place comments here!


Select *;
FROM st_objects1;
where id_naim=id_naim_02;
INTO Cursor t1 readwrite
Count To zap_01
If zap_01>0
Replace All id_naim With pr_03
Select st_objects
Append From t1
Endif
Case zap_09>zap_10
Create Cursor t9(st c(255))
Select st
Go Top
Do While .T. You can place comments here!
If Eof( )
Exit
Endif
st_02=st
Select st1
Locate For st=st_02
If Found()=.T.
Select t9
Append Blank
Replace st With st_02
Endif
Select st
Skip
Enddo Or You can place comments here!


Select objects1
Go Top
Do While .T. You can place comments here!
If Eof( )
Exit
Endif
st_02=st
Select st_objects
id_naim_03=id_naim
Append Blank
Replace id_naim With id_naim_03, stages With st_02
Select t9
Skip
Enddo Or You can place comments here!


Select *;
FROM st_objects1;
WHERE id_naim=id_naim_02;
into Cursor t1 readwrite
Count To zap_01
If zap_01>0
Replace All id_naim With pr_03
Select st_objects
Append From t1
Endif
Endcase

pr_03=pr_03+1
Select objects1
Endscan
Select objects1
Use
Select objects
Use
Select pas_objects1
Use
Select pas_objects
Use
Select asu_objects1
Use
Select asu_objects
Use
Select st_objects1
Use
Select st_objects
Use
Select st
Use
Select st1
Use

Dima T,

СПС, большое!!!
Я 2 дня бился((((

p.s. Кстате так и не понял почему именно так нужно писать!)))

Dima T,

Теперь понятно (а я уже думал тут что-то настолько серьезное), СПС тебе!!!


Всё ТЕМА ЗАКРЫТА!!!

Sergey SizovСТАРЧЕ,

Ваш код сильно нуждается в полной переработке. Сейчас в нем более 200 строк кода. А можно уложиться в значительено меньшее количество. Писать ТАК даже на FPD - моветон. Это и объемно, и медленно, и нечитаемо. Не говоря уж про VFP не самой старой версии.

tanglirСТАРЧЕ,

+1

А ведь это был всего лишь scatter to mvs blank...
PS. А где у ТСа написан номер версии?

Полностью согласен! Уже этим и занимаюсь. Код не мой (предыдущего программиста), просто хотелось запустить прогу и чёт не дочитал про appen blank (никогда такой проблемы не возникало, наверное потому, что курсорами не пользовался)

Всем СПС!!!

P.S. Пишу на 9-ке. И что такое ТСа?!!! Ну чтоб в курсе быть)