发票审批

----对已经处理的发票审批----
  procedure ap_approve(p_group_id varchar2) is


    x_hold_count     number;
    x_approve_status varchar2(50);


    cursor c_invoice_id is
      select distinct ai.invoice_num, ai.invoice_id
        from cux_ap_po_invoice cap, ap_invoices_all ai
       where cap.group_id = p_group_id
         and cap.invoice_number = ai.invoice_num
         and cap.status = 'PROCESSED';


  begin


    for c_invoice in c_invoice_id loop
      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          => NULL,
                              p_pay_group          => NULL,
                              p_invoice_id         => c_invoice.invoice_id,
                              p_entered_by         => null,
                              p_set_of_books_id    => null,
                              p_trace_option       => NULL,
                              p_conc_flag          => 'N',
                              p_holds_count        => x_hold_count,
                              p_approval_status    => x_approve_status,
                              p_calling_sequence   => null);
      UPDATE cux_ap_po_invoice ei
         SET ei.approve_status = x_approve_status
       WHERE ei.group_id = p_group_id
         and ei.invoice_number = c_invoice.invoice_num;


    end loop;


    COMMIT;


  end ap_approve;

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！