Oracle Assetsユーザー・ガイド リリース12 E06049-01

目次

前へ

次へ

Oracle Assetsの修正API

この付録では、次のトピックについて説明します。

• はじめに
• 修正APIの摘要
• 修正APIの使用
• サンプル・スクリプト: 請求書情報のない修正APIの使用
• サンプル・スクリプト: 請求書情報のある修正APIの使用
• サンプル・スクリプト: 代替元帳通貨対応の請求書情報による修正APIの使用

はじめに

Oracle Assetsの既存のインタフェースとの併用が困難なカスタム・インタフェースを設定している場合は、このAPIを使用できます。この修正APIでは、FA_ADJUSTMENT_PUB.DO_ADJUSTMENTプロシージャが使用されます。資産修正用の既存のOracle Assetsインタフェースとの併用が困難なカスタム・インタフェースを設定している場合は、このAPIを使用します。

この修正APIを使用すると、会計用資産台帳および依存税務台帳にあわせて資産を自動的に修正できます。

Oracle Assetsでは、次の方法を使用して資産を修正することもできます。資産は、資産ワークベンチ（「ソース明細」および「資産台帳」ウィンドウを使用）、一括追加、一括変更、一括コピーおよび税金アップロード・インタフェースの各ユーザー・インタフェースを使用して修正できます。

• 一括追加: 既存資産に対して取得価額の修正を加えるには、一括追加処理を使用します。

• 一括変更: 既存資産の財務情報を変更するには、一括変更処理を使用します。

• 一括コピー: 既存資産を税務台帳に追加するには、一括コピー処理を使用します。

• 取得価額修正: 取得価額および財務情報を修正するには、先日付取引インタフェースを使用します。

• 税金アップロード・インタフェース: 税務台帳内の資産情報を変更するには、税金アップロード・インタフェース処理を使用します。

• 資産ワークベンチ: 個別の資産に対して変更を加えるには、資産ワークベンチを使用します。

代替元帳通貨

代替元帳通貨を設定している場合は、Oracle Assets APIを使用して資産を追加または変更すると、その取引はAPIによって報告通貨に自動的にコピーされます。請求書端数処理の問題は、APIを使用して、主要通貨と報告通貨の両方に対して代替元帳通貨会計処理を実行することで回避されます。

建設仮勘定

税務台帳の「資産台帳管理」ウィンドウで「建設仮勘定資産の許可」チェック・ボックスを選択している場合は、追加APIを使用して建設仮勘定資産を追加すると、その建設仮勘定資産が税務台帳に自動的に追加され、同時に会計用資産台帳にも追加されます。

NULL値の受渡し

BONUS_RULE、CEILING_NAMEまたはGROUP_ASSET_IDの値をNULLに設定するためには、特別な値を渡す必要があります。これらの値にNULL値を直接渡した場合、APIでは、カテゴリに対する設定値に自動的にデフォルト設定されます。次の表に、NULLのフィールド値に渡す必要がある値を示します。

関連項目

修正APIの摘要

サンプル・スクリプト: 請求書情報のない修正APIの使用

サンプル・スクリプト: 請求書情報のある修正APIの使用

修正APIの摘要

修正取引を実行するには、FA_ADJUSTMENT_PUB.DO_ADJUSTMENT () APIをコールします。次の表に、FA_ADJUSTMENT_PUB.DO_ADJUSTMENTプロシージャの要素の引数、型、値および説明を示します。

各引数には、P、XまたはPXのプリフィクスが付加されます。それぞれの意味は、次のとおりです。

• P: In引数を示します。

• X: Out引数を示します。

• PX: InとOutの両方の引数を示します。

TRANS_REC_TYPE取引体系

TRANS_REC_TYPE取引体系には、取引ヘッダーIDや取引タイプ・コードなど、取引に関する情報が記載されています。次の表に、各引数の型と値の情報を示します。

ASSET_HDR_REC_TYPE資産体系

