EBS-PAC成本更新事务处理



PAC成本更新事务处理

DECLARE

  l_itfs_rec mtl_transactions_interface% ROWTYPE;

BEGIN

  --插入接口表

  SELECT mtl_material_transactions_s.nextval

    INTO l_txn_header_id

    FROM dual;

  v_date                                := p_end_date - 1 || ' 06:00:00';

  l_end_date                            := to_date(v_date,

                                                   'dd/mm/yy hh24:mi:ss');

  l_itfs_rec.transaction_header_id      := l_txn_header_id;

  l_itfs_rec.source_code                := 'CUXPACIP';

  l_itfs_rec.source_line_id             := 0;

  l_itfs_rec.source_header_id           := 0;

  l_itfs_rec.process_flag               := 1;

  l_itfs_rec.transaction_mode           := 2;

  l_itfs_rec.validation_required        := 1;

  l_itfs_rec.transaction_type_id        := 26; --固定