1- modify command wizusz
function Init(tcReturnToProc, tcProcedure)
dodefault(tcReturnToProc, tcProcedure)
this.ReportDir = fullpath(NEW_DIRNAME_LOC)
* 2015-11-17 -- thn -- in dev mode, add upsizing wizard's key folders to set('path') to retrieve tables and others when running from a custom home folder
if Empty(_VFP.StartMode)
local cDir
cDir = Sys(16)
cDir = FullPath(Addbs(justpath(substr(m.cDir, atc(' ', m.cDir, 2) + 1))) + '..\') && upsizing wizard root folder
set path to (m.cDir + 'data;' + m.cDir + 'program;') additive
endif
endfunc
2- modify command wzengine
* set path to &aEnvironment[9, 1] && 2015-11-17 -- thn -- macro substitution does not work here, use name substitution instead
set path to (aEnvironment[9, 1])
I may have more to provide, maybe adding me a contributor could help ... or use Steven's Black gitHub repo (https://github.com/StevenBlack/VFPx-SQL-Server-Upsizing-Wizard)?
cheers
Thierry Nivelet
↧