--取消核销 created by jenrry 20170425 DECLARE l_result BOOLEAN; l_msg_count NUMBER; l_result_n varchar2(2); l_error_message VARCHAR2(2000); l_num_c NUMBER; l_num_nc NUMBER; BEGIN -- Call the procedure fnd_global.APPS_INITIALIZE(1111, 50737, 20005); mo_global.init('AP'); l_result := ap_prepay_pkg.Unapply_Prepay_Line(P_PREPAY_INVOICE_ID => 10006, P_PREPAY_LINE_NUM => 1, P_INVOICE_ID => 10007, P_LINE_NUM => 10, P_UNAPPLY_AMOUNT => -1001, p_gl_date => sysdate - 50, p_period_name => '2017-02', p_prepay_included => 'N', p_user_id => -1, p_last_update_login => -1, p_calling_sequence => null/*'Apply Prepayment Form'*/, p_error_message => l_error_message); if l_result then l_result_n := 'S'; ELSE l_result_n := 'E'; END IF; dbms_output.put_line('l_return_status:'|| l_result_n); dbms_output.put_line('l_msg_data:' || l_error_message); END;