Paolo Bruno
20-Mar-2009, 07:49 AM
Sture
You may want to change this on your next release. It is a piece of code that interestingly worked - although it should not. Anyway, its in the openstat.pkg which I use to start dbexplor. Suddenly this stopped working as we installed our product in a way that required no setup (no HKLM entries etc.). Here the corrected version:
procedure OpenStat.Chain_Wait global string program# string parameters# integer lbDontWait
string path# prg_fn#
move (program#+"."+OpenStat.PrgExt) to prg_fn#
get SEQ_FindFileAlongDFPath prg_fn# to path#
if path# ne "" begin
Move (SEQ_ComposeAbsoluteFileName(path#,prg_fn#)) to program# // BUG: switched path# and prg_fn#
send OpenStat_RegisterFiles
send OpenStat_CloseAllFiles
runprogram background (trim(prg_fn#*parameters#))
send OpenStat_RestoreFiles
end
else send obs (replace("#",t.OpenStat.PrgNotFound,prg_fn#))
end_procedure
And an improvement here in the same package
Procedure OpenStat.Chain_DbExplor Global
Send OpenStat.Chain_Wait "DbExplor" (If(OpenStat.PrgExt="exe","-x","")+"noworkspace") DFFALSE
End_Procedure
Regards, Paolo
You may want to change this on your next release. It is a piece of code that interestingly worked - although it should not. Anyway, its in the openstat.pkg which I use to start dbexplor. Suddenly this stopped working as we installed our product in a way that required no setup (no HKLM entries etc.). Here the corrected version:
procedure OpenStat.Chain_Wait global string program# string parameters# integer lbDontWait
string path# prg_fn#
move (program#+"."+OpenStat.PrgExt) to prg_fn#
get SEQ_FindFileAlongDFPath prg_fn# to path#
if path# ne "" begin
Move (SEQ_ComposeAbsoluteFileName(path#,prg_fn#)) to program# // BUG: switched path# and prg_fn#
send OpenStat_RegisterFiles
send OpenStat_CloseAllFiles
runprogram background (trim(prg_fn#*parameters#))
send OpenStat_RestoreFiles
end
else send obs (replace("#",t.OpenStat.PrgNotFound,prg_fn#))
end_procedure
And an improvement here in the same package
Procedure OpenStat.Chain_DbExplor Global
Send OpenStat.Chain_Wait "DbExplor" (If(OpenStat.PrgExt="exe","-x","")+"noworkspace") DFFALSE
End_Procedure
Regards, Paolo