Compare commits
No commits in common. "master" and "db_switch" have entirely different histories.
@ -5,258 +5,258 @@ BEGIN
|
|||||||
SET XACT_ABORT ON; -- auto-rollback on most errors
|
SET XACT_ABORT ON; -- auto-rollback on most errors
|
||||||
|
|
||||||
BEGIN TRY
|
BEGIN TRY
|
||||||
BEGIN TRAN; -- start transaction
|
BEGIN TRAN; -- start transaction
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Reset target tables
|
-- Reset target tables
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
--DROP TABLE IF EXISTS pricing.lastpricedetail;
|
--DROP TABLE IF EXISTS pricing.lastpricedetail;
|
||||||
DELETE FROM pricing.lastpricedetail;
|
DELETE FROM pricing.lastpricedetail;
|
||||||
DROP TABLE IF EXISTS #flagged;
|
DROP TABLE IF EXISTS #flagged;
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Stage 1: Load cleaned input rows
|
-- Stage 1: Load cleaned input rows
|
||||||
-- Filters out irrelevant quotes/orders and calculates unit prices
|
-- Filters out irrelevant quotes/orders and calculates unit prices
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
WITH base AS (
|
WITH base AS (
|
||||||
SELECT
|
SELECT
|
||||||
o."Customer" AS customer,
|
o."Customer" AS customer,
|
||||||
o."Part Group" AS partgroup,
|
o."Part Group" AS partgroup,
|
||||||
RTRIM(i.V1DS) AS dataseg,
|
RTRIM(i.V1DS) AS dataseg,
|
||||||
o."Data Source" AS version,
|
o."Data Source" AS version,
|
||||||
o."Part Code" AS part,
|
o."Part Code" AS part,
|
||||||
o."Units" AS qty,
|
o."Units" AS qty,
|
||||||
CASE
|
CASE
|
||||||
WHEN o."Units" = 0 THEN NULL
|
WHEN o."Units" = 0 THEN NULL
|
||||||
ELSE ROUND(o.[Value USD] / NULLIF(o."Units", 0), 5)
|
ELSE ROUND(o.[Value USD] / NULLIF(o."Units", 0), 5)
|
||||||
END AS price,
|
END AS price,
|
||||||
o.[Order Date] AS odate,
|
o.[Order Date] AS odate,
|
||||||
o.[Order Number] AS ordnum,
|
o.[Order Number] AS ordnum,
|
||||||
o.[Quote Number] AS quoten
|
o.[Quote Number] AS quoten
|
||||||
FROM
|
FROM
|
||||||
fanalysis.rlarp.osm_stack_pretty o
|
fanalysis.rlarp.osm_stack_pretty o
|
||||||
INNER JOIN CMSInterfaceIn.[CMS.CUSLG].ITEMM i
|
INNER JOIN CMSInterfaceIn.[CMS.CUSLG].ITEMM i
|
||||||
ON i.item = o.[Part Code]
|
ON i.item = o.[Part Code]
|
||||||
WHERE
|
WHERE
|
||||||
o.[Data Source] IN ('Actual', 'Quotes')
|
o.[Data Source] IN ('Actual', 'Quotes')
|
||||||
AND o."Customer" IS NOT NULL
|
AND o."Customer" IS NOT NULL
|
||||||
AND o."Financial Statement Line" = '41010'
|
AND o."Financial Statement Line" = '41010'
|
||||||
AND o."Order Status" <> 'CANCELLED'
|
AND o."Order Status" <> 'CANCELLED'
|
||||||
AND o."Units" > 0
|
AND o."Units" > 0
|
||||||
AND o."Part Group" <> ''
|
AND o."Part Group" <> ''
|
||||||
-- Optional filter for testing
|
-- Optional filter for testing
|
||||||
-- AND o."Customer" = 'ESBENSHADES GREENHOUSE'
|
-- AND o."Customer" = 'ESBENSHADES GREENHOUSE'
|
||||||
),
|
),
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Stage 2: Rank each row based on recency and volume rules
|
-- Stage 2: Rank each row based on recency and volume rules
|
||||||
-- Flags include:
|
-- Flags include:
|
||||||
-- - rn_mrs: most recent sale
|
-- - rn_mrs: most recent sale
|
||||||
-- - rn_mrq: most recent quote
|
-- - rn_mrq: most recent quote
|
||||||
-- - rn_lvs: largest sale in last year
|
-- - rn_lvs: largest sale in last year
|
||||||
-- - rn_lvq: largest quote in last year
|
-- - rn_lvq: largest quote in last year
|
||||||
-- - rn_dss: most recent sale per dataseg
|
-- - rn_dss: most recent sale per dataseg
|
||||||
-- - rn_dsq: most recent quote per dataseg
|
-- - rn_dsq: most recent quote per dataseg
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
ranked AS (
|
ranked AS (
|
||||||
SELECT
|
SELECT
|
||||||
b.*
|
b.*
|
||||||
-- Most recent sale (Actuals only)
|
-- Most recent sale (Actuals only)
|
||||||
,CASE WHEN b.version = 'Actual' THEN
|
,CASE WHEN b.version = 'Actual' THEN
|
||||||
ROW_NUMBER() OVER (
|
ROW_NUMBER() OVER (
|
||||||
PARTITION BY b.customer, b.partgroup
|
PARTITION BY b.customer, b.partgroup
|
||||||
ORDER BY b.odate DESC
|
ORDER BY b.odate DESC
|
||||||
)
|
)
|
||||||
END AS rn_mrs
|
END AS rn_mrs
|
||||||
-- Most recent quote (Quotes only)
|
-- Most recent quote (Quotes only)
|
||||||
,CASE WHEN b.version = 'Quotes' THEN
|
,CASE WHEN b.version = 'Quotes' THEN
|
||||||
ROW_NUMBER() OVER (
|
ROW_NUMBER() OVER (
|
||||||
PARTITION BY b.customer, b.partgroup
|
PARTITION BY b.customer, b.partgroup
|
||||||
ORDER BY b.odate DESC
|
ORDER BY b.odate DESC
|
||||||
)
|
)
|
||||||
END AS rn_mrq
|
END AS rn_mrq
|
||||||
-- Largest volume sale (Actuals only; last 12 months prioritized)
|
-- Largest volume sale (Actuals only; last 12 months prioritized)
|
||||||
,CASE WHEN b.version = 'Actual' THEN
|
,CASE WHEN b.version = 'Actual' THEN
|
||||||
ROW_NUMBER() OVER (
|
ROW_NUMBER() OVER (
|
||||||
PARTITION BY b.customer, b.partgroup
|
PARTITION BY b.customer, b.partgroup
|
||||||
ORDER BY
|
ORDER BY
|
||||||
CASE WHEN b.version = 'Actual' AND b.odate >= DATEADD(YEAR, -1, GETDATE()) THEN 1 ELSE 0 END DESC,
|
CASE WHEN b.version = 'Actual' AND b.odate >= DATEADD(YEAR, -1, GETDATE()) THEN 1 ELSE 0 END DESC,
|
||||||
b.qty DESC
|
b.qty DESC
|
||||||
)
|
)
|
||||||
END AS rn_lvs
|
END AS rn_lvs
|
||||||
-- Largest volume quote (Quotes only; last 12 months prioritized)
|
-- Largest volume quote (Quotes only; last 12 months prioritized)
|
||||||
,CASE WHEN b.version = 'Quotes' THEN
|
,CASE WHEN b.version = 'Quotes' THEN
|
||||||
ROW_NUMBER() OVER (
|
ROW_NUMBER() OVER (
|
||||||
PARTITION BY b.customer, b.partgroup
|
PARTITION BY b.customer, b.partgroup
|
||||||
ORDER BY
|
ORDER BY
|
||||||
CASE WHEN b.version = 'Quotes' AND b.odate >= DATEADD(YEAR, -1, GETDATE()) THEN 1 ELSE 0 END DESC,
|
CASE WHEN b.version = 'Quotes' AND b.odate >= DATEADD(YEAR, -1, GETDATE()) THEN 1 ELSE 0 END DESC,
|
||||||
b.qty DESC
|
b.qty DESC
|
||||||
)
|
)
|
||||||
END AS rn_lvq
|
END AS rn_lvq
|
||||||
,CASE WHEN b.version = 'Actual' THEN
|
,CASE WHEN b.version = 'Actual' THEN
|
||||||
ROW_NUMBER() OVER (
|
ROW_NUMBER() OVER (
|
||||||
PARTITION BY b.customer, b.partgroup, b.dataseg, b.version
|
PARTITION BY b.customer, b.partgroup, b.dataseg, b.version
|
||||||
ORDER BY b.odate DESC
|
ORDER BY b.odate DESC
|
||||||
)
|
)
|
||||||
END AS rn_dss
|
END AS rn_dss
|
||||||
,CASE WHEN b.version = 'Quotes' THEN
|
,CASE WHEN b.version = 'Quotes' THEN
|
||||||
ROW_NUMBER() OVER (
|
ROW_NUMBER() OVER (
|
||||||
PARTITION BY b.customer, b.partgroup, b.dataseg, b.version
|
PARTITION BY b.customer, b.partgroup, b.dataseg, b.version
|
||||||
ORDER BY b.odate DESC
|
ORDER BY b.odate DESC
|
||||||
)
|
)
|
||||||
END AS rn_dsq
|
END AS rn_dsq
|
||||||
FROM base b
|
FROM base b
|
||||||
)
|
)
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Stage 2.5: Save only rows that meet any of the above criteria
|
-- Stage 2.5: Save only rows that meet any of the above criteria
|
||||||
-- and annotate each with global-level flag (mrs, mrq, lvs, lvq)
|
-- and annotate each with global-level flag (mrs, mrq, lvs, lvq)
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
SELECT
|
SELECT
|
||||||
*,
|
*,
|
||||||
CASE WHEN rn_mrs = 1 THEN 'mrs' END AS f1,
|
CASE WHEN rn_mrs = 1 THEN 'mrs' END AS f1,
|
||||||
CASE WHEN rn_mrq = 1 THEN 'mrq' END AS f2,
|
CASE WHEN rn_mrq = 1 THEN 'mrq' END AS f2,
|
||||||
CASE WHEN rn_lvs = 1 THEN 'lvs' END AS f3,
|
CASE WHEN rn_lvs = 1 THEN 'lvs' END AS f3,
|
||||||
CASE WHEN rn_lvq = 1 THEN 'lvq' END AS f4,
|
CASE WHEN rn_lvq = 1 THEN 'lvq' END AS f4,
|
||||||
CASE WHEN rn_dss = 1 AND version = 'Actual' THEN 'dss' END AS f5,
|
CASE WHEN rn_dss = 1 AND version = 'Actual' THEN 'dss' END AS f5,
|
||||||
CASE WHEN rn_dsq = 1 AND version = 'Quotes' THEN 'dsq' END AS f6
|
CASE WHEN rn_dsq = 1 AND version = 'Quotes' THEN 'dsq' END AS f6
|
||||||
INTO #flagged
|
INTO #flagged
|
||||||
FROM ranked
|
FROM ranked
|
||||||
WHERE
|
WHERE
|
||||||
rn_mrs = 1
|
rn_mrs = 1
|
||||||
OR rn_mrq = 1
|
OR rn_mrq = 1
|
||||||
OR rn_lvs = 1
|
OR rn_lvs = 1
|
||||||
OR rn_lvq = 1
|
OR rn_lvq = 1
|
||||||
OR (rn_dss = 1 AND version = 'Actual')
|
OR (rn_dss = 1 AND version = 'Actual')
|
||||||
OR (rn_dsq = 1 AND version = 'Quotes');
|
OR (rn_dsq = 1 AND version = 'Quotes');
|
||||||
|
|
||||||
CREATE NONCLUSTERED INDEX ix_flagged_lookup
|
CREATE NONCLUSTERED INDEX ix_flagged_lookup
|
||||||
ON #flagged(customer, partgroup, dataseg, version, part, qty, price, odate, ordnum, quoten);
|
ON #flagged(customer, partgroup, dataseg, version, part, qty, price, odate, ordnum, quoten);
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Stage 3: Build JSON from flagged rows
|
-- Stage 3: Build JSON from flagged rows
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
|
|
||||||
-- Step 3.1: Explode all flags from the #flagged table
|
-- Step 3.1: Explode all flags from the #flagged table
|
||||||
WITH exploded_flags AS (
|
WITH exploded_flags AS (
|
||||||
SELECT
|
SELECT
|
||||||
customer, partgroup, part, dataseg, version, qty, price, odate, ordnum, quoten,
|
customer, partgroup, part, dataseg, version, qty, price, odate, ordnum, quoten,
|
||||||
flag
|
flag
|
||||||
FROM #flagged
|
FROM #flagged
|
||||||
CROSS APPLY (VALUES (f1), (f2), (f3), (f4), (f5), (f6)) AS f(flag)
|
CROSS APPLY (VALUES (f1), (f2), (f3), (f4), (f5), (f6)) AS f(flag)
|
||||||
WHERE flag IS NOT NULL
|
WHERE flag IS NOT NULL
|
||||||
)
|
)
|
||||||
--SELECT * FROM exploded_flags
|
--SELECT * FROM exploded_flags
|
||||||
-- Step 3.2: Serialize each row into its JSON snippet
|
-- Step 3.2: Serialize each row into its JSON snippet
|
||||||
-- Carry odate and version for deduplication in seg_pieces
|
-- Carry odate and version for deduplication in seg_pieces
|
||||||
,serialized_flags AS (
|
,serialized_flags AS (
|
||||||
SELECT
|
SELECT
|
||||||
customer,
|
customer,
|
||||||
partgroup,
|
partgroup,
|
||||||
dataseg,
|
dataseg,
|
||||||
flag,
|
flag,
|
||||||
odate,
|
odate,
|
||||||
version,
|
version,
|
||||||
CONCAT(
|
CONCAT(
|
||||||
'"', flag, '":',
|
'"', flag, '":',
|
||||||
JSON_QUERY((
|
JSON_QUERY((
|
||||||
SELECT
|
SELECT
|
||||||
version,
|
version,
|
||||||
dataseg AS datasegment,
|
dataseg AS datasegment,
|
||||||
part,
|
part,
|
||||||
qty,
|
qty,
|
||||||
price,
|
price,
|
||||||
odate,
|
odate,
|
||||||
ordnum,
|
ordnum,
|
||||||
quoten,
|
quoten,
|
||||||
flag
|
flag
|
||||||
FOR JSON PATH, WITHOUT_ARRAY_WRAPPER
|
FOR JSON PATH, WITHOUT_ARRAY_WRAPPER
|
||||||
))
|
))
|
||||||
) AS json_piece
|
) AS json_piece
|
||||||
FROM exploded_flags
|
FROM exploded_flags
|
||||||
)
|
)
|
||||||
--SELECT * FROM serialized_flags
|
--SELECT * FROM serialized_flags
|
||||||
-- Step 3.3: Collect all global-level flags (mrs, mrq, lvs, lvq)
|
-- Step 3.3: Collect all global-level flags (mrs, mrq, lvs, lvq)
|
||||||
,flag_json AS (
|
,flag_json AS (
|
||||||
SELECT
|
SELECT
|
||||||
customer,
|
customer,
|
||||||
partgroup,
|
partgroup,
|
||||||
STRING_AGG(json_piece, ',') AS json_block
|
STRING_AGG(json_piece, ',') AS json_block
|
||||||
FROM serialized_flags
|
FROM serialized_flags
|
||||||
WHERE flag IN ('mrs', 'mrq', 'lvs', 'lvq')
|
WHERE flag IN ('mrs', 'mrq', 'lvs', 'lvq')
|
||||||
GROUP BY customer, partgroup
|
GROUP BY customer, partgroup
|
||||||
)
|
)
|
||||||
--SELECT * FROM flag_json
|
--SELECT * FROM flag_json
|
||||||
-- Step 3.4: Nest dss/dsq under each dataseg
|
-- Step 3.4: Nest dss/dsq under each dataseg
|
||||||
-- Only keep the most recent dss/dsq per dataseg/version (prevents duplicate keys)
|
-- Only keep the most recent dss/dsq per dataseg/version (prevents duplicate keys)
|
||||||
,seg_pieces AS (
|
,seg_pieces AS (
|
||||||
SELECT
|
SELECT
|
||||||
customer,
|
customer,
|
||||||
partgroup,
|
partgroup,
|
||||||
dataseg,
|
dataseg,
|
||||||
STRING_AGG(json_piece, ',') AS inner_json
|
STRING_AGG(json_piece, ',') AS inner_json
|
||||||
FROM (
|
FROM (
|
||||||
SELECT sf.*
|
SELECT sf.*
|
||||||
FROM (
|
FROM (
|
||||||
SELECT *,
|
SELECT *,
|
||||||
ROW_NUMBER() OVER (
|
ROW_NUMBER() OVER (
|
||||||
PARTITION BY customer, partgroup, dataseg, flag
|
PARTITION BY customer, partgroup, dataseg, flag
|
||||||
ORDER BY odate DESC,
|
ORDER BY odate DESC,
|
||||||
CASE WHEN version = 'Actual' THEN 1 ELSE 0 END DESC
|
CASE WHEN version = 'Actual' THEN 1 ELSE 0 END DESC
|
||||||
) AS rn
|
) AS rn
|
||||||
FROM serialized_flags
|
FROM serialized_flags
|
||||||
WHERE flag IN ('dss', 'dsq')
|
WHERE flag IN ('dss', 'dsq')
|
||||||
) sf
|
) sf
|
||||||
WHERE sf.rn = 1
|
WHERE sf.rn = 1
|
||||||
) deduped
|
) deduped
|
||||||
GROUP BY customer, partgroup, dataseg
|
GROUP BY customer, partgroup, dataseg
|
||||||
)
|
)
|
||||||
--SELECT * FROM seg_pieces
|
--SELECT * FROM seg_pieces
|
||||||
-- Step 3.5: Wrap the inner_json under dataseg key
|
-- Step 3.5: Wrap the inner_json under dataseg key
|
||||||
,wrapped_segs AS (
|
,wrapped_segs AS (
|
||||||
SELECT
|
SELECT
|
||||||
customer,
|
customer,
|
||||||
partgroup,
|
partgroup,
|
||||||
CONCAT(
|
CONCAT(
|
||||||
'"', dataseg, '": {', inner_json, '}'
|
'"', dataseg, '": {', inner_json, '}'
|
||||||
) AS json_piece
|
) AS json_piece
|
||||||
FROM seg_pieces
|
FROM seg_pieces
|
||||||
)
|
)
|
||||||
-- Step 3.6: Aggregate all dataseg entries into one JSON block per customer/partgroup
|
-- Step 3.6: Aggregate all dataseg entries into one JSON block per customer/partgroup
|
||||||
,seg_json AS (
|
,seg_json AS (
|
||||||
SELECT
|
SELECT
|
||||||
customer,
|
customer,
|
||||||
partgroup,
|
partgroup,
|
||||||
STRING_AGG(json_piece, ',') AS json_block
|
STRING_AGG(json_piece, ',') AS json_block
|
||||||
FROM wrapped_segs
|
FROM wrapped_segs
|
||||||
GROUP BY customer, partgroup
|
GROUP BY customer, partgroup
|
||||||
)
|
)
|
||||||
--SELECT * FROM seg_json
|
--SELECT * FROM seg_json
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Stage 4: Merge flags and segment blocks into a single JSON object
|
-- Stage 4: Merge flags and segment blocks into a single JSON object
|
||||||
-- Write final pricing history to pricing.lastpricedetail
|
-- Write final pricing history to pricing.lastpricedetail
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
INSERT INTO
|
INSERT INTO
|
||||||
pricing.lastpricedetail
|
pricing.lastpricedetail
|
||||||
SELECT
|
SELECT
|
||||||
COALESCE(f.customer, s.customer) AS customer,
|
COALESCE(f.customer, s.customer) AS customer,
|
||||||
COALESCE(f.partgroup, s.partgroup) AS partgroup,
|
COALESCE(f.partgroup, s.partgroup) AS partgroup,
|
||||||
CONCAT(
|
CONCAT(
|
||||||
'{',
|
'{',
|
||||||
COALESCE(f.json_block, ''),
|
COALESCE(f.json_block, ''),
|
||||||
CASE
|
CASE
|
||||||
WHEN f.json_block IS NOT NULL AND s.json_block IS NOT NULL THEN ','
|
WHEN f.json_block IS NOT NULL AND s.json_block IS NOT NULL THEN ','
|
||||||
ELSE ''
|
ELSE ''
|
||||||
END,
|
END,
|
||||||
COALESCE(s.json_block, ''),
|
COALESCE(s.json_block, ''),
|
||||||
'}'
|
'}'
|
||||||
) AS part_stats
|
) AS part_stats
|
||||||
FROM flag_json f
|
FROM flag_json f
|
||||||
FULL OUTER JOIN seg_json s
|
FULL OUTER JOIN seg_json s
|
||||||
ON f.customer = s.customer AND f.partgroup = s.partgroup;
|
ON f.customer = s.customer AND f.partgroup = s.partgroup;
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- Commit if everything succeeded
|
-- Commit if everything succeeded
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
COMMIT TRAN;
|
COMMIT TRAN;
|
||||||
END TRY
|
END TRY
|
||||||
BEGIN CATCH
|
BEGIN CATCH
|
||||||
-- Ensure transaction is rolled back
|
-- Ensure transaction is rolled back
|
||||||
IF XACT_STATE() <> 0
|
IF XACT_STATE() <> 0
|
||||||
|
|||||||
@ -2,225 +2,204 @@ CREATE OR ALTER PROCEDURE pricing.rebuild_pricelist
|
|||||||
AS
|
AS
|
||||||
BEGIN
|
BEGIN
|
||||||
SET NOCOUNT ON;
|
SET NOCOUNT ON;
|
||||||
SET XACT_ABORT ON; -- auto-rollback on most errors
|
|
||||||
|
|
||||||
BEGIN TRY
|
DROP TABLE pricing.pricelist_ranged;
|
||||||
BEGIN TRAN;
|
|
||||||
|
|
||||||
DROP TABLE pricing.pricelist_ranged;
|
CREATE TABLE pricing.pricelist_ranged (
|
||||||
|
jcplcd varchar(5) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL,
|
||||||
|
jcpart varchar(20) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL,
|
||||||
|
jcunit varchar(3) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL,
|
||||||
|
jcvoll numeric(12,5) NOT NULL,
|
||||||
|
jcpric numeric(12,5) NOT NULL,
|
||||||
|
vb_from float NULL,
|
||||||
|
vb_to float NULL,
|
||||||
|
price float NOT NULL
|
||||||
|
);
|
||||||
|
|
||||||
CREATE TABLE pricing.pricelist_ranged (
|
CREATE NONCLUSTERED INDEX pricelist_ranged_idx ON PRICING.pricelist_ranged ( jcpart ASC , jcplcd ASC , vb_from ASC , vb_to ASC ) ;
|
||||||
jcplcd varchar(5) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL,
|
|
||||||
jcpart varchar(20) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL,
|
|
||||||
jcunit varchar(3) COLLATE SQL_Latin1_General_CP1_CI_AS NOT NULL,
|
|
||||||
jcvoll numeric(12,5) NOT NULL,
|
|
||||||
jcpric numeric(12,5) NOT NULL,
|
|
||||||
vb_from float NULL,
|
|
||||||
vb_to float NULL,
|
|
||||||
price float NOT NULL
|
|
||||||
);
|
|
||||||
|
|
||||||
CREATE NONCLUSTERED INDEX pricelist_ranged_idx ON PRICING.pricelist_ranged ( jcpart ASC , jcplcd ASC , vb_from ASC , vb_to ASC ) ;
|
--XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
||||||
|
-----------------------------------------------------------traverse unit of measure graph-----------------------------------------------------------------------
|
||||||
--XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
--XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
||||||
-----------------------------------------------------------traverse unit of measure graph-----------------------------------------------------------------------
|
-------------setup table to hold target conversions---------------------
|
||||||
--XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|
||||||
-------------setup table to hold target conversions---------------------
|
|
||||||
|
|
||||||
|
|
||||||
SELECT DISTINCT
|
SELECT DISTINCT
|
||||||
jcpart partn
|
jcpart partn
|
||||||
,jcunit fu
|
,jcunit fu
|
||||||
,'PC' tu
|
,'PC' tu
|
||||||
,cast(null as numeric) factor
|
,cast(null as numeric) factor
|
||||||
INTO
|
INTO
|
||||||
#anchor
|
#anchor
|
||||||
FROM
|
FROM
|
||||||
cmsinterfacein.lgdat.iprcc
|
cmsinterfacein.lgdat.iprcc
|
||||||
WHERE
|
WHERE
|
||||||
1=1;
|
1=1;
|
||||||
|
|
||||||
--SELECT * FROM #anchor
|
--SELECT * FROM #anchor
|
||||||
|
|
||||||
-------pre-build punit stacked on itself with the columns flipped so you can go either direction per join---------
|
-------pre-build punit stacked on itself with the columns flipped so you can go either direction per join---------
|
||||||
SELECT
|
SELECT
|
||||||
*
|
*
|
||||||
INTO
|
INTO
|
||||||
#g
|
#g
|
||||||
FROM
|
FROM
|
||||||
(
|
(
|
||||||
SELECT
|
SELECT
|
||||||
IHPART IHPART,
|
IHPART IHPART,
|
||||||
rtrim(IHUNT1) IHUNT1,
|
rtrim(IHUNT1) IHUNT1,
|
||||||
rtrim(IHUNT2) IHUNT2,
|
rtrim(IHUNT2) IHUNT2,
|
||||||
IHCNV1 IHCNV1,
|
IHCNV1 IHCNV1,
|
||||||
IHCNV2 IHCNV2
|
IHCNV2 IHCNV2
|
||||||
FROM
|
FROM
|
||||||
CMSInterfaceIN.LGDAT.PUNIT pu
|
CMSInterfaceIN.LGDAT.PUNIT pu
|
||||||
--only deal with parts in the anchor table or the &&global parts
|
--only deal with parts in the anchor table or the &&global parts
|
||||||
INNER JOIN (
|
INNER JOIN (
|
||||||
SELECT DISTINCT partn FROM #anchor
|
SELECT DISTINCT partn FROM #anchor
|
||||||
) items ON
|
) items ON
|
||||||
items.partn = pu.ihpart
|
items.partn = pu.ihpart
|
||||||
OR pu.ihpart = '&&GLOBAL'
|
OR pu.ihpart = '&&GLOBAL'
|
||||||
UNION
|
UNION
|
||||||
SELECT
|
SELECT
|
||||||
IHPART IHPART,
|
IHPART IHPART,
|
||||||
rtrim(IHUNT2) IHUNT1,
|
rtrim(IHUNT2) IHUNT1,
|
||||||
rtrim(IHUNT1) IHUNT2,
|
rtrim(IHUNT1) IHUNT2,
|
||||||
IHCNV2 IHCNV1,
|
IHCNV2 IHCNV1,
|
||||||
IHCNV1 IHCNV2
|
IHCNV1 IHCNV2
|
||||||
FROM
|
FROM
|
||||||
CMSInterfaceIN.LGDAT.PUNIT pu
|
CMSInterfaceIN.LGDAT.PUNIT pu
|
||||||
--only deal with parts in the anchor table or the &&global parts
|
--only deal with parts in the anchor table or the &&global parts
|
||||||
INNER JOIN (
|
INNER JOIN (
|
||||||
SELECT DISTINCT partn FROM #anchor
|
SELECT DISTINCT partn FROM #anchor
|
||||||
) items ON
|
) items ON
|
||||||
items.partn = pu.ihpart
|
items.partn = pu.ihpart
|
||||||
OR pu.ihpart = '&&GLOBAL'
|
OR pu.ihpart = '&&GLOBAL'
|
||||||
) x ;
|
) x ;
|
||||||
|
|
||||||
CREATE INDEX g_idx on #g(ihpart,ihunt1);
|
CREATE INDEX g_idx on #g(ihpart,ihunt1);
|
||||||
|
|
||||||
WITH
|
WITH
|
||||||
--------do the expansion on all paths until the target uom is matched----------------------------------------------
|
--------do the expansion on all paths until the target uom is matched----------------------------------------------
|
||||||
--(complains about types not matching between anchor and recursion, explicitly just casting everything)
|
--(complains about types not matching between anchor and recursion, explicitly just casting everything)
|
||||||
uom (partn, partx, lvl, mastf, mastt, xf, xt, factor, xfactor, xnum, xden, id, uom_list) AS
|
uom (partn, partx, lvl, mastf, mastt, xf, xt, factor, xfactor, xnum, xden, id, uom_list) AS
|
||||||
(
|
(
|
||||||
SELECT
|
SELECT
|
||||||
cast(partn as varchar(20)) --partn
|
cast(partn as varchar(20)) --partn
|
||||||
,cast(partn as varchar(20)) --partx
|
,cast(partn as varchar(20)) --partx
|
||||||
,cast(0 as int) --lvl
|
,cast(0 as int) --lvl
|
||||||
,fu --mastf
|
,fu --mastf
|
||||||
,tu --mastt
|
,tu --mastt
|
||||||
,cast(fu as varchar(3)) --xf
|
,cast(fu as varchar(3)) --xf
|
||||||
,cast(fu as varchar(3)) --xt
|
,cast(fu as varchar(3)) --xt
|
||||||
,CAST(1 AS FLOAT) --factor
|
,CAST(1 AS FLOAT) --factor
|
||||||
,CAST(1 AS FLOAT) --xfactor
|
,CAST(1 AS FLOAT) --xfactor
|
||||||
,CAST(1 AS FLOAT) --xnum
|
,CAST(1 AS FLOAT) --xnum
|
||||||
,CAST(1 AS FLOAT) --xden
|
,CAST(1 AS FLOAT) --xden
|
||||||
,format(row_number() over (ORDER BY partn),'000000')
|
,format(row_number() over (ORDER BY partn),'000000')
|
||||||
,cast(trim(fu) as varchar(max))
|
,cast(trim(fu) as varchar(max))
|
||||||
FROM
|
FROM
|
||||||
#anchor
|
#anchor
|
||||||
UNION ALL
|
UNION ALL
|
||||||
SELECT
|
SELECT
|
||||||
cast(uom.partn as varchar(20)) --partn
|
cast(uom.partn as varchar(20)) --partn
|
||||||
,cast(ihpart as varchar(20)) --partx
|
,cast(ihpart as varchar(20)) --partx
|
||||||
,CAST(uom.lvl + 1 AS INT) --lvl
|
,CAST(uom.lvl + 1 AS INT) --lvl
|
||||||
,uom.mastf --mastf
|
,uom.mastf --mastf
|
||||||
,uom.mastt --mastt
|
,uom.mastt --mastt
|
||||||
,cast(p.ihunt1 as varchar(3)) --xf
|
,cast(p.ihunt1 as varchar(3)) --xf
|
||||||
,cast(p.ihunt2 as varchar(3)) --xt
|
,cast(p.ihunt2 as varchar(3)) --xt
|
||||||
,CAST(p.ihcnv2/p.ihcnv1 AS FLOAT) --factor
|
,CAST(p.ihcnv2/p.ihcnv1 AS FLOAT) --factor
|
||||||
,CAST(p.ihcnv2/p.ihcnv1 AS FLOAT) * uom.xfactor --xfactor
|
,CAST(p.ihcnv2/p.ihcnv1 AS FLOAT) * uom.xfactor --xfactor
|
||||||
,p.ihcnv2 * uom.xnum --xnum
|
,p.ihcnv2 * uom.xnum --xnum
|
||||||
,p.ihcnv1 * uom.xden --xden
|
,p.ihcnv1 * uom.xden --xden
|
||||||
,uom.id + '.' + format(row_number() over (PARTITION BY uom.id ORDER BY partn),'00')
|
,uom.id + '.' + format(row_number() over (PARTITION BY uom.id ORDER BY partn),'00')
|
||||||
,uom.uom_list + '.' + trim(p.ihunt2)
|
,uom.uom_list + '.' + trim(p.ihunt2)
|
||||||
FROM
|
FROM
|
||||||
uom
|
uom
|
||||||
INNER JOIN #g p ON
|
INNER JOIN #g p ON
|
||||||
p.ihpart IN (uom.partn,'&&GLOBAL')
|
p.ihpart IN (uom.partn,'&&GLOBAL')
|
||||||
AND p.ihunt1 = uom.xt
|
AND p.ihunt1 = uom.xt
|
||||||
WHERE
|
WHERE
|
||||||
1=1
|
1=1
|
||||||
--AND p.ihunt2 not in ('BD','BG','BU','BX','CA','CS','PA','PL','SL','C','K','DOZ','PR')
|
--AND p.ihunt2 not in ('BD','BG','BU','BX','CA','CS','PA','PL','SL','C','K','DOZ','PR')
|
||||||
AND p.ihunt1 <> uom.mastt
|
AND p.ihunt1 <> uom.mastt
|
||||||
--prevent recursion: newest joined UOM can't be in the history
|
--prevent recursion: newest joined UOM can't be in the history
|
||||||
AND charindex(p.ihunt2,uom.uom_list) = 0
|
AND charindex(p.ihunt2,uom.uom_list) = 0
|
||||||
)
|
)
|
||||||
--SELECT COUNT(*) FROM UOM
|
--SELECT COUNT(*) FROM UOM
|
||||||
--------------uom is going to have multiple rows per requested conversion, need to use row_number to pick the best row------------------------------
|
--------------uom is going to have multiple rows per requested conversion, need to use row_number to pick the best row------------------------------
|
||||||
,sorted AS (
|
,sorted AS (
|
||||||
SELECT
|
SELECT
|
||||||
partn, mastf from_uom, xt to_uom, xfactor factor, lvl steps, row_number() OVER (PARTITION BY partn, mastf, mastt ORDER BY lvl ASC, factor ASC) rn
|
partn, mastf from_uom, xt to_uom, xfactor factor, lvl steps, row_number() OVER (PARTITION BY partn, mastf, mastt ORDER BY lvl ASC, factor ASC) rn
|
||||||
FROM
|
FROM
|
||||||
uom
|
uom
|
||||||
WHERE
|
WHERE
|
||||||
xt = mastt
|
xt = mastt
|
||||||
)
|
)
|
||||||
SELECT * INTO #uom FROM sorted WHERE rn = 1;
|
SELECT * INTO #uom FROM sorted WHERE rn = 1;
|
||||||
--so far so good
|
--so far so good
|
||||||
|
|
||||||
drop table #anchor;
|
drop table #anchor;
|
||||||
drop table #g;
|
drop table #g;
|
||||||
|
|
||||||
TRUNCATE TABLE pricing.pricelist_ranged;
|
TRUNCATE TABLE pricing.pricelist_ranged;
|
||||||
|
|
||||||
WITH
|
WITH
|
||||||
conv AS (
|
conv AS (
|
||||||
SELECT
|
SELECT
|
||||||
p.jcplcd,
|
p.jcplcd,
|
||||||
p.jcpart,
|
p.jcpart,
|
||||||
p.jcunit,
|
p.jcunit,
|
||||||
p.jcvoll,
|
p.jcvoll,
|
||||||
p.jcpric,
|
p.jcpric,
|
||||||
u.factor,
|
u.factor,
|
||||||
-- Normalize volume and price to PC
|
-- Normalize volume and price to PC
|
||||||
p.jcvoll * u.factor AS vol_pc,
|
p.jcvoll * u.factor AS vol_pc,
|
||||||
p.jcpric / u.factor AS price_pc
|
p.jcpric / u.factor AS price_pc
|
||||||
FROM
|
FROM
|
||||||
cmsinterfacein.lgdat.iprcc p
|
cmsinterfacein.lgdat.iprcc p
|
||||||
INNER JOIN #uom u
|
INNER JOIN #uom u
|
||||||
ON u.partn = p.jcpart
|
ON u.partn = p.jcpart
|
||||||
AND u.from_uom = p.jcunit
|
AND u.from_uom = p.jcunit
|
||||||
AND u.to_uom = 'PC'
|
AND u.to_uom = 'PC'
|
||||||
),
|
),
|
||||||
sorted AS (
|
sorted AS (
|
||||||
SELECT
|
SELECT
|
||||||
c.*,
|
c.*,
|
||||||
ROW_NUMBER() OVER (PARTITION BY c.jcplcd, c.jcpart ORDER BY vol_pc ASC) AS rn
|
ROW_NUMBER() OVER (PARTITION BY c.jcplcd, c.jcpart ORDER BY vol_pc ASC) AS rn
|
||||||
FROM conv c
|
FROM conv c
|
||||||
),
|
),
|
||||||
ranged AS (
|
ranged AS (
|
||||||
SELECT
|
SELECT
|
||||||
curr.jcplcd,
|
curr.jcplcd,
|
||||||
curr.jcpart,
|
curr.jcpart,
|
||||||
curr.jcunit,
|
curr.jcunit,
|
||||||
curr.jcvoll,
|
curr.jcvoll,
|
||||||
curr.jcpric,
|
curr.jcpric,
|
||||||
curr.vol_pc,
|
curr.vol_pc,
|
||||||
curr.price_pc,
|
curr.price_pc,
|
||||||
curr.vol_pc AS vb_from,
|
curr.vol_pc AS vb_from,
|
||||||
COALESCE(next.vol_pc, 9999999.0) AS vb_to
|
COALESCE(next.vol_pc, 9999999.0) AS vb_to
|
||||||
FROM
|
FROM
|
||||||
sorted curr
|
sorted curr
|
||||||
LEFT JOIN sorted next
|
LEFT JOIN sorted next
|
||||||
ON curr.jcplcd = next.jcplcd
|
ON curr.jcplcd = next.jcplcd
|
||||||
AND curr.jcpart = next.jcpart
|
AND curr.jcpart = next.jcpart
|
||||||
AND curr.rn + 1 = next.rn
|
AND curr.rn + 1 = next.rn
|
||||||
)
|
)
|
||||||
INSERT INTO
|
INSERT INTO
|
||||||
pricing.pricelist_ranged
|
pricing.pricelist_ranged
|
||||||
SELECT
|
SELECT
|
||||||
RTRIM(jcplcd) jcplcd,
|
RTRIM(jcplcd) jcplcd,
|
||||||
RTRIM(jcpart) jcpart,
|
RTRIM(jcpart) jcpart,
|
||||||
jcunit,
|
jcunit,
|
||||||
jcvoll,
|
jcvoll,
|
||||||
jcpric,
|
jcpric,
|
||||||
vb_from,
|
vb_from,
|
||||||
vb_to,
|
vb_to,
|
||||||
price_pc AS price
|
price_pc AS price
|
||||||
FROM
|
FROM
|
||||||
ranged;
|
ranged;
|
||||||
|
|
||||||
--CREATE INDEX pricelist_ranged_idx ON pricing.pricelist_ranged(jcpart, jcplcd, vb_from, vb_to);
|
--CREATE INDEX pricelist_ranged_idx ON pricing.pricelist_ranged(jcpart, jcplcd, vb_from, vb_to);
|
||||||
|
|
||||||
COMMIT TRAN;
|
|
||||||
END TRY
|
|
||||||
BEGIN CATCH
|
|
||||||
-- Ensure transaction is rolled back
|
|
||||||
IF XACT_STATE() <> 0
|
|
||||||
BEGIN
|
|
||||||
ROLLBACK TRAN;
|
|
||||||
END
|
|
||||||
|
|
||||||
IF OBJECT_ID('tempdb..#anchor') IS NOT NULL DROP TABLE #anchor;
|
|
||||||
IF OBJECT_ID('tempdb..#g') IS NOT NULL DROP TABLE #g;
|
|
||||||
IF OBJECT_ID('tempdb..#uom') IS NOT NULL DROP TABLE #uom;
|
|
||||||
|
|
||||||
-- Re-throw original error
|
|
||||||
THROW;
|
|
||||||
END CATCH;
|
|
||||||
END;
|
END;
|
||||||
@ -1,42 +1,28 @@
|
|||||||
CREATE OR ALTER PROCEDURE pricing.rebuild_targets
|
CREATE OR ALTER PROCEDURE pricing.rebuild_targets
|
||||||
AS
|
AS
|
||||||
BEGIN
|
BEGIN
|
||||||
SET NOCOUNT ON;
|
SET NOCOUNT ON;
|
||||||
SET XACT_ABORT ON; -- auto-rollback on most runtime errors
|
|
||||||
|
|
||||||
BEGIN TRY
|
DELETE FROM pricing.target_prices;
|
||||||
BEGIN TRAN;
|
|
||||||
|
|
||||||
DELETE FROM pricing.target_prices;
|
INSERT INTO
|
||||||
|
pricing.target_prices
|
||||||
|
SELECT
|
||||||
|
stlc,
|
||||||
|
ds,
|
||||||
|
chan,
|
||||||
|
tier,
|
||||||
|
vol,
|
||||||
|
-- Extract lower bound: text between '[' and ','
|
||||||
|
TRY_CAST(SUBSTRING(vol, 2, CHARINDEX(',', vol) - 2) AS INT) AS lower_bound,
|
||||||
|
-- Extract upper bound: text between ',' and ')'
|
||||||
|
CASE
|
||||||
|
WHEN RIGHT(vol, 2) = ',)' THEN NULL
|
||||||
|
ELSE TRY_CAST(SUBSTRING(vol, CHARINDEX(',', vol) + 1, LEN(vol) - CHARINDEX(',', vol) - 1) AS INT)
|
||||||
|
END AS upper_bound,
|
||||||
|
price,
|
||||||
|
math
|
||||||
|
FROM
|
||||||
|
usmidsap02.ubm.pricequote.target_prices_view;
|
||||||
|
|
||||||
INSERT INTO
|
END;
|
||||||
pricing.target_prices
|
|
||||||
SELECT
|
|
||||||
stlc,
|
|
||||||
ds,
|
|
||||||
chan,
|
|
||||||
tier,
|
|
||||||
vol,
|
|
||||||
-- Extract lower bound: text between '[' and ','
|
|
||||||
TRY_CAST(SUBSTRING(vol, 2, CHARINDEX(',', vol) - 2) AS INT) AS lower_bound,
|
|
||||||
-- Extract upper bound: text between ',' and ')'
|
|
||||||
CASE
|
|
||||||
WHEN RIGHT(vol, 2) = ',)' THEN NULL
|
|
||||||
ELSE TRY_CAST(SUBSTRING(vol, CHARINDEX(',', vol) + 1, LEN(vol) - CHARINDEX(',', vol) - 1) AS INT)
|
|
||||||
END AS upper_bound,
|
|
||||||
price,
|
|
||||||
math
|
|
||||||
FROM
|
|
||||||
usmidsap02.ubm.pricequote.target_prices_view;
|
|
||||||
|
|
||||||
COMMIT TRAN;
|
|
||||||
|
|
||||||
END TRY
|
|
||||||
BEGIN CATCH
|
|
||||||
IF XACT_STATE() <> 0
|
|
||||||
ROLLBACK TRAN;
|
|
||||||
|
|
||||||
-- Rethrow original error
|
|
||||||
THROW;
|
|
||||||
END CATCH;
|
|
||||||
END
|
|
||||||
|
|||||||
@ -1,66 +0,0 @@
|
|||||||
CREATE OR ALTER PROCEDURE pricing.sync_external
|
|
||||||
AS
|
|
||||||
BEGIN
|
|
||||||
SET NOCOUNT ON;
|
|
||||||
SET XACT_ABORT ON; -- causes runtime errors to auto-rollback
|
|
||||||
|
|
||||||
BEGIN TRY
|
|
||||||
|
|
||||||
BEGIN TRAN;
|
|
||||||
-- Refresh pricing.ffcret
|
|
||||||
TRUNCATE TABLE pricing.ffcret;
|
|
||||||
INSERT INTO pricing.ffcret
|
|
||||||
SELECT *
|
|
||||||
FROM fanalysis.rlarp.ffcret;
|
|
||||||
|
|
||||||
-- Refresh pricing.ffterr
|
|
||||||
TRUNCATE TABLE pricing.ffterr;
|
|
||||||
INSERT INTO pricing.ffterr
|
|
||||||
SELECT *
|
|
||||||
FROM fanalysis.rlarp.ffterr;
|
|
||||||
|
|
||||||
-- Refresh pricing.gld
|
|
||||||
TRUNCATE TABLE pricing.gld;
|
|
||||||
INSERT INTO pricing.gld
|
|
||||||
SELECT *
|
|
||||||
FROM fanalysis.rlarp.gld;
|
|
||||||
|
|
||||||
-- Refresh pricing.qrh
|
|
||||||
TRUNCATE TABLE pricing.qrh;
|
|
||||||
INSERT INTO pricing.qrh
|
|
||||||
SELECT *
|
|
||||||
FROM fanalysis.rlarp.qrh;
|
|
||||||
|
|
||||||
-- Refresh pricing.sach
|
|
||||||
TRUNCATE TABLE pricing.sach;
|
|
||||||
INSERT INTO pricing.sach
|
|
||||||
SELECT *
|
|
||||||
FROM fanalysis.lgdat.sach;
|
|
||||||
|
|
||||||
COMMIT TRAN;
|
|
||||||
|
|
||||||
-- rebuild last price
|
|
||||||
EXEC pricing.rebuild_lastprice;
|
|
||||||
|
|
||||||
-- rebuild ranged price list
|
|
||||||
EXEC pricing.rebuild_pricelist;
|
|
||||||
|
|
||||||
-- rebuild target prices
|
|
||||||
EXEC pricing.rebuild_targets;
|
|
||||||
|
|
||||||
END TRY
|
|
||||||
|
|
||||||
BEGIN CATCH
|
|
||||||
-- Rollback if any error
|
|
||||||
IF XACT_STATE() <> 0
|
|
||||||
ROLLBACK TRAN;
|
|
||||||
|
|
||||||
-- rethrow original error with context
|
|
||||||
DECLARE @ErrMsg NVARCHAR(4000) = ERROR_MESSAGE();
|
|
||||||
DECLARE @ErrSec NVARCHAR(200) = ERROR_SEVERITY();
|
|
||||||
DECLARE @ErrState INT = ERROR_STATE();
|
|
||||||
RAISERROR('refresh_pricing_tables failed: %s', 16, 1, @ErrMsg);
|
|
||||||
THROW; -- rethrow original error for callers to handle
|
|
||||||
END CATCH;
|
|
||||||
|
|
||||||
END
|
|
||||||
Loading…
Reference in New Issue
Block a user