use "system.vl" use "win.vl" use "maint.vl" use "file.vl" use "dev:vm[xcell.vm]" use "publiccode.vl" use "dev:vm[pagecontrol.vm]" unit vbusiness.entity [ BrandInforMaint is extend maint; about BrandInforMaint [ field: [ msxml::IXMLDOMDocument m_configDoc; string m_userid; string m_username; string ContactID; xdwtable__ dw_base; xcell__ dw_cell; ] method: [ int alert(string str) { //win__::MessageBox(this.GetHWND(),str,"Ìáʾ22:",0); TApp::alert(this,str); return 0; } int ViewUpdate(param pr,string updateItem,xaserverarg__ arg) { if(updateItem=="update") { dw_base.ResetUpdateStatus(); return 1; } } string GetEntityData(param pr) { xml__ x = new xml__; x.setNativePointer(xml__::CreateInstance()); dw_base.DwUpdateAllTo(x.GetXmlDoc()); //trace("------x"); trace(x.GetXml()); return x.GetXml(); } int onload() { maint::onload(); dw_base = new xdwtable__; dw_base.setNativePointer(GetControl("dw_base")); dw_base.SetColHeaderHeight(0); dw_base.SetRowSelectorWidth(0); dw_base.SetScrollState(false); /*if (!maint::m_EntityID) { //string suserid = TApp::GetUserInfo().id; string suserid = xaserver__::GetUserId(); string susername = TApp::GetUserInfo().name; string sdate = TApp::GetCurDate(); dw_base.SetItemString(dw_base.GetRow(),"CreatorID",suserid);//Party dw_base.SetItemDisplayString(dw_base.GetRow(),"CreatorID",susername); dw_base.SetItemString(dw_base.GetRow(),"CreateDate",sdate); xml__ x=new xml__; x.setNativePointer(xml__::CreateInstance()); xaserverarg__ arg=new xaserverarg__; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("id", suserid); if(xaserver__::ExecXQuery("","[OrgInfo.xq]",arg.GetString(),x)!=1) { trace(x.GetXml()); return nil; } //alert(x.GetXml()); msxml::IXMLDOMElement e= x.GetXmlDoc().documentElement; trace(e.xml); if(e.selectSingleNode("orgid")) { string orgid= e.selectSingleNode("orgid").text; dw_base.SetItemString(1,"OrgID",orgid); } if(e.selectSingleNode("orgname")) { string orgname = e.selectSingleNode("orgname").text; dw_base.SetItemDisplayString(1,"OrgID",orgname); } }*/ } ] ] ]