procedure TJHFKXX.DataSetZTSJJCalcFields(DataSet: TDataSet);
begin
if DataSet.FieldByName('ContinueDate').AsString<>'' then
if DataSet.FieldByName('PauseDate').AsString<>'' then
DataSet.FieldByName('ZTTS').AsInteger:=DateUtils.DaysBetween(DataSet.FieldByName('PauseDate').AsDateTime,DataSet.FieldByName('ContinueDate').AsDateTime)
else
DataSet.FieldByName('ZTTS').AsInteger:=DateUtils.DaysBetween(DataSet.FieldByName('PauseDate').AsDateTime,SysSrv.SysService.Time)
else
DataSet.FieldByName('ZTTS').AsInteger:=0;
end;