Oracle 函数 “申请通过后，将该表中循环遍历到的所有内容插到另一个表中”

create or replace function mcode_apply_insert_material(p_mca_no       VARCHAR2,
                                                  p_action       VARCHAR2,
                                                  p_wf_node_code VARCHAR2)

       RETURN VARCHAR2 AS   -- 函数作用：当物料申请审核通过之后，将物料申请表中的数据插入到物料管理表中

       v_material_code  MCA_DETAIL.MATERIAL_CODE%TYPE;
       v_material_name  MCA_DETAIL.MATERIAL_NAME%TYPE;
       v_partner        MCA_DETAIL.PARTNER%TYPE;
       v_manufaturer    MCA_DETAIL.MANUFATURER%TYPE;
       v_specification  MCA_DETAIL.SPECIFICATION%TYPE;
       v_unit           MCA_DETAIL.UNIT%TYPE;
       v_remark         MCA_DETAIL.REMARK%TYPE;
    

       CURSOR get_final_supplies_data IS
              SELECT m.material_code,m.material_name,m.partner,m.manufaturer,m.specification,m.unit,m.remark
              FROM   MCA_DETAIL m
              WHERE  m.mca_no = p_mca_no;

BEGIN
   IF p_action = '03' AND p_wf_node_code = 2 THEN -- 工作流 ，如果在2节点 审核通过“03”，执行下面语句
          OPEN get_final_supplies_data;
          LOOP     -- loop   exit when ...%notfound:遍历（循环）
          FETCH get_final_supplies_data INTO v_material_code,v_material_name,v_partner,v_manufaturer,v_specification,v_unit,v_remark;
          exit when get_final_supplies_data%notfound;    -- 当get_final_supplies_data遍历完后，退出循环，执行下面的语句
          　　-- material：物料管理表
          　　INSERT INTO material(material_code,partner,specification,material_name,unit_of_measurement,remark,manufaturer) 
          　　VALUES(v_material_code,v_partner,v_specification,v_material_name,v_unit,v_remark,v_manufaturer);
          
          END LOOP; -- 结束循环
          CLOSE get_final_supplies_data;
     
     END IF;
     
     RETURN '0';
     
end mcode_apply_insert_material;

注：如需测试该函数，请复制到Oracle数据库中，右击函数名“mcode_apply_insert_material”，选择“test” 进行测试，测试时记得把相应的表名及字段换成自己建立的

原创作者：DSHORE

出处：http://www.cnblogs.com/dshore123/

欢迎转载，转载务必说明出处。（如果本文对你有用，可以点击一下右下角的 推荐，谢谢！）