-- purpose: 应付标准发票核销预付款发票中的一行
-- 12.2.6 环境
-- author：jenrry create_date: 2017-06-08
declare
l_error_message VARCHAR2(2000);
p_prepay_line_num number;
l_prepay_dist_info ap_prepay_pkg.prepay_dist_tab_type;
l_result_boolean BOOLEAN;
begin
BEGIN
FND_GLOBAL.APPS_INITIALIZE(USER_ID => 1110,
RESP_ID => 50897,
RESP_APPL_ID => 20004);
mo_global.init('SQLAP');
MO_GLOBAL.set_policy_context('S', 105);
END;
l_result_boolean := ap_prepay_pkg.apply_prepay_line(p_prepay_invoice_id => 14142,
p_prepay_line_num => 3,
p_prepay_dist_info => l_prepay_dist_info,
p_prorate_flag => 'Y',
p_invoice_id => 14145,
p_invoice_line_number => null,
p_apply_amount => 30,
p_gl_date => sysdate,
p_period_name => '2017-06',
p_prepay_included => 'N',
p_user_id => -1,
p_last_update_login => -1,
p_calling_sequence => 'Apply Prepayment Form',
p_calling_mode => 'PREPAYMENT APPLICATION',
p_error_message => l_error_message);
IF l_result_boolean THEN
DBMS_OUTPUT.put_line('S');
/*ap_approval_pkg.approve(p_run_option => 'ALL',
p_invoice_batch_id => NULL,
p_begin_invoice_date => NULL,
p_end_invoice_date => NULL,
p_vendor_id => 801,
p_pay_group => NULL,
p_invoice_id => 14145,
p_entered_by => NULL,
p_set_of_books_id => NULL,
p_trace_option => NULL,
p_conc_flag => NULL,
p_holds_count => lx_holds_count,
p_approval_status => lx_approval_status,
p_funds_return_code => lv_funds_return_code,
p_calling_mode => 'APPROVE',
p_calling_sequence => 'CUXAPAUTOAPPLY',
p_debug_switch => 'N',
p_budget_control => 'Y',
p_commit => 'N');
log_message('p_approval_status'||lx_approval_status); */
ELSE
DBMS_OUTPUT.put_line('E');
DBMS_OUTPUT.put_line('l_error_message: ' || l_error_message);
END IF;
end;