static procedure TDefaultFlowExecutorsManager.RefreshExecutors(ACommand: TFlowCommand);
......
lQuery.ConnectionString := cDBConnectStr;
lQuery.CommandText := SysUtils.Format('SELECT * FROM TFLOWDEFAULTEXECUTOR WHERE FOWNER = ''%s'' AND FSPROCURL = ''%s'' AND FSPROCUNITID = ''%s'' AND FFLOWCOMMANDID = %d',
[GetOrgURLSaveStr(GetOwner(lCommand)),
SysUtils.UpperCase(ACommand.FlowControl.CurrentProcUnit.Proc.BizClassURL.BizURL.URL),
SysUtils.UpperCase(ACommand.FlowControl.CurrentProcUnit.ID),
ACommand.ID]);
lQuery.Open;
.....
Open时报错,别说我没编译,我肯定是编译了,并在调试期ALT+F9运行的 |