Oracle EBS AP取消核销

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