þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class CommissionExpenseWin : public xframe { xdwgrid dw_list; xdatetimepick sdate; xdatetimepick edate; xdwtable dw_arg; xnode m_agentNode; //Agent Condition string DatePicker; 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 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/Commission", arg.GetString(), x) != 1) { string error = x.GetXmlDoc().text; alert("err:" + error); return 1; } //alert(x.GetXml()); alert("OÝ[XbRŸÿ"); dw_list.ResetUpdateStatus(); return 1; } int OnItemChanged(ref TNotifyEvent evt, int p) { ref DWNMHDR hdr = trust(evt.pnmh as ref DWNMHDR); string colname = hdr.colname; string value = hdr.data; string dwname = "dw_list"; if (value != "") { //alert(dwname); msxml::IXMLDOMNodeList nlist = GetElement().selectNodes("//*[@name='" + dwname + "']/trans[@for='" + colname + "']"); ViewObject::TransData(nlist, dw_list, hdr.row, colname, value); } return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "xmAddRow") { int row = dw_list.GetRowCount(); dw_list.InsertRow(0); string suserid = publiccode::GetUser().id; string susername = publiccode::GetUser().name; dw_list.SetItemString(row + 1, "CreateID", suserid); dw_list.SetItemDisplayString(row + 1, "CreateID", susername); string sdate1 = publiccode::GetCurrentDate(); dw_list.SetItemString(row + 1, "CreateDate", sdate1); return 1; } else if (comdid == "xmDeleteRow") { dw_list.DeleteRow(0); return 1; } else if (comdid == "xmSave") { OnSave(); } else if (comdid == "xmAdd") { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("HWND", GetHWND().toString()); int pa = arg.getNativePointer(); OpenWindow("dev:xpage[CommissionExpenseBase.vx]", pa); } else if (comdid == "SwitchTo") { OnSwitchTo(); return 1; } else if (comdid == "xmEdit") { arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); string CommissionExpenseID = dw_list.GetGuid(dw_list.GetRow()); arg.AddArg("CommissionExpenseID", CommissionExpenseID); arg.AddArg("HWND", GetHWND().toString()); pa = arg.getNativePointer(); OpenWindow("dev:xpage[CommissionExpenseBase.vx]", pa); } else if (comdid == "xmDelete") { string CommissionExpenseID1 = dw_list.GetGuid(dw_list.GetRow()); int MB_OKCANCEL = 1; int IDOK = 1; int ret = win32::MessageBox(GetHWND(), "xn‹¤R –dOc‘э9?", "cÐy:", MB_OKCANCEL); if (ret == IDOK) { ViewObject::RetrieveData("/sale/data/expense3/delete/CommissionExpense", "EntityID", CommissionExpenseID1); OnRetrieve(DatePicker); } } else if (comdid == "xmRefresh") { OnRetrieve(DatePicker); } return 0; } int OnSwitchTo() { string suserid = publiccode::GetUser().id; string susername = publiccode::GetUser().name; string sdate2 = publiccode::GetCurrentDate(); xaserverarg arg1 = new xaserverarg; arg1.setNativePointer(arg1.CreateInstance()); OpenWindow("dev:xpage[CommissionExpenseItem.vx]", cast(arg1 as int)); string str = arg1.GetArgString("items"); trace(str); if (str != "") { xml x = new xml; x.setNativePointer(xml::CreateInstance()); x.LoadXml(str); msxml::IXMLDOMNodeList items = x.GetXmlDoc().selectNodes("data/Item"); int len = items.length; int row = 0; for (int i = 0; i < len; i++) { row = dw_list.InsertRow(0); msxml::IXMLDOMNode t = items.item(i); if (t.selectSingleNode("InvoiceNo"))dw_list.SetItemString(row, "InvoiceNo", t.selectSingleNode("InvoiceNo").text); if (t.selectSingleNode("CustomerName"))dw_list.SetItemString(row, "CustomerName", t.selectSingleNode("CustomerName").text); if (t.selectSingleNode("Amount"))dw_list.SetItemString(row, "Amount", t.selectSingleNode("Amount").text); if (t.selectSingleNode("SalesPerson"))dw_list.SetItemString(row, "SalesPerson", t.selectSingleNode("SalesPerson").text); if (t.selectSingleNode("OrgName"))dw_list.SetItemString(row, "OrgName", t.selectSingleNode("OrgName").text); if (t.selectSingleNode("PrivateCommissionAmount"))dw_list.SetItemString(row, "CommAmount", t.selectSingleNode("PrivateCommissionAmount").text); if (t.selectSingleNode("CurrencyCode"))dw_list.SetItemString(row, "CurrencyCode", t.selectSingleNode("CurrencyCode").text); if (t.selectSingleNode("Exchage"))dw_list.SetItemString(row, "Exchage", t.selectSingleNode("Exchage").text); dw_list.SetItemString(row, "CreateID", suserid); dw_list.SetItemDisplayString(row, "CreateID", susername); dw_list.SetItemString(row, "CreateDate", sdate2); dw_list.SetItemString(row, "CommDate", sdate2); } dw_list.Redraw(); } SetAgent(); return 1; } //T}NäYtN‹Nö int OnXCommand(ref TXCommandEvent evt, int param) { return OnCmdDispatch(evt.pStrID); } int OnDoubleClicked(ref TNotifyEvent evt, int p) { return OnCmdDispatch("xmEdit"); } 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_ITEMCHANGED", OnItemChanged); AttachEvent("dw_list", "DWV_DOUBLECLICKED", OnDoubleClicked);//ˆLSÌQû AttachEvent("cbx_state", "CBN_SELCHANGE", OnDatePicker); } 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 == "R6SUeåg") { DatePicker = "CommDate"; OnRetrieve(DatePicker); } else if (txt == "_UQeeåg") { DatePicker = "CreateDate"; OnRetrieve(DatePicker); } } 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) { 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("QueryArg", GetQueryArg()); arg.AddArg("DatePicker", DatePicker); if (getUrl("/sale/data/Expense3/view/Commission", arg.GetString(), x) != 1) { trace(x.GetXmlDoc().text); return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); } return 1; } int onload() { 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,^t"); dw_list = GetControl("dw_list"); dw_list.openUrl("/sale/view/Expense3/commission/list"); OnAttachEvent(); //dw_list.SetReadOnly(true); return 1; } int onloaded() { SetAgent(); OnRetrieve(DatePicker); return 1; } }; ]