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>