ASSET_HDR_REC_TYPE資産体系には、資産IDや台帳タイプ・コードなど、資産に関する一意の識別情報が記載されています。次の表に、各引数の型と値の情報を示します。

ASSET_FIN_REC_TYPE資産体系

ASSET_FIN_REC_TYPE資産体系には、特定資産の財務情報が記載されています。次の表に、各引数の型と値の情報を示します。

次の内容は、グループ資産に関連します。

• DISABLED_FLAG

• OVER_DEPRECIATE_OPTION

• SUPER_GROUP_ID

• REDUCE_ADDITION_FLAG

• REDUCE_ADJUSTMENT_FLAG

• REDUCE_RETIREMENT_FLAG

• RECOGNIZE_GAIN_LOSS

• RECAPTURE_RESERVE_FLAG

• LIMIT_PROCEEDS_FLAG

• TERMINAL_GAIN_LOSS

• TRACKING_METHOD

• EXCESS_ALLOCATION_OPTION

• DEPRECIATION_OPTION

• MEMBER_ROLLUP_FLAG

• ALLOCATE_TO_FULLY_RSV_FLAG

REDUCTION_RATEは、グループ資産およびメンバー資産用です。

ASSET_DEPRN_REC_TYPE資産体系

ASSET_DEPRN_REC_TYPE資産体系には、特定資産の減価償却情報が記載されています。次の表に、各引数の型と値の情報を示します。

INV_TRANS_REC_TYPE請求書体系

INV_TRANS_REC_TYPE請求書体系には、特定の請求書の請求書取引情報が記載されています。次の表に、各引数の型と値の情報を示します。

請求書取引と請求書データは請求書表に渡されます。請求書の追加と一括追加は新規明細（ソース）であり、NULLのままである必要があります。他のすべての引数は既存明細にあり、SOURCE_LINE_ID値が必要です。代替元帳通貨データは、新規明細の償却率表に渡す必要があります。

INV_REC_TYPE請求書体系

INV_REC_TYPE請求書体系には、資産に関連付けられている単一の請求書の請求書情報が記載されています。INV_TBLはINV_REC_TYPEレコードの表です。これらのレコードには、資産に割り当てられているすべての請求書が含まれています。次の表に、各引数の型と値の情報を示します。

注意: 次の引数は、既存の請求書を変更する場合に必須で、新規請求書の追加には必須ではありません。

INV_RATE_REC_TYPE請求書レート体系

INV_RATE_REC_TYPE請求書体系には、請求書のレート情報が記載されています。INV_RATE_REC_TYPEレコードには、1つの換算レートが含まれています。INV_RATE_TBL_TYPEはINV_RATE_REC_TYPEレコードの表です。この表は、資産の換算レートを判別するために、代替元帳通貨で使用されます。次の表に、各引数の型と値の情報を示します。

注意: 代替元帳通貨の場合、新規請求書明細、一括追加または請求書の追加に関連する請求書取引の実行時には、この表が移入されている必要があります。振替元資産の修正または振替では、金額が請求書エンジン内で導出されます。レートは取引日に基づいて導出されるため、請求書のないシナリオには償却率表を移入しないでください。

GROUP_RECLASS_OPTIONS_REC_TYPE資産組替体系

GROUP_RECLASS_OPTIONS_REC_TYPE資産組替体系には、グループ資産で実行される取引時に変更される場合があるグループ資産組替オプションが含まれています。次の表に、各引数の型と値の情報を示します。

修正APIの使用

次の項では、請求書があるシナリオ、請求書がないシナリオおよび代替元帳通貨も含めて、様々なシナリオでの修正APIの使用方法を概説します。追加期間中の修正、減価償却実行後の修正、および資産の3つのタイプすべて（資産計上資産、建設仮勘定資産および費用処理済資産）には、同じ原理が適用されます。

請求書取引と請求書データは請求書表に渡されます。請求書の追加と一括追加は新規明細（ソース）であり、NULLのままである必要があります。他のすべての引数は既存明細にあり、SOURCE_LINE_ID値が必要です。代替元帳通貨データは、新規明細の償却率表に渡す必要があります。

