供应商API补充（详解EBS接口开发之供应商导入）(转)

原文地址供应商导入的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接口开发之供应商导入）(转)的更多相关文章

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

随机推荐

http协议/获得请求/中文参数处理/访问数据库
# 1. http协议(了解)## (1)什么是http协议?一种网络应用层协议,规定了浏览器与web服务器之间如何通信以及相应的的数据包的结构.注:tcp/ip协议:保证数据可靠的传递.(UDP不可 ...
MySQL笔记（四）DDL与DML风格参考
便于 COPY ▲ 在所有操作之前: SET character_set_database=utf8; 确保 ↓ mysql> SHOW VARIABLES LIKE "%char%& ...
Django框架介绍之一
这片博文就是对django有个大概的了解,通俗的说,就是先让django跑起来. django安装在linux上安装如下: 源码安装: tar -zxvf Django-1.9.13.tar.gz ...
Kafka学习之（七）搭建kafka可视化服务Kafka Eagle
一.下载安装包 kafka-eagle-bin-1.2.4.tar.gz 百度云链接:链接:https://pan.baidu.com/s/1SNIkpsvs20A_Ljtx5PaMuA 密码:o4 ...
windwos::mutex
线程同步的方式和机制临界区.互斥区.事件.信号量四种方式临界区(Critical Section).互斥量(Mutex).信号量(Semaphore).事件(Event)的区别 1.临界区:通过对 ...
MySQL按中文拼音排序
好多时候,我们希望查询出来的记录能够按照汉语拼音即英文的26个字母排序,但是utf字符集是外国人弄的,不是按照汉语拼音的顺序排列的,因此,我们需要将要排序的字段把编码设定为GBK或者BG2312再进行 ...
基于Android的闹钟的软件
一.本课题要求:设计一个基于Android的闹钟的软件. 实现的功能有:能通过界面设置闹钟的启动条件建立后台服务进程,当满足触发条件时,闹钟响应相应事件. 二.需求分析该课题实现在手机操作系统And ...
python循环和布尔表达式总结
1.Python的for循环是循环遍历序列的有限循环. 2.Python的while语句是一个不定循环的例子.只要循环条件保持为真,它就继续迭代.使用不定循环时,程序员必须注意,以免不小心写成无限循环 ...
DSDS，双模，双卡，双待，单待，双通，单通，概念及相互关系？【转】
本文转载自:https://blog.csdn.net/dirk_it/article/details/7178058?utm_source=blogxgwz9 DSDS:双卡双待 DualSimDu ...
Mac安装和卸载HomeBrew
安装方法: /usr/bin/ruby -e "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/master/ ...

供应商API补充（详解EBS接口开发之供应商导入）(转)

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

随机推荐

热门专题