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;