ebs R12 杂收杂发代码

最新推荐文章于 2024-03-28 08:56:48 发布

原创

最新推荐文章于 2024-03-28 08:56:48 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

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.transaction_mode      := 3; --2：并发 3:后台
l_iface_rec.process_flag          := 1; --1:是 2:否 3：错误

l_iface_rec.transaction_type_id   := 200; --mtl_transaction_types
l_iface_rec.transaction_source_type_id := 13;
l_iface_rec.transaction_action_id := 1;