þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class PaperCardReconciliation : public frame { xdwgrid dw_list; string keyword; xdatetimepick sdate; xdatetimepick edate; xdwgrid dw_goods; xdwtable dw_arg; string DatePicker; string DatePickerEx; 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; } int OnSave() { xml x = new xml; x.setNativePointer(xml::CreateInstance()); msxml::IXMLDOMDocument xdoc = x.GetXmlDoc(); dw_list.DwUpdateAllToEx(xdoc); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("content", x.GetXml()); //alert(x.GetXml()); if (url::get("/sale/data/Expense3/update/PaperItemListUpdate", arg.GetString(), x) != 1) { string error = x.GetXmlDoc().text; alert("err:" + error); return 1; } alert("OÝ[XbRŸÿ"); dw_list.ResetUpdateStatus(); return 1; } //q&p¹oÀm;YtQýep int OnSetFocus(ref TEvent evt, int param) { //‘Ín]åQwga SetAgent(); return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "xmRefresh") { OnRetrieve(DatePicker, DatePickerEx); } else if (comdid == "xmSave") { return OnSave(); } else if (comdid == "xmSaveAs") { dw_list.SaveAs(""); return 1; } 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); AttachEvent("cbx_state", "CBN_SELCHANGE", OnDatePicker); AttachEvent("sle_search2", "CBN_SELCHANGE", OnDatePickerEx); AttachEvent("dw_list", "DWV_ROWFOCUSCHANGED", OnRowChanged); AttachEvent("dw_list", "DWV_DOUBLECLICKED", OnDoubleClicked);//ˆLSÌQû } int OnDoubleClicked(ref TNotifyEvent evt, int p) { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("POItemID", dw_list.GetItemString(dw_list.GetRow(), "POItemID")); OpenWindow("dev:xpage[PaperItemMaint.vx]", cast(arg as int)); return 1; } int OnRowChanged(ref TNotifyEvent evt, int p) { ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); int row = hdr.row; if (row < 1) return 1; int hCursor = xutil::SetCursorWait(); string POItemID = dw_list.GetItemString(row, "POItemID"); xml x = ViewObject::RetrieveData("/sale/data/Expense3/view/SourcingItem", "POItemID", POItemID); //alert(x.GetXmlDoc().text); if (x) dw_goods.Retrieve(x); else dw_goods.Reset(); dw_goods.Redraw(); dw_goods.SetReadOnly(true); xutil::RestoreCursor(hCursor); return 1; } int OnDatePickerEx(ref TCommandEvent evt, int lParam) { int h = xcombobox::GetCurSel(evt.hCtrl); if (h > -1) { string txt = xcombobox::GetLBText(evt.hCtrl, h); if (txt == "Qhè") { DatePickerEx = "1"; OnRetrieve(DatePicker, DatePickerEx); } else if (txt == "N Nô") { DatePickerEx = "2"; OnRetrieve(DatePicker, DatePickerEx); } } trace(DatePickerEx); return 1; } int OnDatePicker(ref TCommandEvent evt, int lParam) { int h = xcombobox::GetCurSel(evt.hCtrl); if (h > -1) { string txt = xcombobox::GetLBText(evt.hCtrl, h); if (txt == "N SUeåg") { DatePicker = "PODate"; OnRetrieve(DatePicker, DatePickerEx); } else if (txt == "NØk>eåg") { DatePicker = "PaymentDate"; OnRetrieve(DatePicker, DatePickerEx); } else if (txt == "ETD") { DatePicker = "ETD"; OnRetrieve(DatePicker, DatePickerEx); } } return 1; } string GetQueryArg() { dw_arg.AcceptText(); xml x = new xml; x.setNativePointer(xml::CreateInstance()); dw_arg.DwUpdateAllTo(x.GetXmlDoc()); return x.GetXml(); } int OnRetrieve(string DatePicker, string DatePickerEx) { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("QueryTxt", GetControl("sle_search").GetText()); arg.AddArg("QueryTxt2", GetControl("sle_search1").GetText()); arg.AddArg("QueryArg", GetQueryArg()); arg.AddArg("DatePicker", DatePicker); arg.AddArg("DatePickerEx", DatePickerEx); trace(GetControl("sle_search").GetText() + "=====" + GetQueryArg() + "=====" + DatePicker + "=====" + GetControl("sle_search1").GetText() + "=====" + DatePickerEx + "====="); if (getUrl("/sale/data/Expense3/view/PaperItemList", arg.GetString(), x) != 1) { trace(x.GetXmlDoc().text); return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); } return 1; } int onload() { dw_list = GetControl("dw_list"); dw_list.openUrl("/sale/view/Expense3/PaperItemList"); dw_list.SetColumnState("POItemID", false); dw_list.SetColumnState("SOLineID", false); dw_list.SetColumnState("DeliveryFactory", false); dw_list.SetColumnState("DeliveryAddr", false); dw_list.SetColumnState("PartyContact", false); dw_list.SetColumnState("ETD", false); dw_list.SetColumnState("InvoiceNo", false); dw_arg = GetControl("dw_arg"); dw_arg.openUrl("/sale/view/AR/template/queryarg"); dw_arg.SetColHeaderHeight(0); dw_arg.SetRowSelectorWidth(0); dw_arg.SetHScrollState(false); dw_arg.SetVScrollState(false); dw_arg.SetItemString(1, "DateType", "g,g"); dw_goods = GetControl("dw_goods"); dw_goods.openUrl("/sale/view/Expense3/SourcingItem"); dw_goods.SetColumnState("POID", false); dw_goods.SetColumnState("SOLineID", false); dw_goods.SetColumnState("ItemID", false); dw_goods.SetColumnState("POItemID", false); dw_goods.SetColumnState("GDNLineID", false); dw_goods.SetColumnState("Amount", false); dw_goods.SetColumnState("Swapthecost", false); DatePickerEx = "1"; OnAttachEvent(); return 1; } int onloaded() { SetAgent(); return 1; } }; ]