--除包材、半成品以外的半成品下层物料展望期7天更改为40日

      INSERT INTO OUT_PR (pr_id,

                          ITEM,

                          SUPPLIER_ID,

                          DUE_DATETIME,

                          QTY,

                          PROC_GROUP_ID,

                          PROC_GROUP_DESCR,

                          SITE_ID,

                          LOC_ID,

                          QTYUOM,

                          PLANNEDDELDATE)

           SELECT MAX (PR.ORDERID),

                  PR.ITEM,

                  SUBSTR (PR.RECOMMENDEDSUPID, 6),

                  TRUNC (PR.PORELEASEDATE),

                  SUM (PR.QTYPLANNED),

                  IT.PROC_GROUP_ID,

                  IT.PROC_GROUP_DESCR,

                  IT.SITE_ID,

                  SI.LOCATION_ID,

                  SI.QTY_UOM,

                  PR.PLANNEDDELDATE

             FROM ABPPMGR.PROCUREMENTPLAN PR,

                  IN_ITEM_SITE IT,

                  IN_SUPPLIER_ITEM SI

            WHERE     PR.ITEM = IT.ITEM_ID

                  AND IT.SITE_ID = SUBSTR (PR.RECOMMENDEDSUPID, 1, 4)

                  AND SI.ITEM_ID = IT.ITEM_ID

                  AND SI.SUPPLIER_ID = PR.RECOMMENDEDSUPID

                  AND SI.UDF_ITEM_TYPE_ID = ''

                  AND TO_CHAR (TRUNC (PR.PORELEASEDATE), 'YYYY-MM-DD') >=

                         TO_CHAR (V_CurrentDate, 'YYYY-MM-DD')

                  AND (

                       --alter by lxf on 20161213  change 7 days to 40 days

                         TO_CHAR(TRUNC (PR.PORELEASEDATE),'YYYY-MM-DD') <= TO_CHAR(V_CurrentDate + DECODE (V_DAY,1, 40,2,40),'YYYY-MM-DD'))

                  AND PR.ORDERID LIKE '%PROC%'

                  --add chip family_id 物料组4041902与物料编码701*、702*开头的芯片

                  AND (    NOT EXISTS

                                  (SELECT NULL

                                     FROM IN_ITEM II

                                    WHERE     IT.ITEM_ID = II.ITEM_ID

                                          AND II.FAMILY_ID IN

                                                 ('',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  '',

                                                  ''))

                       AND SUBSTR (PR.ITEM, 1, 9) NOT IN

                              ('', ''))

                  AND SUBSTR(PR.RECOMMENDEDSUPID,INSTR(PR.RECOMMENDEDSUPID,'_')+5) NOT IN

                  ( SELECT DISTINCT SUPPLIER_ID FROM SAP_SUPPLIER_MINQTY )

         GROUP BY PR.ITEM,

                  SUBSTR (PR.RECOMMENDEDSUPID, 6),

                  TRUNC (PR.PORELEASEDATE),

                  IT.PROC_GROUP_ID,

                  IT.PROC_GROUP_DESCR,

                  IT.SITE_ID,

                  SI.LOCATION_ID,

                  SI.QTY_UOM,

                  PR.PLANNEDDELDATE;

 DELETE FROM OUT_PR PR

            WHERE        (TO_CHAR (TRUNC (PR.DUE_DATETIME), 'YYYY-MM-DD') >

                             --alter by Lxf on 20161219  change 7 days to50 days

                             TO_CHAR (V_CurrentDate + DECODE (V_DAY, 1, 40,2,40),'YYYY-MM-DD')