þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class ReimbursementWin : public xframe { xdwgrid dw_list; xdwtable dw_arg; 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; } //q&p¹oÀm;YtQýep int OnSetFocus(ref TEvent evt, int param) { //‘Ín]åQwga SetAgent(); return 1; } int OnSave() { xml x = new xml; x.setNativePointer(xml::CreateInstance()); msxml::IXMLDOMDocument xdoc = x.GetXmlDoc(); dw_list.DwUpdateAllToEx(xdoc); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("content", x.GetXml()); //alert(x.GetXml()); //return 1; if (url::get("/sale/data/expense3/update/Reimbursement", arg.GetString(), x) != 1) { string error = x.GetXmlDoc().text; alert("err:" + error); return 1; } string str = x.GetXmlDoc().documentElement.getAttribute("text"); if (str == "true") { dw_list.ResetUpdateStatus(); alert("OÝ[XbRŸ!"); } else { alert("OÝ[XY1%!"); } return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "xmAddRow") { OpenWindow("dev:xpage[ReimbursementMaint.vx]", 0); return 1; } else if (comdid == "xmDeleteRow") { string EntityID = dw_list.GetItemString(dw_list.GetRow(), "ReimbursementBaseID"); trace(EntityID); int MB_OKCANCEL = 1; int IDOK = 1; int ret = win32::MessageBox(GetHWND(), "xn‹¤R –d?", "cÐy:", MB_OKCANCEL); if (ret == IDOK) { xml x = ViewObject::RetrieveData("/sale/data/expense3/delete/Reimbursement", "EntityID", EntityID); string str = x.GetXmlDoc().documentElement.getAttribute("finished"); if (str == "1") { alert("R –dbRŸ!"); OnRetrieve(); } else if (str == "0") { string info = x.GetXmlDoc().documentElement.getAttribute("errInfo"); alert(info); } } return 1; } else if (comdid == "xmSave") { OnSave(); } else if (comdid == "xmRefresh") { OnRetrieve(); } else if (comdid == "xmUpdateRow") { if (dw_list.GetRow() < 1) return 0; xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string ReimbursementBaseID = dw_list.GetItemString(dw_list.GetRow(), "ReimbursementBaseID"); arg.AddArg("HWND", GetHWND().toString()); arg.AddArg("ReimbursementBaseID", ReimbursementBaseID); OpenWindow("dev:xpage[ReimbursementMaint.vx]", cast(arg as int)); } else if (comdid == "xmAnalysis") { int hCursor = 0; hCursor = xutil::SetCursorWait(); string str1 = dw_list.DataAnalysis(""); xaserverarg arg1 = new xaserverarg; arg1.setNativePointer(arg1.CreateInstance()); arg1.AddArg("html", str1); int obj = cast(dw_list as int); arg1.AddArg("obj", obj.toString()); OpenWindow("dev:xpage[data.vanalysis.vx]", cast(arg1 as int)); xutil::RestoreCursor(hCursor); return 1; } return 0; } int OnDoubleClicked(ref TNotifyEvent evt, int p) { return OnCmdDispatch("xmUpdateRow"); } //‰æSџ hy»_TtranN‹Nöÿ Çgåb~gÐN*SÂep_—R0[ù^”v„R int OnBaseItemChanged(ref TNotifyEvent evt, int p) { ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); string colname = hdr.colname; string value = hdr.data; string dwname = "dw_list"; if (value != "") { msxml::IXMLDOMNodeList nlist = GetElement().selectNodes("//*[@name='" + dwname + "']/trans[@for='" + colname + "']"); ViewObject::TransData(nlist, dw_list, hdr.row, colname, value); } return 1; } //T}NäYtN‹Nö int OnXCommand(ref TXCommandEvent evt, int param) { return OnCmdDispatch(evt.pStrID); } int OnAttachEvent() { //~Ñ[š]åQwgap¹QûN‹Nö AttachEvent("WM_XCOMMAND", OnXCommand); //ƒ·SÖq&p¹N‹Nöÿ u(NŽ‘Ín]åQwga AttachEvent("WM_SETFOCUS", OnSetFocus); AttachEvent("dw_list", "DWV_ITEMCHANGED", OnBaseItemChanged); AttachEvent("dw_list", "DWV_DOUBLECLICKED", OnDoubleClicked);//ˆLSÌQû } string GetQueryArg() { dw_arg.AcceptText(); xml x = new xml; x.setNativePointer(xml::CreateInstance()); dw_arg.DwUpdateAllTo(x.GetXmlDoc()); return x.GetXml(); } int OnRetrieve() { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); //arg.AddArg("Status","1"); if (getUrl("/sale/data/Expense3/view/Reimbursement", 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("/sale/view/Expense3/reimbursement/maint"); //dw_list.SetItemString(1,"SaveType","SŸNö"); dw_list.SetColumnState("ReimbursementBaseID", false); dw_list.SetColumnState("RBItemID", false); OnRetrieve(); OnAttachEvent(); return 1; } int onloaded() { SetAgent(); return 1; } }; ]