Oracle Cursor游标自身更新

Create Or Replace Procedure JXGZ_绩效评分计算

(

  考核期间ID_in In 考核期间.ID%Type,

  登记人ID_in   In 考核数据.操作员ID%Type,

  登记日期_in   In 考核数据.登记日期%Type,

  所属机构_in   In 考核数据.ID%Type

) As

  --定义过程变量

  R_工资详表 绩效工资数据明细%rowtype;

  v_类别         绩效工资管理.类别%Type := 0;

  v_考核期间id   绩效工资管理.考核期间id%Type := 考核期间ID_in;

  v_登记人       绩效工资管理.登记人%Type := 登记人ID_in;

  v_登记日期     绩效工资管理.登记日期%Type := 登记日期_in;

  --定义游标[动态]

  Cursor tablecursor

  (

    v_考核期间ID Varchar2,

    v_所属机构   Varchar

  ) Is

    Select A.工作质量分数, A.工作数量分数, A.行政管理分数, A.绩效总分, A.当前总分

    From 绩效工资数据明细 A

    Where A.考核期间ID = v_考核期间ID And A.机构ID = v_所属机构

    For Update;

Begin

  --新的主表期间ID

  Select NewId() Into v_id From dual;

  Select t.考核期间id Into v_考核期间id From 考核数据 t Where t.考核期间id = 考核期间ID_in And t.所属机构 = 所属机构_in And ROWNUM = 1;

  Insert Into 绩效工资管理 (ID, 类别, 机构id, 考核期间id, 登记人, 登记日期) Values (v_id, v_类别, 所属机构_in, v_考核期间id, v_登记人, v_登记日期);

  --插入数据

  Insert Into 绩效工资数据明细

    (ID, 考核数据ID, 绩效工资管理ID, 部门id, 个人id, 系数, 考核期间id, 工作数量分数, 工作质量分数, 行政管理分数, 机构ID)

    Select NewId(), 考核数据ID, v_id, 所属部门, 机构人员ID, 系数, 考核期间id, Sum(工作数量考核), Sum(工作质量考核), Sum(行政管理考核), 所属机构

    From (Select B.所属部门, B.机构人员ID, B.ID, 考核数据ID, b.系数, b.考核期间id, DECODE(考核类别, '工作数量考核', 分值 * 数量, 0) As 工作数量考核,

                  DECODE(考核类别, '工作质量考核', 分值 * 数量, 0) As 工作质量考核, DECODE(考核类别, '行政管理考核', 分值 * 数量, 0) As 行政管理考核, B.所属机构

           From 考核数据详细 A, 考核数据 B

           Where b.id = a.考核数据id And b.考核期间id = 考核期间ID_in And b.所属机构 = 所属机构_in)

    Group By 所属部门, 机构人员ID, 考核数据id, 系数, 考核期间id, 所属机构;

  --游标计算

  Open tablecursor(考核期间ID_in, 所属机构_in);

  While tablecursor%Found Loop

    If R_工资详表.考核期间ID = 考核期间ID_in And R_工资详表.机构ID = 所属机构_in Then

      Update 绩效工资数据明细

      Set 当前总分 =500

          End)

      Where Current Of tablecursor;

    End If;

  End Loop;

  Close tablecursor;

  Commit;

Exception

  When Others Then

    Null;

End JXGZ_绩效评分计算;

-------------------正式版

Create Table Cur_Table

(

CID Number(10) Primary Key,

CType  Number(1),

CName Varchar2(300),

CResult  Number(20)

)

CREATE OR REPLACE Procedure P_游标UpdateTable

(

  Type_in   In Cur_Table.CType%Type,

  Result_in In Cur_Table.CResult%Type

) As

  Cursor T_Cursor(Type_in Cur_Table.CType%Type) Is

    Select * From Cur_Table Where ctype = Type_in For Update;

  Rs Cur_Table%Rowtype;

Begin

  Open T_Cursor(Type_in);

  Loop

    Fetch T_Cursor Into Rs;

            Exit When T_Cursor%Notfound;

        Update Cur_Table Set CResult = Result_in,CName='大圣' Where Current Of T_Cursor;

  End Loop;

  Commit;

  Close T_Cursor;

End P_游标UpdateTable;