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 = '' 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 '';

 end mcode_apply_insert_material;

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

原创作者：DSHORE

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

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