Q5/ws_objects/ljnc.pbl.src/f_ljnc_get_unread_count.srf

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

forward prototypes
global function integer f_ljnc_get_unread_count ()
end prototypes

global function integer f_ljnc_get_unread_count ();int unread_count = 0

SELECT
Count(*)
INTO :unread_count
FROM
dbo.lnc_notice ,
dbo.lnc_noticemx
WHERE
dbo.lnc_notice.noticeid = dbo.lnc_noticemx.noticeid AND
dbo.lnc_noticemx.userid = :publ_userid AND
dbo.lnc_noticemx.readflag = 0 AND
dbo.lnc_notice.lnc_state= 1;

return unread_count
end function