博客园_专注Oracle EBS

FRM-40212

2012-05-29T07:01:00Z

非常怪异的错误

1.首先尝试调换desc和code的顺序如下

SELECT DESCRIPTION type_desc,FLEX_VALUE type_code
FROM FND_FLEX_VALUES_VL
WHERE FLEX_VALUE_SET_ID = 1014989
ORDER BY flex_value

此时LOV向导中的两个列的顺序是CODE,DESC

还是会弹出FRM-40212

2.尝试调换LOV中desc和code的顺序

解决此问题。

本文链接

form builder画布跟着鼠标滚轮上下跳动

2012-05-29T01:30:00Z

form builder画布跟着鼠标滚轮上下跳动

有可能是因为垂直滚动条遮挡住了堆叠画布。

可以在block级触发器中，增加自定义触发器FOLDER_RETURN_ACTION

IF:global.folder_action = 'VIEW-SIZE' THEN
:global.folder_view_size_margin := '.08';
END IF;

本文链接

获取 Transaction Source

2012-05-26T07:37:00Z

报表上要获取物料事务处理表上的的Source（来源）字段，非数据库项。

/*==================================================
    Procedure Name:
        get_txn_source
    Description:
        This procedure is used to calculate transaction
        source name of one specified material transaction.
    Arguments
        p_transaction_id  IN  *material transaction id
        x_txn_source      OUT *transaction source name
    History:
.00  2012-03-01  ech0-silence  Creation
  ==================================================*/
  procedure get_txn_source(
              p_transaction_id in number
            , x_txn_source     out nocopy varchar2
            )
  is
    PO                   CONSTANT NUMBER  := 1;
    Sales_Order          CONSTANT NUMBER  := 2;
    Account              CONSTANT NUMBER  := 3;
    Move_Order           CONSTANT NUMBER  := 4;
    WIP_Job_or_Schedule  CONSTANT NUMBER  := 5;
    Account_Alias        CONSTANT NUMBER  := 6;
    Requisition          CONSTANT NUMBER  := 7;
    Internal_Order       CONSTANT NUMBER  := 8;
    Cycle_count          CONSTANT NUMBER  := 9;
    Physical_inventory   CONSTANT NUMBER  := 10;
    Cost_update          CONSTANT NUMBER  := 11;
    RMA                  CONSTANT NUMBER  := 12;
    Inventory            CONSTANT NUMBER  := 13;
    --Layer_cost_update    CONSTANT NUMBER  := 15;
    PrjContracts         CONSTANT NUMBER  := 16;

    v_process_phase      varchar2(30);
    n_organization_id    number;
    n_txn_source_type_id number;
    n_txn_source_id      number;
    v_txn_source_name    MTL_MATERIAL_TRANSACTIONS.TRANSACTION_SOURCE_NAME%TYPE;
  begin
    v_process_phase := 'Fetch txn infomation';
    -- get transaction information
    SELECT MMT.ORGANIZATION_ID,
           MMT.TRANSACTION_SOURCE_TYPE_ID,
           MMT.TRANSACTION_SOURCE_ID,
           MMT.TRANSACTION_SOURCE_NAME
      INTO n_organization_id,
           n_txn_source_type_id,
           n_txn_source_id,
           v_txn_source_name
      FROM MTL_MATERIAL_TRANSACTIONS MMT
     WHERE MMT.TRANSACTION_ID = p_transaction_id
    ;

    if n_txn_source_type_id = Cost_update then
      v_process_phase := 'Cost Update';
      SELECT DESCRIPTION INTO x_txn_source
        FROM CST_COST_UPDATES
       WHERE COST_UPDATE_ID = n_txn_source_id
      ;
    elsif n_txn_source_type_id = Cycle_count then
      v_process_phase := 'Cycle Count';
      SELECT CYCLE_COUNT_HEADER_NAME
        INTO x_txn_source
        FROM MTL_CYCLE_COUNT_HEADERS
       WHERE CYCLE_COUNT_HEADER_ID = n_txn_source_id
         AND organization_id = n_organization_id
      ;
    elsif (n_txn_source_type_id = Inventory or n_txn_source_type_id >= 100) then
      v_process_phase := 'Inventory';
      x_txn_source := v_txn_source_name;
    elsif  n_txn_source_type_id = Physical_inventory then
      v_process_phase := 'Physical Inventory';
      SELECT PHYSICAL_INVENTORY_NAME
        INTO x_txn_source
        FROM MTL_PHYSICAL_INVENTORIES
       WHERE PHYSICAL_INVENTORY_ID = n_txn_source_id
         AND organization_id = n_organization_id
      ;
    elsif n_txn_source_type_id = PO then
      v_process_phase := 'PO';
      select nvl(CLM_DOCUMENT_NUMBER, POH.SEGMENT1)
        INTO x_txn_source
        from po_headers_all poh
       where poh.po_header_id = n_txn_source_id
      ;
    elsif n_txn_source_type_id = PrjContracts then
      v_process_phase := 'PrjContracts';
      SELECT contract_number
        INTO x_txn_source
        FROM okc_k_headers_b
       WHERE id = n_txn_source_id
      ;
    elsif n_txn_source_type_id = Requisition then
      v_process_phase := 'Requisition';
      SELECT SEGMENT1
        INTO x_txn_source
        FROM PO_REQUISITION_HEADERS_ALL
       WHERE REQUISITION_HEADER_ID = n_txn_source_id
      ;
    elsif n_txn_source_type_id = WIP_Job_or_Schedule then
      v_process_phase := 'WIP Job or Schedule';
      SELECT WIP_ENTITY_NAME
        INTO x_txn_source
        FROM WIP_ENTITIES
       WHERE WIP_ENTITY_ID = n_txn_source_id
         AND organization_id = n_organization_id
      ;
    elsif n_txn_source_type_id = Move_Order then
      v_process_phase := 'Move Order';
      SELECT REQUEST_NUMBER
        INTO x_txn_source
        FROM MTL_TXN_REQUEST_HEADERS
       WHERE HEADER_ID = n_txn_source_id
         AND organization_id = n_organization_id
      ;
    elsif ( (n_txn_source_type_id = Sales_Order) OR
            (n_txn_source_type_id = Internal_Order) OR
            (n_txn_source_type_id = RMA) ) then
      v_process_phase := 'Sales Order';
      select concatenated_segments
        into x_txn_source
        from MTL_SALES_ORDERS_KFV
       where SALES_ORDER_ID = n_txn_source_id
      ;
    elsif n_txn_source_type_id = Account_Alias then
      v_process_phase := 'Account Alias';
      select concatenated_segments
        into x_txn_source
        from MTL_GENERIC_DISPOSITIONS_KFV
       where disposition_id = n_txn_source_id
      ;
    elsif n_txn_source_type_id = Account then
      v_process_phase := 'Account';
      select concatenated_segments
        into x_txn_source
        from GL_CODE_COMBINATIONS_KFV
       where CODE_COMBINATION_ID = n_txn_source_id
      ;
    else
      -- We do not need display txn source for other types.
      -- including Layer_cost_update
      v_process_phase := 'Others';
      x_txn_source := null;
    end if;

  EXCEPTION
    WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
      if g_debug_mode = 'Y' then
        dbms_output.put_line('GET_TXN_SOURCE: ' || SQLERRM);
        dbms_output.put_line('Process phase : ' || v_process_phase);
      end if;
      x_txn_source := null;
  end;

