固定资产新增接口

原创 2013年12月01日 20:53:07
DECLARE

  l_trans_rec           fa_api_types.trans_rec_type;
  l_dist_trans_rec      fa_api_types.trans_rec_type;
  l_asset_hdr_rec       fa_api_types.asset_hdr_rec_type;
  l_asset_desc_rec      fa_api_types.asset_desc_rec_type;
  l_asset_cat_rec       fa_api_types.asset_cat_rec_type;
  l_asset_type_rec      fa_api_types.asset_type_rec_type;
  l_asset_hierarchy_rec fa_api_types.asset_hierarchy_rec_type;
  l_asset_fin_rec       fa_api_types.asset_fin_rec_type;
  l_asset_deprn_rec     fa_api_types.asset_deprn_rec_type;
  l_asset_dist_rec      fa_api_types.asset_dist_rec_type;
  l_asset_dist_tbl      fa_api_types.asset_dist_tbl_type;
  l_inv_tbl             fa_api_types.inv_tbl_type;
  l_inv_rate_tbl        fa_api_types.inv_rate_tbl_type;

  l_return_status VARCHAR2(1);
  l_mesg_count    NUMBER;
  l_mesg          VARCHAR2(4000);

BEGIN
  --初始化
  dbms_output.enable(10000000);

  fa_srvr_msg.init_server_message;

  --资产基础信息
  -- desc info
  --资产编号(不传值系统会自动将asset_id赋过来)
  l_asset_desc_rec.asset_number := 'GH_TEST004';
  --资产说明
  l_asset_desc_rec.description := 'TEST';
  --资产关键字组合代码标识
  l_asset_desc_rec.asset_key_ccid := 1;

  --资产类别信息
  -- cat info
  --资产类别代码组合标识
  l_asset_cat_rec.category_id := 1;

  --资产类型信息
  --type info
  --资产类型
  l_asset_type_rec.asset_type := 'CAPITALIZED';

  --财务信息
  -- fin info
  --资产成本
  l_asset_fin_rec.cost := 1;
  --资产新增日期
  l_asset_fin_rec.date_placed_in_service := to_date('2013-03-13',
                                                    'YYYY/MM/DD');

  l_asset_fin_rec.depreciate_flag := 'YES';

  --折旧信息
  -- deprn info
  --折旧信息
  l_asset_deprn_rec.ytd_deprn           := 0;
  l_asset_deprn_rec.deprn_reserve       := 0;
  l_asset_deprn_rec.bonus_ytd_deprn     := 0;
  l_asset_deprn_rec.bonus_deprn_reserve := 0;

  --账簿及分配信息
  -- book / trans info
  --账簿
  l_asset_hdr_rec.book_type_code := 'FA_BOOK_01';
  --分配日期
  l_trans_rec.transaction_date_entered := l_asset_fin_rec.date_placed_in_service;
  -- distribution info
  --分配数量
  l_asset_dist_rec.units_assigned := 1;
  --费用账户id
  l_asset_dist_rec.expense_ccid := 14001;
  --地点组合代码标识id
  l_asset_dist_rec.location_ccid := 1;
  --员工id
  l_asset_dist_rec.assigned_to := 61;
  --调整数量
  l_asset_dist_rec.transaction_units := l_asset_dist_rec.units_assigned;
  l_asset_dist_tbl(1) := l_asset_dist_rec;

  -- call the api
  fa_addition_pub.do_addition(
                              -- std parameters
                              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,
                              p_calling_fn       => NULL,
                              x_return_status    => l_return_status,
                              x_msg_count        => l_mesg_count,
                              x_msg_data         => l_mesg,
                              -- api parameters
                              px_trans_rec           => l_trans_rec,
                              px_dist_trans_rec      => l_dist_trans_rec,
                              px_asset_hdr_rec       => l_asset_hdr_rec,
                              px_asset_desc_rec      => l_asset_desc_rec,
                              px_asset_type_rec      => l_asset_type_rec,
                              px_asset_cat_rec       => l_asset_cat_rec,
                              px_asset_hierarchy_rec => l_asset_hierarchy_rec,
                              px_asset_fin_rec       => l_asset_fin_rec,
                              px_asset_deprn_rec     => l_asset_deprn_rec,
                              px_asset_dist_tbl      => l_asset_dist_tbl,
                              px_inv_tbl             => l_inv_tbl);
  --dump messages
  l_mesg_count := fnd_msg_pub.count_msg;

  IF l_mesg_count > 0 THEN
  
    l_mesg := chr(10) ||
              substr(fnd_msg_pub.get(fnd_msg_pub.g_first, fnd_api.g_false),
                     1,
                     250);
    dbms_output.put_line(l_mesg);
  
    FOR i IN 1 .. (l_mesg_count - 1) LOOP
      l_mesg := substr(fnd_msg_pub.get(fnd_msg_pub.g_next, fnd_api.g_false),
                       1,
                       250);
    
      dbms_output.put_line(l_mesg);
    END LOOP;
  
    fnd_msg_pub.delete_msg();
  
  END IF;

  IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
    dbms_output.put_line('FAILURE');
  ELSE
    dbms_output.put_line('SUCCESS');
    dbms_output.put_line('THID:' ||
                         to_char(l_trans_rec.transaction_header_id));
    dbms_output.put_line('ASSET_ID:' || to_char(l_asset_hdr_rec.asset_id));
    dbms_output.put_line('ASSET_NUMBER:' || l_asset_desc_rec.asset_number);
  END IF;

