ebs R12 杂收杂发代码

最新推荐文章于 2024-08-28 17:19:58 发布

Leon_2015

最新推荐文章于 2024-08-28 17:19:58 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： INV EBS

本文链接：https://blog.youkuaiyun.com/lyyong2007/article/details/50000877

DECLARE

l_iface_rec        mtl_transactions_interface%ROWTYPE;
l_iface_lot_rec    mtl_transaction_lots_interface%ROWTYPE;

l_origanization_id NUMBER := 83; --Current Inv Organization
l_user_id        NUMBER := 0; --User ID, Sysadmin here
l_timeout        NUMBER;
v_transaction_qty NUMBER;
l_error_code     VARCHAR2(200);
l_error_explanation VARCHAR2(2000);
l_outcome        BOOLEAN;
BEGIN

l_iface_rec.last_update_date := SYSDATE;
l_iface_rec.last_updated_by   := l_user_id;
l_iface_rec.creation_date     := SYSDATE;
l_iface_rec.created_by        := l_user_id;
l_iface_rec.last_update_login := -1;

SELECT mtl_material_transactions_s.NEXTVAL INTO l_iface_rec.transaction_interface_id FROM dual;
l_iface_rec.transaction_header_id := l_iface_rec.transaction_interface_id;
l_iface_rec.transacti