Вот голый пример, надеюсь идея будет понятна:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
use m.gcdat+'saldo.dbf' exclusive alias saldo
if used('SALDO')
if TYPE('KOD')='U'
on error
copy structure extended to m.gctmp+'aaa.dbf'
copy to m.gctmp+'bbb.dbf'
close databases
use m.gctmp+'aaa.dbf' in 0 alias aaa exclusive
append blank
replace field_name with 'KOD'
replace field_type with 'N'
replace field_len with 4
create m.gcdat+'saldo.dbf' from m.gctmp+'aaa.dbf'
close databases
use m.gcdat+'saldo.dbf' exclusive alias SALDO
append from m.gctmp+'bbb.dbf'
close databases
delete file m.gctmp+'aaa.dbf'
delete file m.gctmp+'bbb.dbf'
endif
else
do s_sob1 with m.gcdat+'saldo.dbf'
endif
В данном случае происходит добавление поля KOD если оно отсутствовало прежде. Плюс можете написать свой обработчик ошибок...
