Compare commits

...

5 Commits

4 changed files with 387 additions and 142 deletions

View File

@ -1,14 +1,20 @@
EXEC pricing.single_price_call
@bill = 'FARM0001',
@ship = 'KEYB0001',
@part = 'HZP3E100E21D050',
@v1ds = 'v1:T..BDL..',
@vol = 50000;
EXEC pricing.single_price_call EXEC pricing.single_price_call
@bill = 'GRIF0001', @bill = 'GRIF0001',
@ship = 'GRIF0001', @ship = 'GRIF0001',
@part = 'XNS0T1G3G18B096', @part = 'XNS0T1G3G18B96',
@v1ds = 'v1:B.L.PLT..', @v1ds = 'v1:B..PLT..',
@vol = 9600; @vol = 9600;
SELECT SELECT
* guidance_price, ui_json
FROM pricing.single_price_call_fn( FROM pricing.single_price_call_fn(
'GRIF0001', 'GRIF0001',
'GRIF0001', 'GRIF0001',
@ -45,4 +51,15 @@ FROM
,q.units_each ,q.units_each
) p ) p
WHERE WHERE
qstat LIKE 'Submitted%' qstat LIKE 'Submitted%'
SELECT
*
FROM pricequote.single_price_call(
'GRIF0001',
'GRIF0001',
'XNS0T1G3G18B096',
'v1:B..PLT..',
9600
) f

10
example_usage.pg.sql Normal file
View File

@ -0,0 +1,10 @@
SELECT
*
FROM pricequote.single_price_call(
'FARM0001',
'KEYB0001',
'HZP3E100E21D050',
'v1:T..BDL..',
50000
) f

View File

