广东移动审批回退
--所处存储过程? WFR_RULESENGINE_NEW_PKG
?
/*
?*单据审批
?*/
PROCEDURE approve(
????? P_boe_header_id???IN?NUMBER,--单据头ID
????? approver????IN?VARCHAR2, --审批人工号
????? approve_command???IN?VARCHAR2, --审批动作
????? approve_comment???IN?VARCHAR2,?--备注
????? result????OUT?VARCHAR2 --处理结果
) IS
employeeId NUMBER := 0;
BEGIN
???? IF approve_command = 'APPROVE' THEN
??????? approve_approve(P_boe_header_id,approver,approve_comment,result);
???? ELSIF approve_command = 'REJECT' THEN
?????? --判断单据是否已被审批(审批人是否存在于单据当前处理人视图(单据-当前处理人(WFR_BOE_OPERATOR_V))中).
?????? BEGIN
??????????? SELECT bov.employee_id INTO employeeId FROM WFR_BOE_OPERATOR_V bov WHERE bov.authorized_employee_number=approver AND bov.boe_header_id=P_boe_header_id;
??????????? EXCEPTION WHEN NO_DATA_FOUND THEN
?????????????? result := 'HAS_APPROVED';
?????????????? RETURN;
?????? END;
??????? approve_reject(P_boe_header_id,approver,approve_comment,result);
???? END IF;
???? EXCEPTION WHEN OTHERS THEN
??????? ROLLBACK;
??????? result := 'EXCEPTION';
??????? RETURN;
END;
?
/*
?*审批拒绝
?*/
PROCEDURE approve_reject()
?
/*
?*审批同意
?*/
approve_approve
?
?
?
?
?
?
?
?
?
?
?
?
?
?
?
