原文地址  供应商导入的API补充（详解EBS接口开发之供应商导入）

--供应商

--创建

AP_VENDOR_PUB_PKG.Create_Vendor

(     p_api_version           IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,

    x_return_status        OUT    NOCOPY  VARCHAR2,

    x_msg_count        OUT    NOCOPY  NUMBER,

    x_msg_data        OUT    NOCOPY  VARCHAR2,

    p_vendor_rec        IN    r_vendor_rec_type,

    x_vendor_id        OUT    NOCOPY  AP_SUPPLIERS.VENDOR_ID%TYPE,

    x_party_id        OUT    NOCOPY  HZ_PARTIES.PARTY_ID%TYPE

);

--更新

AP_VENDOR_PUB_PKG.Update_Vendor

(     p_api_version           IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,

    x_return_status        OUT    NOCOPY VARCHAR2,

    x_msg_count        OUT    NOCOPY NUMBER,

    x_msg_data        OUT    NOCOPY VARCHAR2,

    p_vendor_rec        IN    r_vendor_rec_type,

    p_vendor_id        IN    NUMBER

);
--亲们,提供个R12失效供应商的程序供参考:

DECLARE

  --

  lv_return_status VARCHAR2(1);

  lv_msg_count     NUMBER;

  lv_msg_data      VARCHAR2(2000);

  --

  lv_vendor_id   ap_suppliers.vendor_id%TYPE;

  lv_vendor_rec  AP_VENDOR_PUB_PKG.r_vendor_rec_type;

  L_USER_ID      NUMBER := 0;

  L_RESP_ID      NUMBER := 50192;

  L_RESP_APPL_ID NUMBER := 20003;

  --

  cursor c_vendorid is

        select vendor_id from TMP_DISABLE_VENDOR where STATUS='N';

BEGIN

  --

  EXECUTE IMMEDIATE 'ALTER session SET nls_language = ''American''';

  fnd_global.apps_initialize(L_USER_ID, L_RESP_ID, L_RESP_APPL_ID);

  mo_global.init('S');

  --

  for cc in c_vendorid loop

  lv_vendor_id                  := cc.vendor_id;

  lv_vendor_rec.END_DATE_ACTIVE :=SYSDATE; --如果要取消失效时间，请设置为：FND_API.G_MISS_DATE;

  --

  AP_VENDOR_PUB_PKG.Update_Vendor(p_api_version      => 1.0

                                 ,p_init_msg_list    => fnd_api.g_true

                                 ,p_commit           => fnd_api.g_false

                                 ,p_validation_level => fnd_api.g_valid_level_full

                                 ,x_return_status    => lv_return_status

                                 ,x_msg_count        => lv_msg_count

                                 ,x_msg_data         => lv_msg_data

                                 ,p_vendor_rec       => lv_vendor_rec

                                 ,p_vendor_id        => lv_vendor_id);

  --

-- dbms_output.put_line(lv_return_status || '-' || lv_msg_count || '-' || lv_msg_data);

  --

  UPDATE TMP_DISABLE_VENDOR

  SET STATUS ='Y'

  WHERE vendor_id = lv_vendor_id;

  end loop;

  COMMIT;

END;


--验证

AP_VENDOR_PUB_PKG.Validate_Vendor

(     p_api_version           IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,

    x_return_status        OUT    NOCOPY VARCHAR2,

    x_msg_count        OUT    NOCOPY NUMBER,

    x_msg_data        OUT    NOCOPY VARCHAR2,

    p_vendor_rec        IN OUT    NOCOPY r_vendor_rec_type,

    p_mode            IN    VARCHAR2,

    p_calling_prog        IN    VARCHAR2,

    x_party_valid        OUT    NOCOPY VARCHAR2,

    x_payee_valid        OUT    NOCOPY VARCHAR2,

    p_vendor_id        IN    NUMBER

);

--供应商地点

--创建

AP_VENDOR_PUB_PKG.Create_Vendor_Site

(     p_api_version           IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,

    x_return_status        OUT    NOCOPY VARCHAR2,

    x_msg_count        OUT    NOCOPY NUMBER,

    x_msg_data        OUT    NOCOPY VARCHAR2,

    p_vendor_site_rec    IN    r_vendor_site_rec_type,

    x_vendor_site_id    OUT    NOCOPY NUMBER,

    x_party_site_id        OUT    NOCOPY NUMBER,

    x_location_id        OUT    NOCOPY NUMBER

);

--更新

AP_VENDOR_PUB_PKG.Update_Vendor_Site

(     p_api_version           IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,

    x_return_status        OUT    NOCOPY VARCHAR2,

    x_msg_count        OUT    NOCOPY NUMBER,

    x_msg_data        OUT    NOCOPY VARCHAR2,

    p_vendor_site_rec    IN    r_vendor_site_rec_type,

    p_vendor_site_id    IN    NUMBER,

    p_calling_prog        IN    VARCHAR2 DEFAULT 'NOT ISETUP'

);

--验证

AP_VENDOR_PUB_PKG.Validate_Vendor_Site

