|
@@ -306,6 +306,7 @@ procedure TCommandDispatcher.CheckSenderID(aCommand: TCustomWorkerCommand);
|
|
begin
|
|
begin
|
|
if (aCommand.FSenderID='') then
|
|
if (aCommand.FSenderID='') then
|
|
aCommand.FSenderID:=DefaultSenderID;
|
|
aCommand.FSenderID:=DefaultSenderID;
|
|
|
|
+ aCommand[cFldSender]:=undefined;
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure TCommandDispatcher.SendCommand(aWorker: TJSWorker; aCommand: TCustomWorkerCommand);
|
|
procedure TCommandDispatcher.SendCommand(aWorker: TJSWorker; aCommand: TCustomWorkerCommand);
|