create or replace type sys_col_id as object(id number(38))

create or replace type sys_tbl_ids as table of sys_col_id

function splitter_count(str in varchar2, delim in char) return int as
    val pls_integer;
  begin
    val := length(replace(str, delim, delim || ‘ ‘));
    return val - length(str);
  end;

function tokenize_to_sys_tbl_ids(str varchar2, delim char)
    return sys_tbl_ids as
    target     int;
    i          int;
    this_delim int;
    last_delim int;
    ids_table  sys_tbl_ids := sys_tbl_ids();
  BEGIN
    i          := 1;
    last_delim := 0;
    target     := splitter_count(str, delim);
    while i <= target loop
      this_delim := instr(str, delim, 1, i);
      ids_table.extend();
      ids_table(i) := sys_col_id(to_number(substr(str,
                                                  last_delim + 1,
                                                  this_delim - last_delim - 1)));
      i := i + 1;
      last_delim := this_delim;
    end loop;
  
    ids_table.extend();
    ids_table(i) := sys_col_id(to_number(substr(str, last_delim + 1)));
  
    return ids_table;
  end;

procedure MatchingInvoice(v_Invoiceids  varchar2,
                            v_MatchingIds out sys_refcursor) as
    ids_table        sys_tbl_ids := sys_tbl_ids();
    v_rownum         number;
    v_sys_tbl_ids    sys_tbl_ids;
    v_TotalTaxAmount number(19, 6);
    v_Totalamount    number(19, 6);
  begin
    v_rownum         := 1;
    v_TotalTaxAmount := 0;
    v_Totalamount    := 0;
    --把传入的Id放入数组中
    v_sys_tbl_ids := pack_cmn.tokenize_to_sys_tbl_ids(v_Invoiceids, ‘,‘);
    for record_invoice in (Select a.invoiceid,
                                  sum(b.taxamount) taxamount,
                                  a.totalamount / 1.17 * 0.17 newtaxamount
                             From fi_invoice a
                             Join fi_invoicedetail b
                               On a.invoiceid = b.invoiceid
                              --把数组封装成临时表
                             Join table(v_sys_tbl_ids) c
                               On c.id = a.invoiceid
                            group by a.invoiceid, a.totalamount) loop
      --先累加
      v_TotalTaxAmount := v_TotalTaxAmount + record_invoice.taxamount;
      v_Totalamount    := v_Totalamount + record_invoice.newtaxamount;
      ids_table.extend();
      ids_table(v_rownum) := sys_col_id(record_invoice.invoiceid);
      v_rownum := v_rownum + 1;
      if abs(round(v_TotalTaxAmount - v_Totalamount, 2)) >= 0.05 then
        exit;
      end if;
    end loop;
    open v_MatchingIds for
      Select c.id From table(ids_table) c;
  end MatchingInvoice;