API to update the supplier:
Please find the blow steps for API to update the Supplier
DECLARE
p_api_version NUMBER;
p_init_msg_list VARCHAR2(200);
p_commit VARCHAR2(200);
p_validation_level NUMBER;
x_return_status VARCHAR2(200);
x_msg_count NUMBER;
x_msg_data VARCHAR2(200);
lr_vendor_rec apps.ap_vendor_pub_pkg.r_vendor_rec_type;
lr_existing_vendor_rec ap_suppliers%ROWTYPE;
l_msg VARCHAR2(200);
p_vendor_id NUMBER;
BEGIN
-- Initialize apps session
fnd_global.apps_initialize(26365, 54488, 200);
mo_global.init('SQLAP');
fnd_client_info.set_org_context(375);
-- Assign Basic Values
p_api_version := 1.0;
p_init_msg_list := fnd_api.g_true;
p_commit := fnd_api.g_true;
p_validation_level := fnd_api.g_valid_level_full;
p_vendor_id := 333611;
-- gather vendor details
BEGIN
SELECT *
INTO lr_existing_vendor_rec
FROM ap_suppliers asa
WHERE asa.vendor_id = p_vendor_id;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line('Unable to derive the supplier information for vendor id:' ||
p_vendor_id);
END;
--Deactivate Vendor
lr_vendor_rec.vendor_id := lr_existing_vendor_rec.vendor_id;
lr_vendor_rec.vendor_type_lookup_code := 'VENDOR';
--lr_vendor_rec.enabled_flag := 'N';
ap_vendor_pub_pkg.update_vendor(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_commit => p_commit,
p_validation_level => p_validation_level,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_vendor_rec => lr_vendor_rec,
p_vendor_id => p_vendor_id);
DBMS_OUTPUT.put_line('X_RETURN_STATUS = ' || x_return_status);
DBMS_OUTPUT.put_line('X_MSG_COUNT = ' || x_msg_count);
DBMS_OUTPUT.put_line('X_MSG_DATA = ' || x_msg_data);
IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
FOR i IN 1 .. fnd_msg_pub.count_msg LOOP
l_msg := fnd_msg_pub.get(p_msg_index => i,
p_encoded => fnd_api.g_false);
DBMS_OUTPUT.put_line('The API call failed with error ' || l_msg);
END LOOP;
ELSE
DBMS_OUTPUT.put_line('The API call ended with SUCESSS status');
END IF;
END;
/
Please find the blow steps for API to update the Supplier
DECLARE
p_api_version NUMBER;
p_init_msg_list VARCHAR2(200);
p_commit VARCHAR2(200);
p_validation_level NUMBER;
x_return_status VARCHAR2(200);
x_msg_count NUMBER;
x_msg_data VARCHAR2(200);
lr_vendor_rec apps.ap_vendor_pub_pkg.r_vendor_rec_type;
lr_existing_vendor_rec ap_suppliers%ROWTYPE;
l_msg VARCHAR2(200);
p_vendor_id NUMBER;
BEGIN
-- Initialize apps session
fnd_global.apps_initialize(26365, 54488, 200);
mo_global.init('SQLAP');
fnd_client_info.set_org_context(375);
-- Assign Basic Values
p_api_version := 1.0;
p_init_msg_list := fnd_api.g_true;
p_commit := fnd_api.g_true;
p_validation_level := fnd_api.g_valid_level_full;
p_vendor_id := 333611;
-- gather vendor details
BEGIN
SELECT *
INTO lr_existing_vendor_rec
FROM ap_suppliers asa
WHERE asa.vendor_id = p_vendor_id;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.put_line('Unable to derive the supplier information for vendor id:' ||
p_vendor_id);
END;
--Deactivate Vendor
lr_vendor_rec.vendor_id := lr_existing_vendor_rec.vendor_id;
lr_vendor_rec.vendor_type_lookup_code := 'VENDOR';
--lr_vendor_rec.enabled_flag := 'N';
ap_vendor_pub_pkg.update_vendor(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_commit => p_commit,
p_validation_level => p_validation_level,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_vendor_rec => lr_vendor_rec,
p_vendor_id => p_vendor_id);
DBMS_OUTPUT.put_line('X_RETURN_STATUS = ' || x_return_status);
DBMS_OUTPUT.put_line('X_MSG_COUNT = ' || x_msg_count);
DBMS_OUTPUT.put_line('X_MSG_DATA = ' || x_msg_data);
IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
FOR i IN 1 .. fnd_msg_pub.count_msg LOOP
l_msg := fnd_msg_pub.get(p_msg_index => i,
p_encoded => fnd_api.g_false);
DBMS_OUTPUT.put_line('The API call failed with error ' || l_msg);
END LOOP;
ELSE
DBMS_OUTPUT.put_line('The API call ended with SUCESSS status');
END IF;
END;
/
No comments:
Post a Comment