ÿþ#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) SelectContactsWin : public xframe { public: xdwgrid dw_list; xdwtable dw_paper; xnode m_agentNode; //Agent Condition string SupplierID; public: SelectContactsWin(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} public: static SelectContactsWin* CreateInstance(void* implPtr, void* hWnd) { SelectContactsWin* pWin = new SelectContactsWin(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; } int OnSave() { xml x; dw_list.AcceptText(); dw_list.DwUpdateAllToEx(x); xstring val = x.xml(); val = L"<data>" + val + L"</data>"; xaserverarg arg; arg.AddArg(L"content",val); //trace(val); if(xurl::get(L"/sale/data/PurchaseOrder/update/Contract", arg.GetString(),x)!=1) { xstring error = x.text(); //alert(error); return 1; }else { xstring str = x.documentElement().getAttribute(L"text"); if(str == L"true") { dw_list.ResetUpdateStatus(); alert(L"ÝOX[bŸR!"); }else { alert(L"ÝOX[1Y%!"); } //alert(x.GetXml()); } return 1; } int AddContacts() { xaserverarg arg; arg.AddArg(L"PartyID",SupplierID); arg.AddArg(L"HWND", xstring((__int64)GetHWND())); OpenWindow(L"dev:xpage[new.Contact.vx]",arg); return 1; } int ChangeContacts() { xstring CreateID = dw_list.GetItemString(dw_list.GetRow(),L"CreateID"); if(CreateID) { xaserverarg arg; arg.AddArg(L"HWND", xstring((__int64)GetHWND())); arg.AddArg(L"PartyID",dw_list.GetItemString(dw_list.GetRow(),L"PartyID")); arg.AddArg(L"ContactID",dw_list.GetItemString(dw_list.GetRow(),L"ContactID")); OpenWindow(L"dev:xpage[new.Contact.vx]",arg); return 1; }else { alert(L"àeÕlîO9eÿ"); } return 0; } int DeleteContacts() { xstring CreateID = dw_list.GetItemString(dw_list.GetRow(),L"CreateID"); if(CreateID) { dw_list.DeleteRow(dw_list.GetRow()); return 1; }else { alert(L"àeÕl Rd–ÿ"); } return 0; } int onRefresh() { xml x; xaserverarg arg = GetArg(); if(arg) { xstring PartyID = arg.GetArgString(L"PartyID"); x = ViewObject::RetrieveData(L"/sale/data/PurchaseOrder/so/ContactsSelect",L"PartyID",PartyID); if(x)dw_list.Retrieve(x); dw_list.SetReadOnly(true); dw_list.SetSelectionMode(1); dw_list.Redraw(); } return 1; } int xmOk1() { xaserverarg arg = GetArg(); arg.AddArg(L"items",L""); xstring str = L""; int row = dw_list.GetNextSelectRow(1); while(row > 0 && row <= dw_list.GetRowCount()) { KXMLDOMElement ele = dw_list.GetRowElement(row); str += ele.xml(); ele.Release(); row = dw_list.GetNextSelectRow(row + 1); } if(str != L"") arg.AddArg(L"items",L"<data>"+str+L"</data>"); CloseWindow(); return 1; } //&q¹pÀo;mYtýQpe int OnSetFocus(TEvent* evt, LPARAM param) { //͑nå]wQag //SetAgent(); return 1; } //}TäNÑS^ýQpe int OnCmdDispatch(string comdid) { if(comdid==L"xmOk") { /*xaserverarg arg = GetParam(); arg.AddArg(L"items",L""); string str = L""; int row = dw_list.GetNextSelectRow(1); while(row > 0 && row <= dw_list.GetRowCount()) { msxml::IXMLDOMElement ele = dw_list.GetRowElement(row); str += ele.xml; ele.Release(); row = dw_list.GetNextSelectRow(row + 1); } if(str != L"") arg.AddArg(L"items",L"<data>"+str+L"</data>"); CloseWindow();*/ xmOk1(); return 1; } else if(comdid==L"xmAddRow") { return AddContacts(); } else if(comdid==L"xmChangeRow") { return ChangeContacts(); } else if(comdid==L"xmDeleteRow") { return DeleteContacts(); } else if(comdid==L"xmSave") { return OnSave(); } else if(comdid==L"renovate") { return onload(); } else if(comdid==L"xmCancel") { CloseWindow(); return 1; } else if(comdid==L"xmRefresh") { onRefresh(); return 1; } 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)&SelectContactsWin::OnXCommand); //·ƒÖS&q¹p‹NöN ÿ(uŽN͑nå]wQagxmOk1(); AttachEvent(L"WM_SETFOCUS", (FEvent)&SelectContactsWin::OnSetFocus); AttachEvent(L"dw_list",L"DWV_DOUBLECLICKED", (FEvent)&SelectContactsWin::xmOk1); return 1; } int onload() { SetArg(); dw_list = GetControl(L"dw_list"); dw_list.openUrl(L"/sale/view/PurchaseOrder/template/purchaseorder/ContactsSelect"); dw_list.SetColumnState(L"PartyID",false); dw_list.SetColumnState(L"ContactID",false); dw_list.SetColumnState(L"CreateID",false); xaserverarg arg = GetArg(); SupplierID = arg.GetArgString(L"PartyID"); onRefresh(); OnAttachEvent(); return 1; } int onloaded() { //SetAgent(); return 1; } };