重要: 請求書振替の実行には、修正APIを直接使用しないでください。かわりに、関連する両方の資産を処理するように設計されたパブリック請求書振替APIを使用します。

新規修正APIをコールする方法には、次の4つがあります。

• 代替元帳通貨非対応の請求書を使用する方法

• 代替元帳通貨非対応の請求書を使用しない方法

• 代替元帳通貨対応の請求書を使用する方法

• 代替元帳通貨対応の請求書を使用しない方法

新規請求書、既存請求書の修正または振替の請求書が関連する場合、APIでは、請求書表の情報を使用して資産の財務情報の変更が計算されます。したがって、FIN_REC_TYPEの移入は不要です。これに対して、請求書が関連しない場合は、FIN_REC_TYPEを直接移入することで財務情報の変更が渡されます。

代替元帳通貨の場合、新規請求書明細、一括追加または請求書の追加に関連する請求書取引の実行時には、INV_RATE表が移入されている必要があります。振替元資産の修正または振替では、金額が請求書エンジン内で導出されます。償却率は取引日に基づいて導出されるため、請求書のないシナリオには償却率表を移入しないでください。

注意: 新規取引APIはデルタ/変更額の概念で運用されます。したがって、財務、減価償却および請求書の各体系に変更する体系には、値を移入する必要があります。この移入は、金額列では重要です。取得価額を50000から60000に変更した場合、体系内での取得価額の値は10000になります。値が減額になる変更の場合は符号が重要で、マイナス符号を使用する必要があります。したがって、60000から50000への取得価額の変更の場合、取得価額には-1000が移入されます。

修正APIでは、NULL値は変更なしとして処理されます。移入済の値からNULLに変更される非増分列または金額列の場合は、APIに対して現行の値をNULLに設定するように指示するために、データ型に応じてFND_API.G_MISS_NUM、G_MISS_DATEまたはG_MISS_CHARのいずれかを渡す必要があります。たとえば、追加期間中に短期課税情報を削除する場合です。

原価修正

取引の一部として請求書が関連している場合、財務体系と減価償却体系には金額を移入しないでください。これは、変更額の合計は、請求書エンジンによってAPI内で内部的に計算されるためです。

注意: 体系を移入する場合、移入する必要があるのは、変更の対象となる値とデルタの変更額のみがある財務金額のみです。新規の合計を更新する必要はありません。

請求書情報のない修正APIのコール

この項では、請求書関連情報の受渡しがないAPIのコール方法を詳細に説明します。この方法は、手動による取得価額の変更、および資産の事業供用日または減価償却方法などの値に対する変更で使用されます。次に、使用可能な体系と値の詳細を示します。値が必須かどうかも示します。

ASSET_HDR_REC_TYPE

取引に対してASSET_IDおよびBOOK_TYPE_CODEを移入する必要があります。資産台帳が会計用資産台帳である場合は、資産がすでに存在し、CIP-IN-TAX（建設仮勘定資産の場合）または自動コピー（資産計上資産の場合）が使用可能な税務台帳がAPIによって自動的に処理されます。SET_OF_BOOKS_IDも追加期間も移入しないでください。これらの値はAPI自体で計算される内部値です。

TRANS_REC_TYPE

TRANSACTION_SUBTYPEはEXPENSEDにデフォルト設定されるため、修正を償却する場合は、かわりにTRANSACTION_SUBTYPEにAMORTIZEDを移入する必要があります。TRANSACTION_SUBTYPEがAMORTIZEDの場合は、必要に応じて償却開始日を指定できます。指定しない場合、修正はオープン期間から償却されます。TRANSACTION_TYPE_CODE、TRANSACTION_HEADER_IDおよびTRANSACTION_DATE_ENTEREDは、他の必要な値と同様にAPI内で導出されます。費用処理済修正の場合、取引日はオープン期間の最終日になります。修正額償却の場合は、償却開始日になります。