本文链接

更新价目表价格

2012-05-22T07:07:00Z

因为去年一笔销售订单行的价目表价格为0.今年要对这行进行退货。

由于价目表价格为0，退货订单引用参考该行时，提示“项目....的价目表价格 0 或销售价格 -.00041202为负，且配置文件“ONT：负定价”设置为“N””.

解决办法：

UPDATE oe_order_lines_all x
SET x.unit_list_price = 4797.50000,
x.UNIT_LIST_PRICE_PER_PQTY = 4797.50000
WHERE x.line_id = 205188

本文链接

Form中Block的重新查询

2012-05-18T05:20:00Z

Form中某些按钮可能调用了Package对表中某些字段进行更新，但是数据库中字段的修改不会马上反映到form的界面上，所以要进行重新查询，但是用户可能使用了查询窗口进行查询之后然后再点击按钮动作，如果简单的使用execute_query进行查询的话那么就会把原来的查询条件冲掉。所以这里写了一个公用的包进行查询：

procedure query_block(p_block_name varchar2)
is
l_cursor_block     varchar2(50);
l_cursor_record    number;
l_cursor_item      varchar2(50);
l_trigger_record   number;
l_default_where    varchar2(1000);
l_last_query       varchar2(2000);
l_where_anchor     number;
l_order_anchor     number;
l_where_clause     varchar2(1000);
l_message_level    number;

