save(Package,File,Desc) /* Запись данных для ER-диаграммы */
n fl,sql,err,sql,o,buf
s:$g(Package)="" Package="mvr%"
s:$g(File)="" File="\\ksa\box\tmp.xml"
s:$g(Desc)="" Desc=0
s buf=$na(^||tmp)
k @buf
s fl=##class(%File).%New(File)
i 'fl w !!,"Ошибка открытия файла..." q:$q 0 q
d fl.Open("WSN")
d BEGIN
s sql=$$sql
s o=##class(%ResultSet.SQL).%Prepare(sql,.err,"",Package)
while o.%Next() {
d CLASS
}
k o
d W("</sql>")
k fl
q:$q 1
q
CLASS // Очередной класс
n cls,des,val,op,sql
s cls=o.%Get("ID")
;w !,cls
s des=o.%Get("Description")
s val=$$name(cls,des)
s @buf@("class",cls)=val
d W("<table x=""51"" y=""33"" name="""_val_""">")
d W("<row name=""id"" null=""1"" autoincrement=""1"">")
d W("<datatype>TINYINT</datatype>")
d W("<default>NULL</default>")
d W("</row>")
s sql=$$sqlPrm
s op=##class(%ResultSet.SQL).%Prepare(sql,.err,"",cls)
while op.%Next() {
d PARAM
}
k op
d W("<key type=""PRIMARY"" name="""">")
d W("<part>id</part>")
d W("</key>")
d W("<comment>"_des_"</comment>")
d W("</table>")
q
name(Name,Des) // Имя таблицы или свойства
n val
q:'Desc Name
s val=Name
s:Des'="" val=Des_" ("_Name_")"
q val
PARAM // Записать свойства
n nam,des,typ,val,rel
s nam=op.%Get("Name")
s typ=op.%Get("Type")
s des=op.%Get("Description")
s rel=op.%Get("Cardinality")
s val=$$name(nam,des)
d W("<row name="""_val_""" null=""1"" autoincrement=""0"">")
s val=$$type
d W("<datatype>"_val_"</datatype>")
d W("<default>NULL</default>")
s des=$replace(des,"<",";")
s des=$replace(des,">",";")
s des=$replace(des,"&","")
d W("<comment>"_des_"</comment>")
d:rel="one" W("<relation table="""_typ_""" row=""id"" />")
d W("</row>")
q
type() // Определить тип поля
n val
q:$e(typ)'="%" "TINYINT"
s val=$p(typ,".",2,$l(typ,"."))
s val=$SYSTEM.SQL.SQLUPPER(val)
s val=$tr(val," ")
q val
sqlPrm() // Сформировать sql запрос к параметрам класса
n sql
s sql="SELECT "
s sql=sql_"* "
s sql=sql_"FROM "
s sql=sql_"%Dictionary.CompiledProperty "
s sql=sql_"WHERE "
s sql=sql_"parent =? "
s sql=sql_"and "
s sql=sql_"Internal<>1 "
q sql
sql() // Сформировать sql запрос к классам
n sql
s sql="SELECT "
s sql=sql_"* "
s sql=sql_"FROM "
s sql=sql_"%Dictionary.CompiledClass "
s sql=sql_"WHERE "
s sql=sql_"ID like ? "
q sql
BEGIN // Записать начальный текст
d W("<?xml version=""1.0"" encoding=""utf-8"" ?>")
d W("<!-- SQL XML created by WWW SQL Designer,
http://code.google.com/p/wwwsqldesigner/ -->" )
d W("<!-- Active URL:
http://ksa-pc/er/ -->" )
d W("<sql>")
d W("<datatypes db=""mysql"">")
d W("<group label=""Numeric"" color=""rgb(238,238,170)"">")
d W("<type label=""TINYINT"" length=""0"" sql=""TINYINT"" quote=""""/>")
d W("<type label=""SMALLINT"" length=""0"" sql=""SMALLINT"" quote=""""/>")
d W("<type label=""MEDIUMINT"" length=""0"" sql=""MEDIUMINT"" quote=""""/>")
d W("<type label=""INT"" length=""0"" sql=""INT"" quote=""""/>")
d W("<type label=""Integer"" length=""0"" sql=""INTEGER"" quote=""""/>")
d W("<type label=""BIGINT"" length=""0"" sql=""BIGINT"" quote=""""/>")
d W("<type label=""Decimal"" length=""1"" sql=""DECIMAL"" re=""DEC"" quote=""""/>")
d W("<type label=""Numeric"" length=""1"" sql=""NUMERIC"" re=""DEC"" quote=""""/>")
d W("<type label=""Single precision"" length=""0"" sql=""FLOAT"" quote=""""/>")
d W("<type label=""Double precision"" length=""0"" sql=""DOUBLE"" re=""DOUBLE"" quote=""""/>")
d W("</group>")
d W("<group label=""Character"" color=""rgb(255,200,200)"">")
d W("<type label=""Char"" length=""1"" sql=""CHAR"" quote=""'""/>")
d W("<type label=""String"" length=""1"" sql=""STRING"" quote=""'""/>")
d W("<type label=""Varchar"" length=""1"" sql=""VARCHAR"" quote=""'""/>")
d W("<type label=""Text"" length=""0"" sql=""MEDIUMTEXT"" re=""TEXT"" quote=""'""/>")
d W("<type label=""Binary"" length=""1"" sql=""BINARY"" quote=""'""/>")
d W("<type label=""Varbinary"" length=""1"" sql=""VARBINARY"" quote=""'""/>")
d W("<type label=""BLOB"" length=""0"" sql=""BLOB"" re=""BLOB"" quote=""'""/>")
d W("</group>")
d W("<group label=""Date & Time"" color=""rgb(200,255,200)"">")
d W("<type label=""Date"" length=""0"" sql=""DATE"" quote=""'""/>")
d W("<type label=""Time"" length=""0"" sql=""TIME"" quote=""'""/>")
d W("<type label=""Datetime"" length=""0"" sql=""DATETIME"" quote=""'""/>")
d W("<type label=""Year"" length=""0"" sql=""YEAR"" quote=""""/>")
d W("<type label=""Timestamp"" length=""0"" sql=""TIMESTAMP"" quote=""'""/>")
d W("</group>")
d W("<group label=""Miscellaneous"" color=""rgb(200,200,255)"">")
d W("<type label=""Boolean"" length=""1"" sql=""BOOLEAN"" quote=""""/>")
d W("<type label=""ENUM"" length=""1"" sql=""ENUM"" quote=""""/>")
d W("<type label=""SET"" length=""1"" sql=""SET"" quote=""""/>")
d W("<type label=""Bit"" length=""0"" sql=""bit"" quote=""""/>")
d W("</group>")
d W("</datatypes>")
q
W(Val) // Записать строку
d fl.WriteLine(Val)
q
