![]() | ![]() Products ![]() ![]() ![]() ![]() |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.02 » View Incident Report |
![]() |
Reported By: Ulrich Doewich Reported On: 1/16/2009 For: Version 2.02 Build 7 |
if Config.Gen_PrimaryServer then begin StartDateStr := '2008-01-05'; EndDateStr := '2018-01-06'; StartTimeStr := '01:00'; EndTimeStr := '23:30'; SQL.Text := 'SELECT * FROM Jobs WHERE Name=' + EDBEngine1.QuotedSQLStr('Maintenance'); Open; // check if the job already exists if (RecordCount = 0) or (UpgradeDb) then begin SQL.Clear; if UpgradeDb then begin SQL.Add('SELECT StartDate,EndDate,StartTime,EndTime FROM Jobs WHERE Name=' + EDBEngine1.QuotedSQLStr('Maintenance')); Open; if RecordCount > 0 then begin StartDateStr := FormatDateTime('yyyy-mm-dd', FieldByName('StartDate').AsDateTime); EndDateStr := FormatDateTime('yyyy-mm-dd', FieldByName('EndDate').AsDateTime); StartTimeStr := FormatDateTime('hh:nn', FieldByName('StartTime').AsDateTime); EndTimeStr := FormatDateTime('hh:nn', FieldByName('EndTime').AsDateTime); end; {$IF Defined(DEBUG)} AddToLog('updating "Maintenance" job'); {$IFEND} SQL.Clear; SQL.Add('ALTER JOB Maintenance'); end else begin {$IF Defined(DEBUG)} AddToLog('creating "Maintenance" job'); {$IFEND} SQL.Add('CREATE JOB Maintenance'); end; SQL.Add('RUN AS "System"'); SQL.Add('FROM DATE ''' + StartDateStr + ''' TO DATE ''' + EndDateStr + ''''); SQL.Add('HOURLY'); SQL.Add('BETWEEN TIME ''' + StartTimeStr + ''' AND TIME ''' + EndTimeStr + ''''); SQL.Add('BEGIN'); SQL.Add(' USE RCS;'); SQL.Add(' CALL ProcPurgeConfData;'); SQL.Add(' CALL ProcPurgeLog;'); SQL.Add(' CALL ProcGenerateUpdates;'); SQL.Add(' USE;'); SQL.Add('END'); ExecSQL; {$IF Defined(DEBUG)} AddToLog(' success'); {$IFEND} end; end
This web page was last updated on Tuesday, June 3, 2025 at 08:21 AM | Privacy Policy![]() © 2025 Elevate Software, Inc. All Rights Reserved Questions or comments ? ![]() |