41 lines
2 KiB
MySQL
41 lines
2 KiB
MySQL
|
CREATE OR ALTER PROCEDURE [dbo].[Mm_S_MaintenanceInstructionSchedule]
|
|||
|
|
AS
|
|||
|
|
BEGIN
|
|||
|
|
SET NOCOUNT ON;
|
|||
|
|
|
|||
|
|
-- Zamanlanmış iş (Maintenance Instruction Schedule, her gece 01:00). Aktif bakım talimatlarının
|
|||
|
|
-- sonraki bakım tarihini Başlangıç Tarihi + k × periyot dizisinde bugüne eşit ya da bugünden sonraki
|
|||
|
|
-- ilk tarihe taşır; Bitiş Tarihi geçmişse ya da talimat pasifse tarih boşalır. İş emri tablosu
|
|||
|
|
-- geldiğinde vadesi gelen ve onaylanmış talimattan iş emri bu yordamda açılır.
|
|||
|
|
-- İş host ve her kiracı için çağrılır, yordam parametre almaz; bütün kiracıların satırlarını işler
|
|||
|
|
-- ve aynı gün tekrar çalışması sonucu değiştirmez.
|
|||
|
|
DECLARE @Today date = CAST(GETDATE() AS date);
|
|||
|
|
|
|||
|
|
UPDATE i SET
|
|||
|
|
NextDueDate = CASE WHEN n.NextDate > i.EndDate THEN NULL ELSE n.NextDate END
|
|||
|
|
FROM Mm_T_MaintenanceInstruction i
|
|||
|
|
CROSS APPLY (
|
|||
|
|
SELECT
|
|||
|
|
CASE WHEN i.PeriodUnit IN ('Month', 'Year') THEN 1 ELSE 0 END AS IsMonth,
|
|||
|
|
CASE i.PeriodUnit WHEN 'Week' THEN 7 * i.PeriodValue WHEN 'Year' THEN 12 * i.PeriodValue ELSE i.PeriodValue END AS Step
|
|||
|
|
) s
|
|||
|
|
CROSS APPLY (
|
|||
|
|
SELECT CASE WHEN s.IsMonth = 1 THEN DATEDIFF(month, i.StartDate, @Today) ELSE DATEDIFF(day, i.StartDate, @Today) END / s.Step AS K
|
|||
|
|
) k
|
|||
|
|
CROSS APPLY (
|
|||
|
|
SELECT CASE WHEN s.IsMonth = 1 THEN DATEADD(month, k.K * s.Step, i.StartDate) ELSE DATEADD(day, k.K * s.Step, i.StartDate) END AS Candidate
|
|||
|
|
) c
|
|||
|
|
CROSS APPLY (
|
|||
|
|
SELECT CASE
|
|||
|
|
WHEN i.StartDate >= @Today THEN i.StartDate
|
|||
|
|
WHEN c.Candidate >= @Today THEN c.Candidate
|
|||
|
|
WHEN s.IsMonth = 1 THEN DATEADD(month, (k.K + 1) * s.Step, i.StartDate)
|
|||
|
|
ELSE DATEADD(day, (k.K + 1) * s.Step, i.StartDate)
|
|||
|
|
END AS NextDate
|
|||
|
|
) n
|
|||
|
|
WHERE i.IsDeleted = 0 AND i.IsActive = 1 AND i.PeriodValue > 0;
|
|||
|
|
|
|||
|
|
UPDATE Mm_T_MaintenanceInstruction SET NextDueDate = NULL
|
|||
|
|
WHERE NextDueDate IS NOT NULL AND (IsDeleted = 1 OR IsActive = 0 OR PeriodValue <= 0);
|
|||
|
|
END
|
|||
|
|
GO
|