FXApp/ws_objects/l1_uo.pbl.src/f_check_if_oaflow.srf

$PBExportHeader$f_check_if_oaflow.srf
global type f_check_if_oaflow from function_object
end type

forward prototypes
global function integer f_check_if_oaflow (long arg_scid, long arg_billid, long arg_powerid, ref string arg_msg)
end prototypes

global function integer f_check_if_oaflow (long arg_scid, long arg_billid, long arg_powerid, ref string arg_msg);Long RSLT = 1
Long CNT
Long ls_doc_status

SELECT COUNT(*)
	INTO  :CNT
	FROM oa_doc
	WHERE dtype = 1
	AND powerid = :arg_powerid
	AND SCID = :ARG_SCID
	AND BILLID = :ARG_BILLID
	AND docflag = 1 USING SQLCA;
IF SQLCA.SQLCode <> 0 THEN
	RSLT = 0
	ARG_MSG = '查询操作失败：OA审批公文:'+SQLCA.SQLErrText
	GOTO ext
END IF

IF CNT = 0 THEN
	RSLT =  1
ELSE
	RSLT = 0
	ARG_MSG = '该单据正处于待OA流程审批中，不能删改、审核、撤审'
	GOTO ext
END IF



ext:
RETURN RSLT


end function