ÿþ#include <wobject/xstring.hpp> #include <xcontrol/xtreeview.hpp> #include <xcontrol/xdwgrid.hpp> #include <wobject/xdouble.hpp> #include <xcontrol/xlayersheet.hpp> #include <xcontrol/xdatetimepick.hpp> #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" #include "viewobject/view.base.hpp" using xml = KXMLDOMDocument; class __declspec(dllexport) RmbRegisterBase : public xframe { public: RmbRegisterBase(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} public: static RmbRegisterBase* CreateInstance(void* implPtr, void* hWnd) { RmbRegisterBase* pWin = new RmbRegisterBase(implPtr, (HWND)hWnd); return pWin; } public: xdwtable dw_base; xnode m_agentNode; //Agent Condition HWND hObject; bool updated; xstring Types; 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;mYtýQpe int OnSetFocus(TEvent* evt, LPARAM param) { //͑nå]wQag SetAgent(); return 1; } int OnSave() { xml x; dw_base.AcceptText(); dw_base.DwUpdateAllTo(x); xaserverarg arg; arg.AddArg(L"content",x.xml()); if(xurl::get(L"/sale/data/expense3/update/RmbRegister", 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_base.ResetUpdateStatus(); dw_base.Redraw(); updated = true; alert(L"ÝOX[bŸR!"); }else { alert(L"ÝOX[1Y%!"); } return 1; } //}TäNÑS^ýQpe int OnCmdDispatch(xstring comdid) { if(comdid==L"xmClose") { if(updated) SendMessage(hObject, 0x401, (LPARAM)L"xmRefresh", 0); CloseWindow(); return 1; }else if(comdid == L"xmSave") { OnSave(); } return 0; } //}TäNYt‹NöN int OnXCommand(TEvent* evt, LPARAM param) { return OnCmdDispatch(evt->xcommand.pStrID); } int OnAttachEvent() { //Ñ~š[å]wQag¹pûQ‹NöN AttachEvent(L"WM_XCOMMAND", (FEvent)&RmbRegisterBase::OnXCommand); //·ƒÖS&q¹p‹NöN ÿ(uŽN͑nå]wQag AttachEvent(L"WM_SETFOCUS", (FEvent)&RmbRegisterBase::OnSetFocus); return 1; } int OnRetrieve(xstring RmbRegisterID) { xml x; xaserverarg arg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg(L"RmbRegisterID",RmbRegisterID); if (getUrl(L"/sale/data/expense3/GetRmbRegisterByID",arg.GetString(),x)!=1) { trace(x.text()); return -1; }else { dw_base.Retrieve(x); dw_base.Redraw(); } return 1; } int onload() { SetArg(); dw_base = GetControl(L"dw_base"); dw_base.openUrl(L"/sale/view/expense3/RmbRegister/Base"); dw_base.SetColHeaderHeight(0); dw_base.SetRowSelectorWidth(0); dw_base.SetHScrollState(false); dw_base.SetVScrollState(false); xstring suserid = publiccode::GetUser().id; xstring susername = publiccode::GetUser().name; xstring sdate = publiccode::GetCurrentDate(); xstring RmbRegisterID = L""; hObject = 0; if(GetWinParam()) { xaserverarg arg = GetArg();; RmbRegisterID = arg.GetArgString(L"RmbRegisterID"); hObject = (HWND)arg.GetArgString(L"HWND").toInt(); Types = arg.GetArgString(L"Types"); } if(RmbRegisterID != L"") { OnRetrieve(RmbRegisterID); dw_base.SetItemString(1,L"LastEditManID",suserid); dw_base.SetItemString(1,L"LastEditDate",sdate); }else { dw_base.SetItemString(1,L"BasicDate",sdate); dw_base.SetItemString(1,L"BasicFareDate",sdate); dw_base.SetItemString(1,L"CreateDate",sdate); dw_base.SetItemString(1,L"CreatorID",suserid); dw_base.SetItemDisplayString(1,L"CreatorID",susername); dw_base.SetItemString(1, L"Types", Types); dw_base.SetItemString(1, L"Typess", Types); } OnAttachEvent(); updated = false; return 1; } int onloaded() { SetAgent(); return 1; } };