ÿþ#include <wobject/xstring.hpp> #include <xcontrol/xtreeview.hpp> #include <xcontrol/xdwgrid.hpp> #include <wobject/xdouble.hpp> #include <xcontrol/xlayersheet.hpp> #include <xcontrol/xlistview.hpp> #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" #include "viewobject/view.base.hpp" using xml = KXMLDOMDocument; class __declspec(dllexport) DocTest : public xframe { public: //xdwgrid dw_list; xlistview lv_view; xnode m_agentNode; //Agent Condition int columnCount; xstring entityid; public: DocTest(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} public: static DocTest* CreateInstance(void* implPtr, void* hWnd) { DocTest* pWin = new DocTest(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; } //&q¹pÀo;mYtýQpe int OnSetFocus(TEvent* evt, LPARAM param) { //͑nå]wQag SetAgent(); return 1; } int OnListViewDoubleClicked(TEvent* evt, LPARAM param) { //͑nå]wQag //SetAgent(); OnDocumentOpen(); //CloseWindow(); return 1; } int OnAddAttachment() { xstring sguid = publiccode::GetGuid(); xstring sname = sguid; xstring str = sname.mid(0, 2); str = str.toUpper(); xstring suri = L"attachment" + str; xstring ret = xaserver::UploadFile(suri, sname + L".jpg", GetHWND(), L"", false); if (ret == L"-1") { alert(L" N O„v‡eöN¡l éb!"); return 0; } else { while (ret.find(L"\\", 0) >= 0) ret = ret.mid(ret.find(L"\\", 0) + 1, 9999); xstring myurl = L"object/supplier"; xml x; xaserverarg args; args.AddArg(L"myurl", myurl); args.AddArg(L"name", ret); args.AddArg(L"filepath", sname); args.AddArg(L"fileext", L""); args.AddArg(L"filesource", ret); args.AddArg(L"entityid", entityid); if (xurl::get(L"/sale/data/TDocument3/attachment/addex", args.GetString(), x) != 1) { alert(L"ÝOX[úQ•†N!"); return 0; } else { alert(x.text()); Retrieve(entityid); } } return 0; } int OnDocumentOpen() { int LVNI_ALL = 0x0000; int LVNI_FOCUSED = 0x0001; int LVNI_SELECTED = 0x0002; int LVNI_CUT = 0x0004; int LVNI_DROPHILITED = 0x0008; int nItem = lv_view.GetNextItem( -1, LVNI_FOCUSED); if (nItem < 0) return 1; int LVIF_PARAM = 0x0004; lvitem lvItem; lvItem.iItem = nItem; lvItem.iSubItem = 0; lvItem.mask = LVIF_PARAM; lv_view.GetItem(lvItem); KXMLDOMElement ele = lvItem.lParam; xstring src = ele.getAttribute(L"url"); xstring file = L""; if (src.find(L"/file/") > 0) file = src.mid(src.find(L"/file/") + 6, 9999); if (file == L"") return 1; xstring name = ele.getAttribute(L"caption"); xaserver::CreateDirectory(L"C:/Temp"); xstring str = file.left(2); xstring ext = L""; if (name.find(L".") >= 0) ext = name.mid(name.find(L"."), name.length()); xstring sfile = file; //alert(L"/business/attachment/" + str + L"/" + file + L".jpg"); int openRet = xaserver::DownLoadFile(GetServerUrl(), L"/business/attachment/" + str + L"/" + file + L".jpg", L"", L"C:/Temp/" + sfile + ext); if (openRet < 0) { alert(L"‡eöNSb_1Y%1ÿ"); return -1; } openRet = ShellExecuteW(0, L"open", L"C:/Temp/" + sfile + ext, L"", L"", 5); if (openRet < 32) { alert(L"‡eöNSb_1Y%2ÿ"); return -1; } return -1; } int OnDeleteFile() { int LVNI_ALL = 0x0000; int LVNI_FOCUSED = 0x0001; int LVNI_SELECTED = 0x0002; int LVNI_CUT = 0x0004; int LVNI_DROPHILITED = 0x0008; int nItem = lv_view.GetNextItem( -1, LVNI_FOCUSED); if (nItem < 0) return 1; int LVIF_PARAM = 0x0004; lvitem lvItem; lvItem.iItem = nItem; lvItem.iSubItem = 0; lvItem.mask = LVIF_PARAM; lv_view.GetItem(lvItem); KXMLDOMElement ele = lvItem.lParam; xstring src = ele.getAttribute(L"url"); xstring file = L""; if (src.find(L"/file/") > 0) file = src.mid(src.find(L"/file/") + 6, 9999); if (file == L"") return 1; xstring name = ele.getAttribute(L"caption"); if (MessageBox(GetHWND(), L"nxš[‰ Rd–‡eöN" + name + L"ÿ", L"Ðc:y", 1) == 2) return 0; xaserverarg arg ; arg.AddArg(L"filepath", file); xml x; if (xurl::get(L"/sale/data/TDocument3/file/delete", arg.GetString(), x) != 1) { alert(L" Rd–úQ•†N!"); return 1; } else { //alert(x.GetXmlDoc().text); lv_view.DeleteItem(nItem); } return 1; } //}TäNÑS^ýQpe int OnCmdDispatch(xstring comdid) { xstring s = publiccode::GetUser().deptname; if (comdid == L"xmUpload") { return OnAddAttachment(); } if (comdid == L"xmDelete") { return OnDeleteFile(); } if (comdid == L"xmOpen") { return OnDocumentOpen(); } 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)&DocTest::OnXCommand); //·ƒÖS&q¹p‹NöN ÿ(uŽN͑nå]wQag //AttachEvent(L"WM_SETFOCUS",OnSetFocus); return 1; } /* int OnRetrieve() { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg(L"xxx",L"xxx"); if (getUrl(L"",arg.GetString(),x)!=1) { trace(x.GetXmlDoc().text); return -1; }else { //dw_list.Retrieve(x); //dw_list.Redraw(); } return 1; } */ int SetListViewHeaderColumn(xstring Url) { const int LVCFMT_LEFT = 0; for (int i = 0; i < 3; i++) lv_view.DeleteColumn(1); lv_view.InsertColumn(0, L"Rú^åeg", LVCFMT_LEFT, 80, 0); lv_view.InsertColumn(0, L"Rú^ºNXT", LVCFMT_LEFT, 80, 0); lv_view.InsertColumn(0, L" Tðy", 0, 120, 0); columnCount = 3; return 1; } int Retrieve(xstring entityid) { lv_view.DeleteItemAll(); xstring src = L"object/supplier"; xml x = ViewObject::RetrieveData(L"/sale/data/TDocument3/folder/listex", L"src", src, L"entityid", entityid); if (x) { KXMLDOMElement ele = x.documentElement(); KXMLDOMNodeList nlist = ele.selectNodes(L"*"); int s = nlist.length(); if (s > 0) { for (int i = 0; i < s; i++) { KXMLDOMElement e = nlist.item(i); xstring name = e.getAttribute(L"caption"); int nItem = lv_view.InsertItemEx(0, name, 23, e); lv_view.SetItemText(nItem, 1, e.getAttribute(L"Creator")); lv_view.SetItemText(nItem, 2, e.getAttribute(L"CreateDate")); } } } return 1; } int onload() { SetArg(); lv_view = GetControl(L"lv_view"); columnCount = 0; SetListViewHeaderColumn(L""); AttachEvent(L"lv_view", L"NM_DBLCLK", (FEvent)&DocTest::OnListViewDoubleClicked); if (GetWinParam()) { xaserverarg arg = GetArg(); entityid = arg.GetArgString(L"entityid"); Retrieve(entityid); } OnAttachEvent(); return 1; } int onloaded() { //SetAgent(); return 1; } };