51 lines
2.7 KiB
PL/PgSQL
51 lines
2.7 KiB
PL/PgSQL
-- Zamanlanmış işin BeforeSp'si PostgreSQL'de "SELECT * FROM public.<ad>()" ile çağrıldığı için
|
||
-- prosedür değil, void dönen fonksiyondur.
|
||
CREATE OR REPLACE FUNCTION public."Mm_S_MaintenanceInstructionSchedule"()
|
||
RETURNS void
|
||
LANGUAGE plpgsql
|
||
AS $$
|
||
DECLARE
|
||
v_Today date := LOCALTIMESTAMP::date;
|
||
BEGIN
|
||
-- 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 fonksiyonda açılır.
|
||
-- İş host ve her kiracı için çağrılır, fonksiyon parametre almaz; bütün kiracıların satırlarını işler
|
||
-- ve aynı gün tekrar çalışması sonucu değiştirmez.
|
||
UPDATE "Mm_T_MaintenanceInstruction" i SET
|
||
"NextDueDate" = CASE WHEN n."NextDate" > i."EndDate" THEN NULL ELSE n."NextDate" END
|
||
FROM (
|
||
SELECT c."Id",
|
||
CASE
|
||
WHEN c."StartDate" >= v_Today THEN c."StartDate"
|
||
WHEN c."Candidate" >= v_Today THEN c."Candidate"
|
||
WHEN c."IsMonth" THEN (c."StartDate" + make_interval(months => (c."K" + 1) * c."Step"))::date
|
||
ELSE c."StartDate" + (c."K" + 1) * c."Step"
|
||
END AS "NextDate"
|
||
FROM (
|
||
SELECT k.*,
|
||
CASE WHEN k."IsMonth" THEN (k."StartDate" + make_interval(months => k."K" * k."Step"))::date
|
||
ELSE k."StartDate" + k."K" * k."Step" END AS "Candidate"
|
||
FROM (
|
||
SELECT s.*,
|
||
(CASE WHEN s."IsMonth"
|
||
THEN ((EXTRACT(YEAR FROM v_Today) - EXTRACT(YEAR FROM s."StartDate")) * 12
|
||
+ EXTRACT(MONTH FROM v_Today) - EXTRACT(MONTH FROM s."StartDate"))::integer
|
||
ELSE v_Today - s."StartDate" END) / s."Step" AS "K"
|
||
FROM (
|
||
SELECT x."Id", x."StartDate",
|
||
x."PeriodUnit" IN ('Month', 'Year') AS "IsMonth",
|
||
CASE x."PeriodUnit" WHEN 'Week' THEN 7 * x."PeriodValue" WHEN 'Year' THEN 12 * x."PeriodValue" ELSE x."PeriodValue" END AS "Step"
|
||
FROM "Mm_T_MaintenanceInstruction" x
|
||
WHERE x."IsDeleted" = FALSE AND x."IsActive" = TRUE AND x."PeriodValue" > 0
|
||
) s
|
||
) k
|
||
) c
|
||
) n
|
||
WHERE n."Id" = i."Id";
|
||
|
||
UPDATE "Mm_T_MaintenanceInstruction" SET "NextDueDate" = NULL
|
||
WHERE "NextDueDate" IS NOT NULL AND ("IsDeleted" = TRUE OR "IsActive" = FALSE OR "PeriodValue" <= 0);
|
||
END;
|
||
$$;
|