(     p_api_version           IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,

    x_return_status        OUT    NOCOPY VARCHAR2,

    x_msg_count        OUT    NOCOPY NUMBER,

    x_msg_data        OUT    NOCOPY VARCHAR2,

    p_vendor_site_rec    IN OUT    NOCOPY r_vendor_site_rec_type,

    p_mode            IN    VARCHAR2,

    p_calling_prog        IN    VARCHAR2,

    x_party_site_valid    OUT    NOCOPY VARCHAR2,

    x_location_valid    OUT    NOCOPY VARCHAR2,

    x_payee_valid        OUT    NOCOPY VARCHAR2,

    p_vendor_site_id    IN    NUMBER

);

--供应商联系人

--创建

AP_VENDOR_PUB_PKG.Create_Vendor_Contact

(     p_api_version           IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,

    x_return_status        OUT    NOCOPY VARCHAR2,

    x_msg_count        OUT    NOCOPY NUMBER,

    x_msg_data        OUT    NOCOPY VARCHAR2,

    p_vendor_contact_rec    IN    r_vendor_contact_rec_type,

    x_vendor_contact_id    OUT    NOCOPY NUMBER,

    x_per_party_id        OUT    NOCOPY NUMBER,

    x_rel_party_id        OUT     NOCOPY NUMBER,

    x_rel_id        OUT    NOCOPY NUMBER,

    x_org_contact_id    OUT    NOCOPY NUMBER,

    x_party_site_id        OUT    NOCOPY NUMBER

);

--更新

AP_VENDOR_PUB_PKG.Update_Vendor_Contact

(     p_api_version       IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE    ,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER    :=  FND_API.G_VALID_LEVEL_FULL,

    p_vendor_contact_rec    IN    r_vendor_contact_rec_type,

    x_return_status        OUT    NOCOPY VARCHAR2              ,

    x_msg_count            OUT    NOCOPY NUMBER,

    x_msg_data            OUT    NOCOPY VARCHAR2

);

--验证

AP_VENDOR_PUB_PKG.Validate_Vendor_Contact

(     p_api_version           IN    NUMBER,

      p_init_msg_list        IN    VARCHAR2 := FND_API.G_FALSE,

    p_commit            IN      VARCHAR2 := FND_API.G_FALSE,

    p_validation_level    IN      NUMBER     := FND_API.G_VALID_LEVEL_FULL,

    x_return_status        OUT    NOCOPY VARCHAR2,

    x_msg_count        OUT    NOCOPY NUMBER,

    x_msg_data        OUT    NOCOPY VARCHAR2,

    p_vendor_contact_rec    IN OUT    NOCOPY r_vendor_contact_rec_type,

    x_rel_party_valid     OUT     NOCOPY VARCHAR2,

    x_per_party_valid     OUT     NOCOPY VARCHAR2,

    x_rel_valid         OUT     NOCOPY VARCHAR2,

    x_org_party_id        OUT    NOCOPY NUMBER,

    x_org_contact_valid     OUT     NOCOPY VARCHAR2,

    x_location_id        OUT     NOCOPY NUMBER,

        x_party_site_valid      OUT     NOCOPY VARCHAR2

);

--导入供应商

--供应商

AP_VENDOR_PUB_PKG.Import_Vendors

(       p_api_version           IN      NUMBER,

        p_source                IN      VARCHAR2 DEFAULT 'IMPORT',

        p_what_to_import        IN      VARCHAR2 DEFAULT NULL,

        p_commit_size           IN      NUMBER   DEFAULT 1000,

        x_return_status         OUT NOCOPY VARCHAR2,

        x_msg_count             OUT NOCOPY NUMBER,

        x_msg_data              OUT NOCOPY VARCHAR2

);

--地点

AP_VENDOR_PUB_PKG.Import_Vendor_Sites

(       p_api_version           IN  NUMBER,

        p_source                IN  VARCHAR2 DEFAULT 'IMPORT',

        p_what_to_import        IN  VARCHAR2 DEFAULT NULL,

        p_commit_size           IN  NUMBER   DEFAULT 1000,

        p_org_id                IN  NUMBER   DEFAULT NULL, --bug13801271

        x_return_status         OUT NOCOPY VARCHAR2,

        x_msg_count             OUT NOCOPY NUMBER,

        x_msg_data              OUT NOCOPY VARCHAR2

);

--联系人

AP_VENDOR_PUB_PKG.Import_Vendor_Contacts

