Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » ElevateDB Technical Support » Incident Reports » Incident Reports Addressed for Version 2.02 » View Incident Report |
Serious |
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 Wednesday, March 20, 2024 at 07:22 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |