þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class SampleRequestFormList : public frame { xdwgrid dw_list; xdatetimepick sdate; xdatetimepick edate; xnode m_agentNode; //Agent Condition 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(); SetAgent("list", GetEntityID(1)); return 1; } string GetEntityName(int pr) { return "SampleRequest"; } string GetEntityID(int pr) { int row = dw_list.GetRow(); string id = dw_list.GetItemString(row, "RequestID"); return id; } int ProcessUsedArg(xaserverarg arg) { string EntityIDList = ""; int ll_row = dw_list.GetNextSelectRow(1); while (ll_row > 0 && ll_row <= dw_list.GetRowCount()) { string id = dw_list.GetItemString(ll_row, "RequestID"); if (EntityIDList == "") EntityIDList = id; else EntityIDList += "," + id; ll_row = dw_list.GetNextSelectRow(ll_row + 1); } if (EntityIDList != "") arg.AddArg("EntityID", EntityIDList); return 1; } int OnRowChanged(ref TNotifyEvent evt, int p) { ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); int row = hdr.row; SetAgent("list", dw_list.GetItemString(row, "RequestID")); return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "xmSearch") { OnRetrieve(); } else if (comdid == "action:bill.new" || comdid == "xmAdd") { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("HWND", GetHWND().toString()); arg.AddArg("ApproveStatus", "e°^ú"); OpenWindow("dev:xpage[maint.samplesequest.vx]", cast(arg as int)); } else if (comdid == "action:bill.open" || comdid == "xmEdit") { if (dw_list.GetRow() < 1) return 0; arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string RequestID = dw_list.GetGuid(dw_list.GetRow()); string ApproveStatus = dw_list.GetItemString(dw_list.GetRow(), "ApproveStatus"); arg.AddArg("RequestID", RequestID); arg.AddArg("ApproveStatus", ApproveStatus); arg.AddArg("HWND", GetHWND().toString()); OpenWindow("dev:xpage[maint.samplesequest.vx]", cast(arg as int)); } else if (comdid == "action:bill.delete" || comdid == "xmDelete") { if (dw_list.GetRow() < 1) return 0; string EntityID = dw_list.GetGuid(dw_list.GetRow()); int MB_OKCANCEL = 1; int IDOK = 1; int ret = win32::MessageBox(GetHWND(), "xn‹¤R –dh7TÁ—lBSU?", "cÐy:", MB_OKCANCEL); if (ret == IDOK) { ViewObject::RetrieveData("/sale/data/expense3/delete/sampleRequest", "EntityID", EntityID); OnRetrieve(); } } else if (comdid == "action:bill.refresh" || comdid == "xmRefresh") { OnRetrieve(); } else if (comdid == "xmSaveAs") { string userno = publiccode::GetUser().no; if (userno == "00601" || userno == "00701" || userno == "00603" || userno == "admin") { dw_list.SaveAs(""); } return 1; } else if (comdid == "action:bill.Remarks") { OnSourceRemark(); } else if (comdid == "action:bill.Document") { xaserverarg arg5 = new xaserverarg; arg5.setNativePointer(arg5.CreateInstance()); string guid = dw_list.GetGuid(dw_list.GetRow()); string ApproveStatus5 = dw_list.GetItemString(dw_list.GetRow(), "ApproveStatus"); arg5.AddArg("entityid", guid); arg5.AddArg("ApproveStatus", ApproveStatus5); int p5 = cast(arg5 as int); OpenWindow("dev:xpage[maint.Document.SampleRequestForm.vx]", p5); return 1; } else if (comdid == "action:bill.Supplieren") { xaserverarg arg2 = new xaserverarg; arg2.setNativePointer(arg2.CreateInstance()); arg2.AddArg("EntityID", ""); OpenWindow("dev:xpage[maint.Owner.Supplier.v3.vx]", cast(arg2 as int)); return 1; } else if (comdid == "action:bill.check.ask") { string ID = dw_list.GetGuid(dw_list.GetRow()); 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 EntityIDEx = dw_list.GetGuid(dw_list.GetRow()); xml xx = ViewObject::RetrieveData("/sale/data/expense3/view/SampleRequestFormJudge", "EntityID", EntityIDEx); string Results = xx.GetXmlDoc().text; if (Results != "") { alert(Results); return 0; } ProcessFlowAction("action:bill.check.ask", 1); win32::PostMessage(GetFrameWindow().GetHWND(), 0x401, "xmRefresh", 0); return 1; } else if (comdid == "action:bill.check.askunagree") { ProcessFlowAction("action:bill.check.askunagree", 1); win32::PostMessage(GetFrameWindow().GetHWND(), 0x401, "xmRefresh", 0); return 1; } else if (comdid.find("action:", 0) >= 0) { if (dw_list.GetRow() < 1) return 0; int ret1 = ProcessFlowAction(comdid, 1); /*if(comdid=="action:bill.check.ask") { //onDocument(); win32::PostMessage(GetFrameWindow().GetHWND(),0x401,"xmRefresh",0); }*/ return ret1; } return 0; } int OnSourceRemark() { xml x = ViewObject::RetrieveData("/sale/data/TradeFinance3/GetSetUpRemarks", "Type", "h7TÁ—lBSU"); msxml::IXMLDOMNodeList items = x.GetXmlDoc().selectNodes("data/Item"); msxml::IXMLDOMNode t = items.item(0); string Content = ""; if (t.selectSingleNode("Content")) { Content = t.selectSingleNode("Content").text; } xaserverarg arg1 = new xaserverarg; arg1.setNativePointer(arg1.CreateInstance()); //arg1.AddArg("value","ÿh7TÁ9‘ј\NŽ200QCÿ \r\n NR¡Sэw-‘Ǎ-XkQ™-‘Ǎ-~ĕÇ-‘Ǎ-~ÏtÇ-NR¡TXÇ-NR¡N;{¡Ç-b„_`;\r\n\nÿh7TÁ9‘јY'NŽ{INŽ200QCÿ \r\n NR¡Sэw-‘Ǎ-XkQ™-‘Ǎ-~ĕÇ-‘Ǎ-~ÏtÇ-NR¡TXÇ-NR¡N;{¡Ç-_`;Ç \r\n\n"R¡b¥•—lB:9u(e/NؗW(9u([¡byÇNKTÿ eéNŽmAz S†SòN-[¡byÇeö•ô,9u(N [Wb¥•"); arg1.AddArg("value", Content); OpenWindow("dev:xpage[memo.edit.new.vx]", arg1.getNativePointer()); return 1; } int OnDoubleClicked(ref TNotifyEvent evt, int p) { ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); string colname = hdr.colname; int row = hdr.row; int hCursor = xutil::SetCursorWait(); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string RequestID = dw_list.GetGuid(row); string ApproveStatus = dw_list.GetItemString(row, "ApproveStatus"); arg.AddArg("RequestID", RequestID); arg.AddArg("ApproveStatus", ApproveStatus); OpenWindow("dev:xpage[maint.samplesequest.vx]", cast(arg as int)); xutil::RestoreCursor(hCursor); return 1; } //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); AttachEvent("dw_list", "DWV_DOUBLECLICKED", OnDoubleClicked); AttachEvent("dw_list", "DWV_ROWFOCUSCHANGED", OnRowChanged); } int OnRetrieve() { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string sdatetxt = ""; string edatetxt = ""; if (sdate.IsChecked()) sdatetxt = sdate.GetText(); if (edate.IsChecked()) edatetxt = edate.GetText(); xcontrol query = GetControl("sl_search"); string keyword = query.GetText(); arg.AddArg("keyword", keyword); arg.AddArg("sdate", sdatetxt); arg.AddArg("edate", edatetxt); int hCursor = xutil::SetCursorWait(); if (getUrl("/sale/data/expense3/view/sapleRequestList", arg.GetString(), x) != 1) { trace(x.GetXmlDoc().text); return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); dw_list.SetReadOnly(true); } xutil::RestoreCursor(hCursor); return 1; } int onload() { sdate = GetControl("sdate"); edate = GetControl("edate"); dw_list = GetControl("dw_list"); dw_list.openUrl("/sale/view/expense3/SampleRequest/list"); string currdate = publiccode::GetCurrentDate(); dw_list.SetColumnState("RequestID", false); int curryear = currdate.mid(0, 4).toInt(); sdate.SetDatetime(curryear - 1, 1, 1); OnAttachEvent(); OnRetrieve(); dw_list.SetReadOnly(true); return 1; } int onloaded() {/* if(dw_list.GetRowCount > 0) SetAgent("list",GetEntityID(1)); else */ SetAgent("list", dw_list.GetItemString(1, "RequestID")); } }; ]