begin
l_cursor_item    := name_in(‘SYSTEM.CURSOR_ITEM’);
l_cursor_record := name_in(‘SYSTEM.CURSOR_RECORD’);
l_cursor_block   := name_in(‘SYSTEM.CURSOR_BLOCK’);
l_trigger_record := l_cursor_record;
l_message_level := :system.message_level;
if l_cursor_block <> p_block_name then
     l_trigger_record := get_block_property(p_block_name, CURRENT_RECORD);
     go_block(p_block_name);
       if name_in(‘SYSTEM.CURSOR_BLOCK’) <> p_block_name then
         fnd_message.debug(‘DEVELOPER ERROR: To select records ‘||
                          ‘in another block, you must be able to navigate.’);
         raise FORM_TRIGGER_FAILURE;
       end if;
end if;
l_default_where := get_block_property(p_block_name, DEFAULT_WHERE);
l_last_query    := get_block_property(p_block_name, LAST_QUERY);
//检查是否有Order By语句
if instr(upper(l_last_query), ‘ORDER BY’) = 0 then
    l_order_anchor := length(l_last_query);
else
    l_order_anchor := instr(upper(l_last_query), ‘ORDER BY’) – 1;
end if;

if instr(upper(l_last_query), ‘WHERE’) = 0 then
    l_where_anchor := l_order_anchor – 5;
else
    l_where_anchor := instr(upper(l_last_query), ‘WHERE’) + 1;
end if;
l_where_clause := substr(l_last_query, l_where_anchor+6, l_order_anchor-l_where_anchor-5);

set_block_property(p_block_name,default_where,l_where_clause);
:system.message_level := 25;
execute_query;
:system.message_level := l_message_level;
set_block_property(p_block_name,default_where,l_default_where);
go_block(p_block_name);
go_record(l_trigger_record);

go_block(l_cursor_block);
go_record(l_cursor_record);
go_item(l_cursor_item);

end query_block;

程序首先保存当前的block,record以及Item使得在执行完之后光标依然停留在原位置而不会跳来挑去。之后判断当前所在的Block是否和参数传进来的P_Block一致，如果不一致，那么就go到P_Block上，然后获取该Block的Last_Query，由于可能查询带有Order By，所以需要判断是否带有Order By来决定截取的最终位置。取得了where条件之后，通过使用set_block_property(p_block_name,default_where,l_where_clause)以及execute_query对block进行查询，在这之前需要先保存原来的default where，在查询之后将default_where设置为默认的。最后讲光标定位到原位置。

调用的时候输入Block Name，便可以截取到Block的查询条件查询该Block。

http://ema100.i.sohu.com/blog/view/203191409.htm

本文链接

父母

2012-05-15T02:05:00Z

这两个故事很短，却感动了很多人……

1.有这样一个儿子，他是个大款，母亲老了，牙齿全坏掉了，于是他开车带着母亲去镶牙，一进牙科诊所，医生开始推销他们的假牙，可母亲却要了最便宜的那种。医生不甘就此罢休，他一边看着大款儿子，一边耐心地给他们比较好牙与差牙的本质不同。可是令医生非常失望的是，这个看是大款的儿子却无动于衷，只顾着自己打电话抽雪茄，根本就不理会他。医生拗不过母亲，同意了她的要求。这时，母亲颤颤悠悠地从口袋里掏出一个布包，一层一层打开，拿出钱交了押金，一周后再准备来镶牙。
两人走后，诊所里的人就开始大骂这个大款儿子，说他衣冠楚楚，吸的是上等的雪茄，可却不舍得花钱给母亲镶一副好牙。正当他们义愤填膺时，不想大款儿子又回来了，他说：“医生，麻烦您给我母亲镶最好的烤瓷牙，费用我来出，多少钱都无所谓。不过您千万不要告诉她实情，我母亲是个非常节俭的人，我不想让她不高兴。

    2.我上床的时候是晚上11点，窗户外面下着小雪。我缩到被子里面，拿起闹钟，发现闹钟停了，我忘买电池了。天这么冷，我不愿意再起来。我就给妈妈打了个长途电话：
