2

function PARSEEXPORTDATAFROMMINI2(p_numdoc t_mini_numdoc, p_numrow t_mini_numrow, p_price t_mini_price, 
                                  p_qtysale t_mini_qtysal, p_sumsale t_mini_sumsale, p_qtyret t_mini_qtyret, 
                                  p_sumret t_mini_sumret) return integer is
  i integer;     
  v_array t_exportdatafrommini_tree := t_exportdatafrommini_tree();
begin
	--наполняем коллекцию
  for i in 1..p_numdoc.COUNT loop
    v_array.Extend();
    v_array(v_array.count) := t_exportdatafrommini(p_numdoc(i), p_numrow(i), p_price(i), 
                                                   p_qtysale(i), p_sumsale(i), p_qtyret(i), p_sumret(i));
  end loop;
	
  --проверяем, что же пришло с РКА
  for rec in (select * from Table(cast(v_array as t_exportdatafrommini_tree))) loop  
    insert into tbl_roma
      (tr_id, tr_doc_num, tr_log_info, tr_date)
    values
      (888, 888, rec.ed_NumDoc || '/' || rec.ed_NumRow || '/' || rec.ed_price || '/' || 
      rec.ed_qtysale || '/' || rec.ed_sumsale || '/' || rec.ed_qtyret || '/' || rec.ed_sumret, sysdate);
  end loop; 
  commit;  

  return 1;
end;