EBS标准功能-->PR自动创建PO的逻辑

转自：http://blog.csdn.net/samt007/article/details/26377077
之前一直对这个功能感觉很神秘。最近有个需求要客制化这点（将客制的PR的栏位自动带到PO里面），所以针对这个自动创建的逻辑过程了解了一下。

这些写下来，好让有需要了解或者有需求要修改的人可以知道这个是啥逻辑的。

---

自动创建Form：POXBWVRP
点创建对应的按钮：NEW_DOCUMENT.OK
执行代码：
action.autocreate_button(‘WHEN-BUTTON-PRESSED’);
接着找，对应执行的代码：
核心处理库：POXBWVRP.pll
new_document5.ok(‘WHEN-BUTTON-PRESSED’);

核心PR自动创建PO的过程：action4.autocreate_documents;

简而言之，其实所谓的PR自动创建PO，程序的逻辑是:
先根据PR的数据塞PO的接口表po_headers_interface/po_lines_interface，
然后再调用API(PO_INTERFACE_S.create_documents)生成对应的PO信息。

当然，这里我说的只是最核心的逻辑，前面的一大堆PR是否可以自动生成PO等等的验证，还有另外的连带的数据产生等等也是必须的。

action4.autocreate_documents;部分代码：
begin
insert into po_headers_interface
(interface_header_id,
interface_source_code,
batch_id,
process_code, /* This used to be process_flag */
action, /* This used to be action_type_code */
document_type_code,
document_subtype,
document_num,
group_code,
vendor_id,
vendor_site_id,
release_num,
release_date,
agent_id,
currency_code,
rate_type_code, /* This used to be rate_type */
rate_date,
rate,
vendor_list_header_id,
– quote_type_lookup_code, <– no longer in headers_interface
– quotation_class_code, <– no longer in headers_interface
–DPCARD{
pcard_id,
–DPCARD}
creation_date,
created_by,
last_update_date,
last_updated_by,
org_id, –
style_id) –
values
(x_interface_header_id,
‘PO’,
x_batch_id,
x_action_type_code_hdr,
x_document_mode,
x_document_type,
x_document_subtype,
x_segment1,
x_group_code,
x_vendor_id,
x_vendor_site_id,
x_release_number,
x_release_date,
x_agent_id,
x_currency_code,
x_rate_type,
x_rate_date,
x_rate,
x_vendor_list_header_id,
– x_quote_type_lookup_code,
– x_quotation_class_code,
–DPCARD{
x_pcard_id,
–DPCARD}
x_creation_date,
x_created_by,
x_last_update_date,
x_last_updated_by,
l_purchasing_org_id, –
l_style_id); –

exception    when others then            fnd_message.debug('In exception when trying to insert into po_headers');    raise form_trigger_failure;end; /******************************************************************         PO_LINES_INTERFACE stuff  ******************************************************************//* Loop thru the selected req lines and insert into * the po_lines_interface table. */x_progress:='003';for i in 1..x_num_records loop  /* Get the action_type_code_line = NEW, ADD, NULL */  if (name_in('POXBWVRP_WORLD.IN_PLACEMENT_MODE') = 'TRUE') then     x_action_type_code_line := get_group_char_cell (                    'CURRENT_STATE.ACTION_TYPE_CODE_LINE',                    i);     x_line_num              := get_group_number_cell(                    'CURRENT_STATE.PO_LINE_NUMBER',                    i);     x_requisition_line_id   := get_group_number_cell(                    'CURRENT_STATE.REQUISITION_LINE_ID',                            i); x_originally_on_doc     := get_group_char_cell(                    'CURRENT_STATE.ORIGINALLY_ON_DOC',                     i);  else x_action_type_code_line := null;     x_line_num         := null;     x_requisition_line_id   := get_group_number_cell(                    'REQ_LINES_MULTI.REQUISITION_LINE_ID',                            i); x_originally_on_doc     := 'N';    /* Bug 421496. gtummala. 11/9/97     * We need to allow one-time req lines to be autocreated onto blanket     * releases. To allow this we need at least 80.9 of POXBWPOB.pls. The backend     * procedure needs us  to populate the blanket source line and also set the     * line action code to 'ADD'.     */    x_item_id   := get_group_number_cell('REQ_LINES_MULTI.ITEM_ID', i);    if (name_in('ACTION.DOCUMENT_TYPE') = 'RELEASE') and       (x_item_id is NULL)  then       x_progress:='004';      /* Need to get the blanket source line that matches */      x_line_num := action4.get_blanket_line_num(                name_in('new_document.document_number'),                        i);      /* Backend needs action=ADD for one-time items to be handled */      x_action_type_code_line := 'ADD';    end if;  end if;  x_progress:='005';    -- Validations ======================================================== /* Before we do anything, got to make sure that the req. lines  * have not in any changed by another user/session since they  * were queried by this session.  *  * If it fails then get out of this loop and don't insert into  * po_lines_interface.  */  if (x_originally_on_doc = 'N') then     x_req_line_ok_to_autocreate:= action5.req_line_ok_to_autocreate                      (x_rec_group,                get_group_char_cell(x_rec_group||'.REQ_NUMBER',i),                get_group_number_cell(x_rec_group||'.REQ_LINE_NUMBER',i),                        x_requisition_line_id);  end if;   /* FPI GA start */   /* Populate the reference document */   /* Reference docs need to be populated only for standard PO's (bug 2714252) */  /* FPI GA end */    -- Insert into Interface Table ========================================        /* INSERT into lines interface table */  /* Do not insert those lines already on the document when in the   * the current_state mode.   */   if ((name_in('POXBWVRP_WORLD.IN_PLACEMENT_MODE') = 'TRUE' AND       x_originally_on_doc = 'Y'))                     OR       (x_req_line_ok_to_autocreate=FALSE) then      null;   else       IF (name_in('ACTION.DOCUMENT_TYPE') = 'STANDARD') THEN            GA_REFERENCE.populate_ref_info(x_requisition_line_id ,                                           x_src_header_id      ,                                           x_src_line_id ,                                           x_consigned_flag,  -- CONSIGNED FPI                                           l_contract_id);    -- <GC FPJ>          --<bug#4387937 START> Added code to null out the contract id if a          --global agreement is specified during document creation.             IF (NAME_IN('NEW_DOCUMENT.GLOBAL_AGREEMENT_ID') IS NOT NULL)THEN                l_contract_id:= null;             END IF;         --<bug#4387937 END>       END IF;  /* Get the next available interface_line_id */        SELECT po_lines_interface_s.nextval        INTO x_interface_line_id        FROM dual;      x_progress:='006';     begin      insert into po_lines_interface        (interface_header_id,        interface_line_id,        action,                /* This used to be action_type_code */        line_num,        shipment_num,        requisition_line_id,        creation_date,        created_by,        from_header_id,  -- GA FPI        from_line_id,    -- GA FPI        consigned_flag,  -- CONSIGNED FPI        contract_id,     -- <GC FPJ>        last_update_date,        last_updated_by)      values        (x_interface_header_id,        x_interface_line_id,        x_action_type_code_line,        x_line_num,        null,        x_requisition_line_id,        x_creation_date,        x_created_by,        x_src_header_id,    -- GA FPI        x_src_line_id,      -- GA FPI        x_consigned_flag,   -- CONSIGNED FPI        l_contract_id,      -- <GC FPJ>        x_last_update_date,        x_last_updated_by);      exception         when others then              fnd_message.debug('In exception when trying to insert into po_lines');      raise form_trigger_failure;      end;   end if;end loop;

