客户信用控制请求
一，导入外部风险
FUNCTION import_credit_exposure(p_org_id IN NUMBER,
p_customer_id IN NUMBER,
p_bill_to_site_uses_id IN NUMBER,
p_amount IN NUMBER,
p_import_type IN VARCHAR2,
p_currency_code IN VARCHAR2)
RETURN VARCHAR2 IS
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);
l_return_status VARCHAR2(30);
l_cc_hold_comment VARCHAR2(30);
l_result_out VARCHAR2(30);
l_request_id NUMBER;
l_p_request_id NUMBER;
l_wait BOOLEAN;
l_p_wait BOOLEAN;
l_phase VARCHAR2(80);
l_status VARCHAR2(80);
l_dev_phase VARCHAR2(80);
l_dev_status VARCHAR2(80);
l_message VARCHAR2(80);
l_data_access NUMBER;
l_id NUMBER;
l_e_wait BOOLEAN;
-- l_batch_id NUMBER;
l_ret_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(200);
l_org_id NUMBER;
l_exposure_source_code VARCHAR2(240);
l_batch_id NUMBER;
l_validate_only VARCHAR2(1);
l_rec oe_exposure_interface%ROWTYPE;
BEGIN
l_rec.exposure_source_code := 'CLE_F147_SOURCE';
l_rec.exposure_interface_id := oe_exposure_interface_s.nextval;
l_rec.batch_id := NULL;
l_rec.operation_code := p_import_type;
l_rec.exposure_amount := p_amount;
l_rec.currency_code := p_currency_code;
l_rec.bill_to_site_use_id := p_bill_to_site_uses_id;
l_rec.bill_to_customer_name := NULL;
l_rec.bill_to_customer_number := NULL;
l_rec.bill_to_customer_id := p_customer_id;
l_rec.bill_to_address1 := NULL;
l_rec.bill_to_address2 := NULL;
l_rec.bill_to_address3 := NULL;
l_rec.bill_to_address4 := NULL;
l_rec.bill_to_city := NULL;
l_rec.bill_to_state := NULL;
l_rec.bill_to_country := NULL;
l_rec.bill_to_postal_code := NULL;
l_rec.import_status_code := NULL;
l_rec.exposure_date := SYSDATE;
l_rec.org_id := p_org_id;
l_rec.original_system_reference := NULL;
l_rec.created_by := g_user_id;
l_rec.creation_date := SYSDATE;
l_rec.last_updated_by := g_user_id;
l_rec.last_update_date := SYSDATE;
l_rec.last_update_login := g_login_id;
l_rec.program_application_id := NULL;
l_rec.program_id := NULL;
l_rec.program_update_date := NULL;
l_rec.request_id := NULL;
l_rec.bill_to_province := NULL;
l_rec.bill_to_county := NULL;
INSERT INTO oe_exposure_interface VALUES l_rec;
l_org_id := p_org_id;
l_exposure_source_code := 'CLE_F147_SOURCE';
l_batch_id := NULL;
l_validate_only := 'N';
l_request_id := fnd_request.submit_request('ONT',
'OEXCEIMP',
'',
to_char(SYSDATE,
'YYYY/MM/DD HH24:MI:SS'),
FALSE,
l_org_id,
l_exposure_source_code,
l_batch_id,
l_validate_only,
chr(0));
COMMIT;
-- dbms_output.put_line(l_request_id);
IF l_request_id = 0 THEN
cux_conc_utl.log_msg('导入信用风险出错');
raise_exception('E');
END IF;
-- 导入信用风险完成
-- wait request
l_wait := fnd_concurrent.wait_for_request(request_id => l_request_id,
INTERVAL => 1, -- interval second for check
max_wait => 0, -- max_wait, Max amount of time to wait (in seconds)
phase => l_phase,
status => l_status,
dev_phase => l_dev_phase,
dev_status => l_dev_status,
message => l_message);
IF upper(l_status) NOT IN ('NORMAL', '正常') THEN
cux_conc_utl.log_msg('导入信用风险出错 - ' || l_message);
raise_exception('E');
END IF;
RETURN 'S';
END import_credit_exposure;
二，初始化信用汇总表
FUNCTION check_credit(p_org_id IN NUMBER,
p_customer_id IN NUMBER,
p_bill_to_site_uses_id IN NUMBER,
p_amount IN NUMBER,
p_import_type IN VARCHAR2,
p_currency_code IN VARCHAR2) RETURN VARCHAR2 IS
-- l_return_status VARCHAR2(30);
l_msg_count NUMBER;
l_msg_data VARCHAR2(2000);
l_return_status VARCHAR2(30);
l_cc_hold_comment VARCHAR2(30);
l_result_out VARCHAR2(30);
l_request_id NUMBER;
l_p_request_id NUMBER;
l_wait BOOLEAN;
l_p_wait BOOLEAN;
l_phase VARCHAR2(80);
l_status VARCHAR2(80);
l_dev_phase VARCHAR2(80);
l_dev_status VARCHAR2(80);
l_message VARCHAR2(80);
l_data_access NUMBER;
l_id NUMBER;
l_e_wait BOOLEAN;
-- l_batch_id NUMBER;
l_ret_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(200);
BEGIN
--先调用 import_credit_exposure 导入可拓展类型为18 的信用风险
mo_global.init('ONT');
fnd_global.apps_initialize(user_id => g_user_id,
resp_id => fnd_global.resp_id,
resp_appl_id => fnd_global.resp_appl_id);
l_return_status := import_credit_exposure(p_org_id => p_org_id,
p_customer_id => p_customer_id,
p_bill_to_site_uses_id => p_bill_to_site_uses_id,
p_amount => p_amount,
p_import_type => p_import_type,
p_currency_code => p_currency_code);
IF l_return_status = 'S' THEN
--调用标准请求 初始化信用汇总表
l_request_id := fnd_request.submit_request('ONT',
'OEXINICS',
'',
to_char(SYSDATE,
'YYYY/MM/DD HH24:MI:SS'),
FALSE,
'N',
chr(0));
COMMIT;
-- dbms_output.put_line(l_request_id);
IF l_request_id = 0 THEN
cux_conc_utl.log_msg('调用标准请求 初始化信用汇总表 出错');
raise_exception('E');
END IF;
-- 导入信用风险完成
-- wait request
l_wait := fnd_concurrent.wait_for_request(request_id => l_request_id,
INTERVAL => 1, -- interval second for check
max_wait => 0, -- max_wait, Max amount of time to wait (in seconds)
phase => l_phase,
status => l_status,
dev_phase => l_dev_phase,
dev_status => l_dev_status,
message => l_message);
IF upper(l_status) NOT IN ('NORMAL', '正常') THEN
cux_conc_utl.log_msg('调用标准请求 初始化信用汇总表 - ' || l_message);
raise_exception('E');
END IF;
ELSE
cux_conc_utl.log_msg('调用 import_credit_exposure 导入可拓展类型为18 的信用风险出错 - ');
raise_exception('E');
END IF; -- IF l_return_status = 'S' THNE
RETURN 'S';
END check_credit;