ASSET_FIN_REC_TYPE

請求書情報なしで修正を実行する場合は、体系内の変更対象フィールド（COST、SALVAGE_VALUE、PRORATE_CONVENTIONなど）のみを移入してください。RATE_ADJUSTMENT_FACTOR、ADJUSTED_COST、RECOVERABLE_COST、DEPRN_START_DATE、OR PRORATE_DATEなどのシステム導出値は移入しないでください。これらすべてのフィールドは内部的に計算されます。

ASSET_DEPRN_REC_TYPE

追加期間中に資産計上資産を修正する場合は、手動取引に対してDEPRN_REC_TYPEを移入できます。請求書を使用する場合は、かわりにINV_REC_TYPEの減価償却関連の列を移入してください。使用可能なフィールドは、中核となる金額を累計する年累計額（YTD_DEPRNやDEPRN_RESERVEなど）およびボーナスで、履歴情報が再評価されます。

関連項目

サンプル・スクリプト: 請求書情報のない修正APIの使用

請求書情報のある修正APIのコール

この項では、請求書関連情報の追加または変更によって修正が初期化されるときに、APIをコールする方法を詳細に説明します。このような修正には、前述の体系に加えて、次の体系が必要です。また、このモードでは、財務体系および減価償却体系が移入されません。これは、すべての請求書の合計に基づいてデルタの合計がAPIによって計算されるためです。

請求書取引と請求書データは請求書表に渡されます。請求書の追加と一括追加は新規明細（ソース）であり、NULLのままである必要があります。他のすべての引数は既存明細にあり、SOURCE_LINE_ID値が必要です。代替元帳通貨データは、新規明細の償却率表に渡す必要があります。

INV_TRANS_REC_TYPE

請求書を使用している場合は、TRANSACTION_TYPE_CODEを移入する必要があります。ソース明細振替に関連する振替先資産に対してAPIがコールされている場合を除いて、INVOICE_TRANSACTION_IDの移入は不要で、API内で導出されます。

INV_TBL_TYPE （INV_REC_TYPEの表）

修正で請求書を使用する場合は、必要なすべての列に新規請求書明細の値（MASS ADDITIONやINVOICE ADDITIONなど）を移入してください。既存の請求書（INVOICE ADJUSTMENTS、DELETES、REINSTATESおよびTRANSFERSなど）に関連する修正の場合は、FIXED_ASSETS_COSTに、変更の値のみを入力する必要があります。

• たとえば、現在の取得価額が$250000のソース明細を200000に変更する場合は、INV_RECに-50000を移入します。

• 明細を削除したり、以前削除した明細を再稼働する場合は、関連する値にDELETED_FLAGを移入するのみで、他の列は移入しないでください。

• 新規明細の場合、SOURCE_LINE_IDは常にNULLのままにしてください。

• 既存のソース明細を修正する場合、請求書表の各行には、変更する明細の値が移入されたSOURCE_LINE_IDを指定する必要があります。

INV_RATE_TBL_TYPE （INV_RATE_REC_TYPEの表）

代替元帳通貨対応の会計用資産台帳に新規請求書を送信する場合は、この表に、ソース明細ごと、および関連付けられている報告通貨ごとに、換算レートまたは取得価額を指定する必要があります。各行の一意の識別子は、SET_OF_BOOKS_IDとINV_INDICATORの組合せです。したがって、各行に対して、INV_INDICATOR、SET_OF_BOOKS_IDおよびEXCHANGE RATEを移入する必要があります。INV_INDICATORによって、この表の各行と請求書エンジンのINV_TBLの各行を一致させることができます。既存の明細を変更する場合、この表の移入は不要です。これは、請求書エンジンによって既存の行から適切な換算レートが導出されるためです。

注意: この表では、選択内容に応じてEXCHANGE_RATEまたはCOSTの値を入力する必要があります。

関連項目

サンプル・スクリプト: 請求書情報のある修正APIの使用

グループ資産組替用修正APIのコール

