首页 > 代码库 > EBS-PAC成本更新事务处理

EBS-PAC成本更新事务处理

2024-07-10 19:20:47   224人阅读


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; --固定
  l_itfs_rec.transaction_source_type_id := 14; --固定
  l_itfs_rec.organization_id            := get_mst_organization_id; --主组织
  SELECT cst.cost_type_id
    INTO l_itfs_rec.cost_type_id
    FROM cst_cost_types cst
   WHERE cst.cost_type = ‘PAC‘; --成本类型PAC
  l_itfs_rec.org_cost_group_id    := l_cost_group_id; --组织成本组
  l_itfs_rec.transaction_date     := l_end_date; --事务处理日期
  l_itfs_rec.inventory_item_id    := rec_i.inventory_item_id;
  l_itfs_rec.transaction_quantity := 0;
  l_itfs_rec.transaction_uom      := ‘kg‘; --物料主组织单位
  --l_itfs_rec.new_average_cost           := p_new_avg_cst;--新期间成本
  --l_itfs_rec.percentage_change          := p_percent_chage;--更改百分比

  l_value_chage                         := 30;
  l_itfs_rec.value_change               := l_value_chage; --库存值更改
  l_itfs_rec.material_account           := l_ap_accrual_account; --物料账户
  l_itfs_rec.material_overhead_account  := l_ap_accrual_account; --物料间接费用账户
  l_itfs_rec.resource_account           := l_ap_accrual_account; --资源账户
  l_itfs_rec.outside_processing_account := l_ap_accrual_account; --外协加工账户
  l_itfs_rec.overhead_account           := l_ap_accrual_account; --制造费用
  --l_itfs_rec.reason_id                  := p_reason_id;
  --l_itfs_rec.transaction_reference      := p_txn_ref;
  /*    l_itfs_rec.attribute_category    := p_att_cat;
  l_itfs_rec.attribute1            := p_att1;
  l_itfs_rec.attribute2            := p_att2;
  l_itfs_rec.attribute3            := p_att3;
  l_itfs_rec.attribute4            := p_att4;
  l_itfs_rec.attribute5            := p_att5;
  l_itfs_rec.attribute6            := p_att6;
  l_itfs_rec.attribute7            := p_att7;
  l_itfs_rec.attribute8            := p_att8;
  l_itfs_rec.attribute9            := p_att9;
  l_itfs_rec.attribute10           := p_att10;
  l_itfs_rec.attribute11           := p_att11;
  l_itfs_rec.attribute12           := p_att12;
  l_itfs_rec.attribute13           := p_att13;
  l_itfs_rec.attribute14           := p_att14;
  l_itfs_rec.attribute15           := p_att15;*/
  --set who
  l_itfs_rec.created_by             := g_user_id;
  l_itfs_rec.creation_date          := SYSDATE;
  l_itfs_rec.last_updated_by        := g_user_id;
  l_itfs_rec.last_update_date       := SYSDATE;
  l_itfs_rec.last_update_login      := g_login_id;
  l_itfs_rec.request_id             := g_request_id;
  l_itfs_rec.program_id             := g_prog_id;
  l_itfs_rec.program_application_id := g_prog_appl_id;
  l_itfs_rec.program_update_date    := SYSDATE;

  INSERT INTO mtl_transactions_interface VALUES l_itfs_rec;
END LOOP ;
--新增事务处理
IF x_return_status = fnd_api.g_ret_sts_success THEN
  l_api_flag := inv_txn_manager_pub.process_transactions(p_api_version      => 1.0,
                                                         p_init_msg_list    => fnd_api.g_false,
                                                         p_commit           => fnd_api.g_false,
                                                         p_validation_level => fnd_api.g_valid_level_full,
                                                         x_return_status    => x_return_status,
                                                         x_msg_count        => x_msg_count,
                                                         x_msg_data         => x_msg_data,
                                                         x_trans_count      => l_api_trans_cnt,
                                                         p_table            => 1,
                                                         p_header_id        => l_txn_header_id);
  IF nvl(l_api_flag, -1 ) <> 0 OR nvl (x_return_status, ‘X‘) <> ‘S‘ THEN
    fnd_message.set_name( ‘FND‘, ‘FND_GENERIC_MESSAGE‘ );
    fnd_message.set_token( ‘MESSAGE‘, ‘成本更新失败‘ );
    fnd_msg_pub.add;
 
    fnd_message.set_name( ‘FND‘, ‘FND_GENERIC_MESSAGE‘ );
    fnd_message.set_token( ‘MESSAGE‘,
                          ‘x_return_status : ‘ || x_return_status);
    fnd_msg_pub.add;
 
    fnd_message.set_name( ‘FND‘, ‘FND_GENERIC_MESSAGE‘ );
    fnd_message.set_token( ‘MESSAGE‘, ‘x_msg_data : ‘ || x_msg_data);
    fnd_msg_pub.add;
 
    RAISE fnd_api.g_exc_error;
    --RAISE e_itfs_fail;
  END IF;
END IF ;
END;


联系
我们