(       p_api_version           IN  NUMBER,

        p_source                IN  VARCHAR2 DEFAULT 'IMPORT',

        p_what_to_import        IN  VARCHAR2 DEFAULT NULL,

        p_commit_size           IN  NUMBER   DEFAULT 1000,

        x_return_status         OUT NOCOPY VARCHAR2,

        x_msg_count             OUT NOCOPY NUMBER,

        x_msg_data              OUT NOCOPY VARCHAR2

);


												


											
供应商API补充（详解EBS接口开发之供应商导入）(转)的更多相关文章
	

    
								
  1. 详解EBS接口开发之供应商导入
		
    (一)供应商常用标准表简介 1.1   常用标准表 如下表中列出了与供应商相关的表和说明: 表名 说明 其他信息 ap_suppliers 供应商头表 供应商的头信息如:供应商名.供应商编码.税号等  ...
    
		
    2. 
						
  2. 供应商导入的API补充（详解EBS接口开发之供应商导入）
		
    --供应商 --创建 AP_VENDOR_PUB_PKG.Create_Vendor ( p_api_version IN NUMBER, p_init_msg_list IN VARCHAR2 := ...
    
		
    3. 
						
  3. 详解EBS接口开发之供应商导入（补充）--供应商银行账户更新
		
    CREATE OR REPLACE PACKAGE BODY update_vendor_account IS PROCEDURE main(errbuf OUT VARCHAR2, retcode  ...
    
		
    4. 
						
  4. 详解EBS接口开发之供应商导入（补充）--错误信息处理
		
    check reject details on records of AP_SUPPLIER_INT SELECT s.parent_table,s.reject_lookup_code,S.LAST ...
    
		
    5. 
						
  5. 详解EBS接口开发之供应商导入补充-供应商地点增加实例
		
    DECLARE --v_org_id number; v_vendor_interface_id NUMBER; v_vendor_site_interface_id NUMBER; --接口表的id ...
    
		
    6. 
						
  6. 详解EBS接口开发之物料导入API
		
    create_item inv_item_grp.create_item(p_commit => fnd_api.g_true, -- p_item_rec => l_item_rec,  ...
    
		
    7. 
						
  7. 详解EBS接口开发之库存事务处理采购接收--补充
		
    除了可以用  详解EBS接口开发之库存事务处理采购接收的方法还可以用一下方法,不同之处在于带有批次和序列控制的时候实现方式不同 The script will load records into  ...
    
		
    8. 
						
  8. 详解EBS接口开发之采购申请导入
		
    更多内容可以参考我的博客  详解EBS接口开发之采购订单导入 http://blog.csdn.net/cai_xingyun/article/details/17114697 /*+++++++ ...
    
		
    9. 
						
  9. 详解EBS接口开发之库存事务处理批次更新
		
    库存事务处理批次有时候出现导入错误需要更新可使用次程序更新,批次导入可参考博客 详解EBS接口开发之库存事务处理-物料批次导入 http://blog.csdn.net/cai_xingyun/art ...
    
		
    10. 
		

	


随机推荐
	

    
									
  1. [分享] 采用opencv_cascadetrain进行训练的步骤及注意事项 [复制链接]
			
    http://f.dataguru.cn/thread-725364-1-1.html 很有用的一个帖子 转自:http://blog.csdn.net/xidianzhimeng/article/d ...
    
			
    2. 
						
  2. ELK学习笔记之ELK架构与介绍
			
    0x00 为什么用到ELK 一般我们需要进行日志分析场景:直接在日志文件中 grep.awk 就可以获得自己想要的信息.但在规模较大的场景中,此方法效率低下,面临问题包括日志量太大如何归档.文本搜索太 ...
    
			
    3. 
						
  3. MySQL按中文拼音排序
			
    好多时候,我们希望查询出来的记录能够按照汉语拼音即英文的26个字母排序,但是utf字符集是外国人弄的,不是按照汉语拼音的顺序排列的,因此,我们需要将要排序的字段把编码设定为GBK或者BG2312再进行 ...
    
			
    4. 
						
  4. Mysql 更改编码方式
			
    Mysql 更改编码方式 --查看编码方式 show variables like 'char%'; --设置编码方式 set character_set_server=utf8;
    
			
    5. 
						
  5. Charles手机端抓包--证书
			
    应用测试: Charles通过无线对手机进行抓包 测试系统: ubuntu 16.04 LTS 测试手机: IOS 10.3(14E277) Charles版本: Charles 4.1.4 手机证书 ...
    
			
    6. 
						
  6. U盘+GRUB2引导PE或linux镜像
			
    利用U盘制作启动盘,引导WinPE.Linux安装的文章多如牛毛,与他们相比本文的特点有: 1.用且仅用grbu2做引导.不使用grub4dos,不是使用msdos mbr转到活动分区,到ntldr, ...
    
			
    7. 
						
  7. ubuntu下如何修改时区和时间
			
    1.修改时区 sudo tzselect (按提示选择即可) sudo cp /usr/share/zoneinfo/Asia/Shanghai /etc/localtime 2. 修改时间 sudo ...
    
			
    8. 
						
  8. BZOJ 2467: [中山市选2010]生成树（矩阵树定理+取模高斯消元）
			
    http://www.lydsy.com/JudgeOnline/problem.php?id=2467 题意: 思路:要用矩阵树定理不难,但是这里的话需要取模,所以是需要计算逆元的,但是用辗转相减会 ...
    
			
    9. 
						
  9. HDU 1043 Eight（双向BFS+康托展开）
			
    http://acm.hdu.edu.cn/showproblem.php?pid=1043 题意:给出一个八数码,求出到达指定状态的路径. 思路:路径寻找问题.在这道题里用到的知识点挺多的.第一次用 ...
    
			
    10. 
						
  10. 为什么mongo中不能用int作为key
			
    为什么mongo中不能用int作为key??
    
			
    11.