この項では、修正によってCRL対応環境でグループ資産組替が発生したときに、APIをコールする方法を詳細に説明します。このような修正には、前述の体系に加えて、次の体系が必要です。

注意: グループ資産組替と追加の財務変更（取得価額など）を組み合せて、該当する取引で請求書を使用することもできます。

GROUP_RECLASS_OPTIONS_REC_TYPE

この体系を適用できるのは、グループ減価償却を使用するCRL対応環境のみです。グループに対する資産の割当を変更する場合は、この体系を移入する必要があります。このようなシナリオでは、TRANSFER_FLAGとMANUAL_FLAGの両方が必須で、それぞれにYESまたはNOの値が含まれています。MANUAL_FLAG = YESを設定する場合は、MANUAL_AMOUNTも指定する必要があります。

TRANSFER_FLAGをYESに設定すると、グループ資産組替は当期間の取引として処理され、償却累計額のみが振り替えられますが、振替元側または振替先側での減価償却の遡及計上や取消はありません。このフラグをNOに設定すると、グループ資産組替は償却累計額の振替ではなく、遡及訂正として処理され、減価償却費は、組み替える資産の取得価額に応じて戻されます。

現在、手動による金額の指定は、TRANSFERオプションを使用する場合のみ許可されています。これは、この金額によって振り替える償却累計額が指定され、遡及シナリオに適用できないためです。MANUAL_FLAGがNOに設定されている場合、減価償却費または償却累計額は、TRANSFER_FLAGの値に応じて計算されます。

次の表に、現在サポートされているグループ資産組替の組合せを示します。

サンプル・スクリプト: 請求書情報のない修正APIの使用

次に、請求書情報がなく報告通貨も使用しない資産の修正例を示します。この特定の例では、取得価額を$600000（現在の取得価額が100000で、新規取得価額が700000）増額します。必要な体系が移入され、修正APIがコールされます。FIN_REC_TYPEに移入されているのは、デルタの取得価額のみであることに注意してください。これは、この取得価額が変更する唯一の対象であるためです。他のすべての値はAPI内で内部的に導出されます。

set serveroutput on



declare



   l_trans_rec                 FA_API_TYPES.trans_rec_type;

   l_asset_hdr_rec             FA_API_TYPES.asset_hdr_rec_type;

   l_asset_fin_rec_adj         FA_API_TYPES.asset_fin_rec_type;

   l_asset_fin_rec_new         FA_API_TYPES.asset_fin_rec_type;

   l_asset_fin_mrc_tbl_new     FA_API_TYPES.asset_fin_tbl_type; 

   l_inv_trans_rec             FA_API_TYPES.inv_trans_rec_type;

   l_inv_tbl                   FA_API_TYPES.inv_tbl_type;

   l_inv_rate_tbl              FA_API_TYPES.inv_rate_tbl_type;

   l_asset_deprn_rec_adj       FA_API_TYPES.asset_deprn_rec_type;

   l_asset_deprn_rec_new       FA_API_TYPES.asset_deprn_rec_type;

   l_asset_deprn_mrc_tbl_new   FA_API_TYPES.asset_deprn_tbl_type;

   l_inv_rec                   FA_API_TYPES.inv_rec_type;

   l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;



   l_return_status             VARCHAR2(1);     

   l_mesg_count                number;

   l_mesg                      varchar2(512);



begin



   dbms_output.enable(10000000);



   FA_SRVR_MSG.Init_Server_Message;

   -- asset header info

   l_asset_hdr_rec.asset_id       := &asset_id 

   l_asset_hdr_rec.book_type_code := '&book';



   -- fin rec info

   l_asset_fin_rec_adj.cost       := &delta_cost 



   FA_ADJUSTMENT_PUB.do_adjustment(

          -- 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_asset_hdr_rec            => l_asset_hdr_rec,

          p_asset_fin_rec_adj         => l_asset_fin_rec_adj,

          x_asset_fin_rec_new         => l_asset_fin_rec_new,

          x_asset_fin_mrc_tbl_new     => l_asset_fin_mrc_tbl_new,

          px_inv_trans_rec            => l_inv_trans_rec,

          px_inv_tbl                  => l_inv_tbl,

          p_asset_deprn_rec_adj       => l_asset_deprn_rec_adj,

          x_asset_deprn_rec_new       => l_asset_deprn_rec_new,

          x_asset_deprn_mrc_tbl_new   => l_asset_deprn_mrc_tbl_new,

          p_group_reclass_options_rec => l_group_reclass_options_rec

         );



   --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));

   end if;



