返回文檔處理中的附件image

display image dispMainPic()
{
docuRef docuRef;
docuType docuType;
image ret;
;
select firstonly docuRef
where docuRef.RefCompanyId == this.dataAreaId &&
docuRef.RefTableId == this.TableId &&
docuRef.RefRecId == this.RecId
join docuType where docuRef.TypeId==docuType.TypeId && docuType.TypeGroup==DocuTypeGroup::Image;

if(docuRef.ValueRecId) {
ret=new image();
ret.setData(DocuValue::find(docuRef.ValueRecId).File);
}
return ret;
}