发票审批

----对已经处理的发票审批----
  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,