“妈，我闹钟没电池了，明天还要去公司开会，要赶早，你六点的时候给我个电话叫我起床吧。”
    妈妈在那头的声音有点哑，可能已经睡了，她说：“好，乖。”
电话响的时候我在做一个美梦，外面的天黑黑的。妈妈在那边说：“小桔你快起床，今天要开会的。”我抬手看表，才五点四十。我不耐烦地叫起来，“我不是叫你六点吗？我还想多睡一会儿呢，被你搅了！”妈妈在那头突然不说话了，我挂了电话。
起来梳洗好，出门。天气真冷啊，漫天的雪，天地间茫茫一片。公车站台上我不停地跺着脚。周围黑漆漆的，我旁边却站着两个白发苍苍的老人。我听着老先生对老太太说：“你看你一晚都没有睡好，早几个小时就开始催我了，现在等这么久。”
是啊，第一趟班车还要五分钟才来呢。终于车来了，我上车。开车的是一位很年轻的小伙子，他等我上车之后就轰轰地把车开走了。我说：“喂，司机，下面还有两位老人呢，天气这么冷，人家等了很久，你怎么不等他们上车就开车？”
那个小伙子很神气地说：“没关系的，那是我爸爸妈妈！今天是我第一天开公交，他们来看我的！”
我突然就哭了——我看到爸爸发来的短消息：“女儿，妈妈说，是她不好，她一直没有睡好，很早就醒了，担心你会迟到。”

    忽然想起一句犹太人谚语：
父亲给儿子东西的时候，儿子笑了。
儿子给父亲东西的时候，父亲哭了。

看过后，记得做一个孝顺的子女。这一辈子，能让你欠太多的，而且不求回报的只有父母，不要抱怨父母的唠叨…… 多多体谅他们、感恩他们、关心他们！

母亲节快到了，此故事一定要转发，因为转发这样的故事绝对是你的美德，祝天下所有的父母平安健康！

本文链接

财务期初开账-科目余额/期初导入/期初数据/期初余额

2012-05-15T01:41:00Z

财务一共有AP,AR,CE,FA,GL，以下按照每个模块，对需要起初余额的分模块加以说明。

AP：
需要起初余额有：供应商余额。（不过建议在老系统中尽量将供应商进行付款）
客户的应付款作发票，预付账款通过作预付款发票实现，然后过账到总账，然后在总账中冲销。

AR ：客户余额
客户应收账款，通过作应收发票实现。然后过账到总账，然后在总账中冲销。

FA：折旧
将资产导入FA模块，按照资产的实际折旧在FA模块中执行折旧，然后过账到总账，在总账中冲销FA导入的会计凭证。

ＧＬ：账户余额
导出之前使用的财务系统的余额，在上线第一个会计期作一个凭证，来源为起初导入，类型为：手工。然后过账。

综上所述，子模块通过子模块形成各自的余额，然后过账均被冲销，GL形成科目余额。

CE只涉及到银行账户余额，这个只要在第一期银行调节时录入正确的余额即可，后续每个期间都会累加。

http://bbs.erp100.com/thread-17275-1-3.html

本文链接

获得AP发票状态

2012-05-09T05:16:00Z

路径：应付->发票录入

一般页签的状态区域

AP_INVOICES_PKG.GET_APPROVAL_STATUS(AI.INVOICE_ID,
                                           AI.INVOICE_AMOUNT,
                                           AI.PAYMENT_STATUS_FLAG,
                                           AI.INVOICE_TYPE_LOOKUP_CODE) APPROVAL_STATUS_LOOKUP_CODE

