hc-companies/price_api
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

suggested changes

Browse Source
This commit is contained in:
Paul Trowbridge 2025-08-08 09:33:20 -04:00
parent 849d176ad0
commit 68921d9a7f
3 changed files with 186 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
example_usage.ms.sql
View File

@ -46,3 +46,14 @@ FROM
) p ) p
WHERE WHERE
qstat LIKE 'Submitted%' qstat LIKE 'Submitted%'
SELECT
*
FROM pricing.single_price_call(
'GRIF0001',
'GRIF0001',
'XNS0T1G3G18B096',
'v1:B..PLT..',
9600
) f

9
example_usage.pg.sql Normal file
View File

@ -0,0 +1,9 @@
SELECT
*
FROM pricequote.single_price_call(
'GRIF0001',
'GRIF0001',
'XNS0T1G3G18B096',
'v1:B..PLT..',
9600
) f

225
procs/single_price_call.pg.sql
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,6 +84,8 @@ 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,
@ -80,17 +99,32 @@ DECLARE
_plevel TEXT; _plevel TEXT;
_partgroup TEXT; _partgroup TEXT;
_stlc TEXT; _stlc TEXT;
_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;
_tprice NUMERIC; _tprice NUMERIC;
_tmath JSONB; _tmath JSONB;
_volume_range TEXT; _volume_range TEXT;
_list_price NUMERIC; _list_price NUMERIC;
_list_code TEXT; _list_code TEXT;
_listprice_eff NUMERIC;
_list_relevance TEXT;
_guidance_price NUMERIC; _guidance_price NUMERIC;
_guidance_reason TEXT; _guidance_reason TEXT;
_hist JSONB := '{}'::jsonb; _hist JSONB := '{}'::jsonb;
-- No intermediate price history variables needed _last JSONB;
-- Precedence chain
_last_price NUMERIC; _last_price NUMERIC;
_last_qty NUMERIC; _last_qty NUMERIC;
_last_dataseg TEXT; _last_dataseg TEXT;
@ -102,7 +136,7 @@ DECLARE
_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, i.mpck,
@ -135,19 +169,26 @@ BEGIN
ELSE bc.plevel ELSE bc.plevel
END, END,
i.partgroup, i.partgroup,
substring(_part,1,8) substring(_part,1,8),
INTO _pltq, _chan, _tier, _cust, _plevel, _partgroup, _stlc i.v1ds,
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,
i.curstdus,
i.futstdus
INTO _pltq, _chan, _tier, _cust, _plevel, _partgroup, _stlc, _part_v1ds, _v0ds, _curstd_orig, _futstd_orig
FROM rlarp.cust bc FROM rlarp.cust bc
LEFT JOIN rlarp.cust sc ON sc.code = _ship LEFT JOIN rlarp.cust sc ON sc.code = _ship
LEFT JOIN "CMS.CUSLG".itemm i ON i.item = _part LEFT JOIN "CMS.CUSLG".itemm i ON i.item = _part
WHERE bc.code = _bill; 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;
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 2: Target price logic -- Step 2: Target price logic (current and for last_dataseg)
------------------------------------------------------------------ ------------------------------------------------------------------
SELECT tp.price, SELECT tp.price, to_json(tp.math), tp.vol::text
to_json(tp.math),
tp.vol::text
INTO _tprice, _tmath, _volume_range INTO _tprice, _tmath, _volume_range
FROM pricequote.target_prices tp FROM pricequote.target_prices tp
WHERE tp.stlc = _stlc WHERE tp.stlc = _stlc
@ -159,70 +200,119 @@ BEGIN
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 3: Last sale/quote/volume/segment data -- Step 3: Last sale/quote/volume/segment data
------------------------------------------------------------------ ------------------------------------------------------------------
SELECT SELECT lp.part_stats INTO _hist
lp.part_stats
INTO
_hist
FROM pricequote.lastpricedetail lp FROM pricequote.lastpricedetail lp
WHERE lp.customer = _cust WHERE lp.customer = _cust
AND lp.partgroup = _partgroup; AND lp.partgroup = _partgroup;
-- No extraction of price history keys needed; handled in helper _last := pricequote.pick_last_price_from_hist(_hist, _v1ds);
_last_price := (_last->>'price')::numeric;
_last_qty := (_last->>'qty')::numeric;
_last_dataseg := _last->>'datasegment';
_last_date := (_last->>'odate')::date;
_last_order := _last->>'ordnum';
_last_quote := _last->>'quoten';
_last_source := _last->>'source';
-- Use helper function to select the best last price point and extract attributes -- last_v0ds logic
DECLARE _last_v0ds :=
_last JSONB; CASE substring(_last_dataseg,4,1) WHEN 'B' THEN 'B' ELSE 'C' END ||
BEGIN CASE substring(_last_dataseg,6,1) WHEN 'L' THEN 'L' WHEN 'P' THEN 'P' ELSE '' END;
_last := pricequote.pick_last_price_from_hist(_hist, _v1ds);
_last_price := (_last->>'price')::numeric; -- last_isdiff logic
_last_qty := (_last->>'qty')::numeric; IF _last_dataseg IS NOT NULL AND _v1ds IS NOT NULL AND _last_dataseg <> _v1ds THEN
_last_dataseg := _last->>'datasegment'; _last_isdiff := 'Last Sale Diff Part';
_last_date := (_last->>'odate')::date; END IF;
_last_order := _last->>'ordnum';
_last_quote := _last->>'quoten'; -- Target price for last_dataseg
_last_source := _last->>'source'; SELECT tp.price
END; 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;
------------------------------------------------------------------ ------------------------------------------------------------------
-- Step 4: List price -- Step 4: Cost data for normalization
------------------------------------------------------------------ ------------------------------------------------------------------
SELECT -- Current/future standard for requested v1ds
pr.price::numeric(20,5), pr.jcplcd SELECT curstdus, futstdus INTO _curstd, _futstd
INTO FROM "CMS.CUSLG".itemm i
_list_price, _list_code WHERE i.item = _part AND i.v1ds = _v1ds;
FROM
"CMS.CUSLG".IPRCBHC i -- Current/future standard for last_dataseg
JOIN pricequote.pricelist_ranged pr SELECT curstdus, futstdus INTO _curstd_last, _futstd_last
ON pr.jcplcd = TRIM(i.jbplcd) FROM "CMS.CUSLG".itemm i
AND pr.jcpart = _part WHERE i.item = _part AND i.v1ds = _last_dataseg;
AND _vol >= pr.vb_from
AND (_vol < pr.vb_to OR pr.vb_to IS NULL) ------------------------------------------------------------------
-- 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 := _tprice / _tprice_last;
_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 pr.price::numeric(20,5), pr.jcplcd
INTO _list_price, _list_code
FROM "CMS.CUSLG".IPRCBHC i
JOIN pricequote.pricelist_ranged pr
ON pr.jcplcd = TRIM(i.jbplcd)
AND pr.jcpart = _part
AND _vol >= pr.vb_from
AND (_vol < pr.vb_to OR pr.vb_to IS NULL)
WHERE TRIM(i.jbplvl) = TRIM(_plevel) WHERE TRIM(i.jbplvl) = TRIM(_plevel)
AND CURRENT_DATE BETWEEN i.jbfdat AND i.jbtdat AND CURRENT_DATE BETWEEN i.jbfdat AND i.jbtdat
ORDER BY pr.price ASC 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
------------------------------------------------------------------
SELECT gl.guidance_price, gl.guidance_reason
INTO _guidance_price, _guidance_reason
FROM pricequote.guidance_logic(_tprice, _last_price_norm, _listprice_eff, _last_date) gl;
------------------------------------------------------------------
-- Step 8: Build explanation JSON
------------------------------------------------------------------ ------------------------------------------------------------------
_expl := jsonb_build_object( _expl := jsonb_build_object(
'last_price', _last_price, 'last_price', _last_price,
'last_qty', _last_qty, 'last_qty', _last_qty,
'last_dataseg', _last_dataseg, 'last_dataseg', _last_dataseg,
'last_v0ds', _last_v0ds,
'last_source', _last_source, 'last_source', _last_source,
'last_date', _last_date, 'last_date', _last_date,
'last_order', _last_order, 'last_order', _last_order,
'last_quote', _last_quote, 'last_quote', _last_quote,
'last_isdiff', _last_isdiff,
'tprice_last', _tprice_last,
'target_price', _tprice, 'target_price', _tprice,
'target_math', _tmath, 'target_math', _tmath,
'calculated_pallets', FLOOR(_vol / NULLIF(_pltq, 0)), 'calculated_pallets', FLOOR(_vol / NULLIF(_pltq, 0)),
@ -230,16 +320,30 @@ BEGIN
'customer', _cust, 'customer', _cust,
'channel', _chan, 'channel', _chan,
'tier', TRIM(_tier), 'tier', TRIM(_tier),
'list_price', _list_price, 'part_v1ds', _part_v1ds,
'list_code', _list_code, 'curstd_orig', _curstd_orig,
'futstd_orig', _futstd_orig,
'v0ds', _v0ds,
'curstd', _curstd,
'futstd', _futstd,
'curstd_last', _curstd_last,
'futstd_last', _futstd_last,
'customized', _customized,
'last_premium', _last_premium,
'last_premium_method', _last_premium_method,
'last_price_norm', _last_price_norm,
'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 +365,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 +394,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;