CREATE TABLE BITC_ITEM_INV_ATUO_AGE

(

ORGANIZATION_ID    NUMBER,

INVENTORY_ITEM_ID  NUMBER,

SUB_INV            VARCHAR2(20 BYTE),

LOCATION_ID        NUMBER,

LOCATION_NAME      VARCHAR2(20 BYTE),

UNIT               VARCHAR2(10 BYTE),

AGE_DATE           DATE, --初始入库时间

QTY                NUMBER,

ITEM_COST          NUMBER,

SYS_DATE           DATE                       DEFAULT SYSDATE,

TRANSACTION_ID     NUMBER

)

2.2 物料帐龄滚动计算。

截取初始账龄时间到现在某个时间为止的时间段内mtl_material_transactions表中的所有类型的记录(除成本更新)。对这段记录要按交易时间的先后循序每一条，每一条的计算。按入库和出库情况进行分类。对新入库的要记录到表BITC_ITEM_INV_ATUO_AGE 中，原始的入库时间为这笔记录的交易时间。如果是出库的要找到这个物料最早的账龄日期的那笔库存。如果此笔库存不过扣减，则找到这个料下一笔账龄库存数。直到满足这笔记录出库为止。这样不停的计算直到最后一笔。且每计算一笔记录，我们要在mtl_material_transactions表中标记为此笔记录已运算过，下次不要重复计算。保证数据的准确性。如果运行到现在就是我们要的物料账龄表了，我们可以制定一个程序在后台定时运算。这样就能及时地得到所要的物料账龄表。

具体的实现方法如下：

1．        截取初始账龄时间到现在某个时间为止的时间段内mtl_material_transactions表中的所有类型的记录(除成本更新)(第一次运行此程序)

2．        对此段记录的排序要特别处理。要按TRANSACTION_ID 和 PRIMARY_QUANTITY 排序。记住单位的不一致的要转化成一致。对子库存转移和挑库类型以及组织间转移的类型TRANSACTION_ID 要做一下特殊处理要让此类型的数据的正数的记录排在负数前面记录的前面因为ORACLE 处理这些类型时，是先做一笔负数的扣减，从来源仓位扣去要转出的库存。然后再做一笔正数的到目的仓位的库存。为了记录帐龄表中的库存来源日期。我们要让正数的到目的仓位先入库存。再让负数从来源仓出库。

3．        要对出入库的记录要分类处理。不同的类型有不同的处理算法。

3．1        对入库类型为：1：PO接收 2：工单完工入库，3：杂入，4：工单退回

要按新入库的记录。

3．2        对出库类型和库存转移类型转出的部分。是要按帐龄的先后顺序扣减。

3．3        库存转移类型入库的部分要记录此笔记的原始入库时间，及从来原仓位的原始入库时间带过来。

整体的程序如下SQL：

CREATE OR REPLACE PROCEDURE BITC_ITEM_AGE_AUTO_UPDATE(P_ORGANIZATION_ID NUMBER)

AS

var_org_CODE    VARCHAR2(20);

Var_Sub_Inv  varchar2(20);

Var_Item   varchar2(20);

Var_Date_To date;

Int_On_Hand  NUMBER;

Int_Days_60 number;

Int_Days_90 number;

Int_Days_180 number;

Int_Days_270 number;

Int_OVER_270 number;

Int_onhand_qty number;

CURSOR c1(Var_ORGANZATION_ID   NUMBER) IS

SELECT BITC_GET_AGE_TRANSACTION_ID(M.TRANSACTION_ID,M.TRANSACTION_ACTION_ID,M.PRIMARY_QUANTITY) TRANSACTION_ID1,

m.TRANSACTION_ID,

M.ORGANIZATION_ID,

M.INVENTORY_ITEM_ID,

M.SUBINVENTORY_CODE SUB_INV,

M.PRIMARY_QUANTITY QTY,

M.ACTUAL_COST ITEM_COST,

M.TRANSACTION_UOM UNIT,

to_date(to_char(m.CREATION_DATE,'YYYY-MM-DD'),'YYYY-MM-DD') TRANSACTION_DATE,

M.TRANSACTION_ACTION_ID,

M.TRANSFER_ORGANIZATION_ID,

M.TRANSFER_SUBINVENTORY

FROM MTL_MATERIAL_TRANSACTIONS M

WHERE  to_char(m.CREATION_DATE,'YYYY-MM-DD')>='2009-01-01'

AND   M.ATTRIBUTE15 IS NULL

ORDER BY BITC_GET_AGE_TRANSACTION_ID(M.TRANSACTION_ID,M.TRANSACTION_ACTION_ID,M.PRIMARY_QUANTITY) ,M.PRIMARY_QUANTITY DESC;

CURSOR c2(Var_ORGANZATION_ID   NUMBER,Var_item_id number, Var_sub_inv varchar2) IS

SELECT B.TRANSACTION_ID,

B.ORGANIZATION_ID,

B.INVENTORY_ITEM_ID,

B.SUB_INV,

B.UNIT,

B.AGE_DATE,

B.QTY

FROM BITC_ITEM_INV_ATUO_AGE B

WHERE B.ORGANIZATION_ID=Var_ORGANZATION_ID

and b.INVENTORY_ITEM_ID=Var_item_id

and b.QTY>0

and (Var_sub_inv is null or b.SUB_INV=Var_sub_inv)

order by B.AGE_DATE ;

ic_c1_rec c1%ROWTYPE;

ic_c2_rec c2%ROWTYPE;

BEGIN

--DELETE FROM BITC_KPI_FINANCE_FOR_AGE ;

OPEN c1(P_ORGANIZATION_ID);

LOOP

FETCH c1 INTO ic_c1_rec;

EXIT WHEN c1%NOTFOUND;