本文链接

自动创建web adi的代码

2012-05-08T06:33:00Z

/*
Steps to create the custom integrator.
Step 1. Using bne_integrator_utils.CREATE_INTEGRATOR package create the custom integrator
Step 2. Using bne_integrator_utils.CREATE_INTERFACE_FOR_API package create the interface for the created integrator.
Step 3. Using bne_integrator_utils.CREATE_DEFAULT_LAYOUT package create the default layout for the created integrator with the interface.
Step 4. Adding POPList for the required columns.
Step 5. Change the excel column prompts, by default the column headers will come as Database column name.  (bne_interface_cols_tl )
*/
DECLARE
   FUNCTION is_exists_map(p_application_id IN NUMBER,
                         p_content_code   IN VARCHAR2) RETURN BOOLEAN IS
    CURSOR csr IS
      SELECT 1
        FROM bne_mapping_lines
       WHERE application_id = p_application_id
         AND content_code = p_content_code
    l_dummy NUMBER
    retval  BOOLEAN
  BEGIN
    OPEN csr
    FETCH csr
      INTO l_dummy
    IF csr%NOTFOUND THEN
      retval := FALSE
    ELSE
      retval := TRUE
    END IF
    CLOSE csr
    RETURN retval
  END;
  --BNE_CONTENT_UTILS.CREATE_CONTENT_TO_API_MAP
  PROCEDURE create_map_line(p_application_id IN NUMBER,
                            p_interface_code IN VARCHAR2,
                            p_content_code   IN VARCHAR2,
                            p_mapping_code   IN VARCHAR2) IS
    CURSOR mapping_cols_c(cp_application_id IN NUMBER, cp_content_code IN VARCHAR2, cp_interface_code IN VARCHAR2) IS
      SELECT cc.application_id content_app_id,
             cc.content_code,
             cc.sequence_num content_seq_num,
             ic.application_id interface_app_id,
             ic.interface_code,
             ic.sequence_num interface_seq_num
        FROM bne_content_cols_b cc, bne_interface_cols_b ic
       WHERE cc.application_id = ic.application_id
         AND cc.application_id = cp_application_id
         AND (cc.col_name = ic.interface_col_name OR
             cc.col_name = substr(ic.interface_col_name, 3) OR
             cc.sequence_num = ic.sequence_num --add by sky.chan
             )
         AND cc.content_code = cp_content_code
         AND ic.interface_code = cp_interface_code
       ORDER BY cc.sequence_num ASC
    vn_sequence NUMBER
  BEGIN
    IF NOT is_exists_map(p_application_id, p_content_code) THEN
      vn_sequence := 0
       FOR mapping_cols_rec IN mapping_cols_c(p_application_id,
                                             p_content_code,
                                             p_interface_code) LOOP
         vn_sequence := vn_sequence + 1
         -- Create the Mapping records in the BNE_MAPPING_LINES table
         INSERT INTO bne_mapping_lines
          (application_id,
           mapping_code,
           sequence_num,
           content_app_id,
           content_code,
           content_seq_num,
           interface_app_id,
           interface_code,
           interface_seq_num,
           object_version_number,
           created_by,
           creation_date,
           last_updated_by,
           last_update_date)
        VALUES
          (p_application_id,
           p_mapping_code,
           vn_sequence,
           mapping_cols_rec.content_app_id,
           mapping_cols_rec.content_code,
           mapping_cols_rec.content_seq_num,
           mapping_cols_rec.interface_app_id,
           mapping_cols_rec.interface_code,
           mapping_cols_rec.interface_seq_num,
           1,
           fnd_global.user_id,
           SYSDATE,
           fnd_global.user_id,
           SYSDATE)
         EXIT WHEN mapping_cols_c%NOTFOUND
       END LOOP
    END IF
  END;
   PROCEDURE create_bne_integrator(p_application_id  IN VARCHAR2,
                                  p_object_code     IN VARCHAR2,
                                  p_integrator_name IN VARCHAR2,
                                  p_package_name    IN VARCHAR2,
                                  p_procedure_name  IN VARCHAR2) IS
    l_integrator_name VARCHAR2(200) := ''
    l_integrator_code VARCHAR2(100)
    l_param_list_code VARCHAR2(100)
    l_interface_code  VARCHAR2(100)
    l_mapping_code    VARCHAR2(100)
    l_layout_code     VARCHAR2(100)
    l_content_code    VARCHAR2(100)
    l_parameters       VARCHAR2(500) := 'bne:page=BneCreateDoc'
                                       chr(38)  'bne:'
    l_rowid           VARCHAR2(100)
    l_function_id     NUMBER
  BEGIN
    --todo 1 create integrator
    bne_integrator_utils.create_integrator(p_application_id       => p_application_id,
                                           p_object_code          => p_object_code,
                                           p_integrator_user_name => p_integrator_name,
                                           p_language             => userenv('LANG'),
                                           p_source_language      => userenv('LANG'),
                                           p_user_id              => fnd_global.user_id,
                                           p_integrator_code      => l_integrator_code)
    --todo 2 create content
    ----todo 2.1 create empty content
     bne_content_utils.create_content(p_application_id,
                                     p_object_code,
                                     l_integrator_code,
                                     'None',
                                     userenv('LANG'),
                                     userenv('LANG'),
                                     '',
                                     fnd_global.user_id,
                                     l_content_code)
    ----todo 2.2 create text content
     bne_content_utils.create_content_text(p_application_id,
                                          p_object_code  '_TXT',
                                          l_integrator_code,
                                          'Text',
                                          2,
                                          'P',
                                          userenv('LANG'),
                                          userenv('LANG'),
                                          fnd_global.user_id,
                                          l_content_code)
     --todo 3 create interface & map
     bne_integrator_utils.create_api_interface_and_map(p_application_id      => p_application_id,
                                                      p_object_code         => p_object_code,
                                                      p_integrator_code     => l_integrator_code,
                                                      p_api_package_name    => p_package_name,
                                                      p_api_procedure_name  => p_procedure_name,
                                                      p_interface_user_name => p_integrator_name,
                                                      p_content_code        => l_content_code,
                                                      p_view_name           => '',
                                                      p_param_list_name     => p_object_code
                                                                               'LIST',
                                                      p_api_type            => 'PROCEDURE',
                                                      p_api_return_type     => '',
                                                      p_upload_type         => 2, --1= upload to Table. 2 = Upload to PL/SQL API
                                                      p_language            => userenv('LANG'),
                                                      p_source_lang         => userenv('LANG'),
                                                      p_user_id             => fnd_global.user_id,
                                                      p_param_list_code     => l_param_list_code,
                                                      p_interface_code      => l_interface_code,
                                                      p_mapping_code        => l_mapping_code)
    --todo 4 create layout
    bne_integrator_utils.create_default_layout(p_application_id  => p_application_id,
                                               p_object_code     => p_object_code,
                                               p_integrator_code => l_integrator_code,
                                               p_interface_code  => l_interface_code,
                                               p_user_id         => fnd_global.user_id,
                                               p_force           => FALSE,
                                               p_all_columns     => TRUE,
                                               p_layout_code     => l_layout_code)
    --todo 5   change default block to  line
    UPDATE bne_layout_blocks_b
       SET block_id = 1, sequence_num = 1
     WHERE layout_code = l_layout_code
    UPDATE bne_layout_blocks_tl
       SET block_id = 1
     WHERE layout_code = l_layout_code
     --todo 6 create layout column
    FOR i IN (SELECT *
                FROM bne_interface_cols_tl
               WHERE interface_code = l_interface_code) LOOP
      bne_layout_cols_pkg.insert_row(l_rowid,
                                     p_application_id, --APPLICATION_ID
                                     l_layout_code, --LAYOUT_CODE
                                     1, --BLOCK_ID
                                     (i.sequence_num * 10), --SEQUENCE_NUM
                                     1, --OBJECT_VERSION_NUMBER
                                     p_application_id, --INTERFACE_APP_ID
                                     l_interface_code, --INTERFACE_CODE
                                     i.sequence_num, --INTERFACE_SEQ_NUM
                                     NULL, --STYLE_CLASS
                                     NULL, --HINT_STYLE
                                     NULL, --HINT_STYLE_CLASS
                                     NULL, --PROMPT_STYLE
                                     NULL, --PROMPT_STYLE_CLASS
                                     NULL, --DEFAULT_TYPE
                                     NULL, --DEFAULT_VALUE
                                     NULL, --STYLE
                                     SYSDATE, --CREATION_DATE
                                     fnd_global.user_id, --CREATED_BY
                                     SYSDATE, --LAST_UPDATE_DATE
                                     fnd_global.user_id, --LAST_UPDATED_BY
                                     fnd_global.user_id, --LAST_UPDATE_LOGIN
                                     NULL, --DISPLAY_WIDTH
                                     'N' --READ_ONLY_FLAG
                                     )
    END LOOP
    --todo 7 create map line .I think there is a bug at: BNE_CONTENT_UTILS.CREATE_CONTENT_TO_API_MAP. because they cannot create the map line.
    create_map_line(p_application_id => p_application_id,
                    p_interface_code => l_interface_code,
                    p_content_code   => l_content_code,
                    p_mapping_code   => l_mapping_code)
    dbms_output.put_line('l_integrator_code:'  l_integrator_code)
    dbms_output.put_line('l_param_list_code'  l_param_list_code)
    dbms_output.put_line('l_interface_code:'  l_interface_code)
    dbms_output.put_line('l_mapping_code:'  l_mapping_code)
    dbms_output.put_line('l_layout_code:'  l_layout_code)
    dbms_output.put_line('l_content_code:'  l_content_code)
     -- todo 8 create function
    ---begin create function
    l_parameters := l_parameters  chr(38)  'bne:integrator='
                   p_application_id  ':'  l_integrator_code  chr(38)
                   'bne:noreview=true'
     dbms_output.put_line('parameters:'  l_parameters);
     SELECT fnd_form_functions_s.NEXTVAL INTO l_function_id FROM sys.dual;
     fnd_form_functions_pkg.insert_row(x_rowid                    => l_rowid,
                                      x_function_id              => l_function_id,
                                      x_web_host_name            => '',
                                      x_web_agent_name           => '',
                                      x_web_html_call            => 'BneApplicationService',
                                      x_web_encrypt_parameters   => '',
                                      x_web_secured              => '',
                                      x_object_id                => '',
                                      x_region_application_id    => '',
                                      x_region_code              => '',
                                      x_web_icon                 => '',
                                      x_function_name            => l_integrator_code,
                                      x_application_id           => '',
                                      x_form_id                  => '',
                                      x_parameters               => l_parameters,
                                      x_type                     => 'SERVLET',
                                      x_user_function_name       => p_integrator_name,
                                      x_description              => '',
                                      x_creation_date            => SYSDATE,
                                      x_created_by               => fnd_global.user_id,
                                      x_last_update_date         => SYSDATE,
                                      x_last_updated_by          => fnd_global.user_id,
                                      x_last_update_login        => fnd_global.login_id,
                                      x_maintenance_mode_support => '',
                                      x_context_dependence       => '',
                                      x_jrad_ref_path            => '');
    dbms_output.put_line('function_id:'  l_function_id);
    ---end create function
     --todo 9   add other language
    /*bne_integrators_pkg.add_language
    bne_interface_cols_pkg.add_language
    bne_content_cols_pkg.add_language
    bne_contents_pkg.add_language
    bne_integrators_pkg.add_language
    bne_layouts_pkg.add_language
    bne_layout_blocks_pkg.add_language
    bne_mappings_pkg.add_language
    bne_mapping_lines_pkg.add_language*/
     -- todo  10 update col name OPTIONAL
    UPDATE bne_interface_cols_tl
       SET prompt_left = sky_test_webadi.get_col_name(prompt_left),
       prompt_above = sky_test_webadi.get_col_name(prompt_above)
     WHERE application_id = p_application_id
       AND interface_code = l_interface_code;
   END;
