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

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

forward prototypes
global function integer f_check_wage_audit (long arg_mth, long arg_scid, ref string arg_msg)
end prototypes

global function integer f_check_wage_audit (long arg_mth, long arg_scid, ref string arg_msg);Int rslt = 1
Long cnt


SELECT count(*)
	INTO :cnt
	FROM u_gz_wage,u_rs_empinfo
	WHERE u_gz_wage.wagemth = :arg_mth
	AND u_gz_wage.empid = u_rs_empinfo.empid
	AND (u_rs_empinfo.scid = :arg_scid OR :arg_scid = -1)
	And u_gz_wage.Auditingflag = 1 ;
IF sqlca.SQLCode <> 0 THEN
	rslt = 0
	arg_msg = '查询当月工资表是否已审核失败,'+sqlca.SQLErrText
	GOTO ext
END IF

IF cnt > 0 THEN
	rslt = 0
	arg_msg = '当月工资表已审核'
	GOTO ext
END IF

ext:
RETURN rslt

end function