@ -85,47 +85,56 @@ BEGIN
bill VARCHAR(100), bill VARCHAR(100),
ship VARCHAR(100), ship VARCHAR(100),
part VARCHAR(100), part VARCHAR(100),
stlc VARCHAR(100),
partgroup VARCHAR(100),
v1ds VARCHAR(100), v1ds VARCHAR(100),
vol NUMERIC(18,6), vol NUMERIC(18,6),
------------step 1 lookup scenario------------
chan VARCHAR(50),
tier VARCHAR(50),
cust VARCHAR(100),
pltq NUMERIC(18,6),
plevel NVARCHAR(20),
stlc VARCHAR(100),
partgroup VARCHAR(100),
part_v1ds VARCHAR(50), part_v1ds VARCHAR(50),
v0ds VARCHAR(10),
curstd_orig NUMERIC(20,5), curstd_orig NUMERIC(20,5),
futstd_orig NUMERIC(20,5), futstd_orig NUMERIC(20,5),
v0ds VARCHAR(10),
curstd NUMERIC(20,5),
futstd NUMERIC(20,5),
customized VARCHAR(100), customized VARCHAR(100),
last_premium NUMERIC(20,5), calculated_pallets numeric(20,0),
chan VARCHAR(50), exact_pallets numeric(20,5),
cust VARCHAR(100), ----------- step 2 last price------------------
tier VARCHAR(50),
pltq NUMERIC(18,6),
volume_range VARCHAR(100),
plevel NVARCHAR(20),
listprice NUMERIC(20,5),
listcode VARCHAR(10),
listprice_eff NUMERIC(20,5),
list_relevance NVARCHAR(100),
hist NVARCHAR(MAX), hist NVARCHAR(MAX),
last_price NUMERIC(20,5), last_price NUMERIC(20,5),
last_qty NUMERIC(20,5), last_source NVARCHAR(100),
last_date DATE, last_date DATE,
last_qty NUMERIC(20,5),
last_dataseg NVARCHAR(20),
last_v0ds VARCHAR(10),
last_order NVARCHAR(10), last_order NVARCHAR(10),
last_quote NVARCHAR(10), last_quote NVARCHAR(10),
last_dataseg NVARCHAR(20),
last_source NVARCHAR(100),
last_isdiff NVARCHAR(100), last_isdiff NVARCHAR(100),
last_v0ds VARCHAR(10), ------------step 3 lookup target---------------
last_price_norm NUMERIC(20,5), tprice NUMERIC(20,5),
last_premium_method VARCHAR(100), tprice_last NUMERIC(20,5),
tmath nvarchar(MAX),
volume_range VARCHAR(100),
------------step 4 normalize last price--------
curstd NUMERIC(20,5),
futstd NUMERIC(20,5),
curstd_last NUMERIC(20,5), curstd_last NUMERIC(20,5),
futstd_last NUMERIC(20,5), futstd_last NUMERIC(20,5),
tprice_last NUMERIC(20,5), last_premium NUMERIC(20,5),
tprice NUMERIC(20,5), last_price_norm NUMERIC(20,5),
tmath nvarchar(MAX), last_premium_method VARCHAR(100),
------------step 5 list price lookup-----------
listcode VARCHAR(10),
listprice NUMERIC(20,5),
listprice_eff NUMERIC(20,5),
list_relevance NVARCHAR(100),
------------step 6 compute guidance------------
guidance_price NUMERIC(20,5), guidance_price NUMERIC(20,5),
guidance_reason NVARCHAR(MAX), guidance_reason NVARCHAR(MAX),
------------step 7 build json------------------
expl NVARCHAR(MAX), expl NVARCHAR(MAX),
ui_json NVARCHAR(MAX) ui_json NVARCHAR(MAX)
); );
@ -175,15 +184,17 @@ BEGIN
ELSE bc.plevel ELSE bc.plevel
END, END,
stlc = substring(q.part,1,8), stlc = substring(q.part,1,8),
partgroup = i.partgroup, partgroup = TRIM(i.partgroup),
part_v1ds = i.v1ds, part_v1ds = TRIM(i.v1ds),
v0ds = v0ds =
CASE substring(q.v1ds,4,1) WHEN 'B' THEN 'B' ELSE 'C' END CASE substring(q.v1ds,4,1) WHEN 'B' THEN 'B' ELSE 'C' END
+ CASE substring(q.v1ds,6,1) WHEN 'L' THEN 'L' WHEN 'P' THEN 'P' ELSE '' END, + CASE substring(q.v1ds,6,1) WHEN 'L' THEN 'L' WHEN 'P' THEN 'P' ELSE '' END,
curstd_orig = i.curstdus, curstd_orig = i.curstdus,
futstd_orig = i.futstdus, futstd_orig = i.futstdus,
customized = CASE WHEN i.v1ds IS NOT NULL AND q.v1ds IS NOT NULL AND i.v1ds <> q.v1ds customized = CASE WHEN i.v1ds IS NOT NULL AND q.v1ds IS NOT NULL AND i.v1ds <> q.v1ds
THEN 'Customized' ELSE '' END THEN 'Customized' ELSE '' END,
calculated_pallets = FLOOR(q.vol / NULLIF(i.mpck, 0)),
exact_pallets = CAST(ROUND(q.vol / NULLIF(i.mpck, 0), 5) AS NUMERIC(20,5))
FROM @queue q FROM @queue q
LEFT JOIN rlarp.cust bc ON bc.code = q.bill LEFT JOIN rlarp.cust bc ON bc.code = q.bill
LEFT JOIN rlarp.cust sc ON sc.code = q.ship LEFT JOIN rlarp.cust sc ON sc.code = q.ship
@ -237,18 +248,18 @@ BEGIN
AND q.v1ds = tp.ds AND q.v1ds = tp.ds
AND q.chan = tp.chan AND q.chan = tp.chan
AND q.tier = tp.tier AND q.tier = tp.tier
AND FLOOR(q.vol / NULLIF(q.pltq, 0)) >= tp.lower_bound AND q.calculated_pallets >= tp.lower_bound
AND ( AND (
tp.upper_bound IS NULL OR FLOOR(q.vol / NULLIF(q.pltq, 0)) < tp.upper_bound tp.upper_bound IS NULL OR q.calculated_pallets < tp.upper_bound
) )
LEFT JOIN pricing.target_prices tpl ON LEFT JOIN pricing.target_prices tpl ON
q.stlc = tpl.stlc q.stlc = tpl.stlc
AND q.last_dataseg = tpl.ds AND q.last_dataseg = tpl.ds
AND q.chan = tpl.chan AND q.chan = tpl.chan
AND q.tier = tpl.tier AND q.tier = tpl.tier
AND FLOOR(q.vol / NULLIF(q.pltq, 0)) >= tpl.lower_bound AND q.calculated_pallets >= tpl.lower_bound
AND ( AND (
tpl.upper_bound IS NULL OR FLOOR(q.vol / NULLIF(q.pltq, 0)) < tpl.upper_bound tpl.upper_bound IS NULL OR q.calculated_pallets < tpl.upper_bound
); );
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
@ -384,11 +395,16 @@ BEGIN
,q.tprice_last AS tprice_last ,q.tprice_last AS tprice_last
,q.tprice AS target_price ,q.tprice AS target_price
,JSON_QUERY(q.tmath) AS target_math ,JSON_QUERY(q.tmath) AS target_math
,FLOOR(q.vol / NULLIF(q.pltq, 0)) AS calculated_pallets ,q.calculated_pallets AS calculated_pallets
,CAST(ROUND(q.vol / NULLIF(q.pltq, 0), 5) AS NUMERIC(20,5)) AS exact_pallets ,q.exact_pallets AS exact_pallets
,q.cust AS customer ,q.cust AS customer
,q.chan AS channel ,q.chan AS channel
,q.part AS part
,q.stlc AS stlc
,TRIM(q.tier) AS tier ,TRIM(q.tier) AS tier
,q.vol AS vol
,q.pltq AS pltq
,q.v1ds AS v1ds
,q.part_v1ds AS part_v1ds ,q.part_v1ds AS part_v1ds
,q.curstd_orig AS curstd_orig ,q.curstd_orig AS curstd_orig
,q.futstd_orig AS futstd_orig ,q.futstd_orig AS futstd_orig
@ -466,7 +482,7 @@ BEGIN
RTRIM(SUBSTRING(value,1,18)) AS label, RTRIM(SUBSTRING(value,1,18)) AS label,
TRY_CAST(SUBSTRING(value,23,7) AS NUMERIC(20,5)) TRY_CAST(SUBSTRING(value,23,7) AS NUMERIC(20,5))
+ CASE SUBSTRING(value,19,1) WHEN '+' THEN 0 ELSE -1 END AS value, + CASE SUBSTRING(value,19,1) WHEN '+' THEN 0 ELSE -1 END AS value,
CASE SUBSTRING(value,19,1) WHEN '+' THEN 'currency' ELSE 'Percentage' END AS type, CASE SUBSTRING(value,19,1) WHEN '+' THEN 'currency' ELSE 'Percent' END AS type,
CASE SUBSTRING(value,19,1) WHEN '+' THEN 'Price' ELSE 'Premium' END AS note CASE SUBSTRING(value,19,1) WHEN '+' THEN 'Price' ELSE 'Premium' END AS note
FROM OPENJSON(q.expl, '$.target_math') FROM OPENJSON(q.expl, '$.target_math')
WITH (value NVARCHAR(MAX) '$') WITH (value NVARCHAR(MAX) '$')
@ -497,5 +513,5 @@ BEGIN
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Final: Return all calculated fields and JSON payloads. -- Final: Return all calculated fields and JSON payloads.
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
SELECT * FROM @queue; SELECT guidance_price, ui_json FROM @queue;
END; END;