BEGIN
  create_bne_integrator(p_application_id  => 200,
                        p_object_code     => 'SKY_TEST_WEBADI1',
                        p_integrator_name => 'SKY_TEST_WEBADI1',
                        p_package_name    => 'SKY_TEST_WEBADI',
                        p_procedure_name  => 'CREATE_TEST');
END;

本文链接

PO接收产生分录总结

2012-05-08T06:27:00Z

1,发运行的接收应计(PO_LINE_LOCATIONS_ALL.ACCRUE_ON_RECEIPT_FLAG)控制接收时是否产生分录.
2,分配行的接收应计(PO_DISTRIBUTION_ALL.ACCRUE_ON_RECEIPT_FLAG)控制发票匹配PO时,分配行的科目取PO charge account,还是取暂估科目.
3,强制接收时产生分录:
3.1,update PO_LINE_LOCATIONS_ALL set ACCRUE_ON_RECEIPT_FLAG='Y' where ...
3.2,update PO_DISTRIBUTION_ALL set ACCRUE_ON_RECEIPT_FLAG='Y' where ...
3.3,删除delete from RCV_ACCOUNTING_EVENTS WHERE rcv_transaction_id = 9430(一般情况是RCV_ACCOUNTING_EVENTS有, RCV_RECEIVING_SUB_LEDGER 没有)
3.4,调用产生分录的API,传入transaction id
RCV_AccEvents_PVT.Create_DeliverEvents(p_api_version => 1.0,
p_commit => FND_API.G_TRUE,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_rcv_transaction_id => 9430)
1.RCV_AccEvents_PVT.Create_DeliverEvents-->
RCV_SeedEvents_PVT.Seed_RAEEvent
--2. insert RCV_ACCOUNTING_EVENTS
2.RCV_SeedEvents_PVT.Insert_RAEEvents-->
-- Call Account generation API to create accounting entries
-- insert RCV_RECEIVING_SUB_LEDGER
3.RCV_CreateAccounting_PVT.Create_AccountingEntry-->
4.CST_XLA_PVT.Create_RCVXLAEvent-->
XLA_EVENTS_PUB_PKG.create_event
PSA_BC_XLA_PUB.Budgetary_Control
5.xla_accounting_pub_pkg.accounting_program_events
(p_application_id => 707
,p_accounting_mode => 'FINAL'
,p_gl_posting_flag => 'Y'
...
-->6.xla_accounting_pkg.accounting_program_events-->
events_processor
xla_balances_pkg.massive_update
xla_transfer_pkg.gl_transfer_main
xla_accounting_pub_pkg.accounting_program_document-->
fnd_request.submit_request(application => 'XLA'
,program => 'XLAACCPB'
...
7.xla_accounting_pkg.accounting_program_document-->
xla_accounting_pkg.accounting_program_events
3.5,查看错误信息:xla_accounting_err_pkg.insert_errors;
select * from xla_accounting_errors;

------------------------------
Select aeh.ae_header_id,
ael.ae_line_num,
ael.accounting_class_code,
ael.accounted_dr,
ael.accounted_cr,
rt.transaction_id,
rt.shipment_header_id
from xla_ae_headers aeh,
xla_ae_lines ael,
rcv_transactions rt,
XLA_DISTRIBUTION_LINKS xdl,
rcv_receiving_sub_ledger rrsl
where aeh.ae_header_id = xdl.ae_header_id
and aeh.ae_header_id = ael.ae_header_id
and ael.ae_header_id = xdl.ae_header_id
and ael.ae_line_num = xdl.ae_line_num
and xdl.source_distribution_type = 'RCV_RECEIVING_SUB_LEDGER'
and xdl.SOURCE_DISTRIBUTION_ID_NUM_1 = rrsl.RCV_SUB_LEDGER_ID
and rrsl.rcv_transaction_id = rt.transaction_id
and rrsl.set_of_books_id = 2045
and rt.transaction_id = 14449
/* and rt.shipment_header_id IN
(SELECT shipment_header_id
FROM rcv_shipment_headers
WHERE receipt_num = '&RECEIPT_NUM')*/
order by rt.transaction_id, ael.ae_header_id, ael.ae_line_num;

http://skyz.blog.35.cn/?paged=2

本文链接