$PBExportHeader$gf_isnull.srf
global type gf_isnull from function_object
end type
forward prototypes
global function any gf_isnull (any any_val, any any_mr)
end prototypes
global function any gf_isnull (any any_val, any any_mr);any la_ret,la_val
la_val=any_val
if isnull(any_val) then
if lower(ClassName(any_val))='string' then
la_ret=any_mr
else
la_ret=any_mr
end if
else
if lower(ClassName(any_val))='string' then
la_ret=trim(string(la_val))
else
la_ret=la_val
end if
end if
return la_ret
end function