use "win.vl"
use "treeview.vm"
use "dev:vm[xdwgrid.vm]"
use "dev:vm[xdwtable.vm]"
use "pref.vl"
use "dev:vm[xml.vm]"
use "dev:vm[xaserverarg.vm]"
use "dev:vm[xaserver.vm]"
use "dev:vm[xutil.vm]"
use "list.vl"
unit vbusiness.xpage
[
	CompanyList is extend list;
	about CompanyList
		[
			control:

		method:
			[
				xdwgrid__	dw_list;
				string	m_agentCond;	//Agent Node

				int SetAgent()
				{
					string xfNodeAgentArea = "agentarea";
					xnode__ anode = new xnode__;
					anode.setNativePointer(GetAgentNode(xfNodeAgentArea));
					var xframeElement = GetElement();
					var agent = xframeElement.selectSingleNode("agent/" + xfNodeAgentArea + "[1]/*");
					if (agent)
					{
						string s = agent.xml;
						SetAgentNodeContent(anode, s);
					}
					return 1;
				}

				//½¹µã¼¤»î´¦Àíº¯Êý
				int OnSetFocus(ref TEvent evt, int p)
				{
					SetAgent();

					//ÖØÖù¤¾ßÌõ
					return 1;
				}

				int  OnRetrieve()
				{
					xml__ x = new xml__;
					x.setNativePointer(x.CreateInstance());
					xaserverarg__ arg = new xaserverarg__;
					arg.setNativePointer(arg.CreateInstance());
					//arg.AddArg("sType",c_type);
					if (url::get("OrganizationStruct/list.CompanyInfo", arg.GetString(), x) != 1)
					{
						trace(x.GetXmlDoc().text);
						return -1;
					}
					else
					{
						//trace(x.GetXml());
						dw_list.Retrieve(x);
						dw_list.Redraw();
					}
					dw_list.SetReadOnly(true);
					return 1;
				}

				//xgridexË«»÷
				int OnDoubleClicked(ref TNotifyEvent evt, int p)
				{
					ref DWNMHDR  hdr = evt.pnmh;
					int row = hdr.row;
					if (row < 1 || row > dw_list.GetRowCount())
						return 1;
					msxml::IXMLDOMElement e = dw_list.GetRowElement(row);
					string sguid = e.SelectSingleNode("@guid").text;
					xaserverarg__ arg = new xaserverarg__;
					arg.setNativePointer(arg.CreateInstance());
					arg.AddArg("operate", "modify");
					arg.AddArg("guid", sguid);
					//trace(sguid);
					//trace(row.toString());
					//win__::OpenWindow("dev:xpage[CompanyMaint.vx]",arg);
					openUrl("×éÖ¯¼Ü¹¹.vface/xpage/CompanyInfo/maint", arg);
					return 1;
				}

				//ÃüÁî·¢²¼º¯Êý
				int OnCmdDispatch(string comdid)
				{
					xaserverarg__ arg = new xaserverarg__;
					arg.setNativePointer(arg.CreateInstance());
					msxml::IXMLDOMElement e;
					string sguid;
					string sName;

					if (comdid == "AddRow")
					{
						arg.AddArg("operate", "new0");
						arg.AddArg("guid", "");
						//win__::OpenWindow("dev:xpage[CompanyMaint.vx]",arg);
						openUrl("×éÖ¯¼Ü¹¹.vface/xpage/CompanyInfo/maint", arg);
					}
					else if (comdid == "ModifyRow")
					{
						int row = dw_list.GetNextSelectRow(1);
						if (row < 1)
						{
							row = dw_list.GetRow();
							if (row < 1)
							{
								win__::MessageBox(GetHWND(), "ÇëÑ¡ÖÐÒªÐ޸ĵĹ«Ë¾ÐУ¡", "Ìáʾ", 0);
								return -1;
							}
						}
						e = dw_list.GetRowElement(row);
						sguid = e.SelectSingleNode("@guid").text;
						arg.AddArg("operate", "modify");
						arg.AddArg("guid", sguid);
						//win__::OpenWindow("dev:xpage[CompanyMaint.vx]",arg);
						openUrl("×éÖ¯¼Ü¹¹.vface/xpage/CompanyInfo/maint", arg);
					}
					else if (comdid == "DeleteRow")
					{
						int row = dw_list.GetNextSelectRow(1);
						if (row < 1)
						{
							row = dw_list.GetRow();
							if (row < 1)
							{
								win__::MessageBox(GetHWND(), "ÇëÑ¡ÖÐҪɾ³ýµÄ¹«Ë¾ÐУ¡", "Ìáʾ", 0);
								return -1;
							}
						}
						e = dw_list.GetRowElement(row);

						sguid = e.SelectSingleNode("@guid").text;
						sName = e.selectSingleNode("Name").text;

						sName += "";
						int  MB_YESNO = 0x00000004;
						int  IDYES = 6;
						if (win__::MessageBox(GetHWND(), "È·ÈÏҪɾ³ý¹«Ë¾ " + sName + " µÄÐÅÏ¢Âð£¿", "Ìáʾ", MB_YESNO) != IDYES) return 1;
						arg.AddArg("guid", sguid);
						trace(sguid);
						xml__ x1 = new xml__;
						x1.setNativePointer(x1.CreateInstance());
						if (url::post("OrganizationStruct/delete.CompanyInfo", arg.GetString(), x1) != 1)
						{
							string error = x1.GetXmlDoc().text;
							trace(error);
						}
						else
						{
							win__::MessageBox(GetHWND(), "ɾ³ý³É¹¦£¡", "Ìáʾ", 0);
							dw_list.DeleteRow(row);
						}

					}
					else if (comdid == "Refresh")
					{
						OnRetrieve();
					}
					return 0;
				}

				//ÃüÁî´¦Àíʼþ
				int OnXCommand(ref TXCommandEvent evt, int p)
				{
					return OnCmdDispatch(evt.pStrID);
				}

				int OnAttachEvent()
				{
					//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
					AttachEvent("WM_XCOMMAND", OnXCommand);
					//»ñÈ¡½¹µãʼþ£¬ÓÃÓÚÖØÖù¤¾ßÌõ
					AttachEvent("WM_SETFOCUS", OnSetFocus);
					//Ë«»÷
					AttachEvent("dw_list", "DWV_DOUBLECLICKED", OnDoubleClicked);
				}

				int OnInitial()
				{
					SetAgent();
					OnAttachEvent();

					return 1;
				}

				int onload()
				{
					dw_list = new xdwgrid__;
					dw_list.setNativePointer(this.GetControl("dw_list"));

					//xaserverarg__ args = new xaserverarg__;
					//args.setNativePointer(args.CreateInstance());		
					//args.AddArg("type","CompanyList");
					//dw_list.SetDataObject(GetServerUrl(),pref::getPref("HumanResource/GetHrObject",args.GetString()));
					dw_list.openUrl("×éÖ¯¼Ü¹¹.vface/template/company/list");
					dw_list.SetSelectionMode(1);
					dw_list.SetReadOnly(true);

					OnInitial();
					OnRetrieve();

					return 1;
				}

			]

		]
]