þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class TestExpenseWin : public frame { 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(); SetAgent("list", GetEntityID(1)); return 1; } string GetEntityName(int pr) { return "TestExpense"; } string GetEntityID(int pr) { int row = dw_list.GetRow(); string id = dw_list.GetItemString(row, "TestExpensID"); //alert(id); return id; } 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/Test", 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) { string s = publiccode::GetUser().deptname; int hCursor = 0; string userno = publiccode::GetUser().no; //alert(s); /*if(s ==""R¡è" || s =="~Ït[¤"){ if(comdid=="xmAddRow") { int row =dw_list.GetRowCount(); dw_list.InsertRow(0); dw_list.SetItemString(row+1,"SaveType","SŸNö"); dw_list.SetItemString(row+1,"ReportType","mK‹Õb¥TJ"); string sdate = publiccode::GetCurrentDate(); dw_list.SetItemString(row+1,"CreateDate",sdate); string suserid = publiccode::GetUser().id; string susername = publiccode::GetUser().name; dw_list.SetItemString(row+1,"CreateID",suserid); dw_list.SetItemDisplayString(row+1,"CreateID",susername); string supply = dw_list.GetItemString(row,"TestPartyID"); dw_list.SetItemString(row+1,"TestPartyID",supply); string date = dw_list.GetItemString(row,"TestDate"); dw_list.SetItemString(row+1,"TestDate",date); return 1; } else if(comdid=="xmDeleteRow") { dw_list.DeleteRow(0); return 1; } else if (comdid == "xmSave") { OnSave(); } else*/ if (comdid == "action:bill.new" || comdid == "xmAdd") { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("HWND", GetHWND().toString()); int pa = arg.getNativePointer(); if (s.find("NR¡") >= 0) { OpenWindow("dev:xpage[TestExpenseBase.vx]", pa); } else { OpenWindow("dev:xpage[TestExpenseBase2.vx]", cast(arg as int)); } } else if (comdid == "action:bill.delete" || comdid == "xmDelete") { string TestExpensID1 = dw_list.GetGuid(dw_list.GetRow()); int MB_OKCANCEL = 1; int IDOK = 1; int ret = win32::MessageBox(GetHWND(), "xn‹¤R –dN§TÁmK‹Õ9?", "cÐy:", MB_OKCANCEL); if (ret == IDOK) { ViewObject::RetrieveData("/sale/data/expense3/delete/TestExpens", "EntityID", TestExpensID1); OnRetrieve(); } } //} else if (comdid == "action:bill.open" || comdid == "xmEdit") { arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string TestExpensID = dw_list.GetGuid(dw_list.GetRow()); arg.AddArg("EntityID", TestExpensID); arg.AddArg("HWND", GetHWND().toString()); pa = arg.getNativePointer(); if (s.find("NR¡") >= 0) { OpenWindow("dev:xpage[TestExpenseBase.vx]", pa); } else { arg.setNativePointer(arg.CreateInstance()); arg.AddArg("EntityID", TestExpensID); arg.AddArg("HWND", GetHWND().toString()); OpenWindow("dev:xpage[TestExpenseBase2.vx]", cast(arg as int)); } } else if (comdid == "action:bill.refresh" || comdid == "xmRefresh") { OnRetrieve(); } else if (comdid == "action:bill.xmSaveAs" || comdid == "xmSaveAs") { if (userno == "00601" || userno == "00701" || userno == "00603" || userno == "admin" || userno == "00609" || userno == "00610") { dw_list.SaveAs(""); return 1; } } else if (comdid == "action:bill.xmAnalysis" || comdid == "xmAnalysis") { if (userno == "00601" || userno == "00701" || userno == "admin") { hCursor = xutil::SetCursorWait(); string str = dw_list.DataAnalysis(""); xaserverarg arg1 = new xaserverarg; arg1.setNativePointer(arg1.CreateInstance()); arg1.AddArg("html", str); 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; } } else if (comdid == "action:bill.Copy") { TestExpensID = dw_list.GetGuid(dw_list.GetRow()); xaserverarg argc = new xaserverarg; argc.setNativePointer(argc.CreateInstance()); argc.AddArg("HWND", GetHWND().toString()); argc.AddArg("TestExpensID", TestExpensID); int pac = argc.getNativePointer(); OpenWindow("dev:xpage[TestExpenseBase.vx]", pac); return 1; } else if (comdid.find("action:", 0) >= 0) { if (dw_list.GetRow() < 1) return 0; int ret1 = ProcessFlowAction(comdid, 1); if (comdid == "action:bill.check.ask") { win32::PostMessage(GetFrameWindow().GetHWND(), 0x401, "xmRefresh", 0); } return ret1; } return 0; } //‰æ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 OnDoubleClicked(ref TNotifyEvent evt, int p) { int hCursor = xutil::SetCursorWait(); OnCmdDispatch("xmEdit"); xutil::RestoreCursor(hCursor); return 1; } int OnRowChanged(ref TNotifyEvent evt, int p) { ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); int row = hdr.row; SetAgent("list", dw_list.GetItemString(row, "TestExpensID")); return 1; } 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û AttachEvent("dw_list", "DWV_ROWFOCUSCHANGED", OnRowChanged); } 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("QueryTxt", GetControl("search").GetText()); arg.AddArg("QueryArg", GetQueryArg()); //arg.AddArg("Status","1"); trace("==QueryTxt==" + GetControl("search").GetText() + "===QueryArg===" + GetQueryArg()); if (getUrl("/sale/data/Expense3/view/Test", arg.GetString(), x) != 1) { trace(x.GetXmlDoc().text); return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); } return 1; } int onload() { dw_list = GetControl("dw_list"); dw_list.openUrl("/sale/view/Expense3/test/list"); //dw_list.SetItemString(1,"SaveType","SŸNö"); 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); OnRetrieve(); OnAttachEvent(); return 1; } int onloaded() { //SetAgent(); SetAgent("list", dw_list.GetItemString(1, "TestExpensID")); return 1; } }; ]