--取消发票 created by jenrry 20170425
declare
l_result BOOLEAN;
l_message_name VARCHAR2(240);
l_invoice_amount NUMBER;
l_base_amount NUMBER;
l_temp_cancelled_amount NUMBER;
l_cancelled_by NUMBER;
l_cancelled_amount NUMBER;
l_cancelled_date DATE;
l_last_update_date DATE;
l_original_prepayment_amount NUMBER;
l_pay_curr_invoice_amount NUMBER;
l_token VARCHAR2(240);
l_calling_sequence VARCHAR2(240);
begin
FND_GLOBAL.APPS_INITIALIZE(USER_ID => 1111,
RESP_ID => 50737,
RESP_APPL_ID => 20005);
mo_global.init('SQLAP');
mo_global.set_policy_context(p_access_mode => 'S', p_org_id => 142);
l_result := AP_CANCEL_PKG.Ap_Cancel_Single_Invoice(
P_invoice_id => 13020,
P_last_updated_by => 1111,
P_last_update_login => 1111,
P_accounting_date => fnd_conc_date.string_to_date('2017-02-21'),
P_message_name => l_message_name,
P_invoice_amount => l_invoice_amount,
P_base_amount => l_base_amount,
P_temp_cancelled_amount => l_temp_cancelled_amount,
P_cancelled_by => l_cancelled_by,
P_cancelled_amount => l_cancelled_amount,
P_cancelled_date => l_cancelled_date,
P_last_update_date => l_last_update_date,
P_original_prepayment_amount => l_original_prepayment_amount,
P_pay_curr_invoice_amount => l_pay_curr_invoice_amount,
P_token => l_token,
P_calling_sequence => l_calling_sequence) ;
if l_result then
dbms_output.put_line('l_message_name1: '||'S');
end if;
dbms_output.put_line('l_message_name: '||l_message_name);
end;