|
Как узнаь динамически какие есть классы и какие у них атрибуты и какого типа
#36547618
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Новосибирск
Сообщения: 3 916
|
|
Вообще есть сомнения в целесобразности решения задачи в универсальной форме.
Но возможно вам поможет моя давняя страничка. Сразу оговорюсь, что она не пригодилась, соответвенно ее не дорабатывал и практически не использовал.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
<html>
<head>
</head>
<style>
body {font-family:Verdana,Arial;font-size: 15 ;}
th {background-color:#b0b0c0;}
.d {background-color:#e0e0e0;color=#a0a0a0}
.l {background-color:#CFD1DA;}
.b {background-color:#aAaFC1;}
.gray {background-color:#CFD1DA;border-style:none;}
.error {background-color:#FFCCCC;font-weight:bold;color:red}
td,th {border-style:none;text-align:left}
a {text-decoration:none;color:blue;}
</style>
<body>
<script language=cache runat=server>
s classname=%request.Get("classname")
s id=%request.Get("id")
s addon=%request.Get("addon")
s ClassList=##class(%ResultSet).%New("%ClassDefinition:ClassInfo")
d ClassList.Execute()
w "<form name=f1>"
w "<table border=1><tr class=l>"
w "<td><select name=classname>"
while ClassList.Next()
{s clname=ClassList.Get("Name")
if (ClassList.Get("Persistent")= 1 ) && ($f(clname,"%")= 0 )
{w "<option ",$case(clname,classname:"selected",:""),">",clname,"</option>"
}
}
d ClassList.%Close()
w "<td><input type=text name=id value=",id," >"
w "<td><input type=submit class=b value='==>'>"
w "<input type=button class=b value='<==' onclick='history.back()'>"
w "</table>"
w "<form>"
//Открываем объект по Id и classname
q:(classname="")&&(addon="")
if addon=""
{s exist="",classlist="",ob=""
x:id'="" "s exist=##class("_classname_").%ExistsId("_id_")" //проверить, существует ли объект
x:exist=1 "s ob=##class("_classname_").%OpenId("_id_")" //открыть объект
}
else
{x addon
s classname=ob.%ClassName(1)
s exist=1
}
w "<table border=1 valign=top><th>Поле<th>Значение<th><th>Тип<th>Описание"
s def=##class(%ClassDefinition).%OpenId(classname)
s classlist=def.Super_","_classname
d def.%Close()
f i=1:1:$l(classlist,",")
{s classname=$p(classlist,",",i)
w "<tr><td>",classname
s def=##class(%ClassDefinition).%OpenId(classname)
s key=""
d def.Properties.GetNext(.key)
while key'=""
{s fieldname=def.Properties.GetAt(key).Name
s collection=def.Properties.GetAt(key).Collection
s type=def.Properties.GetAt(key).Type
s private=def.Properties.GetAt(key).Private
s description=def.Properties.GetAt(key).Description
w "<tr class=l><td>",fieldname
w "<td>"
g:'exist next
if private=1 w "<i><закрыто>" g next //закрытое поле
if collection=""
{s val=""
x "s val=ob."_fieldname
s addon=##class(%CSP.Page).EscapeURL("s ob=##class("_classname_").%OpenId("_id_"),ob=ob."_fieldname)
w ..DecodeValue(val,type,addon)
}
if collection="array"
{s key2=""
x "d ob."_fieldname_".GetNext(.key2)"
w:key2="" "<i><пусто>"
while key2'=""
{x "s val=ob."_fieldname_".GetAt(key2)"
s addon=##class(%CSP.Page).EscapeURL("s ob=##class("_classname_").%OpenId("_id_"),ob=ob."_fieldname_".GetAt("_key2_")")
w "<div>",key2,"->",..DecodeValue(val,type,addon),"</div>"
x "d ob."_fieldname_".GetNext(.key2)"
}
}
:next
w "<td>",collection
w "<td>",type
w "<td><pre>",description,"</td>"
d def.Properties.GetNext(.key)
}
}
w "</table>"
</script>
<script language=cache method=DecodeValue Arguments='data:%String,fieldtype:%String,addon:%String=""' returntype="%String">
n def2,persistent,id2,ret,i
if data="" q "<i><пусто>" //пустое поле
if (type="%Library.Date")||(fieldtype="%Date") q:data= 0 "<i><нулевая дата>" //нулевая дата
if (type="%Library.Date")||(fieldtype="%Date") q:$zd(data, 3 ,, 4 )="" "<i><неправильная дата>("_val_")" //нулевая дата
if (type="%Library.Date")||(fieldtype="%Date") q $zd(data, 3 ,, 4 ) //дата
if (type="%Library.List")||(fieldtype="%List") q "<i><список>"
//проверим, является ли тип хранимым классом
s def2=##class(%ClassDefinition).%OpenId(fieldtype)
s persistent=def2.Persistent
s:persistent id2=data.%Id()
d def2.%Close()
if persistent q "<a href=Browser.csp?classname="_fieldtype_"&id="_id2_">"_id2_"</a>"
q:$e(type, 1 , 1 )'="%" "<a href='Browser.csp?addon="_addon_"'>OREF</a>"
q "<b>"_val
</script>
</body>
</html>
|
|
|