View File

@ -34,6 +34,9 @@
- See also: matrix_guidance.pg.sql for batch/matrix logic - See also: matrix_guidance.pg.sql for batch/matrix logic
==================================================================================== ====================================================================================
*/ */
DROP FUNCTION pricequote.single_price_call(text,text,text,text,numeric);
CREATE OR REPLACE FUNCTION pricequote.single_price_call( CREATE OR REPLACE FUNCTION pricequote.single_price_call(
_bill TEXT, _bill TEXT,
_ship TEXT, _ship TEXT,
@ -54,7 +57,21 @@ RETURNS TABLE (
pltq NUMERIC, pltq NUMERIC,
plevel TEXT, plevel TEXT,
partgroup TEXT, partgroup TEXT,
-- history JSONB, part_v1ds TEXT,
v0ds TEXT,
curstd_orig NUMERIC,
futstd_orig NUMERIC,
curstd NUMERIC,
futstd NUMERIC,
curstd_last NUMERIC,
futstd_last NUMERIC,
customized TEXT,
last_premium NUMERIC,
last_premium_method TEXT,
last_price_norm NUMERIC,
last_isdiff TEXT,
last_v0ds TEXT,
tprice_last NUMERIC,
last_price NUMERIC, last_price NUMERIC,
last_qty NUMERIC, last_qty NUMERIC,
last_dataseg TEXT, last_dataseg TEXT,
@ -67,45 +84,77 @@ RETURNS TABLE (
volume_range TEXT, volume_range TEXT,
listprice NUMERIC, listprice NUMERIC,
listcode TEXT, listcode TEXT,
listprice_eff NUMERIC,
list_relevance TEXT,
guidance_price NUMERIC, guidance_price NUMERIC,
guidance_reason TEXT, guidance_reason TEXT,
expl JSONB, expl JSONB,
ui_json JSONB ui_json JSONB
) AS $$ ) AS $$
DECLARE DECLARE
_pltq NUMERIC; -----------input parameters--------------
-- _bill
-- _ship
-- _part
-- _v1ds
-- _vol
------------step 1 lookup scenario------------
_chan TEXT; _chan TEXT;
_tier TEXT; _tier TEXT;
_cust TEXT; _cust TEXT;
_pltq NUMERIC;
_plevel TEXT; _plevel TEXT;
_partgroup TEXT; _partgroup TEXT;
_stlc TEXT; _stlc TEXT;
_part_v1ds TEXT;
_v0ds TEXT;
_curstd_orig NUMERIC;
_futstd_orig NUMERIC;
_calculated_pallets INT;
_exact_pallets NUMERIC;
_customized TEXT := '';
----------- step 2 last price------------------
_hist JSONB := '{}'::jsonb;
_last JSONB;
_last_price NUMERIC;
_last_source TEXT;
_last_date DATE;
_last_qty NUMERIC;
_last_dataseg TEXT;
_last_v0ds TEXT;
_last_order TEXT;
_last_quote TEXT;
_last_isdiff TEXT;
_last_part TEXT;
------------step 3 lookup target---------------
_tprice NUMERIC; _tprice NUMERIC;
_tmath JSONB; _tmath JSONB;
_volume_range TEXT; _volume_range TEXT;
_tprice_last NUMERIC;
------------step 4 normalize last price--------
_curstd NUMERIC;
_futstd NUMERIC;
_curstd_last NUMERIC;
_futstd_last NUMERIC;
_last_premium NUMERIC;
_last_price_norm NUMERIC;
_last_premium_method TEXT;
------------step 5 list price lookup-----------
_list_price NUMERIC; _list_price NUMERIC;
_list_code TEXT; _list_code TEXT;
_listprice_eff NUMERIC;
_list_relevance TEXT;
------------step 6 compute guidance------------
_guidance_price NUMERIC; _guidance_price NUMERIC;
_guidance_reason TEXT; _guidance_reason TEXT;
_hist JSONB := '{}'::jsonb; ------------step 7 build json------------------
-- No intermediate price history variables needed
-- Precedence chain
_last_price NUMERIC;
_last_qty NUMERIC;
_last_dataseg TEXT;
_last_date DATE;
_last_order TEXT;
_last_quote TEXT;
_last_source TEXT;
_expl JSONB := '{}'::jsonb; _expl JSONB := '{}'::jsonb;
_ui_json JSONB := '{}'::jsonb; _ui_json JSONB := '{}'::jsonb;
BEGIN BEGIN
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 1: Resolve customer metadata -- Step 1: Resolve customer metadata and part master data
------------------------------------------------------------------ ------------------------------------------------------------------
SELECT SELECT
i.mpck,
CASE SUBSTRING(bc.cclass, 2, 3) CASE SUBSTRING(bc.cclass, 2, 3)
WHEN 'DIS' THEN WHEN 'DIS' THEN
CASE SUBSTRING(sc.cclass, 2, 3) CASE SUBSTRING(sc.cclass, 2, 3)
@ -113,11 +162,11 @@ BEGIN
ELSE 'DRP' ELSE 'DRP'
END END
ELSE 'DIR' ELSE 'DIR'
END, END chan,
CASE SUBSTRING(bc.cclass, 2, 3) CASE SUBSTRING(bc.cclass, 2, 3)
WHEN 'DIR' THEN bc.tier WHEN 'DIR' THEN bc.tier
ELSE COALESCE(sc.tier, bc.tier) ELSE COALESCE(sc.tier, bc.tier)
END, END tier,
CASE SUBSTRING(bc.cclass, 2, 3) CASE SUBSTRING(bc.cclass, 2, 3)
WHEN 'DIS' THEN WHEN 'DIS' THEN
CASE SUBSTRING(sc.cclass, 2, 3) CASE SUBSTRING(sc.cclass, 2, 3)
@ -125,7 +174,8 @@ BEGIN
ELSE sc.dba ELSE sc.dba
END END
ELSE bc.dba ELSE bc.dba
END, END cust,
i.mpck,
CASE SUBSTRING(bc.cclass, 2, 3) CASE SUBSTRING(bc.cclass, 2, 3)
WHEN 'DIS' THEN WHEN 'DIS' THEN
CASE SUBSTRING(sc.cclass, 2, 3) CASE SUBSTRING(sc.cclass, 2, 3)
@ -133,113 +183,264 @@ BEGIN
ELSE bc.plevel ELSE bc.plevel
END END
ELSE bc.plevel ELSE bc.plevel
END, END plevel,
substring(_part,1,8) stlc,
i.partgroup, i.partgroup,
substring(_part,1,8) i.v1ds part_v1ds,
INTO _pltq, _chan, _tier, _cust, _plevel, _partgroup, _stlc CASE substring(_v1ds,4,1) WHEN 'B' THEN 'B' ELSE 'C' END || CASE substring(_v1ds,6,1) WHEN 'L' THEN 'L' WHEN 'P' THEN 'P' ELSE '' END v0ds,
FROM rlarp.cust bc i.curstdus,
LEFT JOIN rlarp.cust sc ON sc.code = _ship i.futstdus,
LEFT JOIN "CMS.CUSLG".itemm i ON i.item = _part FLOOR(_vol / NULLIF(i.mpck, 0)),
WHERE bc.code = _bill; ROUND(_vol / NULLIF(i.mpck, 0), 5)
INTO
_chan
,_tier
,_cust
,_pltq
,_plevel
,_stlc
,_partgroup
,_part_v1ds
,_v0ds
,_curstd_orig
,_futstd_orig
,_calculated_pallets
,_exact_pallets
FROM
rlarp.cust bc
LEFT JOIN rlarp.cust sc ON
sc.code = _ship
LEFT JOIN "CMS.CUSLG".itemm i ON
i.item = _part
WHERE
bc.code = _bill;
-- Customized flag
IF _part_v1ds IS NOT NULL AND _v1ds IS NOT NULL AND _part_v1ds <> _v1ds THEN
_customized := 'Customized';
END IF;
-- RAISE NOTICE 'Debug Inputs => stlc: "%", v1ds: "%", chan: "%", tier: "%", pallets: "%" , pltq: "%"',
-- _stlc, _v1ds, _chan, _tier, _calculated_pallets, _pltq;
--------------------------------------------------------------------------------
-- Step 3: Lookup Last Price
--------------------------------------------------------------------------------
SELECT
lp.part_stats
INTO
_hist
FROM
pricequote.lastpricedetail lp
WHERE
lp.customer = _cust
AND lp.partgroup = _partgroup;
_last := pricequote.pick_last_price_from_hist(_hist, _v1ds);
_last_price := (_last->>'price')::numeric;
_last_source := _last->>'source';
_last_date := (_last->>'odate')::date;
_last_qty := (_last->>'qty')::numeric;
_last_dataseg := _last->>'datasegment';
_last_v0ds :=
CASE substring(_last_dataseg,4,1) WHEN 'B' THEN 'B' ELSE 'C' END ||
CASE substring(_last_dataseg,6,1) WHEN 'L' THEN 'L' WHEN 'P' THEN 'P' ELSE '' END;
_last_order := _last->>'ordnum';
_last_quote := _last->>'quoten';
IF _last_dataseg IS NOT NULL AND _v1ds IS NOT NULL AND _last_dataseg <> _v1ds THEN
_last_isdiff := 'Last Sale Diff Part';
END IF;
_last_part := _last->>'part';
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 2: Target price logic -- Step 2: Target price logic (current and for last_dataseg)
------------------------------------------------------------------ ------------------------------------------------------------------
SELECT tp.price, SELECT
to_json(tp.math), tp.price
tp.vol::text ,to_json(tp.math)
INTO _tprice, _tmath, _volume_range ,tp.vol::text
FROM pricequote.target_prices tp INTO
WHERE tp.stlc = _stlc _tprice
,_tmath
,_volume_range
FROM
pricequote.target_prices tp
WHERE
tp.stlc = _stlc
AND tp.ds = _v1ds AND tp.ds = _v1ds
AND tp.chan = _chan AND tp.chan = _chan
AND tp.tier = _tier AND tp.tier = _tier
AND tp.vol @> _calculated_pallets;
-- RAISE NOTICE 'Debug: tprice=%, tmath=%, volume_range=%',
-- _tprice, _tmath, _volume_range;
-- Target price for last_dataseg
SELECT
tp.price
INTO
_tprice_last
FROM
pricequote.target_prices tp
WHERE
tp.stlc = _stlc
AND tp.ds = _last_dataseg
AND tp.chan = _chan
AND tp.tier = _tier
AND FLOOR(_vol / NULLIF(_pltq, 0))::int <@ tp.vol; AND FLOOR(_vol / NULLIF(_pltq, 0))::int <@ tp.vol;
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 3: Last sale/quote/volume/segment data -- Step 4: Cost data for normalization
------------------------------------------------------------------ ------------------------------------------------------------------
SELECT -- Current/future standard for requested v1ds
lp.part_stats SELECT
INTO curstdus, futstdus
_hist INTO
FROM pricequote.lastpricedetail lp _curstd, _futstd
WHERE lp.customer = _cust FROM
AND lp.partgroup = _partgroup; "CMS.CUSLG".itemm i
WHERE
i.item = _part
AND i.v1ds = _v1ds;
-- No extraction of price history keys needed; handled in helper -- Current/future standard for last_dataseg
SELECT
-- Use helper function to select the best last price point and extract attributes curstdus, futstdus
DECLARE INTO
_last JSONB; _curstd_last, _futstd_last
BEGIN FROM
_last := pricequote.pick_last_price_from_hist(_hist, _v1ds); "CMS.CUSLG".itemm i
_last_price := (_last->>'price')::numeric; WHERE
_last_qty := (_last->>'qty')::numeric; i.item = _part
_last_dataseg := _last->>'datasegment'; AND i.v1ds = _last_dataseg;
_last_date := (_last->>'odate')::date;
_last_order := _last->>'ordnum';
_last_quote := _last->>'quoten';
_last_source := _last->>'source';
END;
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 4: List price -- Step 5: Normalize last price if needed
------------------------------------------------------------------
IF _last_isdiff IS NOT NULL THEN
IF _tprice_last IS NOT NULL AND _tprice IS NOT NULL AND _tprice_last <> 0 THEN
_last_premium := ROUND(_tprice / _tprice_last,5);
_last_price_norm := ROUND(_last_price * (_tprice / _tprice_last), 5);
_last_premium_method := 'Target Price Ratio';
ELSIF _curstd_last IS NOT NULL AND _curstd IS NOT NULL AND _curstd_last <> 0 THEN
_last_premium := _curstd / _curstd_last;
_last_price_norm := ROUND(_last_price * (_curstd / _curstd_last), 5);
_last_premium_method := 'Cost Ratio';
ELSE
_last_price_norm := _last_price;
_last_premium_method := 'Unknown';
END IF;
ELSE
_last_price_norm := _last_price;
END IF;
------------------------------------------------------------------
-- Step 6: List price logic
------------------------------------------------------------------ ------------------------------------------------------------------
SELECT SELECT
pr.price::numeric(20,5), pr.jcplcd pr.price::numeric(20,5)
,pr.jcplcd
INTO INTO
_list_price, _list_code _list_price
,_list_code
FROM FROM
"CMS.CUSLG".IPRCBHC i "CMS.CUSLG".IPRCBHC i
JOIN pricequote.pricelist_ranged pr JOIN pricequote.pricelist_ranged pr ON
ON pr.jcplcd = TRIM(i.jbplcd) pr.jcplcd = TRIM(i.jbplcd)
AND pr.jcpart = _part AND pr.jcpart = _part
AND _vol >= pr.vb_from AND _vol >= pr.vb_from
AND (_vol < pr.vb_to OR pr.vb_to IS NULL) AND (_vol < pr.vb_to OR pr.vb_to IS NULL)
WHERE TRIM(i.jbplvl) = TRIM(_plevel) WHERE
AND CURRENT_DATE BETWEEN i.jbfdat AND i.jbtdat TRIM(i.jbplvl) = TRIM(_plevel)
ORDER BY pr.price ASC AND CURRENT_DATE BETWEEN i.jbfdat AND i.jbtdat
ORDER BY
pr.price ASC
LIMIT 1; LIMIT 1;
------------------------------------------------------------------ -- List price relevance
-- Step 5: Compute guidance price and embed it IF _customized <> '' THEN
------------------------------------------------------------------ _listprice_eff := NULL;
SELECT _list_relevance := 'Ignore - Customized';
gl.guidance_price, gl.guidance_reason ELSE
INTO _listprice_eff := _list_price;
_guidance_price, _guidance_reason _list_relevance := '';
FROM END IF;
pricequote.guidance_logic(_tprice, _last_price, _list_price, _last_date) gl;
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 6: Build explanation JSON -- Step 7: Compute guidance price and embed it
------------------------------------------------------------------ ------------------------------------------------------------------
_expl := jsonb_build_object( SELECT
'last_price', _last_price, gl.guidance_price
'last_qty', _last_qty, ,gl.guidance_reason
'last_dataseg', _last_dataseg, INTO
'last_source', _last_source, _guidance_price
'last_date', _last_date, ,_guidance_reason
'last_order', _last_order, FROM pricequote.guidance_logic(_tprice, _last_price_norm, _listprice_eff, _last_date) gl;
'last_quote', _last_quote,
'target_price', _tprice, ------------------------------------------------------------------
'target_math', _tmath, -- Step 8: Build explanation JSON
'calculated_pallets', FLOOR(_vol / NULLIF(_pltq, 0)), ------------------------------------------------------------------
'exact_pallets', ROUND(_vol / NULLIF(_pltq, 0), 5), _expl :=
'customer', _cust, jsonb_build_object(
'channel', _chan, 'last',
'tier', TRIM(_tier), jsonb_build_object(
'list_price', _list_price, 'last_part', _last_part,
'list_code', _list_code, 'last_price', _last_price,
'last_qty', _last_qty,
'last_dataseg', _last_dataseg,
'last_v0ds', _last_v0ds,
'last_source', _last_source,
'last_date', _last_date,
'last_order', _last_order,
'last_quote', _last_quote,
'last_isdiff', _last_isdiff,
'last_premium', _last_premium,
'last_premium_method', _last_premium_method,
'last_price_norm', _last_price_norm,
'tprice_last', _tprice_last
),
'scenario',
jsonb_build_object(
'calculated_pallets', FLOOR(_vol / NULLIF(_pltq, 0)),
'exact_pallets', ROUND(_vol / NULLIF(_pltq, 0), 5),
'customer', _cust,
'channel', _chan,
'tier', TRIM(_tier),
'v1ds', _v1ds,
'v0ds', _v0ds,
'part_v1ds', _part_v1ds,
'customized', _customized
),
'cost',
jsonb_build_object(
'curstd_orig', _curstd_orig,
'futstd_orig', _futstd_orig,
'curstd_last', _curstd_last,
'futstd_last', _futstd_last,
'curstd', _curstd,
'futstd', _futstd
),
'targets',
jsonb_build_object(
'target_price', _tprice,
'target_math', _tmath
),
'list',
jsonb_build_object(
'listcode', _list_code,
'listprice', _list_price,
'listprice_eff', _listprice_eff,
'list_relevance', _list_relevance
),
'guidance_price', _guidance_price, 'guidance_price', _guidance_price,
'guidance_reason', _guidance_reason 'guidance_reason', _guidance_reason
); );
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 7: Build UI JSON (optional, similar to MSSQL) -- Step 9: Build UI JSON (panels)
------------------------------------------------------------------ ------------------------------------------------------------------
_ui_json := jsonb_build_object( _ui_json := jsonb_build_object(
'details', jsonb_build_array( 'details', jsonb_build_array(
jsonb_build_object( jsonb_build_object(
'label', 'History', 'label', 'History',
@ -261,13 +462,13 @@ BEGIN
'label', 'List:' || COALESCE(_list_code, ''), 'label', 'List:' || COALESCE(_list_code, ''),
'value', _list_price, 'value', _list_price,
'type', 'currency', 'type', 'currency',
'note', _plevel 'note', _list_relevance
) )
) )
), ),
jsonb_build_object( jsonb_build_object(
'label', 'Target Support', 'label', 'Target Support',
'details', _tmath -- You may need to transform this to match the MSSQL panel 'details', _tmath
), ),
jsonb_build_object( jsonb_build_object(
'label', 'Guidance', 'label', 'Guidance',
@ -290,11 +491,12 @@ BEGIN
RETURN QUERY RETURN QUERY
SELECT SELECT
_bill, _ship, _part, _stlc, _v1ds, _vol, _bill, _ship, _part, _stlc, _v1ds, _vol,
_chan, _cust, _tier, _pltq, _plevel, _partgroup, _chan, _cust, _tier, _pltq, _plevel, _partgroup, _part_v1ds, _v0ds,
-- _hist, _curstd_orig, _futstd_orig, _curstd, _futstd, _curstd_last, _futstd_last,
_customized, _last_premium, _last_premium_method, _last_price_norm, _last_isdiff, _last_v0ds, _tprice_last,
_last_price, _last_qty, _last_dataseg, _last_date, _last_order, _last_quote, _last_source, _last_price, _last_qty, _last_dataseg, _last_date, _last_order, _last_quote, _last_source,
_tprice, _tmath, _volume_range, _tprice, _tmath, _volume_range,
_list_price, _list_code, _list_price, _list_code, _listprice_eff, _list_relevance,
_guidance_price, _guidance_reason, _guidance_price, _guidance_reason,
_expl, _ui_json; _expl, _ui_json;
END; END;