From 4988c8950db8640eaeb2498b51aca2dfed2c685b Mon Sep 17 00:00:00 2001
From: xj qian <qianxj15@sina.com>
Date: 星期一, 15 七月 2024 12:10:15 +0800
Subject: [PATCH] Merge branch 'master' of http://116.62.18.175:6699/r/mis-prj

---
 jrj/project/business/Company/HrPersonAdd.cpp |  155 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 files changed, 155 insertions(+), 0 deletions(-)

diff --git a/jrj/project/business/Company/HrPersonAdd.cpp b/jrj/project/business/Company/HrPersonAdd.cpp
new file mode 100644
index 0000000..93fa835
--- /dev/null
+++ b/jrj/project/business/Company/HrPersonAdd.cpp
@@ -0,0 +1,155 @@
+use "win.vl"
+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 "frame.vl"
+use "treeview.vm"
+use "dev:code[HrEmployee.vx]"
+use "publiccode.vl"
+
+//unit vclient.vobject tpp
+unit vbusiness.xpage
+[
+	HrPersonAdd is extend frame;
+	about HrPersonAdd
+		[
+			field:
+			[
+				HrEmployee lw_obj;
+				xdwgrid__	dw_list;
+
+				xnode__	m_agentNode;	//Agent Condition
+				string	m_agentCond;	//Agent Node
+				string	m_sTxt;
+			]
+
+				method:
+			[
+				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 param)
+				{
+					SetAgent();
+					//重置工具条
+					return 1;
+				}
+
+				int  OnRetrieve()
+				{
+					control__ xc = new control__;
+					xc.setNativePointer(this.GetControl("QueryTxt"));
+					m_sTxt = xc.GetText() + "";
+					xml__ x = new xml__;
+					x.setNativePointer(x.CreateInstance());
+					xaserverarg__ arg = new xaserverarg__;
+					arg.setNativePointer(arg.CreateInstance());
+					arg.AddArg("sTxt", m_sTxt);
+					if (url::post("OrganizationStruct/select.Person", 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 OnOK(string comdid)
+				{
+					xaserverarg__ arg = new xaserverarg__;
+					arg.setNativePointer(arg.CreateInstance());
+					arg = win__::GetParam();
+					arg.AddArg("comdid", comdid);
+
+					int row = dw_list.GetNextSelectRow(1);
+					if (row < 1)
+					{
+						alert("请选择人员!");
+						return 1;
+					}
+
+					while (row > 0)
+					{
+						msxml::IXMLDOMElement e = dw_list.GetRowElement(row);
+						string sPersonID = e.selectSingleNode("PersonID").text + "";
+						string sPersonName = e.selectSingleNode("Name").text + "";
+						arg.AddArg("sPersonID", sPersonID);
+						arg.AddArg("sPersonName", sPersonName);
+						row = dw_list.GetNextSelectRow(row + 1);
+					}
+					CloseWindow();
+					return 1;
+				}
+
+				//命令发布函数
+				int OnCmdDispatch(string comdid)
+				{
+					if (comdid == "xmOk")
+						OnOK(comdid);
+					else if (comdid == "query")
+						OnRetrieve();
+					else if (comdid == "xmCancel")
+						CloseWindow();
+					return 0;
+				}
+
+				//命令处理事件
+				int OnXCommand(ref TXCommandEvent evt, int param)
+				{
+					return OnCmdDispatch(evt.pStrID);
+				}
+
+				int OnAttachEvent()
+				{
+					//绑定工具条点击事件
+					AttachEvent("WM_XCOMMAND", OnXCommand);
+					//获取焦点事件,用于重置工具条
+					AttachEvent("WM_SETFOCUS", OnSetFocus);
+				}
+
+				int OnInitial()
+				{
+					SetAgent();
+					OnAttachEvent();
+					return 1;
+				}
+
+				int onload()
+				{
+					dw_list = new xdwgrid__;
+					dw_list.setNativePointer(this.GetControl("dw_list"));
+					dw_list.openUrl("组织架构.vface/template/HrEmployee/PersonSel");
+					dw_list.SetSelectionMode(4); //3
+					dw_list.SetReadOnly(true);
+
+					OnInitial();
+					OnRetrieve();
+
+					return 1;
+				}
+			]
+
+		]
+]
\ No newline at end of file

--
Gitblit v1.9.3