þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class BasicFareList : public frame { xdwgrid dw_list; xdatetimepick sdate; xdatetimepick edate; xdwtable dw_arg; xnode m_agentNode; //Agent Condition string DatePicker; 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; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "xmRefresh") { OnRetrieve(DatePicker); } else if (comdid == "xmAdd") { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("HWND", GetHWND().toString()); int pa = arg.getNativePointer(); OpenWindow("dev:xpage[maint.basicfare.vx]", pa); } else if (comdid == "xmEdit") { arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string BasicFareID = dw_list.GetGuid(dw_list.GetRow()); arg.AddArg("BasicFareID", BasicFareID); arg.AddArg("HWND", GetHWND().toString()); pa = arg.getNativePointer(); OpenWindow("dev:xpage[maint.basicfare.vx]", pa); } else if (comdid == "xmDelete") { string EntityID = dw_list.GetGuid(dw_list.GetRow()); int MB_OKCANCEL = 1; int IDOK = 1; int ret = win32::MessageBox(GetHWND(), "xn‹¤R –dWúg,9u(?", "cÐy:", MB_OKCANCEL); if (ret == IDOK) { ViewObject::RetrieveData("/sale/data/expense3/delete/basicfare", "EntityID", EntityID); OnRetrieve(DatePicker); } } else if (comdid == "xmAnalysis") { OnAnalysis(); return 1; } return 0; } int OnAnalysis() { int hCursor = 0; hCursor = xutil::SetCursorWait(); string str = dw_list.DataAnalysis(""); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("html", str); int obj = cast(dw_list as int); arg.AddArg("obj", obj.toString()); OpenWindow("dev:xpage[data.vanalysis.vx]", cast(arg as int)); xutil::RestoreCursor(hCursor); return 1; } int OnDoubleClicked(ref TNotifyEvent evt, int p) { ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); string colname = hdr.colname; int row = hdr.row; int hCursor = xutil::SetCursorWait(); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string BasicFareID = dw_list.GetGuid(row); arg.AddArg("BasicFareID", BasicFareID); int pa = arg.getNativePointer(); OpenWindow("dev:xpage[maint.basicfare.vx]", pa); xutil::RestoreCursor(hCursor); 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_DOUBLECLICKED", OnDoubleClicked); AttachEvent("cbx_state", "CBN_SELCHANGE", OnDatePicker); } int OnDatePicker(ref TCommandEvent evt, int lParam) { int h = xcombobox::GetCurSel(evt.hCtrl); if (h > -1) { string txt = xcombobox::GetLBText(evt.hCtrl, h); if (txt == "b¥•eåg") { DatePicker = "BasicFareID"; OnRetrieve(DatePicker); } else if (txt == "_UQeeåg") { DatePicker = "CreateDate"; OnRetrieve(DatePicker); } } return 1; } string GetQueryArg() { dw_arg.AcceptText(); xml x = new xml; x.setNativePointer(xml::CreateInstance()); dw_arg.DwUpdateAllTo(x.GetXmlDoc()); return x.GetXml(); } int OnRetrieve(string DatePicker) { /*xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string sdatetxt = ""; string edatetxt = ""; if(sdate.IsChecked()) sdatetxt = sdate.GetText(); if(edate.IsChecked()) edatetxt = edate.GetText() xcontrol query = GetControl("sl_search"); string keyword = query.GetText(); //arg.AddArg("keyword",keyword); //arg.AddArg("sdate",sdatetxt); //arg.AddArg("edate",edatetxt); arg.AddArg("QueryTxt",keyword); arg.AddArg("QueryArg",GetQueryArg()); arg.AddArg("DatePicker",DatePicker); trace(keyword+"====="+GetQueryArg()+"====="+DatePicker); int hCursor = xutil::SetCursorWait();;*/ xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("QueryTxt", GetControl("sle_search").GetText()); arg.AddArg("QueryArg", GetQueryArg()); arg.AddArg("DatePicker", DatePicker); trace(GetQueryArg() + DatePicker); if (getUrl("/sale/data/expense3/view/basicFare", arg.GetString(), x) != 1) { trace(x.GetXmlDoc().text); return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); dw_list.SetReadOnly(true); } //xutil::RestoreCursor(hCursor); return 1; } int onload() { dw_arg = GetControl("dw_arg"); dw_arg.openUrl("/sale/view/AR/template/queryarg"); dw_arg.SetColHeaderHeight(0); dw_arg.SetRowSelectorWidth(0); dw_arg.SetHScrollState(false); dw_arg.SetVScrollState(false); dw_arg.SetItemString(1, "DateType", "g,g"); sdate = GetControl("sdate"); edate = GetControl("edate"); dw_list = GetControl("dw_list"); dw_list.openUrl("/sale/view/expense3/BasicFare/list"); string currdate = publiccode::GetCurrentDate(); int curryear = currdate.mid(0, 4).toInt(); //sdate.SetDatetime(curryear - 1,1,1); OnAttachEvent(); OnRetrieve(DatePicker); dw_list.SetReadOnly(true); return 1; } int onloaded() { SetAgent(); return 1; } }; ]