|  |  | 
 |  |  |    use "xcontrol.vframe.vbusiness.vd" | 
 |  |  |    use "xbase.vframe.vbusiness.vd" | 
 |  |  |    use "base.view.vd" | 
 |  |  | #include <wobject/xstring.hpp> | 
 |  |  | #include <xcontrol/xtreeview.hpp> | 
 |  |  | #include <xcontrol/xdwgrid.hpp> | 
 |  |  | #include <wobject/xdouble.hpp> | 
 |  |  | #include <xcontrol/xlayersheet.hpp> | 
 |  |  | #include <xcontrol/xdatetimepick.hpp> | 
 |  |  |  | 
 |  |  |    unit trade  | 
 |  |  |    [ | 
 |  |  |       class ExchangeRateWin :  public xframe | 
 |  |  |  | 
 |  |  | #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" | 
 |  |  | #include "viewobject/view.base.hpp" | 
 |  |  |  | 
 |  |  | using xml = KXMLDOMDocument; | 
 |  |  |       class __declspec(dllexport) ExchangeRateWin :  public xframe | 
 |  |  |       { | 
 |  |  |       public: | 
 |  |  |          xdwgrid   dw_list; | 
 |  |  |          int hSignWin; | 
 |  |  |          xnode   m_agentNode;   //Agent Condition | 
 |  |  |  | 
 |  |  |       public: | 
 |  |  |          ExchangeRateWin(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} | 
 |  |  |       public: | 
 |  |  |          static ExchangeRateWin* CreateInstance(void* implPtr, void* hWnd) | 
 |  |  |          { | 
 |  |  |             ExchangeRateWin* pWin = new ExchangeRateWin(implPtr, (HWND)hWnd); | 
 |  |  |             return pWin; | 
 |  |  |          } | 
 |  |  |          int SetAgent() | 
 |  |  |          { | 
 |  |  |             string xfNodeAgentArea  = "agentarea"; | 
 |  |  |             xstring xfNodeAgentArea  = L"agentarea"; | 
 |  |  |             xnode anode = GetAgentNode(xfNodeAgentArea); | 
 |  |  |             if(m_agentNode) | 
 |  |  |             { | 
 |  |  |                SetAgentNodeContent (anode,m_agentNode); | 
 |  |  |                SetAgentNode (anode,m_agentNode); | 
 |  |  |             } | 
 |  |  |             else | 
 |  |  |             { | 
 |  |  |                msxml::IXMLDOMElement xframeElement =  GetElement(); | 
 |  |  |                msxml::IXMLDOMElement agent = xframeElement.selectSingleNode("agent/"+xfNodeAgentArea+"[1]/*"); | 
 |  |  |                KXMLDOMElement xframeElement =  GetElement(); | 
 |  |  |                KXMLDOMElement agent = xframeElement.selectSingleNode(L"agent/"+xfNodeAgentArea+L"[1]/*"); | 
 |  |  |                if(agent) | 
 |  |  |                { | 
 |  |  |                   string s = agent.xml; | 
 |  |  |                   m_agentNode =  SetAgentNodeContent (anode,s); | 
 |  |  |                   xstring s = agent.xml(); | 
 |  |  |                   m_agentNode =  SetAgentNode (anode,s); | 
 |  |  |                } | 
 |  |  |             } | 
 |  |  |             return 1; | 
 |  |  |          } | 
 |  |  |  | 
 |  |  |          //焦点激活处理函数 | 
 |  |  |          int OnSetFocus(ref TEvent evt,int param) | 
 |  |  |          int OnSetFocus(TEvent* evt, LPARAM param) | 
 |  |  |          { | 
 |  |  |             //重置工具条 | 
 |  |  |             SetAgent(); | 
 |  |  | 
 |  |  |  | 
 |  |  |          int OnSave() | 
 |  |  |          { | 
 |  |  |             xml x = new xml; | 
 |  |  |             x.setNativePointer(xml::CreateInstance()); | 
 |  |  |             dw_list.AcceptText(); | 
 |  |  |             dw_list.DwUpdateAllToEx(x.GetXmlDoc()); | 
 |  |  |             xml x0 = ViewObject::MakeXml(); | 
 |  |  |             x0.LoadXml("<data/>"); | 
 |  |  |             xml x ; | 
 |  |  |              | 
 |  |  |             msxml::IXMLDOMNodeList t = x.GetXmlDoc().selectNodes("data/Item[@update.modify='1' or @update.delete ='1']"); | 
 |  |  |             msxml::IXMLDOMElement e1= x0.GetXmlDoc().documentElement; | 
 |  |  |             int len = t.length; | 
 |  |  |             dw_list.AcceptText(); | 
 |  |  |             dw_list.DwUpdateAllToEx(x); | 
 |  |  |             xml x0; | 
 |  |  |             x0.loadXML(L"<data/>"); | 
 |  |  | 				 | 
 |  |  |             KXMLDOMNodeList t = x.selectNodes(L"data/Item[@update.modify='1' or @update.delete ='1']"); | 
 |  |  |             KXMLDOMElement e1= x0.documentElement(); | 
 |  |  |             int len = t.length(); | 
 |  |  |             for(int i=0;i<len;i++) | 
 |  |  |             { | 
 |  |  |                e1.appendChild(t.item(i)); | 
 |  |  |             } | 
 |  |  |             xaserverarg arg = ViewObject::MakeArg(); | 
 |  |  |             arg.AddArg("content",x0.GetXml()); | 
 |  |  |             trace(x0.GetXml()); | 
 |  |  |             if(url::get("/sale/data/expense3/update/ExchangeRate", arg.GetString(),x)!=1) | 
 |  |  |             xaserverarg arg ; | 
 |  |  |             arg.AddArg(L"content",x0.xml()); | 
 |  |  |             trace(x0.xml()); | 
 |  |  |             if(xurl::get(L"/sale/data/expense3/update/ExchangeRate", arg.GetString(),x)!=1) | 
 |  |  |             { | 
 |  |  |                string error = x.GetXmlDoc().text; | 
 |  |  |                alert("err:"+error); | 
 |  |  |                xstring error = x.text(); | 
 |  |  |                alert(L"err:"+error); | 
 |  |  |                return 1; | 
 |  |  |             } | 
 |  |  |             string str = x.GetXmlDoc().documentElement.getAttribute("text"); | 
 |  |  |             if(str == "true") | 
 |  |  |             xstring str = x.documentElement().getAttribute(L"text"); | 
 |  |  |             if(str == L"true") | 
 |  |  |             { | 
 |  |  |                dw_list.ResetUpdateStatus();          | 
 |  |  |                alert("保存成功!");  | 
 |  |  |                alert(L"保存成功!");  | 
 |  |  |             }else  | 
 |  |  |             { | 
 |  |  |                alert("保存失败!"); | 
 |  |  |                alert(L"保存失败!"); | 
 |  |  |             } | 
 |  |  |             return 1; | 
 |  |  |          } | 
 |  |  |              | 
 |  |  |                 | 
 |  |  |          //命令发布函数 | 
 |  |  |          int OnCmdDispatch(string comdid) | 
 |  |  |          int OnCmdDispatch(xstring comdid) | 
 |  |  |          { | 
 |  |  |             if(comdid=="xmAddRow") | 
 |  |  |             if(comdid==L"xmAddRow") | 
 |  |  |             { | 
 |  |  |                string sdate = publiccode::GetCurrentDate(); | 
 |  |  |                string suserid = publiccode::GetUser().id; | 
 |  |  |                string susername = publiccode::GetUser().name; | 
 |  |  |                xstring sdate = publiccode::GetCurrentDate(); | 
 |  |  |                xstring suserid = publiccode::GetUser().id; | 
 |  |  |                xstring susername = publiccode::GetUser().name; | 
 |  |  |                int row =dw_list.GetRowCount(); | 
 |  |  |                dw_list.InsertRow(0); | 
 |  |  |                dw_list.SetItemString(row+1,"CreatorID",suserid); | 
 |  |  |                dw_list.SetItemDisplayString(row+1,"CreatorID",susername); | 
 |  |  |                dw_list.SetItemString(row+1,"CreateDate",sdate); | 
 |  |  |                dw_list.SetItemString(row+1,L"CreatorID",suserid); | 
 |  |  |                dw_list.SetItemDisplayString(row+1,L"CreatorID",susername); | 
 |  |  |                dw_list.SetItemString(row+1,L"CreateDate",sdate); | 
 |  |  |                return 1; | 
 |  |  |             } | 
 |  |  |             else if(comdid=="xmDeleteRow") | 
 |  |  |             else if(comdid==L"xmDeleteRow") | 
 |  |  |             { | 
 |  |  |                dw_list.DeleteRow(0); | 
 |  |  |                return 1; | 
 |  |  |             } | 
 |  |  |             else if (comdid == "xmSave") | 
 |  |  |             else if (comdid == L"xmSave") | 
 |  |  |             { | 
 |  |  |                OnSave(); | 
 |  |  |             } | 
 |  |  |             else if (comdid == "xmRefresh") | 
 |  |  |             else if (comdid == L"xmRefresh") | 
 |  |  |             { | 
 |  |  |                OnRetrieve(); | 
 |  |  |             } | 
 |  |  |             else if(comdid =="ToUpdate") | 
 |  |  |             else if(comdid ==L"ToUpdate") | 
 |  |  |             { | 
 |  |  |                ToUpdate(); | 
 |  |  |             } | 
 |  |  | 
 |  |  |           | 
 |  |  |          int ToUpdate() | 
 |  |  |          { | 
 |  |  |             string Months = dw_list.GetItemString(dw_list.GetRow(),"Months"); | 
 |  |  |             xstring Months = dw_list.GetItemString(dw_list.GetRow(),L"Months"); | 
 |  |  |             int MB_OKCANCEL = 1; | 
 |  |  |             int IDOK  = 1; | 
 |  |  |             int ret = win32::MessageBox(GetHWND(),"确认更新"+Months+"盈亏汇率?","提示",MB_OKCANCEL); | 
 |  |  |             int ret = MessageBox(GetHWND(),L"确认更新"+Months+L"盈亏汇率?",L"提示",MB_OKCANCEL); | 
 |  |  |             if(ret == IDOK) | 
 |  |  |             { | 
 |  |  |                xml x = ViewObject::RetrieveData("/sale/data/Expense3/ExchangeRateUpdateEx","Months",Months); | 
 |  |  |                string status = x.GetXml(); | 
 |  |  |                if(status.find("ok") == 1) | 
 |  |  |                xml x = ViewObject::RetrieveData(L"/sale/data/Expense3/ExchangeRateUpdateEx",L"Months",Months); | 
 |  |  |                xstring status = x.xml(); | 
 |  |  |                if(status.find(L"ok") == 1) | 
 |  |  |                { | 
 |  |  |                   alert("更新成功"); | 
 |  |  |                   alert(L"更新成功"); | 
 |  |  |                }else | 
 |  |  |                { | 
 |  |  |                   alert("更新失败"); | 
 |  |  |                   alert(L"更新失败"); | 
 |  |  |                } | 
 |  |  |             } | 
 |  |  |             return 1; | 
 |  |  |          } | 
 |  |  |           | 
 |  |  |          //触发鼠标离开后tran事件,通过查找某个参数得到对应的列          | 
 |  |  |             int OnBaseItemChanged(ref TNotifyEvent evt,int p) | 
 |  |  |          int OnBaseItemChanged(TEvent* evt, int p) | 
 |  |  |          { | 
 |  |  |             ref DWNMHDR  hdr = trust(evt.pnmh as ref DWNMHDR); | 
 |  |  |             string colname=hdr.colname; | 
 |  |  |             string value = hdr.data; | 
 |  |  |             DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; | 
 |  |  |             xstring colname=hdr.colname; | 
 |  |  |             xstring value = hdr.data; | 
 |  |  |              | 
 |  |  |             string dwname = "dw_list"; | 
 |  |  |             if(value != "") | 
 |  |  |             xstring dwname = L"dw_list"; | 
 |  |  |             if(value != L"") | 
 |  |  |             { | 
 |  |  |                msxml::IXMLDOMNodeList nlist = GetElement().selectNodes("//*[@name='"+dwname+"']/trans[@for='"+colname+"']"); | 
 |  |  |                KXMLDOMNodeList nlist = GetElement().selectNodes(L"//*[@name='"+dwname+L"']/trans[@for='"+colname+L"']"); | 
 |  |  |                ViewObject::TransData(nlist, dw_list, hdr.row, colname, value); | 
 |  |  |             } | 
 |  |  |  | 
 |  |  | 
 |  |  |              | 
 |  |  |           | 
 |  |  |          //命令处理事件 | 
 |  |  |          int OnXCommand(ref TXCommandEvent evt,int param) | 
 |  |  |          { | 
 |  |  |             return OnCmdDispatch(evt.pStrID); | 
 |  |  |          } | 
 |  |  |             int OnXCommand(TEvent* evt, LPARAM param) | 
 |  |  |             { | 
 |  |  |                return OnCmdDispatch(evt->xcommand.pStrID); | 
 |  |  |             } | 
 |  |  |           | 
 |  |  |          int OnAttachEvent() | 
 |  |  |          { | 
 |  |  |             //绑定工具条点击事件 | 
 |  |  |             AttachEvent("WM_XCOMMAND",OnXCommand); | 
 |  |  |             AttachEvent(L"WM_XCOMMAND", (FEvent)&ExchangeRateWin::OnXCommand); | 
 |  |  |             //获取焦点事件,用于重置工具条 | 
 |  |  |             AttachEvent("WM_SETFOCUS",OnSetFocus); | 
 |  |  |             AttachEvent("dw_list","DWV_ITEMCHANGED",OnBaseItemChanged); | 
 |  |  |             AttachEvent(L"WM_SETFOCUS", (FEvent)&ExchangeRateWin::OnSetFocus); | 
 |  |  |             AttachEvent(L"dw_list",L"DWV_ITEMCHANGED", (FEvent)&ExchangeRateWin::OnBaseItemChanged); | 
 |  |  |             return 1; | 
 |  |  |          } | 
 |  |  |           | 
 |  |  |           | 
 |  |  |          int  OnRetrieve() | 
 |  |  |          { | 
 |  |  |             xml x = new xml; | 
 |  |  |             x.setNativePointer(xml::CreateInstance()); | 
 |  |  |             xaserverarg arg = new xaserverarg; | 
 |  |  |             arg.setNativePointer(arg.CreateInstance());	 | 
 |  |  |             arg.AddArg("QueryTxt",GetControl("search").GetText()); | 
 |  |  |             xml x ; | 
 |  |  | 				 | 
 |  |  |             xaserverarg arg; | 
 |  |  | 				 | 
 |  |  |             arg.AddArg(L"QueryTxt",xcontrol(GetControl(L"search")).GetText()); | 
 |  |  |              | 
 |  |  |              | 
 |  |  |             if (getUrl("/sale/data/Expense3/ExchangeRateList",arg.GetString(),x)!=1) | 
 |  |  |             if (getUrl(L"/sale/data/Expense3/ExchangeRateList",arg.GetString(),x)!=1) | 
 |  |  |             { | 
 |  |  |                trace(x.GetXmlDoc().text); | 
 |  |  |                trace(x.text()); | 
 |  |  |                return -1; | 
 |  |  |             }else    | 
 |  |  |             { | 
 |  |  | 
 |  |  |        | 
 |  |  |          int onload() | 
 |  |  |          { | 
 |  |  |             dw_list = GetControl("dw_list"); | 
 |  |  |             dw_list.openUrl("/sale/view/Expense3/ExchangeRate"); | 
 |  |  |             dw_list = GetControl(L"dw_list"); | 
 |  |  |             dw_list.openUrl(L"/sale/view/Expense3/ExchangeRate"); | 
 |  |  |              | 
 |  |  |              | 
 |  |  |             OnRetrieve(); | 
 |  |  | 
 |  |  |             SetAgent(); | 
 |  |  |             return 1; | 
 |  |  |          }       | 
 |  |  |       }; | 
 |  |  |    ] | 
 |  |  |       }; |