21 lines
1.4 KiB
PL/PgSQL
21 lines
1.4 KiB
PL/PgSQL
CREATE OR REPLACE PROCEDURE public."Prc_P_PurchaseOrderRecalc"(p_id uuid)
|
||
LANGUAGE plpgsql AS $$
|
||
BEGIN
|
||
UPDATE "Prc_T_PurchaseOrderLine" SET "Amount" = ROUND("Quantity" * "UnitPrice", 2)
|
||
WHERE "PurchaseOrderId" = p_id AND "IsDeleted" = false;
|
||
|
||
-- Kaynak: teklif talebinden gelen siparişte teklif no, doğrudan yazılan siparişte talep numaraları.
|
||
UPDATE "Prc_T_PurchaseOrder" o SET
|
||
"UntaxedAmount" = COALESCE((SELECT SUM(l."Amount") FROM "Prc_T_PurchaseOrderLine" l WHERE l."PurchaseOrderId" = p_id AND l."IsDeleted" = false), 0),
|
||
"TaxAmount" = COALESCE((SELECT SUM(ROUND(l."Amount" * l."TaxRate" / 100, 2)) FROM "Prc_T_PurchaseOrderLine" l WHERE l."PurchaseOrderId" = p_id AND l."IsDeleted" = false), 0),
|
||
"SourceDocument" = COALESCE((SELECT q."RfqNo" FROM "Prc_T_PurchaseRfq" q WHERE q."Id" = o."PurchaseRfqId"),
|
||
(SELECT string_agg(DISTINCT m."RequestNo", ', ')
|
||
FROM "Prc_T_PurchaseOrderLine" l
|
||
INNER JOIN "Prc_T_MaterialRequestItem" i ON i."Id" = l."MaterialRequestItemId"
|
||
INNER JOIN "Prc_T_MaterialRequest" m ON m."Id" = i."MaterialRequestId"
|
||
WHERE l."PurchaseOrderId" = p_id AND l."IsDeleted" = false))
|
||
WHERE o."Id" = p_id;
|
||
|
||
UPDATE "Prc_T_PurchaseOrder" SET "TotalAmount" = "UntaxedAmount" + "TaxAmount" WHERE "Id" = p_id;
|
||
END;
|
||
$$;
|