-- Planla diyaloğunun Öner'i (Prc.MaterialRequestPlanLine › InsertCommand):
-- kalemin taslak planını sıfırlayıp planlanacak kalanı dağıtır. Önce stok, Prc_V_MaterialRequestPlanSource'un RemovalRank sırasıyla: teslim
-- konumu (stoktan karşılama), sonra ürün kategorisinin çıkış stratejisi (FIFO/LIFO); lot/seri takipli üründe lotlar da bu sırayla seçilir.
-- Her satır alabileceği en fazla miktarı alır (eksi miktar, kullanılabilir stok kuralı kayıt yordamındadır). Kalan kısım satınalma: Prc_V_MaterialRequestPlanVendor'ın SuggestRank'ı ilk olan,
-- fiyat listesinde ya da alım geçmişinde bulunan tedarikçi (hiç bilinmeyen kontak seçilmez, kalan planlanmadan kalır). Satırlar
-- Prc_P_MaterialRequestPlanLineSave ile yazılır; kalem, stok ve kalan kuralları oradadır.
CREATE OR REPLACE PROCEDURE public."Prc_P_MaterialRequestPlanSuggest"(
    p_id uuid,
    p_tenant_id uuid,
    p_last_modifier_id uuid
)
LANGUAGE plpgsql AS $$
DECLARE v_left numeric(18, 4); v_key varchar(160); s record;
BEGIN
  DELETE FROM "Prc_T_MaterialRequestPlanLine" WHERE "MaterialRequestItemId" = p_id AND "TenantId" IS NOT DISTINCT FROM p_tenant_id;
  SELECT COALESCE("RemainingQuantity", 0) INTO v_left FROM public."Prc_V_MaterialRequestItemPlan" WHERE "Id" = p_id;
  v_left := COALESCE(v_left, 0);

  FOR s IN SELECT "Id"
             FROM public."Prc_V_MaterialRequestPlanSource"
            WHERE "BaseId" = p_id AND "FreeQuantity" > 0
            ORDER BY "RemovalRank"
  LOOP
    EXIT WHEN v_left <= 0;
    CALL public."Prc_P_MaterialRequestPlanLineSave"(s."Id", 'Transfer', -1, p_tenant_id, p_last_modifier_id);
    SELECT COALESCE(ip."RemainingQuantity", 0) - COALESCE((SELECT SUM(x."Quantity") FROM "Prc_T_MaterialRequestPlanLine" x
                                                            WHERE x."MaterialRequestItemId" = p_id AND x."IsDeleted" = false), 0)
      INTO v_left
      FROM public."Prc_V_MaterialRequestItemPlan" ip
     WHERE ip."Id" = p_id;
  END LOOP;

  IF v_left > 0 THEN
    SELECT "Id" INTO v_key
      FROM public."Prc_V_MaterialRequestPlanVendor"
     WHERE "BaseId" = p_id AND ("Price" IS NOT NULL OR "LastPurchaseDate" IS NOT NULL)
     ORDER BY "SuggestRank"
     LIMIT 1;
    IF v_key IS NOT NULL THEN
      CALL public."Prc_P_MaterialRequestPlanLineSave"(v_key, 'Purchase', v_left, p_tenant_id, p_last_modifier_id);
    END IF;
  END IF;
END;
$$;