ÿþ#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) MouldFeeBase : public xframe { public: MouldFeeBase(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} public: static MouldFeeBase* CreateInstance(void* implPtr, void* hWnd) { MouldFeeBase* pWin = new MouldFeeBase(implPtr, (HWND)hWnd); return pWin; } public: int hObject = 0; xdwtable dw_base; xnode m_agentNode; //Agent Condition bool updated; int SetAgent() { return 1; 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 ; xaserverarg arg ; dw_base.AcceptText(); dw_base.DwUpdateAllTo(x); xstring error = L""; arg.AddArg(L"content", x.xml()); if(xurl::get(L"/sale/data/expense3/update/MouldFee", arg.GetString(),x)!=1) { error = x.text(); //alert(error); }else { xstring str = x.documentElement().getAttribute(L"text"); if(str == L"true") { dw_base.ResetUpdateStatus(); alert(L"ÝOX[bŸR!"); SendMessage(GetHWND(),0x401,(LPARAM)L"xmRefresh",0); CloseWindow(); }else { alert(L"ÝOX[1Y%!"); } //alert(str); } return 1; } //}TäNÑS^ýQpe int OnCmdDispatch(xstring comdid) { if(comdid==L"xmSave") { if(dw_base.GetItemString(1,L"MInvoiceNo") == L"") { alert(L"÷‹kX™QYЏ÷Sÿ"); return 0; } OnSave(); return 1; } else if(comdid==L"xmClose") { if(updated) SendMessage(GetHWND(),0x401,(LPARAM)L"xmRefresh",0); CloseWindow(); return 1; } return 0; } //}TäNYt‹NöN int OnXCommand(TEvent* evt, int param) { return OnCmdDispatch(evt->xcommand.pStrID); } int OnItemChanged(TEvent* evt, LPARAM p) { DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; xstring colname=hdr.colname; xstring value = hdr.data; xstring dwname = L"dw_base"; if(value != L"") { KXMLDOMNodeList nlist = GetElement().selectNodes(L"//*[@name='"+dwname+L"']/trans[@for='"+colname+L"']"); ViewObject::TransData(nlist, dw_base, hdr.row, colname, value); } return 1; } int OnItemClick(TEvent* evt, LPARAM p) { DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; xstring value = hdr.data; //alert(value); //xdwtable dw = dw_base.FindDwTable(L"item2",0); //xdwtable dw1 = dw_base.FindDwTable(L"item3",0); xaserverarg arg; if(value == L"D–öN N O") { xstring guid = dw_base.GetGuid(1); if(guid.length() <= 0) { guid = publiccode::GetGuid(); dw_base.SetGuid(1,guid); } arg.AddArg(L"entityid",guid); OpenWindow(L"dev:xpage[maint.Document.MouldFeeBase.vx]", arg); //DocCount(guid); } return 1; } int OnAttachEvent() { //Ñ~š[å]wQag¹pûQ‹NöN AttachEvent(L"WM_XCOMMAND", (FEvent)&MouldFeeBase::OnXCommand); //·ƒÖS&q¹p‹NöN ÿ(uŽN͑nå]wQag AttachEvent(L"WM_SETFOCUS", (FEvent)&MouldFeeBase::OnSetFocus); AttachEvent(L"dw_base",L"DWV_CLICKED", (FEvent)&MouldFeeBase::OnItemClick); AttachEvent(L"dw_base",L"DWV_ITEMCHANGED", (FEvent)&MouldFeeBase::OnItemChanged); return 1; } int OnRetrieve(xstring MouldId) { xml x ; xaserverarg arg ; arg.AddArg(L"MouldId",MouldId); if (getUrl(L"/sale/data/Expense3/GetMouldFeeByID",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/MouldFee/Base"); dw_base.SetColHeaderHeight(0); dw_base.SetRowSelectorWidth(0); dw_base.SetHScrollState(false); dw_base.SetVScrollState(false); xstring MouldId = L""; hObject = 0; if(GetWinParam()) { xaserverarg arg =GetArg() ; MouldId = arg.GetArgString(L"MouldId"); hObject = arg.GetArgString(L"HWND").toInt(); } if(MouldId != L"") { OnRetrieve(MouldId); }else { xstring suserid = publiccode::GetUser().id; xstring susername = publiccode::GetUser().name; dw_base.SetItemString(1,L"CreateID",suserid); dw_base.SetItemDisplayString(1,L"CreateID",susername); xstring sdate = publiccode::GetCurrentDate(); dw_base.SetItemString(1,L"CreateDate",sdate); } OnAttachEvent(); updated = false; return 1; } int onloaded() { //SetAgent(); return 1; } };