Oracle中EBS更新银行地址

欢迎进入Oracle社区论坛，与200万技术人员互动交流 >>进入 Oracle中EBS更新银行地址具体方法： --add by biao.chen@hand-china.com --2013-12-22 10:15:56 PROCEDURE add_branch_address（p_party_id NUMBER, p_contry VARCHAR2, p_address_line_1 VARCHAR2,

欢迎进入Oracle社区论坛，与200万技术人员互动交流 >>进入

    Oracle中EBS更新银行地址具体方法：

    --add by biao.chen@hand-china.com

    --2013-12-22 10:15:56

    PROCEDURE add_branch_address（p_party_id       NUMBER,

    p_contry         VARCHAR2,

    p_address_line_1 VARCHAR2,

    p_provice        VARCHAR2,

    p_city           VARCHAR2,

    x_return_status  OUT VARCHAR2,

    x_msg_count      OUT NUMBER,

    x_msg_data       OUT VARCHAR2） IS

    l_party_site_rec          hz_party_site_v2pub.party_site_rec_type;

    l_location_rec            hz_location_v2pub.location_rec_type;

    l_location_id             NUMBER;

    l_psobject_version_number NUMBER;

    l_party_site_id           NUMBER;

    l_party_site_number       VARCHAR2（30）；

    l_object_version_number   VARCHAR2（60） := 1;

    /*    x_return_status VARCHAR2（200）；

    x_msg_count     NUMBER;

    x_msg_data      VARCHAR2（2000）；*/

    l_country VARCHAR2（60）；

    BEGIN

    l_location_rec.address1 := p_address_line_1;

    cux_test_log_pkg.insert_row（'country  0 ',

    p_contry,

    l_country,

    userenv（'LANG'），

    p_provice,

    p_city）；

    BEGIN

    SELECT v.territory_code

    INTO l_country

    FROM fnd_territories_vl v

    WHERE v.territory_short_name = p_contry;

    EXCEPTION

    WHEN OTHERS THEN

    cux_conc_utl.log_msg（'查找国家出错：' || SQLERRM）；

    l_country := 'CN';

    END;

    l_location_rec.country           := l_country;

    l_location_rec.province          := p_provice;

    l_location_rec.city              := p_city;

    l_location_rec.created_by_module := 'CUST_INTERFACE';

    hz_location_v2pub.create_location（p_location_rec  => l_location_rec,

    x_location_id   => l_location_id,

    x_return_status => x_return_status,

    x_msg_count     => x_msg_count,

    x_msg_data      => x_msg_data）；

    l_location_rec.location_id := l_location_id;

    l_party_site_rec.party_id                 := p_party_id;

    l_party_site_rec.location_id              := l_location_id;

    l_party_site_rec.identifying_address_flag := 'Y';

    l_party_site_rec.created_by_module        := 'CUST_INTERFACE';

    hz_party_site_v2pub.create_party_site（p_party_site_rec    => l_party_site_rec,

    x_party_site_id     => l_party_site_id,

    x_party_site_number => l_party_site_number,

    x_return_status     => x_return_status,

    x_msg_count         => x_msg_count,

    x_msg_data          => x_msg_data）；

    l_party_site_rec.party_site_id     := l_party_site_id;

    l_party_site_rec.party_site_number := l_party_site_number;

    EXCEPTION

    WHEN OTHERS THEN

    x_msg_data := SQLERRM;

    END add_branch_address;