--取消核销 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;