ÿþ#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) ManageCostList : public xframe { public: ManageCostList(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} public: static ManageCostList* CreateInstance(void* implPtr, void* hWnd) { ManageCostList* pWin = new ManageCostList(implPtr, (HWND)hWnd); return pWin; } public: xdwgrid dw_list; xdatetimepick sdate; xdatetimepick edate; xdwtable dw_arg; xnode m_agentNode; //Agent Condition xstring DatePicker; 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; } //}TäNÑS^ýQpe int OnCmdDispatch(xstring comdid) { if(comdid == L"xmRefresh") { OnRetrieve(DatePicker,Types); }else if(comdid == L"xmAdd") { xaserverarg arg; arg.AddArg(L"HWND", xstring((__int64)GetHWND())); arg.AddArg(L"Types", Types); OpenWindow(L"dev:xpage[ManageCostBase.vx]",arg); }else if(comdid == L"xmEdit") { xaserverarg arg; xstring ManageCostID = dw_list.GetGuid(dw_list.GetRow()); arg.AddArg(L"ManageCostID",ManageCostID); arg.AddArg(L"HWND", xstring((__int64)GetHWND())); OpenWindow(L"dev:xpage[ManageCostBase.vx]", arg); }else if(comdid == L"xmDelete") { xstring EntityID = dw_list.GetGuid(dw_list.GetRow()); int MB_OKCANCEL = 1; int IDOK = 1; int ret = MessageBox(GetHWND(),L"nx¤‹ Rd–¡{t9(u?",L"Ðc:y",MB_OKCANCEL); if(ret == IDOK) { ViewObject::RetrieveData(L"/sale/data/expense3/delete/ManageCost",L"EntityID",EntityID); OnRetrieve(DatePicker, Types); } } else if(comdid==L"xmAnalysis") { OnAnalysis(); return 1; } return 0; } int OnAnalysis() { HCURSOR hCursor = 0; hCursor = xutil::SetCursorWait(); xstring str = dw_list.DataAnalysis(L""); xaserverarg arg; arg.AddArg(L"html", str); OpenWindow(L"dev:xpage[data.vanalysis.vx]", arg); xutil::RestoreCursor(hCursor); return 1; } int OnDoubleClicked(TEvent* evt, LPARAM p) { DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; xstring colname = hdr.colname; int row = hdr.row; HCURSOR hCursor = xutil::SetCursorWait(); xaserverarg arg; xstring ManageCostID = dw_list.GetGuid(row); arg.AddArg(L"ManageCostID",ManageCostID); OpenWindow(L"dev:xpage[ManageCostBase.vx]", arg); xutil::RestoreCursor(hCursor); return 1; } //}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)&ManageCostList::OnXCommand); //·ƒÖS&q¹p‹NöN ÿ(uŽN͑nå]wQag AttachEvent(L"WM_SETFOCUS", (FEvent)&ManageCostList::OnSetFocus); AttachEvent(L"dw_list",L"DWV_DOUBLECLICKED", (FEvent)&ManageCostList::OnDoubleClicked); AttachEvent(L"cbx_state",L"CBN_SELCHANGE", (FEvent)&ManageCostList::OnDatePicker); return 1; } int OnDatePicker(TEvent* evt, LPARAM lParam) { int h = xcombobox::GetCurSel(evt->command.hCtrl); if (h > -1) { xstring txt = (string)xcombobox::GetLBText(evt->command.hCtrl, h); if (txt == L"¥b•åeg") { DatePicker = L"BasicFareID"; OnRetrieve(DatePicker, Types); } else if (txt == L"U_eQåeg") { DatePicker = L"CreateDate"; OnRetrieve(DatePicker, Types); } } return 1; } xstring GetQueryArg() { dw_arg.AcceptText(); xml x; dw_arg.DwUpdateAllTo(x); return x.xml(); } int OnRetrieve(xstring DatePicker,xstring Types) { /*xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); xstring sdatetxt = L""; xstring edatetxt = L""; if(sdate.IsChecked()) sdatetxt = sdate.GetText(); if(edate.IsChecked()) edatetxt = edate.GetText() xcontrol query = GetControl(L"sl_search"); xstring keyword = query.GetText(); //arg.AddArg(L"keyword",keyword); //arg.AddArg(L"sdate",sdatetxt); //arg.AddArg(L"edate",edatetxt); arg.AddArg(L"QueryTxt",keyword); arg.AddArg(L"QueryArg",GetQueryArg()); arg.AddArg(L"DatePicker",DatePicker); trace(keyword+L"=====L"+GetQueryArg()+L"=====L"+DatePicker); int hCursor = xutil::SetCursorWait();;*/ xml x ; xaserverarg arg; arg.AddArg(L"QueryTxt", xcontrol(GetControl(L"sle_search")).GetText()); arg.AddArg(L"QueryArg",GetQueryArg()); arg.AddArg(L"DatePicker",DatePicker); arg.AddArg(L"Types", Types); trace(GetQueryArg()+DatePicker); if (getUrl(L"/sale/data/expense3/ManageCost",arg.GetString(),x)!=1) { trace(x.text()); return -1; }else { dw_list.Retrieve(x); dw_list.Redraw(); dw_list.SetReadOnly(true); } //xutil::RestoreCursor(hCursor); return 1; } int onload() { SetArg(); dw_arg = GetControl(L"dw_arg"); dw_arg.openUrl(L"/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,L"DateType",L",gt^"); sdate = GetControl(L"sdate"); edate = GetControl(L"edate"); dw_list = GetControl(L"dw_list"); dw_list.openUrl(L"/sale/view/expense3/ManageCost/list"); xstring currdate = publiccode::GetCurrentDate(); int curryear= currdate.mid(0,4).toInt(); //sdate.SetDatetime(curryear - 1,1,1); Types = L"N¡R"; if (GetWinParam()) { xaserverarg arg = GetArg(); Types = arg.GetArgString(L"category"); } OnAttachEvent(); OnRetrieve(DatePicker,Types); dw_list.SetReadOnly(true); return 1; } int onloaded() { SetAgent(); return 1; } };