END;


版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

固定资产的调整分配接口

/*(注意点:1:只能在不同的行之间进行调整 2:调整之后的数量之和应和调整之前一样,否则报错)*/ DECLARE l_return_status VARCHAR2(1); l_msg_c...
  • gh320
  • gh320
  • 2013-12-01 20:59
  • 913

固定资产更新接口

--更新资产 DECLARE l_trans_rec fa_api_types.trans_rec_type; l_asset_hdr_rec fa_api_types.asse...
  • gh320
  • gh320
  • 2013-12-01 21:03
  • 879

基于JSP的固定资产管理系统的研究与设计

陕 西 科 技 大 学 镐 京 学 院 毕业设计(论文)任务书   信息工程   系      ...

企业会计准则(具体准则)第4号——固定资产

企业会计准则第4号——固定资产(2006) 第一章 总则   第一条为了规范固定资产的确认、计量和相关信息的披露,根据《企业会计准则——基本准则》,制定本准则。   第二条 下列...

中国企业会计准则第4号——固定资产(2006)

第一章 总则   第一条 为了规范固定资产的确认、计量和相关信息的披露,根据《企业会计准则——基本准则》,制定本准则。   第二条 下列各项适用其他相关会计准则:   (一)作为投资性房地产的建...

SAP R3 功能详解 - 固定资产会计

 1. SAP R/3 系统中的财会子系统 企业结构的变化        企业经营管理的全球化和多元化推动了世界范围内企业结构的变化,并且使业务流程日益复杂。 这种趋势推动了...

固定资产

SELECT fa.asset_id 资产id, fa.asset_number ebs资产标签号, nvl(fa.tag_number, fa.asset_number)...

ORACLE EBS/ERP 固定资产总账模块分录

第六章 固定资产模块    一、固定资产增加(科目来源:资产分类)1、新购固定资产 借 固定资产固定资产原值贷 固定资产中转 固定资产净值 2、购入已使用固定资产 借 固定资产固定资产原值贷 固定资产...

银行、金融业固定资产管理软件

银行、金融业固定资产管理软件 随着金融业务的拓展,银行对房产、电子设备、办公设备等固定资产需求扩大,固定资产投入和固定资产实物管理变得日益重要。由于长期以来管理体制、制度等多重因...

U8+V12.1,2016年7月固定资产月末对账,差1分钱

 问题现象: U8+V12.1,2016年7月固定资产月末对账,差1分钱,如下图: 固定资产模块的累计折旧期初余额(2650.08)+本期贷方发生(1335.09)≠期末余额(3985.16...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)