Oracle EBS AR 其他API
DECLARE
L_CR_ID NUMBER;
L_ATTRIBUTE_REC AR_RECEIPT_API_PUB.ATTRIBUTE_REC_TYPE;
L_GLOBAL_ATT_REC AR_RECEIPT_API_PUB.global_attribute_rec_type; L_RETURN_STATUS VARCHAR2(100);
L_MSG_COUNT NUMBER;
L_MSG_DATA VARCHAR2(2000); I NUMBER;
L_MESSAGE_LIST VARCHAR2(1000);
L_MSG_INDEX_OUT NUMBER;
BEGIN
FND_GLOBAL.APPS_INITIALIZE(USER_ID => 1111,
RESP_ID => 50737 ,
RESP_APPL_ID => 50737);
mo_global.set_policy_context('S', 142); AR_RECEIPT_API_PUB.REVERSE(
P_API_VERSION => 1.0,
P_COMMIT => 'F',
P_VALIDATION_LEVEL => 100,
P_CASH_RECEIPT_ID => 1000,
P_REVERSAL_DATE => fnd_conc_date.string_to_date('2017-03-31'),
P_REVERSAL_GL_DATE => fnd_conc_date.string_to_date('2017-03-31'),
P_REVERSAL_CATEGORY_CODE => 'REV',
P_REVERSAL_REASON_CODE => 'PAYMENT REVERSAL',
P_REVERSAL_COMMENTS => 'TEST',
X_RETURN_STATUS => L_RETURN_STATUS,
X_MSG_COUNT => L_MSG_COUNT,
X_MSG_DATA => L_MSG_DATA);
IF L_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS THEN
FOR I IN 1..L_MSG_COUNT LOOP
FND_MSG_PUB.GET(P_MSG_INDEX => I
,P_DATA => L_MESSAGE_LIST
,P_MSG_INDEX_OUT => L_MSG_INDEX_OUT);
DBMS_OUTPUT.PUT_LINE(L_MESSAGE_LIST);
END LOOP;
ELSE
DBMS_OUTPUT.PUT_LINE(L_CR_ID);
DBMS_OUTPUT.PUT_LINE(L_RETURN_STATUS);
DBMS_OUTPUT.PUT_LINE('L_MSG_DATA '||L_MSG_DATA);
END IF;
END;
--set serveroutput on size 1000000 DECLARE l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_cash_receipt_id NUMBER;
p_count number := 0; BEGIN -- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); -- 2) Call the API
AR_RECEIPT_API_PUB.CREATE_CASH
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_currency_code => 'USD',
p_amount => 1005.65,
p_receipt_number => 'rct-api1',
p_receipt_date => '22-JUL-2011',
p_gl_date => '22-JUL-2011',
p_customer_number => '1007',
p_receipt_method_id => 1001,
p_cr_id => l_cash_receipt_id ); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Cash Receipt id ' || l_cash_receipt_id );
dbms_output.put_line('Message count ' || l_msg_count); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '||l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status varchar2(1);
l_msg_count number;
l_msg_data varchar2(240);
p_count number :=0; BEGIN -- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); -- 2) Call the API
AR_RECEIPT_API_PUB.APPLY
( 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_cash_receipt_id => 83989,
p_customer_trx_id => 527928,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
end;
/ set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_cash_receipt_id NUMBER;
p_count number := 0; BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.create_and_apply
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_amount => 2000.00,
p_receipt_number => 'rct-api2',
p_receipt_date => '22-JUL-2011',
p_gl_date => '22-JUL-2011',
p_customer_number => 1007,
p_receipt_method_id => 1001,
p_trx_number => '102317',
p_cr_id => l_cash_receipt_id ); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count);
dbms_output.put_line('Cash Receipt ID ' || l_cash_receipt_id ); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
p_count number := 0;
BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.UNAPPLY
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cash_receipt_id => 83989,
p_applied_payment_schedule_id => 182804,
p_reversal_gl_date => '23-JUL-2011'
); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_cash_receipt_id NUMBER;
p_count number := 0;
BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.APPLY_ON_ACCOUNT
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cash_receipt_id => 83992); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_cash_receipt_id NUMBER;
p_count number := 0;
BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.UNAPPLY_ON_ACCOUNT
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cash_receipt_id => 83992,
P_reversal_gl_date => '23-JUL-2011'); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_cash_receipt_id NUMBER;
p_count number := 0;
BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.reverse
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cash_receipt_id => 83993,
p_reversal_category_code => 'REV',
p_reversal_reason_code => 'WRONG INVOICE'); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_cash_receipt_id NUMBER;
p_count number := 0;
l_application_ref_type ar_receivable_applications.application_ref_type%TYPE;
l_application_ref_id ar_receivable_applications.application_ref_id%TYPE;
l_application_ref_num ar_receivable_applications.application_ref_num%TYPE;
l_secondary_application_ref_id ar_receivable_applications.secondary_application_ref_id%TYPE;
l_receivable_application_id ar_receivable_applications.receivable_application_id%TYPE; BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.ACTIVITY_APPLICATION
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cash_receipt_id => 83994,
p_applied_payment_schedule_id => -3,
p_receivables_trx_id => 2536,
p_receivable_application_id => l_receivable_application_id
p_application_ref_type => l_application_ref_type,
p_application_ref_id => l_application_ref_id,
p_application_ref_num => l_application_ref_num,
p_secondary_application_ref_id => l_secondary_application_ref_id); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count);
dbms_output.put_line('Application ID ' || l_receivable_application_id; if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_cash_receipt_id NUMBER;
p_count number := 0;
l_receipt_number varchar(10); BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); l_receipt_number := 'misc-api1'; AR_RECEIPT_API_PUB.CREATE_MISC
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_amount => 4560.00,
p_receipt_date => '22-JUL-2011',
p_gl_date => '22-JUL-2011',
p_receipt_method_id => 1001,
p_activity => 'Interest Income',
p_misc_receipt_id => l_cash_receipt_id ,
p_receipt_number => l_receipt_number); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count);
dbms_output.put_line('Cash Receipt ID ' || l_cash_receipt_id ); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ -- set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
p_count NUMBER;
x_receivable_application_id NUMBER;
x_application_ref_id NUMBER;
x_application_ref_num VARCHAR2(30);
x_secondary_application_ref_id NUMBER; BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204');
-- 2) Call the API
AR_RECEIPT_API_PUB.apply_other_account
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_receivable_application_id => x_receivable_application_id,
p_cash_receipt_id => 83997,
p_receivables_trx_id => 1747,
p_applied_payment_schedule_id => -4,
p_amount_applied => 500.00,
p_application_ref_id => x_application_ref_id,
p_application_ref_num => x_application_ref_num,
p_secondary_application_ref_id => x_secondary_application_ref_id,
p_called_from => null); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count);
dbms_output.put_line('Receivable Application Id ' || x_receivable_application_id); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ -- Note that several parameters are similar to those --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
p_count NUMBER;
x_receivable_application_id NUMBER;
x_application_ref_id NUMBER;
x_application_ref_num VARCHAR2(30);
x_secondary_application_ref_id NUMBER; BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204');
-- 2) Call the API
AR_RECEIPT_API_PUB.apply_other_account
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_receivable_application_id => x_receivable_application_id,
p_cash_receipt_id => 83997,
p_receivables_trx_id => 1747,
p_applied_payment_schedule_id => -4,
p_amount_applied => 500.00,
p_application_ref_id => x_application_ref_id,
p_application_ref_num => x_application_ref_num,
p_secondary_application_ref_id => x_secondary_application_ref_id,
p_called_from => null); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count);
dbms_output.put_line('Receivable Application Id ' || x_receivable_application_id); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
p_count number := 0; BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.UNAPPLY_OTHER_ACCOUNT
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cash_receipt_id => 83997,
p_reversal_gl_date => '26-SEP-2011',
p_receivable_application_id => 285776,
p_cancel_claim_flag => 'Y',
p_called_from => NULL); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
p_count number := 0;
l_application_ref_num VARCHAR2(30);
l_receivable_application_id NUMBER;
l_applied_rec_app_id NUMBER;
l_acctd_amount_applied_from NUMBER;
l_acctd_amount_applied_to VARCHAR2(30);
BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.APPLY_OPEN_RECEIPT
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_amount_applied => -20.00,
p_receipt_number => 'rct-api11',
p_open_receipt_number => 'rct-api10',
x_application_ref_num => l_application_ref_num,
x_receivable_application_id => l_receivable_application_id,
x_applied_rec_app_id => l_applied_rec_app_id,
x_acctd_amount_applied_from => l_acctd_amount_applied_from,
x_acctd_amount_applied_to => l_acctd_amount_applied_to); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count);
dbms_output.put_line('Receivable Application Id ' || l_receivable_application_id); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_cash_receipt_id NUMBER;
p_count number := 0; BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_API_PUB.CREATE_APPLY_ON_ACC
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_amount => 555.00,
p_receipt_number => 'rct-api12',
p_receipt_date => '22-JUL-2011',
p_gl_date => '22-JUL-2011',
p_customer_number => 1007,
p_receipt_method_id => 1001,
p_cr_id => l_cash_receipt_id ); -- 3) Review the API output
dbms_output.put_line('Status ' || l_return_status);
dbms_output.put_line('Message count ' || l_msg_count);
dbms_output.put_line('Cash Receipt Id ' || l_cash_receipt_id); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
cursor c1 is
select line.customer_trx_line_id,
line.line_number,
line.extended_amount line_amount,
tax.extended_amount tax_amount
from ra_customer_trx_lines line,
(select link_to_cust_trx_line_id,
sum(nvl(extended_amount,0)) extended_amount
from ra_customer_trx_lines
where customer_trx_id = 528349
and line_type = 'TAX'
group by link_to_cust_trx_line_id) tax
where line.customer_trx_id = 528349
and line.line_type = 'LINE'
and line.customer_trx_line_id = tax.LINK_TO_CUST_TRX_LINE_ID(+); l_llca_trx_lines_tbl ar_receipt_api_pub.llca_trx_lines_tbl_type;
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
p_count NUMBER := 0;
l_cnt NUMBER := 0; BEGIN
-- 1) Set the applications context
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); -- 2) define the amounts to apply, for illustration purposes we will apply 10% of the original amounts
for i in c1 loop
l_cnt := l_cnt + 1; l_llca_trx_lines_tbl(l_cnt).customer_trx_line_id := i.customer_trx_line_id ;
l_llca_trx_lines_tbl(l_cnt).line_amount := i.line_amount * .10;
l_llca_trx_lines_tbl(l_cnt).amount_applied := i.line_amount * .10;
l_llca_trx_lines_tbl(l_cnt).tax_amount := i.tax_amount *.10;
end loop; AR_RECEIPT_API_PUB.APPLY_IN_DETAIL
( 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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cash_receipt_id => 84003,
p_customer_trx_id => 528349,
p_llca_type => 'L',
p_org_id => 204,
p_llca_trx_lines_tbl => l_llca_trx_lines_tbl ); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if;
END;
/ --set serveroutput on size 1000000 DECLARE
l_count NUMBER;
l_return_status VARCHAR2(1);
l_msg_count NUMBER;
l_msg_data VARCHAR2(240);
l_status VARCHAR2(1);
p_count number := 0; BEGIN
fnd_global.apps_initialize(1011902, 50559, 222,0);
mo_global.init('AR');
mo_global.set_policy_context('S','204'); AR_RECEIPT_UPDATE_API_PUB.UPDATE_RECEIPT_UNID_TO_UNAPP
(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,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_cash_receipt_id => 177018,
p_pay_from_customer => 1290,
p_comments => 'TEST RECEIPT API',
x_status => l_status
);
DBMS_OUTPUT.put_line ('X_RETURN_STATUS = ' || l_return_status);
DBMS_OUTPUT.put_line ('X_MSG_COUNT = ' || l_msg_count);
DBMS_OUTPUT.put_line ('X_MSG_DATA = ' || l_msg_data);
DBMS_OUTPUT.put_line ('X_STATUS = ' || l_status); if l_msg_count = 1 Then
dbms_output.put_line('l_msg_data '|| l_msg_data);
elsif l_msg_count > 1 Then
loop
p_count := p_count + 1;
l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
if l_msg_data is NULL Then
exit;
end if;
dbms_output.put_line('Message ' || p_count ||'. '||l_msg_data);
end loop;
end if; END;
Oracle EBS AR 其他API的更多相关文章
- Oracle EBS AR 客户API
------------------------------------ 1. Set Environment ------------------------------------ -- 1a. ...
- Oracle EBS AR 收款API收款方法标识无效
1.确认是不是没有收款方法 methods那个表的问题2.查看收款方法那个LOV的问题3.界面录入 是否会有问题 碰到的问题是 收款日期比较早时 找不到对应的收款方法 银行账户需要重新设置
- Oracle EBS AR 事务处理到期余额总计API
declare -- Local variables here i integer; x_line_original NUMBER; x_line_remaining NUMBER; ...
- Oracle EBS OM 主要API示例
1, Book order Oe_Order_Pub.Process_Order ( 1 , Fnd_Api.G_FALSE , Fnd_Api.G_FALSE , Fnd_Api.G_FALSE , ...
- Oracle EBS AR 更新客户配置文件
DECLARE l_rec_profile_t hz_customer_profile_v2pub.customer_profile_rec_type; l_rec_profile hz_custom ...
- Oracle EBS 银行账户API
创建银行 -- Create Bank DECLARE p_init_msg_list VARCHAR2(200); p_country_code VARCHAR2(200); p_bank_nam ...
- Oracle EBS AR 收款核销行关联到事务处理
select ra.trx_number from ar_cash_receipts_all cr, ar_receivable_applications_all ar,ra_customer_trx ...
- Oracle EBS AR 删除应收发票
DECLARE -- Non-scalar parameters require additional processing p_errors arp_trx_validate.mess ...
- Oracle EBS AR 更新客户组织层
declare -- Local variables here i integer; g_module ) := 'TCA_V2_API'; lrec_org hz_party_v2pub.organ ...
随机推荐
- 自制“低奢内”CSS3登入表单，包含JS验证，请别嫌弃哦。
要求 必备知识 基本了解CSS语法,初步了解CSS3语法知识.和JS/JQuery基本语法. 开发环境 Adobe Dreamweaver CS6 演示地址 演示地址 预览截图(抬抬你的鼠标就可以看到 ...
- 第三方登录：QQ登录实现（OAuth2.0）
一.创建应用 1.在 QQ互联 创建应用 地址:https://connect.qq.com/manage.html#/ 然后进行实名认证,创建应用,审核通过 然后点击查看,可以获得 APP ID 和 ...
- Java中函数的重载和重写
重载 重载指的是两个或者两个以上同名函数,但它们的参数不一样,这时会出现函数重载的情况.比如下面这段代码 class Test{ public void a(){ System.out.println ...
- C++类型转化小结
之前面试就有被问过关于使用类型转换的问题,因为主要是做Windows驱动的开发,一直都是纯C语言+汇编,当时真的是只用过C语言的强制类型转换,C语言的强制类型转换(Type Cast)很简单,不管什么 ...
- Spring Boot(三)：Spring Boot 中 Redis 的使用
Spring Boot 对常用的数据库支持外,对 Nosql 数据库也进行了封装自动化. Redis 介绍 Redis 是目前业界使用最广泛的内存数据存储.相比 Memcached,Redis 支持更 ...
- 我进行jvm内存调优的一些记录
jvm内存调优的一些记录 java内存调优的方法和过程 可以使用 jmap -heap pid号 查看,例如pid是9300,执行的结果可能是这样的. root@ubuntu:~# jmap -hea ...
- sql 整理积累
) AS t1 LEFT JOIN (SELECT * FROM dbo.xcqy2017_News_Classification) AS t2 ON t2.Ncid = t1.Ncid left j ...
- .net Core 部署到 Linux
1.环境说明 服务器系统:CentOS 7.4 64位 相关工具:Xshel.Xftp .net Core版本:2.2 VS版本:2017 服务器软件软件:.netcore.nginx.superv ...
- Java基本数据类型总结（转载）
Java基本数据类型总结 基本类型,或者叫做内置类型,是JAVA中不同于类的特殊类型.它们是我们编程中使用最频繁的类型.java是一种强类型语言,第一次申明变量必须说明数据类型,第一次变量赋值称为变量 ...
- MySQL的安装与维护
一.数据库的基本概念 数据库: 以一定方式储存在一起.能为多个用户共享.具有尽可能小的冗余度的特点.是与应用程序彼此独立的数据集合. DBMS(DataBase Management System,数 ...