end;

/

サンプル・スクリプト: 請求書情報のある修正APIの使用

次に、請求書明細を使用し、関連付けられている報告通貨を使用する資産の修正例を示します。必要な体系が移入され、修正APIがコールされます。この例では、請求書の取得価額が$5000の資産に、新規請求書明細を追加します。財務体系がNULLのままであることに注意してください。これは、このマニュアルで前述したように、民間請求書APIによって、すべての請求書体系の合計に基づいて取得価額の変更額の合計が計算されるためです。

set serveroutput on



declare



   l_trans_rec                 FA_API_TYPES.trans_rec_type;

   l_asset_hdr_rec             FA_API_TYPES.asset_hdr_rec_type;

   l_asset_fin_rec_adj         FA_API_TYPES.asset_fin_rec_type;

   l_asset_fin_rec_new         FA_API_TYPES.asset_fin_rec_type;

   l_asset_fin_mrc_tbl_new     FA_API_TYPES.asset_fin_tbl_type; 

   l_inv_trans_rec             FA_API_TYPES.inv_trans_rec_type;

   l_inv_tbl                   FA_API_TYPES.inv_tbl_type;

   l_inv_rate_tbl              FA_API_TYPES.inv_rate_tbl_type;

   l_asset_deprn_rec_adj       FA_API_TYPES.asset_deprn_rec_type;

   l_asset_deprn_rec_new       FA_API_TYPES.asset_deprn_rec_type;

   l_asset_deprn_mrc_tbl_new   FA_API_TYPES.asset_deprn_tbl_type;

   l_inv_rec                   FA_API_TYPES.inv_rec_type;

   l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;



   l_return_status             VARCHAR2(1);     

   l_mesg_count                number;

   l_mesg                      varchar2(512);



begin



   dbms_output.enable(10000000);



   FA_SRVR_MSG.Init_Server_Message;

   -- asset header info

   l_asset_hdr_rec.asset_id       := &asset_id 

   l_asset_hdr_rec.book_type_code := '&book';



   -- invoice trans

   l_inv_trans_rec.transaction_type           := 'INVOICE ADDITION';



   -- invoice info

   l_inv_rec.fixed_assets_cost                := 2500;

   l_inv_rec.deleted_flag                     := 'NO';

   l_inv_rec.description                      := 'test inv';

   l_inv_rec.unrevalued_cost                  := 5555;

   l_inv_rec.create_batch_id                  := 1000;

   l_inv_rec.payables_code_combination_id     := 13528;

   l_inv_rec.feeder_system_name               := 'ACK';

   l_inv_rec.payables_cost                    := 5555;

   l_inv_rec.payables_units                   := 1;

   l_inv_rec.po_vendor_id                     := 1;

   l_inv_rec.inv_indicator                    := 1;



   l_inv_tbl (1)                              := l_inv_rec;



   FA_ADJUSTMENT_PUB.do_adjustment(

          -- 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_asset_hdr_rec            => l_asset_hdr_rec,

          p_asset_fin_rec_adj         => l_asset_fin_rec_adj,

          x_asset_fin_rec_new         => l_asset_fin_rec_new,

          x_asset_fin_mrc_tbl_new     => l_asset_fin_mrc_tbl_new,

          px_inv_trans_rec            => l_inv_trans_rec,

          px_inv_tbl                  => l_inv_tbl,

          p_asset_deprn_rec_adj       => l_asset_deprn_rec_adj,

          x_asset_deprn_rec_new       => l_asset_deprn_rec_new,

          x_asset_deprn_mrc_tbl_new   => l_asset_deprn_mrc_tbl_new,

          p_group_reclass_options_rec => l_group_reclass_options_rec

         );



   --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));

   end if;



