forecast_api/route_sql/new_part.sql

WITH 
/*
the volume must be expressed in terms of units, since that is what it will be scaling
*/
target AS (select '{"scenario":{"quota_rep_descr":"10032 - BRYAN HILL","part_group":"XRD16002 - 16 CM SP COEX POT 4 SLOT WHBK","version":"b20","iter":["copy","adj volume","adj price"]},"stamp":"2019-03-21 11:31:57","user":"Trowbridge, Paul","source":"adj","type":"new_part","months":{"Oct":{"amount":25080,"qty":264000},"Nov":{"amount":69540,"qty":732000},"Dec":{"amount":950,"qty":10000},"Jan":{"amount":21850,"qty":230000},"Feb":{"amount":19380,"qty":204000},"Mar":{"amount":20790.621864,"qty":218848.6512},"Apr":{"amount":53297.1118899,"qty":561022.23042}},"newpart":"XNT0T1G0X19B118PYAUE - 01.00 PW SS T1G TALL CX WH/BK"}'::json def)
--select * from newm
,GLD AS (
    SELECT 
        N1COMP COMP
        ,N1CCYY FSYR
        ,KPMAXP PERDS
        ,N1FSPP PERD
        ,to_char(N1FSYP,'FM0000') FSPR
        ,N1SD01 SDAT
        ,N1ED01 EDAT
        ,to_char(N1ED01,'yymm') CAPR
        ,N1ED01 - N1SD01 +1 NDAYS 
        ,CASE WHEN EXTRACT(MONTH FROM N1ED01) >= 6 THEN EXTRACT(YEAR FROM N1ED01) + 1 ELSE EXTRACT(YEAR FROM N1ED01) END SSYR
        ,to_char(CASE WHEN EXTRACT(MONTH FROM N1ED01) >= 6 THEN EXTRACT(MONTH FROM N1ED01) -5  ELSE EXTRACT(MONTH FROM N1ED01) +7 END,'00') SSPR
    FROM 
        LGDAT.GLDATREF 
        INNER JOIN LGDAT.GLDATE ON 
            KPCOMP = N1COMP AND 
            KPCCYY = N1CCYY
    WHERE
        N1COMP = 93
        --AND DIGITS(N1FSYP) = '1901'
)
,mseq AS (
    SELECT * FROM 
    (
        VALUES
        ('Jun',1,6,-1)
        ,('Jul',2,7,-1)
        ,('Aug',3,8,-1)
        ,('Sep',4,9,-1)
        ,('Oct',5,10,-1)
        ,('Nov',6,11,-1)
        ,('Dec',7,12,-1)
        ,('Jan',8,1,0)
        ,('Feb',9,2,0)
        ,('Mar',10,3,0)
        ,('Apr',11,4,0)
        ,('May',12,5,0)
    ) x(m,s,cal,yr)
)
,SEG AS (
    SELECT
        x.GLEC
        ,x.SEGM
    FROM
        (
            VALUES
            ('1CU','Retail'),
            ('1GR','Greenhouse'),
            ('1NU','Nursery'),
            ('1RE','Retail'),
            ('2WI','Greenhouse'),
            ('3BM','Other'),
            ('3CO','Other'),
            ('3PE','Other'),
            ('3PP','Other'),
            ('4CO','Other'),
            ('4RA','Other'),
            ('9MI','Other'),
            ('9SA','Other'),
            ('9TO','Other')
        ) X(GLEC, SEGM)
)
,MG AS (
    SELECT  
        X.F1, X.MING, X.GRP
    FROM 
        (
            VALUES
            ('L','000','Branded'),
            ('L','B10','Branded'),
            ('L','B11','Branded'),
            ('L','B52','Branded'),
            ('L','C10','Branded'),
            ('L','D12','Branded'),
            ('L','M11','Branded'),
            ('L','P12','Branded'),
            ('L','P13','Branded'),
            ('L','S10','Branded'),
            ('L','Y10','Branded'),
            ('L','Y11','Branded'),
            ('L','Y12','Branded'),
            ('P','B10','Branded'),
            ('P','B11','Branded'),
            ('P','B52','Branded')
        ) AS X (F1, MING, GRP)
)
,REPC AS (
    SELECT
        LTRIM(RTRIM(C.A9)) RCODE
        ,LTRIM(RTRIM(C.A9)) || ' - ' || C.A30 REPP
        ,COALESCE(Q.DIR,'Other') DIRECTOR
    FROM
        LGDAT.CODE C
        LEFT OUTER JOIN RLARP.QRH Q ON
            Q.QR = LTRIM(RTRIM(C.A9))
    WHERE
        C.A2 = 'MM'
)
--MOLD DESCRIPTIONS
,MD AS (
    SELECT
        U.MOLD
        ,MAX(U.DESCR) DESCR
    FROM
        (
            SELECT
                SUBSTR(M.AVPART,1,8) MOLD
                ,MAX(M.AVDES1) DESCR
            FROM
                LGDAT.STKMM M
            WHERE   
                LENGTH(M.AVPART) > 8
                AND SUBSTR(M.AVGLED,1,1) <= '2'
            GROUP BY
                SUBSTR(M.AVPART,1,8)
            UNION ALL
            SELECT
                SUBSTR(P.AWPART,1,8) MOLD
                ,MAX(P.AWDES1) DESCR
            FROM
                LGDAT.STKMP P
            WHERE   
                LENGTH(P.AWPART) > 8
                AND SUBSTR(P.AWGLED,1,1) <= '2'
            GROUP BY
                SUBSTR(P.AWPART,1,8)
        ) U
    GROUP BY
        U.MOLD
)
----------------------------------------------------sales major codes----------------------------------------------------------------------------------------------------------------------------------
,SJ AS (
    SELECT * FROM LGDAT.MMSL WHERE COALESCE(BSMNCD,'') = ''
)
----------------------------------------------------sales minor codes----------------------------------------------------------------------------------------------------------------------------------
,SI AS (
    SELECT * FROM LGDAT.MMSL WHERE COALESCE(BSMNCD,'') <> ''
)
,alldates AS (
    SELECT  
        promo
        ,terms
        ,order_month
        ,mseq.s seq
        ,orderdate
        ,requestdate
        ,shipdate
        ,sum(value_usd) value_usd
    FROM
        rlarp.osm_fcpool
        LEFT OUTER JOIN mseq ON
            mseq.m = order_month
    WHERE
        -----------------scenario----------------------------
        --where_clause
        quota_rep_descr = '10032 - BRYAN HILL' 
        AND part_group = 'XRD16002 - 16 CM SP COEX POT 4 SLOT WHBK'
        AND version = 'b20'
        AND iter in ('copy','short ship','bad_ship')
        -----------------additional params-------------------
        AND calc_status||flag <> 'CLOSEDREMAINDER' --exclude short ships when building order adjustments
        AND adj_orderdate <= adj_shipdate
    GROUP BY
        promo
        ,terms
        ,order_month
        ,mseq.s
        ,orderdate
        ,requestdate
        ,shipdate
    HAVING
        sum(value_usd) <> 0
)
--select * from alldates
,dom AS (
    SELECT
        extract(day FROM orderdate) DOM
        ,sum(value_usd) value_usd
    FROM
        alldates
    GROUP BY
        extract(day FROM orderdate)
)
---------------------may want ot look at a top-5 mix solution in the future facilitated by sum() over (order by sales desc)---------------
,mmix AS (
    SELECT
        to_char(orderdate,'Mon') _month
        ,seq
        ,promo
        ,sum(extract(day from orderdate)*value_usd) dom_wa
        --,requestdate-orderdate rlag
        ,sum((requestdate-orderdate)*(value_usd)) rlag_wa
        --,shipdate - requestdate slag
        ,sum((shipdate - requestdate)*(value_usd)) slag_wa
        ,sum(value_usd) value_usd
    FROM
        alldates
    GROUP BY
        to_char(orderdate,'Mon')
        ,seq
        ,promo
        --,extract(day from orderdate)
        --,requestdate-orderdate
        --,shipdate - requestdate
)
,targm AS (
    SELECT
        je.key as month
        ,r.amount
        ,r.qty
        ,s
        ,cal
        ,yr
    FROM    
        target
        JOIN LATERAL json_each(def->'months') je ON true
        JOIN LATERAL json_to_record(je.value) as r (amount numeric, qty numeric) ON TRUE
        LEFT OUTER JOIN mseq ON
            mseq.m = je.key
)
,mmixp AS (
    SELECT
        _month
        ,seq
        ,promo
        ,round((dom_wa/value_usd)::numeric,0)::int odom
        ,round((rlag_wa/value_usd)::numeric,0)::int rlag
        ,round((slag_wa/value_usd)::numeric,0)::int slag
        ,value_usd/sum(value_usd) over (partition by _month) momix
        --,value_usd/SUM(value_usd) over (PARTITION BY _month) vperc
    FROM
        mmix
)
--month cross join mix
,mxm AS (
SELECT
    t.month
    ,t.amount
    ,t.qty
    ,t.s
    ,t.cal
    ,t.yr
    ,x.momix
    ,x.odom
    ,x.rlag
    ,x.slag
    ,x.promo
FROM
    targm t
    LEFT OUTER JOIN mmixp x ON
        x._month = (
                            SELECT 
                                _month
                            FROM 
                                mmixp 
                            ORDER BY 
                                abs(seq - t.s) ASC 
                            LIMIT 1
                        )
)
--SELECT * FROM mmixp order by seq asc, vperc desc
,basemix AS (
SELECT
        null::text plnt          ---master data 
        ,0::numeric(11,0) "ddord#"
        ,0::numeric(11,0) "dditm#"
        ,0::numeric(11,0) "fgbol#"
        ,0::numeric(11,0) "fgent#"
        ,0::numeric(9,0) "diinv#"
        ,0::numeric(3,0) "dilin#"
        ,null::text promo          --history 
        ,null::text return_reas
        ,null::text terms
        ,''::text custpo
        ,'I' dhincr
        ,null::numeric diext
        ,null::numeric ditdis
        ,null::date dcodat
        ,null::date ddqdat
        ,null::date dcmdat
        ,null::date dhidat
        ,null::text fspr
        ,remit_to
        ,bill_class
        ,bill_cust
        ,bill_rep
        ,bill_terr
        ,ship_class
        ,ship_cust
        ,ship_rep
        ,ship_terr
        ,quota_rep
        ,account
        ,shipgrp
        ,geo
        ,chan
        ,orig_ctry
        ,orig_prov
        ,orig_post
        ,dest_ctry
        ,dest_prov
        ,dest_post
        ,null::text part          --history part mix
        ,null::text ord_gldc
        ,null::text majg
        ,null::text ming
        ,null::text majs
        ,null::text mins
        ,null::text gldc
        ,null::text glec
        ,null::text harm
        ,null::text clss
        ,null::text brand
        ,null::text assc
        ,fs_line
        ,r_currency
        ,r_rate
        ,null::text c_currency
        ,null::numeric c_rate
        ,0::numeric(15,5) ddqtoi
        ,0::numeric(15,5) ddqtsi
        ,0::numeric(15,5) fgqshp
        ,0::numeric(15,5) diqtsh
        ,0::numeric fb_qty          --history value
        ,0::numeric fb_cst_loc          --history part mix
        ,0::numeric fb_cst_loc_cur
        ,0::numeric fb_cst_loc_fut
        ,0::numeric fb_val_loc          --history value
        ,0::numeric fb_val_loc_pl
        ,calc_status
        ,flag
        ,null::date orderdate          --history 
        ,null::date requestdate          --history 
        ,null::date shipdate          --history 
        ,null::date adj_orderdate          --history 
        ,null::date adj_requestdate          --history 
        ,null::date adj_shipdate          --history 
        ,null::text "version"
        ,null::text iter
        ---------------ui columns-------------------------
        ,null::numeric order_season
        ,null::text order_month
        ,null::numeric ship_season
        ,null::text ship_month
        ,null::numeric request_season
        ,null::text request_month
        ,null::text part_descr
        ,null::text part_family
        ,null::text part_group
        ,null::text branding
        ,null::text color
        ,null::text segm
        ,bill_cust_descr
        ,billto_group
        ,ship_cust_descr
        ,shipto_group
        ,null::text majg_descr
        ,null::text ming_descr
        ,null::text majs_descr
        ,null::text mins_descr
        ,mod_chan
        ,mod_chansub
        ,quota_rep_descr
        ,director_descr
        ,null::numeric value_loc
        ,null::numeric value_usd
        ,null::numeric cost_loc
        ,null::numeric cost_usd
        ,null::numeric units
        ,sum(coalesce(fb_val_loc * r_rate,0)) agg
    FROM
        rlarp.osm_fcpool
    WHERE
        -----------------scenario----------------------------
        --where_clause
        quota_rep_descr = '10032 - BRYAN HILL' 
        AND part_group = 'XRD16002 - 16 CM SP COEX POT 4 SLOT WHBK'
        AND version = 'b20'
        AND iter in ('copy','short ship','bad_ship')
        -----------------additional params-------------------
        AND calc_status||flag <> 'CLOSEDREMAINDER' --exclude short ships when building order adjustments
        AND adj_orderdate <= adj_shipdate
    GROUP BY
        remit_to
        ,bill_class
        ,bill_cust
        ,bill_rep
        ,bill_terr
        ,ship_class
        ,ship_cust
        ,ship_rep
        ,ship_terr
        ,quota_rep
        ,account
        ,shipgrp
        ,geo
        ,chan
        ,orig_ctry
        ,orig_prov
        ,orig_post
        ,dest_ctry
        ,dest_prov
        ,dest_post
        ,fs_line
        ,r_currency
        ,r_rate
        ,calc_status
        ,flag
        ,bill_cust_descr
        ,billto_group
        ,ship_cust_descr
        ,shipto_group
        ,mod_chan
        ,mod_chansub
        ,quota_rep_descr
        ,director_descr
)
,applyx AS (
SELECT
    b.plnt          --master data 
    ,b."ddord#"
    ,b."dditm#"
    ,b."fgbol#"
    ,b."fgent#"
    ,b."diinv#"
    ,b."dilin#"
    ,b.promo          --history 
    ,b.return_reas
    ,b.terms          --history cust mix
    ,b.custpo
    ,b.dhincr
    ,b.diext
    ,b.ditdis
    ,b.dcodat
    ,b.ddqdat
    ,b.dcmdat
    ,b.dhidat
    ,sd.fspr fspr
    ,b.remit_to          --master data 
    ,b.bill_class          --master data 
    ,b.bill_cust          --history cust mix
    ,b.bill_rep          --master data 
    ,b.bill_terr          --master data 
    ,b.ship_class          --master data 
    ,b.ship_cust          --history cust mix
    ,b.ship_rep          --master data 
    ,b.ship_terr          --master data 
    ,b.quota_rep          --master data 
    ,b.account          --master data 
    ,b.shipgrp          --master data 
    ,b.geo          --master data 
    ,b.chan          --master data 
    ,b.orig_ctry          --master data 
    ,b.orig_prov          --master data 
    ,b.orig_post          --master data 
    ,b.dest_ctry          --master data 
    ,b.dest_prov          --master data 
    ,b.dest_post          --master data 
    ,(SELECT (regexp_match(def->>'newpart','(.*) - '::text))[1] FROM target) part          --history part mix
    ,b.ord_gldc          --master data 
    ,b.majg          --master data 
    ,b.ming          --master data 
    ,b.majs          --master data 
    ,b.mins          --master data 
    ,b.gldc          --master data 
    ,b.glec          --master data 
    ,b.harm          --master data 
    ,b.clss          --master data 
    ,b.brand          --master data 
    ,b.assc          --master data 
    ,b.fs_line          --master data 
    ,b.r_currency          --history cust mix
    ,b.r_rate          --master data 
    ,b.c_currency          --master data 
    ,b.c_rate          --master data 
    ,b.ddqtoi
    ,b.ddqtsi
    ,b.fgqshp
    ,b.diqtsh
    ,(b.agg/sum(b.agg) OVER (partition by mxm.*))*mxm.momix*mxm.qty fb_qty
    ,b.fb_cst_loc
    ,b.fb_cst_loc_cur
    ,b.fb_cst_loc_fut
    ,(b.agg/sum(b.agg) OVER (partition by mxm.*))*mxm.momix*mxm.amount fb_val_loc
    ,b.fb_val_loc_pl
    ,b.calc_status
    ,b.flag
    ,make_date(mxm.yr + 2020,mxm.cal,mxm.odom) orderdate
    ,make_date(mxm.yr + 2020,mxm.cal,mxm.odom) + rlag requestdate
    ,make_date(mxm.yr + 2020,mxm.cal,mxm.odom) + rlag + slag shipdate
    ,make_date(mxm.yr + 2020,mxm.cal,mxm.odom) adj_orderdate
    ,make_date(mxm.yr + 2020,mxm.cal,mxm.odom) + rlag adj_requestdate
    ,make_date(mxm.yr + 2020,mxm.cal,mxm.odom) + rlag + slag adj_shipdate
    ,'replace_version' "version"
    ,'replace_source'||' volume'  iter
    -----------------------ui columns--------------------------------
    ,'replace_iterdet' iterdet
    ,$${"replace_iterdef":""}$$::json iterdef
    ,od.ssyr order_season
    ,to_char(make_date(mxm.yr + 2020,mxm.cal,mxm.odom),'Mon') order_month
    ,sd.ssyr ship_season
    ,to_char(make_date(mxm.yr + 2020,mxm.cal,mxm.odom) + rlag + slag,'Mon') ship_month
    ,rd.ssyr request_season
    ,to_char(make_date(mxm.yr + 2020,mxm.cal,mxm.odom) + rlag,'Mon')  request_month
    ,b.part_descr
    ,b.part_family
    ,b.part_group
    ,b.branding
    ,b.color
    ,b.segm
    ,b.bill_cust_descr
    ,b.billto_group
    ,b.ship_cust_descr
    ,b.shipto_group
    ,b.majg_descr
    ,b.ming_descr
    ,b.majs_descr
    ,b.mins_descr
    ,b.mod_chan
    ,b.mod_chansub
    ,b.quota_rep_descr
    ,b.director_descr
    ,b.value_loc
    ,b.value_usd
    ,b.cost_loc
    ,b.cost_usd
    ,b.units
    --,(b.agg/sum(b.agg) OVER (partition by mxm.*)) bmix
    --,mxm.*
FROM
    basemix b
    CROSS JOIN mxm
    LEFT OUTER JOIN gld od ON
        make_date(mxm.yr + 2020,mxm.cal,mxm.odom) BETWEEN od.sdat AND od.edat
    LEFT OUTER JOIN gld rd ON
        make_date(mxm.yr + 2020,mxm.cal,mxm.odom) + rlag BETWEEN rd.sdat AND rd.edat
    LEFT OUTER JOIN gld sd ON
        make_date(mxm.yr + 2020,mxm.cal,mxm.odom) + rlag + slag BETWEEN sd.sdat AND sd.edat
)
SELECT
    COALESCE(m.avdplt,p.awdplt) plnt          --master data 
    ,b."ddord#"
    ,b."dditm#"
    ,b."fgbol#"
    ,b."fgent#"
    ,b."diinv#"
    ,b."dilin#"
    ,b.promo          --history 
    ,b.return_reas
    ,bc.bvterm terms          --history cust mix
    ,b.custpo
    ,b.dhincr
    ,b.diext
    ,b.ditdis
    ,b.dcodat
    ,b.ddqdat
    ,b.dcmdat
    ,b.dhidat
    ,b.fspr
    ,b.remit_to          --master data 
    ,b.bill_class          --master data 
    ,b.bill_cust          --history cust mix
    ,b.bill_rep          --master data 
    ,b.bill_terr          --master data 
    ,b.ship_class          --master data 
    ,b.ship_cust          --history cust mix
    ,b.ship_rep          --master data 
    ,b.ship_terr          --master data 
    ,b.quota_rep          --master data 
    ,b.account          --master data 
    ,b.shipgrp          --master data 
    ,b.geo          --master data 
    ,b.chan          --master data 
    ,b.orig_ctry          --master data 
    ,b.orig_prov          --master data 
    ,b.orig_post          --master data 
    ,b.dest_ctry          --master data 
    ,b.dest_prov          --master data 
    ,b.dest_post          --master data 
    ,(SELECT (regexp_match(def->>'newpart','(.*) - '::text))[1] FROM target) part          --history part mix
    ,COALESCE(m.avglcd, p.awgldc) ord_gldc          --master data 
    ,COALESCE(m.avmajg,p.awmajg) majg          --master data 
    ,COALESCE(m.avming,p.awming) ming          --master data 
    ,COALESCE(m.avmajs,p.awmajs) majs          --master data 
    ,COALESCE(m.avmins,p.awmins) mins          --master data 
    ,COALESCE(m.avglcd,p.awgldc) gldc          --master data 
    ,COALESCE(m.avgled,p.awgled) glec          --master data 
    ,COALESCE(m.avharm,p.awharm) harm          --master data 
    ,COALESCE(m.avclss,p.awclss) clss          --master data 
    ,SUBSTR(COALESCE(m."avcpt#",p."awvpt#"),1,1) brand          --master data 
    ,COALESCE(m.avassc,p.awassc) assc          --master data 
    ,b.fs_line          --master data 
    ,b.r_currency          --history cust mix
    ,b.r_rate          --master data 
    ,b.c_currency          --master data 
    ,b.c_rate          --master data 
    ,b.ddqtoi
    ,b.ddqtsi
    ,b.fgqshp
    ,b.diqtsh
    ,b.fb_qty
    ,b.fb_cst_loc
    ,b.fb_cst_loc_cur
    ,b.fb_cst_loc_fut
    ,b.fb_val_loc
    ,b.fb_val_loc_pl
    ,b.calc_status
    ,b.flag
    ,b.orderdate
    ,b.requestdate
    ,b.shipdate
    ,b.adj_orderdate
    ,b.adj_requestdate
    ,b.adj_shipdate
    ,b."version"
    ,b.iter
    -----------------------ui columns--------------------------------
    ,b.iterdet
    ,b.iterdef
    ,b.order_season
    ,b.order_month
    ,b.ship_season
    ,b.ship_month
    ,b.request_season
    ,b.request_month
    ,b.part_descr
    ,b.part_family
    ,b.part_group
    ,b.branding
    ,b.color
    ,b.segm
    ,b.bill_cust_descr
    ,b.billto_group
    ,b.ship_cust_descr
    ,b.shipto_group
    ,b.majg_descr
    ,b.ming_descr
    ,b.majs_descr
    ,b.mins_descr
    ,b.mod_chan
    ,b.mod_chansub
    ,b.quota_rep_descr
    ,b.director_descr
    ,b.value_loc
    ,b.value_usd
    ,b.cost_loc
    ,b.cost_usd
    ,b.units
