This code results in errors:.
Code: Select all
CLOSE ALL
COPY FILE ("Inp_data.dbf") TO (M_ApplsPath+"\Inp_data\Inp_data.dbf")
USE Inp_data EXCLUSIVE NEW
DC_WorkArea2Excel( "Inp_data.xls" )
DC_WorkArea2Excel( M_ApplsPath+"\Inp_data\Inp_data.xls" )


The file itself is here:
http://lc.kubagro.ru/Dima/Inp_data.rar