end;

/

MRCの場合

set serveroutput on



declare



   l_trans_rec                 FA_API_TYPES.trans_rec_type;

   l_asset_hdr_rec             FA_API_TYPES.asset_hdr_rec_type;

   l_asset_fin_rec_adj         FA_API_TYPES.asset_fin_rec_type;

   l_asset_fin_rec_new         FA_API_TYPES.asset_fin_rec_type;

   l_asset_fin_mrc_tbl_new     FA_API_TYPES.asset_fin_tbl_type; 

   l_inv_trans_rec             FA_API_TYPES.inv_trans_rec_type;

   l_inv_tbl                   FA_API_TYPES.inv_tbl_type;

   l_inv_rate_tbl              FA_API_TYPES.inv_rate_tbl_type;

   l_asset_deprn_rec_adj       FA_API_TYPES.asset_deprn_rec_type;

   l_asset_deprn_rec_new       FA_API_TYPES.asset_deprn_rec_type;

   l_asset_deprn_mrc_tbl_new   FA_API_TYPES.asset_deprn_tbl_type;

   l_inv_rec                   FA_API_TYPES.inv_rec_type;

   l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;



   l_return_status             VARCHAR2(1);     

   l_mesg_count                number;

   l_mesg                      varchar2(512);



begin



   dbms_output.enable(10000000);



   FA_SRVR_MSG.Init_Server_Message;

   -- asset header info

   l_asset_hdr_rec.asset_id       := &asset_id 

   l_asset_hdr_rec.book_type_code := '&book';



   -- invoice trans

   l_inv_trans_rec.transaction_type           := 'INVOICE ADDITION';



   -- invoice info

   l_inv_rec.fixed_assets_cost                := 2500;

   l_inv_rec.deleted_flag                     := 'NO';

   l_inv_rec.description                      := 'test inv';

   l_inv_rec.unrevalued_cost                  := 5555;

   l_inv_rec.create_batch_id                  := 1000;

   l_inv_rec.payables_code_combination_id     := 13528;

   l_inv_rec.feeder_system_name               := 'ACK';

   l_inv_rec.payables_cost                    := 5555;

   l_inv_rec.payables_units                   := 1;

   l_inv_rec.po_vendor_id                     := 1;

   l_inv_rec.inv_indicator                    := 1;



   l_inv_tbl (1)                              := l_inv_rec;



   -- rate info

   l_inv_rec.inv_rate_tbl(1).set_of_books_id  := 102;

   l_inv_rec.inv_rate_tbl(1).exchange_rate    := 2;

   l_inv_rec.inv_rate_tbl(1).cost             := 2001;



   FA_ADJUSTMENT_PUB.do_adjustment(

          -- 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_asset_hdr_rec            => l_asset_hdr_rec,

          p_asset_fin_rec_adj         => l_asset_fin_rec_adj,

          x_asset_fin_rec_new         => l_asset_fin_rec_new,

          x_asset_fin_mrc_tbl_new     => l_asset_fin_mrc_tbl_new,

          px_inv_trans_rec            => l_inv_trans_rec,

          px_inv_tbl                  => l_inv_tbl,

          p_asset_deprn_rec_adj       => l_asset_deprn_rec_adj,

          x_asset_deprn_rec_new       => l_asset_deprn_rec_new,

          x_asset_deprn_mrc_tbl_new   => l_asset_deprn_mrc_tbl_new,

          p_group_reclass_options_rec => l_group_reclass_options_rec

         );



   --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));

   end if;



end;

/

サンプル・スクリプト: 代替元帳通貨対応の請求書情報による修正APIの使用