/* Start Bug 3487756: Insert vendor contact id into po_headers_interface.
* Only insert the contact id at the interface header level
* if all the req. lines being autocreated have the same contact id.
*/

-- Derive unique vendor contact id on all the requisiton lines.BEGIN  SELECT distinct porl.vendor_contact_id  INTO x_vendor_contact_id  FROM  po_lines_interface poli      , po_requisition_lines_all porl  WHERE poli.interface_header_id = x_interface_header_id    AND poli.requisition_line_id = porl.requisition_line_id;EXCEPTION  WHEN too_many_rows THEN    -- more than one vendor contact id; do not copy to header interface    x_vendor_contact_id := NULL;  WHEN no_data_found THEN    x_vendor_contact_id := NULL;  WHEN others THEN    fnd_message.debug('In exception when selecting vendor contact id');    raise form_trigger_failure;END;     -- Validate contact id and then update headers interface.BEGIN  -- Check if the contact is valid for the supplier site.  IF (x_vendor_contact_id IS NOT NULL)  THEN    SELECT (count(vendor_contact_id))    INTO  x_vendor_contact_count    FROM  po_vendor_contacts    WHERE vendor_site_id = x_vendor_site_id      AND vendor_contact_id = x_vendor_contact_id      AND nvl(inactive_date, sysdate+1) > sysdate;    IF (x_vendor_contact_count <= 0)    THEN       x_vendor_contact_id := NULL;    END IF;    END IF;  -- Update headers interface table with contact_id derived above.  UPDATE po_headers_interface  SET vendor_contact_id = x_vendor_contact_id  WHERE interface_header_id = x_interface_header_id;EXCEPTION  WHEN others THEN    fnd_message.debug('In exception when updating po headers interface with vendor contact id');    raise form_trigger_failure;END;/* End Bug 3487756 *//* Call the main sever side routine to actually create * the documents, ie: *             - default in values not populated *            - group accordingly *            - insert into the main tables from the *              the interface tables. * * x_document_id is populated with po_header_id for pos and * po_release_id for releases from the backend only when newly * created. In add to scenarios we have to get the value ourselves. * This is done in the wbp trigger for the ok button  in the * add to window. */ x_progress:='007'; --<Shared Proc FPJ START> l_requesting_org_id := to_number(name_in('POXBWVRP_WORLD.current_org_id')); --<R12 STYLES PHASE II START> if PO_DOC_STYLE_PVT.is_progress_payments_enabled(l_style_id) then    if l_requesting_org_id <> l_purchasing_org_id then        FND_MESSAGE.set_name('PO', 'PO_REQLINE_PURCH_ORG_MISMATCH');       FND_MESSAGE.SHOW;       RAISE style_validate_failure;    end if; end if; --<R12 STYLES PHASE II END> --Changing the call to new signature of Autocreate Backend PO_INTERFACE_S.create_documents (                  p_api_version             => 1.0,                  x_return_status           => l_return_status,                  x_msg_count               => l_msg_count,                  x_msg_data                => l_msg_data,                  p_batch_id                => x_interface_header_id,                  p_req_operating_unit_id   => l_requesting_org_id,                  p_purch_operating_unit_id => l_purchasing_org_id,                  x_document_id             => x_document_id,                  x_number_lines            => x_num_lines_processed,                  x_document_number         => l_document_number,                  -- Bug 3648268 Use lookup code instead of hardcoded value                  p_document_creation_method => 'AUTOCREATE',  -- <DBI FPJ>                  p_orig_org_id              => l_purchasing_org_id    --<R12 MOAC>