þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class DocSampleRequestForm : public xframe { //xdwgrid dw_list; xlistview lv_view; xnode m_agentNode; //Agent Condition int columnCount; string entityid; string ApproveStatus; int SetAgent() { string xfNodeAgentArea = "agentarea"; xnode anode = GetAgentNode(xfNodeAgentArea); if (m_agentNode) { SetAgentNodeContent(anode, m_agentNode); } else { msxml::IXMLDOMElement xframeElement = GetElement(); msxml::IXMLDOMElement agent = xframeElement.selectSingleNode("agent/" + xfNodeAgentArea + "[1]/*"); if (agent) { string s = agent.xml; m_agentNode = SetAgentNodeContent(anode, s); } } return 1; } //q&p¹oÀm;YtQýep int OnSetFocus(ref TEvent evt, int param) { //‘Ín]åQwga SetAgent(); return 1; } int OnListViewDoubleClicked(ref TEvent evt, int param) { //‘Ín]åQwga //SetAgent(); OnDocumentOpen(); //CloseWindow(); return 1; } int OnDocumentOpen() { //return 1; int LVNI_ALL = 0x0000; int LVNI_FOCUSED = 0x0001; int LVNI_SELECTED = 0x0002; int LVNI_CUT = 0x0004; int LVNI_DROPHILITED = 0x0008; int nItem = xlistview::GetNextItem(lv_view.GetId(), -1, LVNI_FOCUSED); if (nItem < 0) return 1; int LVIF_PARAM = 0x0004; lvitem lvItem; lvItem.iItem = nItem; lvItem.iSubItem = 0; lvItem.mask = LVIF_PARAM; xlistview::GetItem(lv_view.GetId(), lvItem); msxml::IXMLDOMElement ele = trust(lvItem.lParam as msxml::IXMLDOMElement); string src = ele.getAttribute("url"); string name = ele.getAttribute("caption"); string file = ""; if (src.find("/file/") > 0) file = src.mid(src.find("/file/") + 6, 9999); if (file == "") return 1; string str = file.left(2); string ext = ""; if (name.find(".") >= 0) ext = name.mid(name.find("."), name.length()); string sfile = file; xaserverarg arg = GetParam(); if (arg) { arg.AddArg("result", "ok"); if ((arg.GetArgString("process") == "path" || arg.GetArgString("process") == "data")) { arg.AddArg("path", src); arg.AddArg("filename", name); arg.AddArg("src", "/business/attachment/" + str + "/" + file + ".jpg"); if (arg.GetArgString("process") == "path") return 1; } } /* const string d = m_Html.GetData(p.object); if(d == "") return -1; string file = d.mid(0, d.find("|##@@|",0)); string name = d.mid(d.find("|##@@|",0)+6, d.length()); */ xaserver::CreateDirectory("C:/Temp"); if (arg) { if (arg.GetArgString("process") == "data") { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserver::LoadUrl(GetServerUrl(), "/business/attachment/" + str + "/" + file + ".jpg", "", x); arg.AddArg("data", x.GetXml()); return 1; } } int openRet = xaserver::DownLoadFile(GetServerUrl(), "/business/attachment/" + str + "/" + file + ".jpg", "", "C:/Temp/" + sfile + ext); //alert("/business/attachment/"+str+"/"+ file+".jpg"); if (openRet < 0) { alert("e‡NöbS_Y1%1ÿ"); return -1; } //openRet = win32::ShellExecute(0,"open","C:/Temp/"+name,"","",5); openRet = win32::ShellExecute(0, "open", "C:/Temp/" + sfile + ext, "", "", 5); if (openRet < 32) { alert("e‡NöbS_Y1%2ÿ"); return -1; } return 1; } int OnAddAttachment() { string sguid = publiccode::GetGuid(); string sname = sguid; string str = sname.mid(0, 2); str = str.upper(); string suri = "attachment" + str; string ret = xaserver::UploadFile(suri, sname + ".jpg", this.GetHWND(), "", false); if (ret == "-1") { alert("N O v„e‡Nöl¡ bé!"); return 0; } else { while (ret.find("\\", 0) >= 0) ret = ret.mid(ret.find("\\", 0) + 1, 9999); string myurl = "object/supplier"; xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg args = new xaserverarg; args.setNativePointer(args.CreateInstance()); args.AddArg("myurl", myurl); args.AddArg("name", ret); args.AddArg("filepath", sname); args.AddArg("fileext", ""); args.AddArg("filesource", ret); args.AddArg("entityid", entityid); if (url::get("/sale/data/TDocument3/attachment/addex", args.GetString(), x) != 1) { alert("OÝ[XQú•N†!"); return 0; } else { alert(x.GetXmlDoc().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 = xlistview::GetNextItem(lv_view.GetId(), -1, LVNI_FOCUSED); if (nItem < 0) return 1; int LVIF_PARAM = 0x0004; lvitem lvItem; lvItem.iItem = nItem; lvItem.iSubItem = 0; lvItem.mask = LVIF_PARAM; xlistview::GetItem(lv_view.GetId(), lvItem); msxml::IXMLDOMElement ele = trust(lvItem.lParam as msxml::IXMLDOMElement); string src = ele.getAttribute("url"); string file = ""; if (src.find("/file/") > 0) file = src.mid(src.find("/file/") + 6, 9999); if (file == "") return 1; string name = ele.getAttribute("caption"); xaserver::CreateDirectory("C:/Temp"); string str = file.left(2); string ext = ""; if (name.find(".") >= 0) ext = name.mid(name.find("."), name.length()); string sfile = file; alert("/business/attachment/" + str + "/" + file + ".jpg"); int openRet = xaserver::DownLoadFile(GetServerUrl(), "/business/attachment/" + str + "/" + file + ".jpg", "", "C:/Temp/" + sfile + ext); if (openRet < 0) { alert("e‡NöbS_Y1%1ÿ"); return -1; } openRet = win32::ShellExecute(0, "open", "C:/Temp/" + sfile + ext, "", "", 5); if (openRet < 32) { alert("e‡NöbS_Y1%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 = xlistview::GetNextItem(lv_view.GetId(), -1, LVNI_FOCUSED); if (nItem < 0) return 1; int LVIF_PARAM = 0x0004; lvitem lvItem; lvItem.iItem = nItem; lvItem.iSubItem = 0; lvItem.mask = LVIF_PARAM; xlistview::GetItem(lv_view.GetId(), lvItem); msxml::IXMLDOMElement ele = trust(lvItem.lParam as msxml::IXMLDOMElement); string src = ele.getAttribute("url"); string file = ""; if (src.find("/file/") > 0) file = src.mid(src.find("/file/") + 6, 9999); if (file == "") return 1; string name = ele.getAttribute("caption"); if (win32::MessageBox(GetHWND(), "xn[š‰R –de‡Nö" + name + "ÿ", "cÐy:", 1) == 2) return 0; xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("filepath", file); xml x = ViewObject::MakeXml(); if (url::get("/sale/data/TDocument3/file/delete", arg.GetString(), x) != 1) { alert("R –dQú•N†!"); return 1; } else { //alert(x.GetXmlDoc().text); xlistview::DeleteItem(lv_view.GetId(), nItem); } return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (ApproveStatus == "e°^ú" || ApproveStatus == "Oîe9") { if (comdid == "xmUpload") { return OnAddAttachment(); } if (comdid == "xmDelete") { return OnDeleteFile(); } } if (comdid == "xmOpen") { return OnDocumentOpen(); } return 0; } //T}NäYtN‹Nö int OnXCommand(ref TXCommandEvent evt, int param) { return OnCmdDispatch(evt.pStrID); } int OnAttachEvent() { //~Ñ[š]åQwgap¹QûN‹Nö AttachEvent("WM_XCOMMAND", OnXCommand); //ƒ·SÖq&p¹N‹Nöÿ u(NŽ‘Ín]åQwga //AttachEvent("WM_SETFOCUS",OnSetFocus); } /* int OnRetrieve() { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("xxx","xxx"); if (getUrl("",arg.GetString(),x)!=1) { trace(x.GetXmlDoc().text); return -1; }else { //dw_list.Retrieve(x); //dw_list.Redraw(); } return 1; } */ int SetListViewHeaderColumn(string Url) { const int LVCFMT_LEFT = 0; for (int i = 0; i < 3; i++) lv_view.DeleteColumn(lv_view.GetId(), 1); lv_view.InsertColumn(lv_view.GetId(), 0, "R^úeåg", LVCFMT_LEFT, 80, 0); lv_view.InsertColumn(lv_view.GetId(), 0, "R^úNºTX", LVCFMT_LEFT, 80, 0); lv_view.InsertColumn(lv_view.GetId(), 0, "T yð", 0, 120, 0); columnCount = 3; return 1; } int Retrieve(string entityid) { lv_view.DeleteItemAll(lv_view.GetId()); string src = "object/supplier"; xml x = ViewObject::RetrieveData("/sale/data/TDocument3/folder/listex", "src", src, "entityid", entityid); if (x) { msxml::IXMLDOMElement ele = x.GetXmlDoc().documentElement; msxml::IXMLDOMNodeList nlist = ele.SelectNodes("*"); int s = nlist.length; if (s > 0) { for (int i = 0; i < s; i++) { msxml::IXMLDOMElement e = nlist.item(i); string name = e.getAttribute("caption"); int nItem = xlistview::InsertItemEx(lv_view.GetId(), 0, name, 23, cast(e as int)); xlistview::SetItemText(lv_view.GetId(), nItem, 1, e.getAttribute("Creator")); xlistview::SetItemText(lv_view.GetId(), nItem, 2, e.getAttribute("CreateDate")); } } } return 1; } int onload() { lv_view = GetControl("lv_view"); columnCount = 0; SetListViewHeaderColumn(""); AttachEvent("lv_view", "NM_DBLCLK", OnListViewDoubleClicked); if (GetParam()) { xaserverarg arg = GetParam(); entityid = arg.GetArgString("entityid"); ApproveStatus = arg.GetArgString("ApproveStatus"); Retrieve(entityid); } OnAttachEvent(); return 1; } int onloaded() { //SetAgent(); return 1; } }; ]