þÿ#include <wobject/xstring.hpp> #include <xcontrol/xtreeview.hpp> #include <xcontrol/xdwgrid.hpp> #include <wobject/xdouble.hpp> #include <xcontrol/xlayersheet.hpp> #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" #include "viewobject/view.base.hpp" using xml = KXMLDOMDocument; class __declspec(dllexport) ReimbursementWin : public xframe { public: xdwgrid dw_list; xdwtable dw_arg; xnode m_agentNode; //Agent Condition public: ReimbursementWin(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} public: static ReimbursementWin* CreateInstance(void* implPtr, void* hWnd) { ReimbursementWin* pWin = new ReimbursementWin(implPtr, (HWND)hWnd); return pWin; } int SetAgent() { xstring xfNodeAgentArea = L"agentarea"; xnode anode = GetAgentNode(xfNodeAgentArea); if (m_agentNode) { SetAgentNode(anode, m_agentNode); } else { KXMLDOMElement xframeElement = GetElement(); KXMLDOMElement agent = xframeElement.selectSingleNode(L"agent/" + xfNodeAgentArea + L"[1]/*"); if (agent) { xstring s = agent.xml(); m_agentNode = SetAgentNode(anode, s); } } return 1; } //q&p¹oÀm;YtQýep int OnSetFocus(TEvent* evt, LPARAM param) { //‘Ín]åQwga SetAgent(); return 1; } int OnSave() { xml x ; KXMLDOMDocument xdoc = x; dw_list.DwUpdateAllToEx(xdoc); xaserverarg arg; arg.AddArg(L"content", x.xml()); //alert(x.xml()); //return 1; if (xurl::get(L"/sale/data/expense3/update/Reimbursement", arg.GetString(), x) != 1) { xstring error = x.text(); alert(L"err:" + error); return 1; } xstring str = x.documentElement().getAttribute(L"text"); if (str == L"true") { dw_list.ResetUpdateStatus(); alert(L"OÝ[XbRŸ!"); } else { alert(L"OÝ[XY1%!"); } return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(xstring comdid) { if (comdid == L"xmAddRow") { OpenWindow(L"dev:xpage[ReimbursementMaint.vx]", 0); return 1; } else if (comdid == L"xmDeleteRow") { xstring EntityID = dw_list.GetItemString(dw_list.GetRow(), L"ReimbursementBaseID"); trace(EntityID); int MB_OKCANCEL = 1; int IDOK = 1; int ret = MessageBox(GetHWND(), L"xn‹¤R –d?", L"cÐy:", MB_OKCANCEL); if (ret == IDOK) { xml x = ViewObject::RetrieveData(L"/sale/data/expense3/delete/Reimbursement", L"EntityID", EntityID); xstring str = x.documentElement().getAttribute(L"finished"); if (str == L"1") { alert(L"R –dbRŸ!"); OnRetrieve(); } else if (str == L"0") { xstring info = x.documentElement().getAttribute(L"errInfo"); alert(info); } } return 1; } else if (comdid == L"xmSave") { OnSave(); } else if (comdid == L"xmRefresh") { OnRetrieve(); } else if (comdid == L"xmUpdateRow") { if (dw_list.GetRow() < 1) return 0; xaserverarg arg; xstring ReimbursementBaseID = dw_list.GetItemString(dw_list.GetRow(), L"ReimbursementBaseID"); arg.AddArg(L"HWND", xstring((__int64)GetHWND())); arg.AddArg(L"ReimbursementBaseID", ReimbursementBaseID); OpenWindow(L"dev:xpage[ReimbursementMaint.vx]", arg); } else if (comdid == L"xmAnalysis") { HCURSOR hCursor = 0; hCursor = xutil::SetCursorWait(); xstring str1 = dw_list.DataAnalysis(L""); xaserverarg arg1; arg1.setNativePointer(arg1.CreateInstance()); arg1.AddArg(L"html", str1); OpenWindow(L"dev:xpage[data.vanalysis.vx]",arg1); xutil::RestoreCursor(hCursor); return 1; } return 0; } int OnDoubleClicked(TEvent* evt, LPARAM p) { return OnCmdDispatch(L"xmUpdateRow"); } //‰æSџ hy»_TtranN‹Nöÿ Çgåb~gÐN*SÂep_—R0[ù^”v„R int OnBaseItemChanged(TEvent* evt, LPARAM p) { DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; xstring colname = hdr.colname; xstring value = hdr.data; xstring dwname = L"dw_list"; if (value != L"") { KXMLDOMNodeList nlist = GetElement().selectNodes(L"//*[@name='" + dwname + L"']/trans[@for='" + colname + L"']"); ViewObject::TransData(nlist, dw_list, hdr.row, colname, value); } return 1; } //T}NäYtN‹Nö int OnXCommand(TEvent* evt, LPARAM param) { return OnCmdDispatch(evt->xcommand.pStrID); } int OnAttachEvent() { //~Ñ[š]åQwgap¹QûN‹Nö AttachEvent(L"WM_XCOMMAND", (FEvent)&ReimbursementWin::OnXCommand); //ƒ·SÖq&p¹N‹Nöÿ u(NŽ‘Ín]åQwga AttachEvent(L"WM_SETFOCUS", (FEvent)&ReimbursementWin::OnSetFocus); AttachEvent(L"dw_list", L"DWV_ITEMCHANGED", (FEvent)&ReimbursementWin::OnBaseItemChanged); AttachEvent(L"dw_list", L"DWV_DOUBLECLICKED", (FEvent)&ReimbursementWin::OnDoubleClicked);//ˆLSÌQû return 1; } xstring GetQueryArg() { dw_arg.AcceptText(); xml x ; dw_arg.DwUpdateAllTo(x); return x.xml(); } int OnRetrieve() { xml x ; xaserverarg arg; //arg.AddArg(L"Status",L"1"); if (getUrl(L"/sale/data/Expense3/view/Reimbursement", arg.GetString(), x) != 1) { trace(x.text()); return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); } dw_list.SetReadOnly(true); return 1; } int onload() { dw_list = GetControl(L"dw_list"); dw_list.openUrl(L"/sale/view/Expense3/reimbursement/maint"); //dw_list.SetItemString(1,L"SaveType",L"SŸNö"); dw_list.SetColumnState(L"ReimbursementBaseID", false); dw_list.SetColumnState(L"RBItemID", false); OnRetrieve(); OnAttachEvent(); return 1; } int onloaded() { SetAgent(); return 1; } };