IF (ic_c1_rec.TRANSACTION_ACTION_ID=27 OR ic_c1_rec.TRANSACTION_ACTION_ID=31) AND ic_c1_rec.QTY>0 THEN

INSERT INTO BITC_ITEM_INV_ATUO_AGE

(ORGANIZATION_ID,            INVENTORY_ITEM_ID,              SUB_INV,                       Transaction_id,

UNIT,                       QTY,                            ITEM_COST,                     AGE_DATE )

VALUES

(

ic_c1_rec.ORGANIZATION_ID, ic_c1_rec.INVENTORY_ITEM_ID,    ic_c1_rec.Sub_Inv,            BITC_item_age_seq.NEXTVAL ,

ic_c1_rec.UNIT,           ic_c1_rec.QTY,                ic_c1_rec.ITEM_COST,              ic_c1_rec.TRANSACTION_DATE

);

UPDATE   MTL_MATERIAL_TRANSACTIONS M

SET M.ATTRIBUTE15='Y'

WHERE M.ORGANIZATION_ID=ic_c1_rec.ORGANIZATION_ID

AND M.TRANSACTION_ID=ic_c1_rec.TRANSACTION_ID;

end if;

IF (ic_c1_rec.TRANSACTION_ACTION_ID=1 or ic_c1_rec.TRANSACTION_ACTION_ID=2 or ic_c1_rec.TRANSACTION_ACTION_ID=3 or ic_c1_rec.TRANSACTION_ACTION_ID=28 OR ic_c1_rec.TRANSACTION_ACTION_ID=32)  and ic_c1_rec.QTY<0 THEN

Int_onhand_qty:=ic_c1_rec.QTY*-1;

OPEN c2(ic_c1_rec.ORGANIZATION_ID,ic_c1_rec.INVENTORY_ITEM_ID,ic_c1_rec.Sub_Inv);

LOOP

FETCH c2 INTO ic_c2_rec;

EXIT WHEN c2%NOTFOUND;

if  Int_onhand_qty>0  then

IF Int_onhand_qty>ic_c2_rec.QTY THEN

update BITC_ITEM_INV_ATUO_AGE B

SET B.QTY=B.QTY-ic_c2_rec.QTY

WHERE B.TRANSACTION_ID=ic_c2_rec.TRANSACTION_ID;

Int_onhand_qty:=Int_onhand_qty- ic_c2_rec.QTY;

ELSE

update BITC_ITEM_INV_ATUO_AGE B

SET B.QTY=B.QTY-Int_onhand_qty

WHERE B.TRANSACTION_ID=ic_c2_rec.TRANSACTION_ID;

Int_onhand_qty:=0;

END IF;

end if;

end loop;

UPDATE   MTL_MATERIAL_TRANSACTIONS M

SET M.ATTRIBUTE15='Y'

WHERE M.ORGANIZATION_ID=ic_c1_rec.ORGANIZATION_ID

AND M.TRANSACTION_ID=ic_c1_rec.TRANSACTION_ID;

CLOSE c2;

end if;

IF (ic_c1_rec.TRANSACTION_ACTION_ID=1 or ic_c1_rec.TRANSACTION_ACTION_ID=2 or ic_c1_rec.TRANSACTION_ACTION_ID=3 or ic_c1_rec.TRANSACTION_ACTION_ID=28)  and ic_c1_rec.QTY>0 THEN

Int_onhand_qty:=ic_c1_rec.QTY;

OPEN c2(ic_c1_rec.TRANSFER_ORGANIZATION_ID,ic_c1_rec.INVENTORY_ITEM_ID,ic_c1_rec.TRANSFER_SUBINVENTORY);

LOOP

FETCH c2 INTO ic_c2_rec;

EXIT WHEN c2%NOTFOUND;

if  Int_onhand_qty>0  then

IF Int_onhand_qty>ic_c2_rec.QTY THEN

INSERT INTO BITC_ITEM_INV_ATUO_AGE

(ORGANIZATION_ID,                      INVENTORY_ITEM_ID,              SUB_INV,                               Transaction_id,

UNIT,                                 QTY,                            ITEM_COST,                             AGE_DATE )

VALUES

(

ic_c1_rec.ORGANIZATION_ID, ic_c1_rec.INVENTORY_ITEM_ID,    ic_c1_rec.SUB_INV,                                BITC_item_age_seq.NEXTVAL ,

ic_c1_rec.UNIT,                     ic_c2_rec.QTY,                  ic_c1_rec.ITEM_COST,                    ic_c2_rec.AGE_DATE

);

Int_onhand_qty:=Int_onhand_qty- ic_c2_rec.QTY;

ELSE

INSERT INTO BITC_ITEM_INV_ATUO_AGE

(ORGANIZATION_ID,                      INVENTORY_ITEM_ID,              SUB_INV,                               Transaction_id,

UNIT,                                 QTY,                            ITEM_COST,                             AGE_DATE )

VALUES

(

ic_c1_rec.ORGANIZATION_ID, ic_c1_rec.INVENTORY_ITEM_ID,              ic_c1_rec.SUB_INV,                      BITC_item_age_seq.NEXTVAL ,

ic_c1_rec.UNIT,                     Int_onhand_qty,                  ic_c1_rec.ITEM_COST,                    ic_c2_rec.AGE_DATE

);

Int_onhand_qty:=0;

END IF;

end if;

end loop;

UPDATE   MTL_MATERIAL_TRANSACTIONS M

SET M.ATTRIBUTE15='Y'

WHERE M.ORGANIZATION_ID=ic_c1_rec.ORGANIZATION_ID

AND M.TRANSACTION_ID=ic_c1_rec.TRANSACTION_ID;

CLOSE c2;

end if;

COMMIT;

END LOOP;

CLOSE c1;

COMMIT;

END ;

/