þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class SampleFeeEdit : public frame { xdwtable dw_base; xnode m_agentNode; //Agent Condition int hObject; bool updated; 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() { string sampleno = dw_base.GetItemString(1, "SampleNo"); xml x = new xml; if (sampleno == "") { x = ViewObject::RetrieveData("/sale/data/expense3/view/MakeSampleNo"); sampleno = x.GetXmlDoc().text; dw_base.SetItemString(1, "SampleNo", sampleno); } x.setNativePointer(xml::CreateInstance()); dw_base.AcceptText(); dw_base.DwUpdateAllTo(x.GetXmlDoc()); xaserverarg arg = new xaserverarg; arg.setNativePointer(xaserverarg::CreateInstance()); arg.AddArg("content", x.GetXml()); if (url::get("/sale/data/expense3/update/samplefee", 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_base.ResetUpdateStatus(); dw_base.Redraw(); updated = true; alert("OÝ[XbRŸ!"); } else { alert("OÝ[XY1%!"); } return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "xmClose") { if (updated) win32::SendMessage(hObject, 0x401, "xmRefresh", 0); CloseWindow(); return 1; } else if (comdid == "xmSave") { OnSave(); } return 0; } //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); } int OnRetrieve(string SampleFeeID) { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("SampleID", SampleFeeID); if (getUrl("/sale/data/expense3/view/getSaplefeeByID", arg.GetString(), x) != 1) { trace(x.GetXmlDoc().text); return -1; } else { dw_base.Retrieve(x); dw_base.Redraw(); } return 1; } int onload() { dw_base = GetControl("dw_base"); dw_base.openUrl("/sale/view/expense3/Sample/Base"); dw_base.SetColHeaderHeight(0); dw_base.SetRowSelectorWidth(0); dw_base.SetHScrollState(false); dw_base.SetVScrollState(false); string SampleFeeID = ""; hObject = 0; if (GetParam()) { xaserverarg arg = new xaserverarg; arg.setNativePointer(GetParam()); SampleFeeID = arg.GetArgString("SampleFeeID"); hObject = arg.GetArgString("HWND").toInt(); } if (SampleFeeID != "") { OnRetrieve(SampleFeeID); } else { string suserid = publiccode::GetUser().id; string susername = publiccode::GetUser().name; string sdate = publiccode::GetCurrentDate(); dw_base.SetItemString(1, "SampleDate", sdate); dw_base.SetItemString(1, "CreateDate", sdate); dw_base.SetItemString(1, "CreatorID", suserid); } OnAttachEvent(); updated = false; return 1; } int onloaded() { SetAgent(); return 1; } }; ]