La función incluida en tdolpsrv.prg ExecuteScript, intuyo que tiene un error, o que yo no la interpreto.
Intento pasarle un Script, pero da error, pues quiere ejecutar el nombre del archivo que le paso por parametro.
El código dice así:
- Code: Select all Expand view
METHOD ExecuteScript( cFile, bOnScrip ) CLASS TDolphinSrv
LOCAL cText
LOCAL aLine
IF Empty( cFile )
cText = D_ReadFile( cFile )
aLine := hb_ATokens( cText, ";" )
::MultiQuery( aLine, , bOnScrip )
ELSE
::Execute( cFile )
ENDIF
RETURN NIL
No debería ser así?
- Code: Select all Expand view
METHOD ExecuteScript( cFile, bOnScrip ) CLASS TDolphinSrv
LOCAL cText
LOCAL aLine
IF !Empty( cFile )
cText = D_ReadFile( cFile )
aLine := hb_ATokens( cText, ";" )
::MultiQuery( aLine, , bOnScrip )
ENDIF
RETURN NIL