FROM
    applyx b
    LEFT OUTER JOIN LGDAT.STKMM M ON
        M.AVPART = b.PART
    LEFT OUTER JOIN LGDAT.STKMP P ON
        P.AWPART = b.PART
    LEFT OUTER JOIN lgdat.stka a ON
        v6part = b.part
        AND v6plnt = COALESCE(m.avdplt,p.awdplt)
    LEFT OUTER JOIN SEG ON
        SEG.GLEC = COALESCE(m.avgled,p.awgled)
        --AND SEG.SEGM <> 'Other'
    LEFT OUTER JOIN MG ON   
        MG.F1 = SUBSTR(b.PART,16,1)
        AND MG.MING = COALESCE(m.avming,p.awming)
    LEFT OUTER JOIN RLARP.FAMILY F ON
        F.F3 = SUBSTR(b.PART,1,3)
    LEFT OUTER JOIN MD ON
        MD.MOLD = SUBSTR(b.PART,1,8)
    LEFT OUTER JOIN RLARP.FFCHNL L ON
        L.BILL = b.BILL_CLASS
        AND L.SHIP = b.SHIP_CLASS
    LEFT OUTER JOIN LGDAT.CUST BC ON
        BC.BVCUST = b.BILL_CUST
    LEFT OUTER JOIN LGDAT.CUST SC ON
        SC.BVCUST = b.BILL_CUST
    LEFT OUTER JOIN REPC ON
        REPC.RCODE = b.QUOTA_REP
    LEFT OUTER JOIN SI ON
        SI.BSMJCD = COALESCE(m.avmajs,p.awmajs)
        AND SI.BSMNCD = COALESCE(m.avmins,p.awmins)
    LEFT OUTER JOIN SJ ON
        SJ.BSMJCD = COALESCE(m.avmajs,p.awmajs)
    LEFT OUTER JOIN LGDAT.MAJG ON
        BQGRP = COALESCE(m.avmajg,p.awmajg)
    LEFT OUTER JOIN LGDAT.MMGP ON
        BRMGRP = COALESCE(m.avming,p.awming)
        AND BRGRP = COALESCE(m.avmajg,p.awmajg)