次に、請求書明細を使用し、関連付けられている報告通貨を使用する資産の修正例を示します。必要な体系が移入され、修正APIがコールされます。この例では、請求書の取得価額が$5000の資産に、新規請求書明細を追加します。財務体系がNULLのままであることに注意してください。これは、このマニュアルで前述したように、民間請求書APIによって、すべての請求書体系の合計に基づいて取得価額の変更額の合計が計算されるためです。

set serveroutput on



declare



   l_trans_rec                 FA_API_TYPES.trans_rec_type;

   l_asset_hdr_rec             FA_API_TYPES.asset_hdr_rec_type;

   l_asset_fin_rec_adj         FA_API_TYPES.asset_fin_rec_type;

   l_asset_fin_rec_new         FA_API_TYPES.asset_fin_rec_type;

   l_asset_fin_mrc_tbl_new     FA_API_TYPES.asset_fin_tbl_type; 

   l_inv_trans_rec             FA_API_TYPES.inv_trans_rec_type;

   l_inv_tbl                   FA_API_TYPES.inv_tbl_type;

   l_inv_rate_tbl              FA_API_TYPES.inv_rate_tbl_type;

   l_asset_deprn_rec_adj       FA_API_TYPES.asset_deprn_rec_type;

   l_asset_deprn_rec_new       FA_API_TYPES.asset_deprn_rec_type;

   l_asset_deprn_mrc_tbl_new   FA_API_TYPES.asset_deprn_tbl_type;

   l_inv_rec                   FA_API_TYPES.inv_rec_type;

   l_group_reclass_options_rec FA_API_TYPES.group_reclass_options_rec_type;



   l_return_status             VARCHAR2(1);     

   l_mesg_count                number;

   l_mesg                      varchar2(512);



begin



   dbms_output.enable(10000000);



   FA_SRVR_MSG.Init_Server_Message;

   -- asset header info

   l_asset_hdr_rec.asset_id       := &asset_id 

   l_asset_hdr_rec.book_type_code := '&book';



   -- invoice trans

   l_inv_trans_rec.transaction_type           := 'INVOICE ADDITION';



   -- invoice info

   l_inv_rec.fixed_assets_cost                := 2500;

   l_inv_rec.deleted_flag                     := 'NO';

   l_inv_rec.description                      := 'test inv';

   l_inv_rec.unrevalued_cost                  := 5555;

   l_inv_rec.create_batch_id                  := 1000;

   l_inv_rec.payables_code_combination_id     := 13528;

   l_inv_rec.feeder_system_name               := 'ACK';

   l_inv_rec.payables_cost                    := 5555;

   l_inv_rec.payables_units                   := 1;

   l_inv_rec.po_vendor_id                     := 1;

   l_inv_rec.inv_indicator                    := 1;



   l_inv_tbl (1)                              := l_inv_rec;



   -- rate info

   l_inv_rec.inv_rate_tbl(1).set_of_books_id  := 102;

   l_inv_rec.inv_rate_tbl(1).exchange_rate    := 2;

   l_inv_rec.inv_rate_tbl(1).cost             := 2001;



   FA_ADJUSTMENT_PUB.do_adjustment(

          -- 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_asset_hdr_rec            => l_asset_hdr_rec,

          p_asset_fin_rec_adj         => l_asset_fin_rec_adj,

          x_asset_fin_rec_new         => l_asset_fin_rec_new,

          x_asset_fin_mrc_tbl_new     => l_asset_fin_mrc_tbl_new,

          px_inv_trans_rec            => l_inv_trans_rec,

          px_inv_tbl                  => l_inv_tbl,

          p_asset_deprn_rec_adj       => l_asset_deprn_rec_adj,

          x_asset_deprn_rec_new       => l_asset_deprn_rec_new,

          x_asset_deprn_mrc_tbl_new   => l_asset_deprn_mrc_tbl_new,

          p_group_reclass_options_rec => l_group_reclass_options_rec

         );



   --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));

   end if;



end;

/

Copyright © 1988, 2007, Oracle. All rights reserved.