Progress Dynamics 2.0 Web

Repository Objects By Type

Object Type:
<% 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' ' ~n' ' ~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} ' ~n' ' ~n' ' ~n' ' ~n'. END. {&OUT} '
' STRING(gsc_object_type.object_type_code) '' gsc_object_type.object_type_description '
' ryc_smartobject.object_filename '' ryc_smartobject.object_description '
~n'. %>