<script language="cache" runat="server"></script>

<script language="cache" runat="compiler"></script>

CREATE(Class,NamSv,Nam) ; Создание свойства
 ; Class - объект класса
 ; NamSv - идентификатор свойства
 ; Nam   - имя класса
 n err,pr,val,i
 s pr=##class(%Dictionary.PropertyDefinition).%New()
 I NamSv["_" s NamSv=$tr(NamSv,"_","o")
 s pr.Name=NamSv
 s pr.Type=$$GetTyp(NamSv)
 s err=pr.Type
 s pr.parent=Class
 i pr.%Close()
 s i=##class(%Dictionary.IndexDefinition).%New()
 s i.Name=NamSv_"Index"
 s i.parent=Class
 s i.Properties=NamSv
 q
GetTyp(NamSv) ; Тип поля
 n val,def
 s def="%String"
 s val=$G(@buffld@(NamSv,"TYPSQL"))
 s val=$$At^zfunc(val)
 q:val="" def
 s val=$$Code^ASYS("D_TYPSQL",val)
 q:val="" def
 q val

ChSQL(Kill,Rep)                         ; à®¢¥àª  SQL
 n obl,nc,nam,sqlstr,rez
 s Kill=$G(Kill)
 s Rep=$G(Rep, 1 )
 D SETNODEL
 D KILL(obl)
 s nc=$$Create(obl)
 s nam=""
 D PREFLD
 f  s nam=$O(@buffld@(nam)) q:nam=""  D CREATE(nc,nam,obl)
 D %SAVE(nc)
 D %COMPILE(obl)
 S sqlstr=$$GetSql(obl)
 i nc.%Close()
 s rez=$$ValidSql(sqlstr)
 D:Kill KILL(obl)
 I rez= 1  D TXT^ASYS("‡ ¯à®á á®áâ ¢«¥­ ¢¥à­®") q  1 
 D ERROR
 D:Rep REPAINT
 q  0 
ERROR
 n txt,len
 s txt( 1 )="‡ ¯à®á á®áâ ¢«¥­ ­¥¢¥à­®!"
 i $L(rez)< 60  s txt( 2 )=rez I $$Menu^ASYS1(,, 0 ) q
 s len=$L(rez)\ 60 + 0 . 5 
 S len=$FN(len,"", 0 )
 f i= 1 : 1 :len s txt(i+ 1 )=$E(rez,(i- 1 )* 60 + 1 ,(i- 1 )* 60 + 60 )
 I $$Menu^ASYS1(,, 0 )
 q 
GetSql(Class)                          ; ®¤£®â®¢¨âì Sql
 n str,rez
 D TXT^ASYS("®¤£®â®¢ª  SQL § ¯à®á ")
 s rez=""
 s str=""
 f  s str=$O(@sql@(str)) q:str=""  D NEXTSTR
 q rez
NEXTSTR                                ; Žç¥à¥¤­ ï áâப 
 n val,s
 s s=$G(@sql@(str))
 s val=$$Trans^zfunc(s,"TABLE",Class)
 s val=$$Trans^zfunc(val,"""","""""")
 S rez=rez_val_" "
 q 
KILL(Class)                            ; “¤ «¥­¨¥ ª« áá 
 N err,gl
 k err 
 D TXT^ASYS("“¤ «¥­¨¥ ª« áá ")
 I ##class(%Dictionary.ClassDefinition).%ExistsId(Class) D ##class(%Dictionary.ClassDefinition).%DeleteId(Class)
 ;i $System.OBJ.Delete(Class,"cf-d",.err)
 s gl="^"_Class_"D"
 k @gl
 s gl="^"_Class_"I"
 k @gl
 q 
Create(Nam)                            ; ‘®§¤ ­¨¥ ª« áá 
 n nc
 D TXT^ASYS("‘®§¤ ­¨¥ ª« áá ")
 s nc=##class(%Dictionary.ClassDefinition).%New()
 s nc.Name=Nam
 s nc.ProcedureBlock= 1 
 s nc.ClassType="persistent"
 s nc.Super="%Persistent"
 q nc
CREATE(Class,NamSv,Nam)                ; ‘®§¤ ­¨¥ ᢮©á⢠
 ; Class - ®¡ê¥ªâ ª« áá 
 ; NamSv -  ¨¬¥­®¢ ­¨¥ ᢮©á⢠
 ; Nam   - ¨¬ï ª« áá 
 n err,pr,val,i
 s pr=##class(%Dictionary.PropertyDefinition).%New()
 I NamSv["_" s NamSv=$$Trans^zfunc(NamSv,"_","o")
 s pr.Name=NamSv
 s pr.Type=$$GetTyp(NamSv)
 s err=pr.Type
 s pr.parent=Class
 i pr.%Close()
 s i=##class(%Dictionary.IndexDefinition).%New()
 s i.Name=NamSv_"Index"
 s i.parent=Class
 s i.Properties=NamSv
 D TXT^ASYS("„®¡ ¢«¥­¨¥ ᢮©á⢠ "_NamSv)
 q
GetTyp(NamSv)                          ; ‚¥à­¥â ⨯ ¯®«ï
 n val,def
 s def="%String"
 s val=$G(@buffld@(NamSv,"TYPSQL"))
 s val=$$At^zfunc(val)
 q:val="" def
 s val=$$Code^ASYS("D_TYPSQL",val)
 q:val="" def
 q val
%SAVE(Class)                           ; ‘®åà ­¥­¨¥ ª« áá 
 n val
 s val=Class.%Save()
 q
%COMPILE(Nam)                          ; Š®¬¯¨«ïæ¨ï ª« áá 
 n err
 k err 
 D TXT^ASYS("Š®¬¯¨«ïæ¨ï ª« áá ")
 i $system.OBJ.Compile(Nam,"cf-d",.err)
 q  
ValidSql(Sql)                          ; à ¢¨«ì­ë© «¨ Sql
 n o,rez
 D TXT^ASYS("à®¢¥àª  ᨭ⠪á¨á  SQL § ¯à®á ")
 S o=##class(%ResultSet).%New("%DynamicQuery:SQL")
 s rez=o.Prepare(Sql)
 q rez
REPAINT                                ; ¥à¥à¨á®¢ âì íªà ­
 D SCR
 D VIEWFLD( 1 )
 D VIEWSLV( 1 )
 D TXT^ASYS("")
 q

%Construct(%this,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10)
    Set $zobjval(, 1 , 0 , 3 , 1 )=$zu( 115 , 10 ),
    $zobjval(, 2 , 0 , 3 , 2 )= 0 ,
    $zobjval(, 3 , 0 , 3 , 3 )=""
    Quit  1