19 lines
642 B
PHP
19 lines
642 B
PHP
if Assigned(rtnZapisObjMatThr) then
|
|
begin
|
|
{$IFDEF DEBUG}
|
|
WriteLn ('Ukoncuji sluzbu RTN Zapis objednavky materialu do ExpPr...');
|
|
{$ENDIF}
|
|
datMod.LogInfo (Quick.Logger.etInfo, 'Ukoncuji sluzbu RTN Zapis objednavky materialu do ExpPr...');
|
|
try
|
|
rtnZapisObjMatThr.ThreadTerminate;
|
|
FreeAndNil(rtnZapisObjMatThr);
|
|
except on E:Exception do
|
|
// add event in eventlog with reason why the service couldn't stop
|
|
LogMessage('Cannot stop service: ' + E.Message, EVENTLOG_ERROR_TYPE, 0, 1);
|
|
end;
|
|
datMod.LogInfo (Quick.Logger.etInfo, ' OK');
|
|
{$IFDEF DEBUG}
|
|
WriteLn (' OK');
|
|
{$ENDIF}
|
|
end;
|