58 lines
3.8 KiB
PL/PgSQL
58 lines
3.8 KiB
PL/PgSQL
-- İhaleyi kalem bazında siparişe çevirir: kalemin Seçili satırı varsa o, yoksa Önerilen satır kazanır.
|
||
-- Kazanan her teklif talebi için bir satınalma siparişi açılır (Kaynak = teklif no); kazanan teklif
|
||
-- Satınalma Siparişi, hiç kalem kazanamayan teklif İptal Edildi olur.
|
||
CREATE OR REPLACE PROCEDURE public."Prc_P_PurchaseRfqAward"(p_id uuid, p_user_id uuid DEFAULT NULL)
|
||
LANGUAGE plpgsql AS $$
|
||
DECLARE v_group uuid; v_tenant uuid; v_rfq uuid; v_po uuid; v_no varchar(128);
|
||
BEGIN
|
||
SELECT "TenderGroupId", "TenantId" INTO v_group, v_tenant FROM "Prc_T_PurchaseRfq" WHERE "Id" = p_id;
|
||
IF EXISTS (SELECT 1 FROM "Prc_T_PurchaseRfq" WHERE "TenderGroupId" = v_group AND "IsDeleted" = false AND "Status" = 'Purchase') THEN
|
||
RAISE EXCEPTION 'Bu ihale zaten siparişe dönüştürüldü.' USING ERRCODE = 'P0001', DETAIL = '50171';
|
||
END IF;
|
||
|
||
DROP TABLE IF EXISTS pg_temp.prc_award_win;
|
||
CREATE TEMP TABLE prc_award_win ON COMMIT DROP AS
|
||
SELECT c."Id" AS line_id, c."PurchaseRfqId" AS rfq_id
|
||
FROM "Prc_V_PurchaseRfqComparison" c
|
||
WHERE c."BaseId" = p_id AND c."Status" <> 'Cancelled'
|
||
AND (c."IsSelected"
|
||
OR (c."IsRecommended" AND NOT EXISTS (SELECT 1 FROM "Prc_V_PurchaseRfqComparison" s
|
||
WHERE s."BaseId" = p_id AND s."TenderLineId" = c."TenderLineId"
|
||
AND s."IsSelected" AND s."Status" <> 'Cancelled')));
|
||
IF NOT EXISTS (SELECT 1 FROM prc_award_win) THEN
|
||
RAISE EXCEPTION 'Siparişe dönüştürülecek kalem yok: tedarikçi fiyat ve terminlerini girin ya da Fiyat Karşılaştırması sekmesinde kazananı seçin.'
|
||
USING ERRCODE = 'P0001', DETAIL = '50172';
|
||
END IF;
|
||
|
||
FOR v_rfq IN SELECT DISTINCT rfq_id FROM prc_award_win LOOP
|
||
v_po := gen_random_uuid();
|
||
CALL public."Adm_P_SequenceNext"('PurchaseOrder1', v_tenant, v_no);
|
||
|
||
INSERT INTO "Prc_T_PurchaseOrder" ("Id", "TenantId", "OrderNo", "PurchaseRfqId", "SupplierId", "SupplierReference", "AgreementId", "CurrencyId",
|
||
"ExpectedArrival", "OperationTypeId", "ConfirmDate", "BuyerUserId", "ProjectId", "IncotermId", "IncotermLocation", "PaymentTermId", "Terms",
|
||
"Status", "CreationTime", "CreatorId", "IsDeleted")
|
||
SELECT v_po, "TenantId", v_no, "Id", "SupplierId", "SupplierReference", "AgreementId", "CurrencyId",
|
||
"ExpectedArrival", "OperationTypeId", NOW() AT TIME ZONE 'UTC', "BuyerUserId", "ProjectId", "IncotermId", "IncotermLocation", "PaymentTermId", "Terms",
|
||
'Purchase', NOW() AT TIME ZONE 'UTC', p_user_id, false
|
||
FROM "Prc_T_PurchaseRfq" WHERE "Id" = v_rfq;
|
||
|
||
INSERT INTO "Prc_T_PurchaseOrderLine" ("Id", "TenantId", "PurchaseOrderId", "ProductId", "Description", "Quantity", "UomId", "UnitPrice", "TaxRate",
|
||
"Amount", "DeliveryDate", "MaterialRequestItemId", "PurchaseRfqLineId", "CreationTime", "CreatorId", "IsDeleted")
|
||
SELECT gen_random_uuid(), l."TenantId", v_po, l."ProductId", l."Description", l."Quantity", l."UomId", l."UnitPrice", l."TaxRate",
|
||
0, l."DeliveryDate", l."MaterialRequestItemId", l."Id", NOW() AT TIME ZONE 'UTC', p_user_id, false
|
||
FROM "Prc_T_PurchaseRfqLine" l
|
||
INNER JOIN prc_award_win w ON w.line_id = l."Id"
|
||
WHERE w.rfq_id = v_rfq;
|
||
|
||
CALL public."Prc_P_PurchaseOrderRecalc"(v_po);
|
||
END LOOP;
|
||
|
||
UPDATE "Prc_T_PurchaseRfqLine" l SET "IsSelected" = EXISTS (SELECT 1 FROM prc_award_win w WHERE w.line_id = l."Id")
|
||
FROM "Prc_T_PurchaseRfq" r
|
||
WHERE r."Id" = l."PurchaseRfqId" AND r."TenderGroupId" = v_group AND r."IsDeleted" = false AND r."Status" <> 'Cancelled';
|
||
|
||
UPDATE "Prc_T_PurchaseRfq" r
|
||
SET "Status" = CASE WHEN EXISTS (SELECT 1 FROM prc_award_win w WHERE w.rfq_id = r."Id") THEN 'Purchase' ELSE 'Cancelled' END
|
||
WHERE r."TenderGroupId" = v_group AND r."IsDeleted" = false AND r."Status" <> 'Cancelled';
|
||
END;
|
||
$$;
|