use "xcontrol.vframe.vbusiness.vd"
use "xbase.vframe.vbusiness.vd"
use "base.view.vd"

unit trade 
[
	class MessageBusinessWin :  public xframe
	{
		//xdwgrid	dw_list;
		xdwtable dw_base;
		xnode	m_agentNode;	//Agent Condition
		xwin		sheet;
		bool      readonly;
		string  	MessageID;
		string 	bill;
	
		int SetAgent()
		{
			return 1;
	
			string xfNodeAgentArea  = "agentarea";
			xnode anode = GetAgentNode(xfNodeAgentArea);
			if(m_agentNode)
			{
				SetAgentNodeContent (anode,m_agentNode);
			}
			else
			{
				msxml::IXMLDOMElement xframeElement =  GetElement();
				msxml::IXMLDOMElement agent = xframeElement.selectSingleNode("agent/"+xfNodeAgentArea+"[1]/*");
				if(agent)
				{
					string s = agent.xml;
					m_agentNode =  SetAgentNodeContent (anode,s);
				}
			}
			return 1;
		}

		//½¹µã¼¤»î´¦Àíº¯Êý
		int OnSetFocus(ref TEvent evt,int param)
		{
			//ÖØÖù¤¾ßÌõ
			SetAgent();
			return 1;
		}

		int OnItemChanged(ref TNotifyEvent evt,int p)
		{
			ref DWNMHDR  hdr = trust(evt.pnmh as ref DWNMHDR);
			string colname=hdr.colname;
			string value = hdr.data;
			int row = hdr.row;
			
			if(colname=="Category")
			{
				if(value=="¹©Ó¦ÉÌÉêÇë")
				{
					dw_base.SetItemString(1,"Receiver","fdp-011");
					dw_base.SetItemString(1,"Subject","ÇëÌí¼Ó");
				}
				return 1;
			
				bool changed = false;
				xml x = ViewObject::RetrieveData("/sale/data/business/message/maint","typ",value);
				if(x)
				{
					string xpage_ = x.GetXmlDoc().documentElement.getAttribute("xpage");
					string templaterpt = x.GetXmlDoc().documentElement.getAttribute("template");
					if(xpage_ !="")
					{
						string s = "<hbox name='agent'>";
						s += "<xpage  url='" + xpage_ + "'   name='contentex'/>";
						s += "</hbox>";
						SetAgentNodeContent (GetAgentNode("agent"),s);
						SwitchLayer("sheet2","frame");
						sheet = GetChildWin("contentex");
						changed = true;
					}
				}
				if(!changed)
				{
					sheet  = 0;
					SwitchLayer("sheet1","frame");
				}
			}
				
			return 1;
		}
				
		//ÃüÁî·¢²¼º¯Êý
		int OnCmdDispatch(string comdid)
		{
			if(comdid=="xmSend")
			{
				if(!readonly) OnSend();
				return 1;
			}
			else if(comdid=="xmSave")
			{
				if(!readonly) OnSave();
				return 1;
			}
			else if(comdid=="xmCancel")
			{
				CloseWindow();
				return 1;
			}
			if(sheet && comdid !="")
			{
				int ret = win32::SendMessage(sheet.GetHWND(),0x401,comdid,0);
				if(ret) return ret;
			}
					
			return 0;
		}
		
		//ÃüÁî´¦Àíʼþ
		int OnXCommand(ref TXCommandEvent evt,int param)
		{
			return OnCmdDispatch(evt.pStrID);
		}
		
			
		int OnDWClick(ref TNotifyEvent evt,int p)
		{
			ref DWNMHDR  hdr = trust(evt.pnmh as ref DWNMHDR);
			string value = hdr.data;
			string colname = hdr.colname;
			if (value == "ÊÕ¼þÈË:")
			{
			
				xaserverarg arg2 = new xaserverarg;
				arg2.setNativePointer(arg2.CreateInstance());	
				xaserverarg parg2 = GetParam();
				OpenWindow("dev:xpage[UserGroupPersonSelect.vx]",cast(arg2 as int));
				
				if(arg2.GetArgString("comdid")=="xmOk")
				{
					string data = arg2.GetArgString("data");
					xml x2 = new xml;
					x2.setNativePointer(xml::CreateInstance());
					x2.LoadXml(data);
					msxml::IXMLDOMNodeList nodes = x2.GetXmlDoc().selectNodes("/root/item");
					trace(x2.GetXml());
					
					int len = nodes.length;
				
					string Names = "";
					for(int i=0;i<len; i++)
					{
						msxml::IXMLDOMElement t= nodes.item(i);
						
						if(t.getAttribute("Name"))
						{
							string Name = t.getAttribute("Name");
							if(Names=="") 
								Names = Name;
							else if(Names.find(Name) < 0) Names+=";"+Name;
						}
					}
					dw_base.SetItemString(1,"Receiver",Names);		
				}
				return 1;
			}
			
		}
							
		int OnAttachEvent()
		{
			//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
			AttachEvent("WM_XCOMMAND",OnXCommand);
			//»ñÈ¡½¹µãʼþ£¬ÓÃÓÚÖØÖù¤¾ßÌõ
			AttachEvent("WM_SETFOCUS",OnSetFocus);
			
			AttachEvent("dw_base","DWV_ITEMCHANGED",OnItemChanged);
			AttachEvent("dw_base","DWV_CLICKED",OnDWClick);
			
			return 1;
		}
		
		int OnSave()
		{
			xml x = new xml;
			x.setNativePointer(xml::CreateInstance());
			xaserverarg arg1 = MakeArg("scriptbox");
			string murl = "/sale/data/Business/message/update"; 
			if(MessageID=="") murl = "/sale/data/Business/message/add2"; 
			if(url::get(murl, arg1.GetString(),x)!=1)
			{
				alert("error1:\r\n"+x.GetXmlDoc().text);
				return 1;
			}
			if(MessageID=="") MessageID= dw_base.GetGuid(1);
			alert("Òѱ£´æµ½²Ý¸åÏä");
			return 1;
			
			xaserverarg arg = new xaserverarg;
			arg.setNativePointer(arg.CreateInstance());
			if(sheet)
			{
				int val = cast(arg as int);
				win32::SendMessage(sheet.GetHWND(),0x401,"GetEntityData:"+val.toString(),0);
				string data = arg.GetArgString("EntityData");
				murl = "/sale/data/Business/message/attach/update";
				arg1.AddArg("url","message/attach");
				arg1.AddArg("content",data);
				arg1.AddArg("param",MessageID);
				if(url::get(murl, arg1.GetString(),x)!=1)
				{
					alert("error2:\r\n"+x.GetXmlDoc().text);
					return 1;
				}
			}
			return 1;
		}
		
		int OnSend()
		{
			xml x = new xml;
			x.setNativePointer(xml::CreateInstance());
			//xaserverarg arg1 = MakeArg("outbox");
			xaserverarg arg1 = MakeArg("inbox");
			string murl = "/sale/data/Business/message/update"; 
			if(MessageID=="") murl = "/sale/data/Business/message/add2"; 
				
			trace(arg1.GetString());
				
			if(url::get(murl, arg1.GetString(),x)!=1)
			{
				alert("error1:\r\n"+x.GetXmlDoc().text);
				return 1;
			}
			if(MessageID=="") MessageID= dw_base.GetGuid(1);
			alert("·¢ËÍÍê³É");
			CloseWindow();
			
			return 1;
			
			xaserverarg arg = new xaserverarg;
			arg.setNativePointer(arg.CreateInstance());
			if(sheet)
			{
				int val = cast(arg as int);
				win32::SendMessage(sheet.GetHWND(),0x401,"GetEntityData:"+val.toString(),0);
				string data = arg.GetArgString("EntityData");
				murl = "/sale/data/Business/message/attach/update";
				arg1.AddArg("url","message/attach");
				arg1.AddArg("content",data);
				arg1.AddArg("param",MessageID);
				if(url::get(murl, arg1.GetString(),x)!=1)
				{
					alert("error2:\r\n"+x.GetXmlDoc().text);
					return 1;
				}
			}
			return 1;
		}
				
		xaserverarg MakeArg(string folder)
		{
			//ThingImpl:AddMessage($MessageID,$Folder,$EntityNo, $EntityID, $Subject, $Category, $Reciever, $Content)
			//ThingImpl:UpdateMessage($MessageID,$Folder,$EntityNo, $EntityID, $Subject, $Category, $Reciever, $Content)
				
			xaserverarg arg = new xaserverarg;
			arg.setNativePointer(arg.CreateInstance());
			
			if(MessageID=="")
			{
				dw_base.SetGuid(1,ViewObject::GetGuid());
				arg.AddArg("MessageID", dw_base.GetGuid(1));
				arg.AddArg("EntityID", dw_base.GetGuid(1));
			}
			else
			{
				arg.AddArg("MessageID", MessageID);
				arg.AddArg("EntityID", MessageID);
			}
			
			arg.AddArg("Folder", folder);
			arg.AddArg("EntityNo", dw_base.GetItemString(1,"EntityNo"));
			arg.AddArg("Subject", dw_base.GetItemString(1,"Subject"));
			arg.AddArg("Category", dw_base.GetItemString(1,"Category"));
			arg.AddArg("Reciever", dw_base.GetItemString(1,"Receiver"));
			arg.AddArg("Note", dw_base.GetItemString(1,"Note"));
			//arg.AddArg("Content", dw_base.GetItemString(1,"Content"));
			arg.AddArg("Content",GetControl("content").GetText());
			arg.AddArg("Content2",bill);
			return arg;
		}
			
		int  OnRetrieve()
		{
			xml x = new xml;
			x.setNativePointer(xml::CreateInstance());
			xaserverarg arg = new xaserverarg;
			arg.setNativePointer(arg.CreateInstance());	
			arg.AddArg("id",MessageID);
			if (getUrl("/sale/data/business/list/fetch",arg.GetString(),x)!=1)
			{
				trace(x.GetXmlDoc().text);
				return -1;
			}else	
			{
				dw_base.Retrieve(x);
				dw_base.Redraw();
				if(readonly) dw_base.SetReadOnly(true);
			
				if(x.GetXmlDoc().selectSingleNode("root/Content"))
				{
					string str = x.GetXmlDoc().selectSingleNode("root/Content").text;
					str = str.replace("\n","\r\n");
					GetControl("content").SetText(str);
				}
				//alert(x.GetXml());
				if(x.GetXmlDoc().selectSingleNode("root/Content2"))
				{
					
					string str2 = x.GetXmlDoc().selectSingleNode("root/Content2").text;
					string tm="";
					string EntityID="";
					string Category="";
					int pos = str2.find("EntityID=");
					if(pos >= 0)
					{
						tm = str2.mid(pos+"EntityID=".length(),64);
						if(tm.find(" ")>0) tm = tm.left(tm.find(" "));
						EntityID=tm;
					}
					pos = str2.find("Category=");
					if(pos >= 0)
					{
						tm = str2.mid(pos+"Category=".length(),64);
						if(tm.find(" ")>0) tm = tm.left(tm.find(" "));
						Category=tm;
					}
					trace("EntityID:"+EntityID);
					trace("Category:"+Category);
					if(EntityID != "" && Category != "")
					{
						string eleStr = "<row EntityID='"+EntityID+"'";
						eleStr += " category='" + Category + "'/>";
						bill = "EntityID="+EntityID+" Category=" + Category;
						ShowDetail(eleStr);
					}
				}
			}
			return 1;
		}

		int ShowDetail(string eleStr)
		{
			xaserverarg arg=new xaserverarg;
			arg.setNativePointer(arg.CreateInstance());	
			arg.AddArg("content",eleStr);
			xml doc=new xml;
			doc.setNativePointer(xml::CreateInstance());				
			if(getUrl("/sale/data/vpage/vstart/task",arg.GetString(),doc)!=1)
			{
				trace("error->:"+doc.GetXml());
				return 0;
			}
			if(doc.GetXml() == "")
				return -1;
			
			htmlctrl ht = GetControl("taskinfo");
			ht.SetContent(doc.GetXml());
			ht.Redraw();
			
			return 1;
		}
			
		int onload()
		{
			dw_base = GetControl("dw_base");
			dw_base.openUrl("/sale/view/business3/template/message/maint");
			dw_base.SetColHeaderHeight(0);
			dw_base.SetRowSelectorWidth(0);
			dw_base.SetHScrollState(false);
			dw_base.SetVScrollState(false);
			
			dw_base.SetItemString(1,"Category","ÆÕͨ");
		
			OnAttachEvent();	
			
			readonly = false;
			MessageID = "";
			bill = "";
			
			SetAgent();			
			if(GetParam())
			{
				xaserverarg arg = GetParam();
				MessageID = arg.GetArgString("id");
				if(arg.GetArgString("readonly")=="1") readonly=true;
				OnRetrieve();
			
				if(arg.GetArgString("EntityID")!="")
				{
					string str = "<row EntityID='"+arg.GetArgString("EntityID")+"'";
					str += " category='" + arg.GetArgString("EntityName")+"'/>";
					bill = "EntityID="+arg.GetArgString("EntityID")+" Category=" + arg.GetArgString("EntityName");
					ShowDetail(str);
				}
			}
			
			return 1;
		}
		
		int onloaded()
		{
			
			return 1;
		}		
	};
]