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

unit trade 
[
	class FlowTermImport :  public xframe
	{
		xdwgrid	dw_list;
		string stype;
		string sdata;
		string flowid;
		string datacolumn;
		string displaycolumn;
		xdwgrid dw_obj;
	
		xnode	m_agentNode;	//Agent Condition

		int SetAgent()
		{
			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 OnOK(string comdid)
		{
			int row = dw_list.GetNextSelectRow(1);
			if(row < 1 && dw_list.GetRowCount()==1) row = 1;
			if (row<1)
			{
				alert("ÇëÑ¡ÔñÏî!");
				return 1;
			}	
			
			while (row>0)
			{
				int nrow = dw_obj.InsertRow(0);
				int columnCount = dw_obj.GetColumnCount();
				for(int i=1;i<=columnCount;i++)
				{
					if(dw_list.GetColumnName(i)=="guid") continue;
					dw_obj.SetItemString(nrow,i,dw_list.GetItemString(row,i));
					if(dw_list.GetItemDisplayString(row,i)!="")
						dw_obj.SetItemDisplayString(nrow,i,dw_list.GetItemDisplayString(row,i));
				}
				row = dw_list.GetNextSelectRow(row + 1);
			}
			
			CloseWindow();
			return 1;
		}
				
		//ÃüÁî·¢²¼º¯Êý
		int OnCmdDispatch(string comdid)
		{
			if (comdid=="xmOk")
			{
				OnOK(comdid);
				return 1;
			}
			else if (comdid=="xmCancel")
			{
				CloseWindow();
				return 1;
			}
			return 0;
		}
		
		//ÃüÁî´¦Àíʼþ
		int OnXCommand(ref TXCommandEvent evt,int param)
		{
			return OnCmdDispatch(evt.pStrID);
		}
		
		int OnAttachEvent()
		{
			//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
			AttachEvent("WM_XCOMMAND",OnXCommand);
			//»ñÈ¡½¹µãʼþ£¬ÓÃÓÚÖØÖù¤¾ßÌõ
			AttachEvent("WM_SETFOCUS",OnSetFocus);
		}
		
		int  OnRetrieve()
		{
			xml x = new xml;
			x.setNativePointer(xml::CreateInstance());
			xaserverarg arg = new xaserverarg;
			arg.setNativePointer(arg.CreateInstance());	
			
			arg.AddArg("stype",stype);
			arg.AddArg("sdata",sdata);
			arg.AddArg("flowID",flowid);

			if (getUrl("/sale/data/Flow3/retrieve/flowimport",arg.GetString(),x)!=1)
			{
				trace(x.GetXmlDoc().text);
				return -1;
			}else	
			{
				dw_list.Retrieve(x);
				dw_list.Redraw();
				dw_list.SetReadOnly(true);
			}
			return 1;
		}
		
		int onload()
		{
			
			dw_list = GetControl("dw_list");
			//dw_list.openUrl("xxx");
			if(GetParam())
			{
				xaserverarg arg = GetParam();
				stype = arg.GetArgString("stype");
				sdata = arg.GetArgString("sdata");
				flowid = arg.GetArgString("flowid");
			
				string dwname = arg.GetArgString("dwname");
				int dwobj = arg.GetArgString("dwobj").toInt();
				dw_obj = cast(dwobj as xdwgrid);
			
				dw_list.openUrl(dwname);
				OnRetrieve();
				dw_list.SetSelectionMode(3);
			}
		
			OnAttachEvent();	
			
			return 1;
		}
		
		int onloaded()
		{
			//SetAgent();			
			
			return 1;
		}		
	};
]