25 lines
1.4 KiB
MySQL
25 lines
1.4 KiB
MySQL
|
-- Plan Takibi'nin Geri Al'ı (App.Prc.MaterialRequestPlanTrack › UpdateCommand): stoktan karşılamayı geri alır. Stoktan karşılama belge
|
|||
|
|
-- açmadığı için geri dönüşü kalemin kendisidir: stoktan karşılanan miktar teslim edilenden düşülür ve sıfırlanır, kalanı yeniden açılan
|
|||
|
|
-- kapalı kalem Bekliyor'a döner ve Planlama'da yeniden planlanır (Prc_P_MaterialRequestItemSync ile aynı kural).
|
|||
|
|
CREATE OR REPLACE PROCEDURE public."Prc_P_MaterialRequestStockUndo"(
|
|||
|
|
p_id uuid,
|
|||
|
|
p_tenant_id uuid,
|
|||
|
|
p_last_modifier_id uuid
|
|||
|
|
)
|
|||
|
|
LANGUAGE plpgsql AS $$
|
|||
|
|
BEGIN
|
|||
|
|
UPDATE "Prc_T_MaterialRequestItem"
|
|||
|
|
SET "DeliveredQuantity" = GREATEST("DeliveredQuantity" - "FromStockQuantity", 0),
|
|||
|
|
"FromStockQuantity" = 0, "LastModificationTime" = NOW() AT TIME ZONE 'UTC', "LastModifierId" = p_last_modifier_id
|
|||
|
|
WHERE "Id" = p_id AND "IsDeleted" = false AND "FromStockQuantity" > 0 AND "LineStatus" IN ('Waiting', 'Done')
|
|||
|
|
AND "TenantId" IS NOT DISTINCT FROM p_tenant_id;
|
|||
|
|
IF NOT FOUND THEN
|
|||
|
|
RAISE EXCEPTION 'Geri alınacak stoktan karşılama yok ya da kalem kapatılmış.' USING ERRCODE = 'P0001', DETAIL = '50202';
|
|||
|
|
END IF;
|
|||
|
|
|
|||
|
|
UPDATE "Prc_T_MaterialRequestItem" i SET "LineStatus" = 'Waiting'
|
|||
|
|
FROM public."Prc_V_MaterialRequestItemPlan" p
|
|||
|
|
WHERE p."Id" = i."Id" AND i."Id" = p_id AND i."LineStatus" = 'Done' AND p."RemainingQuantity" > 0 AND i."DeliveredQuantity" < i."Quantity";
|
|||
|
|
END;
|
|||
|
|
$$;
|