þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "supplier.view.vd" unit trade [ class asklistOwnerSupplierv3 : public xframe { xnode m_agentNode; //Agent Condition string m_agentCond; //Agent Node xdwgrid dw_list; 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 OnRetrieve() { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); if (getUrl("/sale/data/SupplierV3/entity/owner/asklist", arg.GetString(), x) != 1) { return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); dw_list.SetReadOnly(true); } return 1; } int OnOpen() { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); if (dw_list.GetRowCount() < 1) return 1; //alert(dw_list.GetItemString(dw_list.GetRow(),"SupplierID")); arg.AddArg("EntityID", dw_list.GetItemString(dw_list.GetRow(), "SupplierID")); //OpenWindow("dev:xpage[maint.Owner.Supplier.v3.vx]",cast(arg as int)); arg.AddArg("config", "/sale/view/SupplierV3/config/supplier/open"); OpenWindow("dev:xpage[maintex.Owner.Supplier.v3.vx]", arg.getNativePointer()); return 1; } int OnDoubleClicked(ref TNotifyEvent evt, int p) { int hCursor = xutil::SetCursorWait(); OnCmdDispatch("xmMaint"); xutil::RestoreCursor(hCursor); return 1; } 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_list", "DWV_DOUBLECLICKED", OnDoubleClicked); } //T}NäYtN‹Nö int OnXCommand(ref TXCommandEvent evt, int param) { return OnCmdDispatch(evt.pStrID); } int OnCmdDispatch(string comdid) { if (comdid == "xmMaint") { return OnOpen(); } else if (comdid == "xmRefresh") { return OnRetrieve(); } else if (comdid == "xmBack") { return OnBack(); } else if (comdid == "xmToSupplier") { return OnToSupplier(); } else if (comdid == "note") { return OnNote(); } return 1; } int OnNote() { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("EntityID", dw_list.GetItemString(dw_list.GetRow(), "SupplierID")); OpenWindow("dev:xpage[CommentaryEx.dialog.vx]", arg.getNativePointer()); return 1; } int SendNotice() { string NO = dw_list.GetItemString(dw_list.GetRow(), "PartyNo"); string Subject = dw_list.GetItemString(dw_list.GetRow(), "Name") + "ÿVސkc_O›^”UF"; string EntityID = dw_list.GetItemString(dw_list.GetRow(), "SupplierID"); string Category = "O›^”UFVސ"; string Reciever = dw_list.GetItemString(dw_list.GetRow(), "userNo"); string Content = ""; xml x = ViewObject::AddMessage(Category, Reciever, NO, EntityID, Subject, Content); return 1; } int OnBack() { if (dw_list.GetRow() < 1) return 1; int MB_YESNO = 0x00000004; int IDYES = 6; if (win32::MessageBox(GetHWND(), "Vސ" + dw_list.GetItemDisplayString(dw_list.GetRow(), "Name") + "u3‹÷?", "cÐy:", MB_YESNO) != IDYES) return 1; xml x = new xml; x.setNativePointer(x.CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("SupplierID", dw_list.GetItemString(dw_list.GetRow(), "SupplierID")); // trace(sguid); if (url::post("/sale/data/SupplierV3/entity/ask2owner", arg.GetString(), x) != 1) { string error = x.GetXmlDoc().text; trace(error); } SendNotice(); OnRetrieve(); return 1; } int OnToSupplier() { if (dw_list.GetRow() < 1) return 1; int MB_YESNO = 0x00000004; int IDYES = 6; if (win32::MessageBox(GetHWND(), dw_list.GetItemDisplayString(dw_list.GetRow(), "Name") + "lbkc_O›^”UF?", "cÐy:", MB_YESNO) != IDYES) return 1; xml x = new xml; x.setNativePointer(x.CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("SupplierID", dw_list.GetItemString(dw_list.GetRow(), "SupplierID")); if (url::post("/sale/data/SupplierV3/entity/ask2supplier", arg.GetString(), x) != 1) { string error = x.GetXmlDoc().text; trace(error); } OnRetrieve(); return 1; } int onload() { dw_list = GetControl("dw_list"); dw_list.openUrl("/sale/view/SupplierV3/template/supplier/list"); dw_list.SetColumnState("SupplierID", false); dw_list.SetColumnState("SupplierID", false); dw_list.SetColumnState("SourcingID", false); dw_list.SetColumnState("ApplyStatus", false); dw_list.SetColumnState("Class", false); dw_list.SetColumnState("userNo", false); return 1; } int onloaded() { SetAgent(); OnAttachEvent(); OnRetrieve(); return 1; } }; ]