Progress Dynamics 2.0 Web
<%
DEFINE VARIABLE cDesc AS CHARACTER NO-UNDO.
DEFINE VARIABLE cObjType AS CHARACTER NO-UNDO INITIAL "DynView".
IF get-value('object') > '' THEN
cObjType = get-value('object').
FIND FIRST gsc_object_type WHERE
gsc_object_type.object_type_code BEGINS cObjType NO-LOCK.
FIND FIRST ryc_smartobject
WHERE ryc_smartobject.object_type_obj = gsc_object_type.object_type_obj NO-ERROR.
IF AVAILABLE ryc_smartobject THEN
{&OUT}
'
~n'
'
~n'
'
' STRING(gsc_object_type.object_type_code) '
~n'
'
' gsc_object_type.object_type_description '
~n'
'
'.
FOR EACH ryc_smartobject
WHERE ryc_smartobject.object_type_obj = gsc_object_type.object_type_obj
BY ryc_smartobject.object_filename:
ASSIGN
cDesc = ryc_smartobject.object_description
cDesc = (IF cDesc = "" THEN " " ELSE cDesc).
{&OUT}
'