更新PO

-- Created on 2013-5-7 by ADMINISTRATOR
declare
  -- Local variables here
  i integer;
  l_result number;
  x_api_errors po_api_errors_rec_type;
  l_error_message varchar2(31767);
begin
  -- Test statements here
     mo_global.init('PO');
     mo_global.set_policy_context('S', 204);
     fnd_global.APPS_INITIALIZE(user_id      => 1068,
                             resp_id      => 53394,
                             resp_appl_id => 385);
     l_result := po_change_api1_s.update_po(x_po_number           => '6037',
                                           x_release_number      => NULL,
                                           x_revision_number     => 1,
                                           x_line_number         => 1,
                                           x_shipment_number     => 1,
                                           new_quantity          => null,
                                           new_price             => 62.5,
                                           new_promised_date     => NULL,
                                           new_need_by_date      => NULL,
                                           launch_approvals_flag => 'Y',
                                           update_source         => 'Test Only',
                                           version               => '1.0',
                                           x_override_date       => NULL,
                                           x_api_errors          => x_api_errors,
                                           p_buyer_name          => NULL,
                                           p_secondary_quantity  => NULL,
                                           p_preferred_grade     => NULL,
                                           p_org_id              => NULL);
  if l_result is null
    or l_result <> 1 then
     for i in 1 .. x_api_errors.message_name.count loop
       l_error_message := l_error_message||' '||x_api_errors.message_text(i);
     end loop; 
     dbms_output.put_line('error message:'||l_error_message);
  else
    dbms_output.put_line('update po sucess!');  
    commit;
  end if;                                        
end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/13387766/viewspace-760766/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/13387766/viewspace-760766/