Class Frame.Contact Extends Frame.Abstract
{

ClassMethod Render(el)
{
 s idd=..GetNewId()
 w !,el,".insertAdjacentHTML('beforeEnd','<div id=",idd," style=""float:left;width:100%;background-color:#BABFD1;margin-bottom:1px;""></div>');"
 d ..WriteBody(idd)
}

ClassMethod Refresh(el)
{
 w !,el,".innerHTML='';"
 d ..WriteBody(el)
}

ClassMethod WriteBody(el)
{
 s fn=..Get("facenum")
 s flag1=..Get("frShowContact")
 s cnt= 0 
 s plist="",monthlist=" янв фев мар апр мая июн июл авг сен окт ноя дек"
 s html=""
 s html=html_"<table style=""width:100%;background-color:gray;"" cellspacing=1 cellpadding=2>"
 s:'flag1 html=html_"<tr class=mbody><td colspan=4>Обращения, справки, заявки"
 
 &sql(declare obr cursor for SELECT DocDate,Comment,DocTime,id into :DD,:Comm,:DT,:idD 
 	FROM Contact.Contact WHERE facenum=:fn order by Id desc)
 &sql(open obr)
 &sql(fetch obr) 
 s:flag1&&('SQLCODE) html=html_"<tr class=mbody><td colspan=4>Обращения"
 while SQLCODE= 0 
 	{&sql(select list(Type->Name) into :CR from Contact.ContactRow where Contact=:idD) if SQLCODE'=0 s CR=0
	 s:SQLCODE CR=""

   	 s bstyle=$select(DD=+$H:"style=""BACKGROUND-COLOR:#CCFFCC""", 1 :"")
   	 s date=$zd(DD, 0 ,monthlist,,,, 5000 ,,"...")
   	 s Comm=$tr(Comm,$c( 10 )_$c( 12 )_$c( 13 )_$c( 14 ),"")
   	 s:Comm'="" Comm="<br>"_$zcvt(Comm,"O","HTML")
   	 s:flag1 html=html_"<tr class=lightrow><td width=85px "_bstyle_">"_date_"<td width=60px>"_$zt(DT, 1 )_"<td>"_CR_Comm
   	 s cnt=cnt+ 1 
   	 &sql(fetch obr) 
 	}  
 &sql(close obr) 
 	
 &sql(declare dopdemand cursor for SELECT DocDate,DateControlEnd,id into :DD,:DT,:idD FROM DOP.DopDemand WHERE facenum=:fn and type= 0  order by ID desc)
 &sql(open dopdemand)
 &sql(fetch dopdemand)
 s:flag1&&('SQLCODE) html=html_"<tr class=mbody><td colspan=4>Заявки"
 while flag1&&(SQLCODE= 0 )
 	{&sql(select list(TypeDemand->Name) into :CR from DOP.DopDemandRow where dopdemand=:idD) 
   	 &sql(select list(Notes) into :NL from DOP.DopDemand_Notes where dopdemand=:idD) 
   	 s rowspan=$select($tr(NL," ","")="": 1 , 1 : 2 )
   	 s date=$zd(DD, 0 ,monthlist,,,, 5000 ,,"...")
   	 s:NL'="" NL="<br>"_NL
   	 s html=html_"<tr class=lightrow><td width=85px>"_date_"<td width=60px><td>"_CR_NL
     &sql(fetch dopdemand)
 	}
 &sql(close dopdemand)
 
 &sql(declare spr cursor for SELECT id,ExeDate,SerialNum,DocType->name,Comment into :idc,:ed,:snum,:dtn,:comm
 	 from DOP.Spravki where fnum=:fn group by DocType order by id desc)
 &sql(open spr)
 &sql(fetch  spr)
 s:flag1&&('SQLCODE) html=html_"<tr class=mbody><td colspan=4>Справки" 
 while SQLCODE= 0 
 	{s date=$zd(ed, 0 ,monthlist,,,, 5000 ,,"...")
 	 s:comm'="" comm="<br>"_comm
 	 s (comm)=""
	 s:flag1 html=html_"<tr class=lightrow><td width=85px>"_date_"<td width=60px >"_"<td> "_$zcvt(dtn,"O","HTML")_" "_$zcvt(comm,"O","HTML")
	 &sql(fetch  spr)
 	}   
 &sql(close spr)
 
 w !,el,".insertAdjacentHTML('beforeEnd','",html,"')" 
 d:cnt> 0  ##class(Frame.ToggleButton).Render(el,"frShowContact","Frame.Contact.Refresh")
 w:cnt= 0  !,el,".outerHTML="""";"
}

}