þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class SamplerequestEdit : public frame { xdwtable dw_base; xnode m_agentNode; //Agent Condition int hObject; bool updated; string ApproveStatus; string positionname; 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; } string GetEntityName(int pr) { return "SampleRequest"; } string GetEntityID(int pr) { return dw_base.GetGuid(1); } //q&p¹oÀm;YtQýep int OnSetFocus(ref TEvent evt, int param) { //‘Ín]åQwga SetAgent(); return 1; } int OnSave() { string RequestNO = dw_base.GetItemString(1, "RequestNO"); xml x = new xml; if (RequestNO == "") { x = ViewObject::RetrieveData("/sale/data/expense3/view/MakeRequestNO"); RequestNO = x.GetXmlDoc().text; dw_base.SetItemString(1, "RequestNO", RequestNO); } x.setNativePointer(xml::CreateInstance()); dw_base.AcceptText(); dw_base.DwUpdateAllTo(x.GetXmlDoc()); xaserverarg arg = new xaserverarg; arg.setNativePointer(xaserverarg::CreateInstance()); arg.AddArg("content", x.GetXml()); if (url::get("/sale/data/expense3/update/samplerequest", arg.GetString(), x) != 1) { string error = x.GetXmlDoc().text; alert("err:" + error); return 1; } string str = x.GetXmlDoc().documentElement.getAttribute("text"); if (str == "true") { dw_base.ResetUpdateStatus(); dw_base.Redraw(); updated = true; alert("OÝ[XbRŸ!"); } else { alert("OÝ[XY1%!"); } return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "xmClose") { if (updated) win32::SendMessage(hObject, 0x401, "xmRefresh", 0); CloseWindow(); return 1; } else if (comdid == "xmAddImage") { onAddImage(); return 1; } else if (comdid == "Image") { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string guid = dw_base.GetGuid(1); if (guid.length() <= 0) { guid = publiccode::GetGuid(); dw_base.SetGuid(1, guid); } arg.AddArg("entityid", guid); arg.AddArg("ApproveStatus", ApproveStatus); int p3 = cast(arg as int); trace(dw_base.GetGuid(1)); OpenWindow("dev:xpage[maint.Document.SampleRequestForm.vx]", p3); return 1; } if (ApproveStatus == "e°^ú" || ApproveStatus == "Oîe9" || positionname.find(""R¡") >= 0) { if (comdid == "xmLookImage") { onLookImage(); return 1; } else if (comdid == "xmSave") { if (dw_base.GetItemString(1, "PurID") == "") { alert("‹÷ bé‘Ǎ-TX"); return 0; } OnSave(); } else if (comdid == "xmCheck") { string ID = dw_base.GetGuid(1); xml x = ViewObject::RetrieveData("/sale/data/TDocument3/attachment/GetDocCountEx_s", "entityid", ID); msxml::IXMLDOMNodeList items = x.GetXmlDoc().selectNodes("data/Item"); msxml::IXMLDOMNode t = items.item(0); if (t.selectSingleNode("count")) { string Count = t.selectSingleNode("count").text; if (Count.toInt() <= 0) { alert("g*N O VþrGÿ eàlÕ[¡by!"); return 0; } } string EntityID = dw_base.GetGuid(1); xml xx = ViewObject::RetrieveData("/sale/data/expense3/view/SampleRequestFormJudge", "EntityID", EntityID); string Results = xx.GetXmlDoc().text; if (Results != "") { alert(Results); return 0; } ProcessFlowAction("action:bill.check.ask", 1); win32::PostMessage(GetFrameWindow().GetHWND(), 0x401, "xmRefresh", 0); CloseWindow(); return 1; } } return 0; } int onAddImage() { string guid = dw_base.GetGuid(1); if (guid == "") { alert("‹÷QHOÝ[XOá`oÿ W(mûR VþrGÿ"); return 1; } else { if (guid.length() <= 0) { guid = publiccode::GetGuid(); dw_base.SetGuid(1, guid); } int ret1 = UpLoad(guid, "product"); if (ret1 == -1) return -1; if (ret1 == 0) { alert("N O e‡NöY1%"); return -1; } else { alert("N O e‡NöbRŸ"); } } return 1; } int onLookImage() { string guid = dw_base.GetGuid(1); int hCursor = xutil::SetCursorWait(); xaserverarg arg = ViewObject::MakeArg(); arg.AddArg("guid", guid); OpenWindow("dev:xpage[paperImage.vx]", arg.getNativePointer()); xutil::RestoreCursor(hCursor); return 1; } //--------- int UpLoad(string name, string typ) { string str = name.mid(0, 2); str = str.upper(); int ret1 = xaserver::Upload(typ + str, name + ".jpg", this.GetHWND(), "", false); return ret1; } //T}NäYtN‹Nö int OnXCommand(ref TXCommandEvent evt, int param) { return OnCmdDispatch(evt.pStrID); } int OnItemChanged(ref TNotifyEvent evt, int p) { ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); string colname = hdr.colname; string value = hdr.data; int row = hdr.row; if (colname == "FAID") { if (value == "") return 0; xml x = ViewObject::RetrieveData("/sale/data/expense3/view/getContactByFAID", "SupplierID", value); msxml::IXMLDOMNodeList items = x.GetXmlDoc().selectNodes("data/Item"); msxml::IXMLDOMNode t = items.item(0); if (t.selectSingleNode("Name")) { dw_base.SetItemString(1, "FAContactPerson", t.selectSingleNode("Name").text); } if (t.selectSingleNode("Mobile")) { dw_base.SetItemString(1, "FAContactMethod", t.selectSingleNode("Mobile").text); } } } int OnAttachEvent() { //~Ñ[š]åQwgap¹QûN‹Nö AttachEvent("WM_XCOMMAND", OnXCommand); //ƒ·SÖq&p¹N‹Nöÿ u(NŽ‘Ín]åQwga AttachEvent("WM_SETFOCUS", OnSetFocus); AttachEvent("dw_base", "DWV_ITEMCHANGED", OnItemChanged); } int OnRetrieve(string RequestID) { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("RequestID", RequestID); if (getUrl("/sale/data/expense3/view/getSapleRequestByID", arg.GetString(), x) != 1) { trace(x.GetXmlDoc().text); return -1; } else { dw_base.Retrieve(x); dw_base.Redraw(); } return 1; } int onload() { dw_base = GetControl("dw_base"); dw_base.openUrl("/sale/view/expense3/SampleRequest/Base"); dw_base.SetColHeaderHeight(0); dw_base.SetRowSelectorWidth(0); dw_base.SetHScrollState(false); dw_base.SetVScrollState(false); string EntityID = ""; hObject = 0; if (GetParam()) { xaserverarg arg = GetParam(); ApproveStatus = arg.GetArgString("ApproveStatus"); if (arg.GetArgString("RequestID")) { EntityID = arg.GetArgString("RequestID"); } else { EntityID = arg.GetArgString("EntityID"); } hObject = arg.GetArgString("HWND").toInt(); } if (EntityID != "") { OnRetrieve(EntityID); } else { string suserid = publiccode::GetUser().id; string susername = publiccode::GetUser().name; string sdate = publiccode::GetCurrentDate(); dw_base.SetItemString(1, "CreateDate", sdate); dw_base.SetItemString(1, "CreateorID", suserid); dw_base.SetItemString(1, "RequestDate", sdate); dw_base.SetItemString(1, "SaleID", suserid); dw_base.SetItemDisplayString(1, "SaleID", susername); ApproveStatus = "e°^ú"; } OnAttachEvent(); updated = false; positionname = publiccode::GetUser().positionname; if (positionname.find("NR¡") >= 0) { dw_base.SetItemString(1, "Position", "NR¡"); } if (positionname.find("‘Ǎ-") >= 0) { dw_base.SetItemString(1, "Position", "‘Ǎ-"); } return 1; } int onloaded() { SetAgent(); return 1; } }; ]