Q5/ws_objects/Ew_email.pbl.src/f_group_count.srf

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

forward prototypes
global function string f_group_count (long arg_groupid)
end prototypes

global function string f_group_count (long arg_groupid);string ls_rnt
long ll_group,ll_other

select count(*) into :ll_group from u_rep_groupmx where groupid=:arg_groupid and reltype=2;
select count(*) into :ll_other from u_rep_groupmx where groupid=:arg_groupid and reltype<>2;



ls_rnt="包含分组数" + string(ll_group) + "个;" + "企业数" + string(ll_other) + "个"














return ls_rnt
end function