þÿuse "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" unit trade [ class FreightExpenseInputWin : public frame { xdwgrid dw_list; xdwtable dw_arg; 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 "Freight3"; } string GetEntityID(int pr) { int row = dw_list.GetRow(); string id = dw_list.GetItemString(row, "FreightExpenseID"); 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, "FreightExpenseID"); 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, "FreightExpenseID")); return 1; } int ViewUpdate(int pr, string updateItem, xaserverarg arg) { if (updateItem == "del") { int DelRow = this.dw_list.GetRow(); this.dw_list.DeleteRow(DelRow); } else if (updateItem == "setstate") { int row = this.dw_list.GetRow(); if (row < 1) return 1; SetAgent("list", GetEntityID(1)); if (arg.GetArgString("state") != "") dw_list.SetItemString(row, "ApplyStatus", arg.GetArgString("state")); if (arg.GetArgString("billstatus") != "") { string billstatus = arg.GetArgString("billstatus"); string statusName = GetBillStatusName(billstatus); dw_list.SetItemString(row, "Status", billstatus); dw_list.SetItemDisplayString(row, "Status", statusName); } this.dw_list.Redraw(); } 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()); //return 1; if (url::get("/sale/data/expense3/update/freight", 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 OnDoubleClicked(ref TNotifyEvent evt, int p) { return OnCmdDispatch("xmModifyRow"); } 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; } int OnModifyRow(int row) { xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("FreightExpenseID", dw_list.GetItemString(row, "FreightExpenseID")); OpenWindow("dev:xpage[FreightExpenseItem.vx]", cast(arg as int)); return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "action:bill.new" || comdid == "xmAddRow") { OpenWindow("dev:xpage[FreightExpenseItem.vx]", 0); return 1; } else if (comdid == "action:bill.open" || comdid == "xmModifyRow") { return OnModifyRow(dw_list.GetRow()); } else if (comdid == "action:bill.delete" || comdid == "xmDeleteRow") { string EntityID = dw_list.GetGuid(dw_list.GetRow()); int MB_OKCANCEL = 1; int IDOK = 1; int ret = win32::MessageBox(GetHWND(), "xn‹¤R –d9u(?", "cÐy:", MB_OKCANCEL); if (ret == IDOK) { ViewObject::RetrieveData("/sale/data/expense3/delete/frightExpense", "EntityID", EntityID); OnRetrieve(""); } return 1; } else if (comdid == "action:bill.refresh" || comdid == "xmSearch") { return OnRetrieve(""); } else if (comdid == "xmSave") { OnSave(); } else if (comdid == "xmAnalysis") { int hCursor = xutil::SetCursorWait(); string str = dw_list.DataAnalysis(""); xaserverarg arg0 = new xaserverarg; arg0.setNativePointer(arg0.CreateInstance()); arg0.AddArg("html", str); int obj = cast(dw_list as int); arg0.AddArg("obj", obj.toString()); OpenWindow("dev:xpage[data.vanalysis.vx]", cast(arg0 as int)); xutil::RestoreCursor(hCursor); return 1; } else if (comdid.find("action:", 0) >= 0) { int ret1 = ProcessFlowAction(comdid, 1); if (comdid == "action:bill.check.ask") { win32::PostMessage(GetFrameWindow().GetHWND(), 0x401, "xmRefresh", 0); } return ret1; } 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); // AttachEvent("WM_SETFOCUS", OnSetFocus); AttachEvent("dw_list", "DWV_ITEMCHANGED", OnItemChanged); AttachEvent("dw_list", "DWV_DOUBLECLICKED", OnDoubleClicked);//ˆLSÌQû AttachEvent("dw_list", "DWV_ROWFOCUSCHANGED", OnRowChanged); AttachEvent("cbx_state", "CBN_SELCHANGE", OnCombboChanged); } int OnCombboChanged(ref TCommandEvent evt, int lParam) { string id = ""; string name = ""; int h = xcombobox::GetCurSel(evt.hCtrl); if (h > -1) { string txt = xcombobox::GetLBText(evt.hCtrl, h); string query = "---"; if (txt == "e°^ú") { dw_list.openUrl("/sale/view/Expense3/freight/list"); //dataUrl = "xsql:[GetFrData.xq]"; query = "1"; OnRetrieve(query); } else if (txt == "Qhè") { dw_list.openUrl("/sale/view/Expense3/freight/list"); //dataUrl = "xsql:[GetFrData.xq]"; query = ""; OnRetrieve(query); } else if (txt == "_…{~e6") { dw_list.openUrl("/sale/view/Expense3/freight/list"); //dataUrl = "xsql:[GetFrData.xq]"; query = "2"; OnRetrieve(query); } else if (txt == "Oîe9") { dw_list.openUrl("/sale/view/Expense3/freight/list"); //dataUrl = "xsql:[GetFrData.xq]"; query = "5"; OnRetrieve(query); } else if (txt == "]ò{~e6") { dw_list.openUrl("/sale/view/Expense3/freight/list"); //dataUrl = "xsql:[GetFrData.xq]"; query = "6"; OnRetrieve(query); } } 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 query) { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); //arg.AddArg("Status","1"); arg.AddArg("search", GetControl("search").GetText()); arg.AddArg("query", query); arg.AddArg("QueryArg", GetQueryArg()); trace(GetControl("search").GetText() + "=========" + query + "=========" + GetQueryArg()); if (getUrl("/sale/data/Expense3/view/freightex", arg.GetString(), x) != 1) { trace(x.GetXmlDoc().text); return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); } dw_list.SetReadOnly(true); return 1; } int onload() { dw_list = GetControl("dw_list"); dw_list.openUrl("/sale/view/Expense3/freight/list"); dw_list.SetColumnState("Amount3", 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"); OnAttachEvent(); return 1; } int onloaded() { //SetAgent(); OnRetrieve(""); SetAgent("list", GetEntityID(1)); return 1; } }; ] /* use "xcontrol.vframe.vbusiness.vd" use "xbase.vframe.vbusiness.vd" use "base.view.vd" use "datastore_bind.vd" unit trade [ class FreightExpenseInputWin : public frame { xdwgrid dw_list; xdwtable dw_arg; xnode m_agentNode; //Agent Condition string searchStr; string dataUrl; dsvcontrol datastore; 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 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,"FreightExpenseID"); if(EntityIDList == "") EntityIDList = id; else EntityIDList += "," + id; ll_row = dw_list.GetNextSelectRow(ll_row + 1); } if(EntityIDList != "") arg.AddArg("EntityID",EntityIDList); return 1; } string GetEntityName(int pr) { return "Freight3"; } string GetEntityID(int pr) { int row = dw_list.GetRow(); string id=dw_list.GetItemString(row,"FreightExpenseID"); return id; } int ViewUpdate(int pr,string updateItem,xaserverarg arg) { if( updateItem=="del") { int DelRow = this.dw_list.GetRow(); this.dw_list.DeleteRow(DelRow); } else if( updateItem=="setstate") { int row = this.dw_list.GetRow(); if (row < 1) return 1; SetAgent("list",GetEntityID(1)); if(arg.GetArgString("state") != "") dw_list.SetItemString(row, "ApplyStatus", arg.GetArgString("state")); if(arg.GetArgString("billstatus") != "") { string billstatus = arg.GetArgString("billstatus"); string statusName = GetBillStatusName(billstatus); dw_list.SetItemString(row, "Status", billstatus); dw_list.SetItemDisplayString(row, "Status", statusName); } this.dw_list.Redraw(); } 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,"FreightExpenseID")); return 1; } //q&p¹oÀm;YtQýep int OnSetFocus(ref TEvent evt,int param) { //‘Ín]åQwga SetAgent("list",GetEntityID(1)); 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()); if(url::get("/sale/data/expense3/update/freight", arg.GetString(),x)!=1) { string error = x.GetXmlDoc().text; alert("err:"+error); return 1; } alert("OÝ[XbRŸÿ"); dw_list.ResetUpdateStatus(); return 1; } int OnDoubleClicked(ref TNotifyEvent evt,int p) { return OnCmdDispatch("xmModifyRow"); } 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 != "") { msxml::IXMLDOMNodeList nlist = GetElement().selectNodes("//*[@name='"+dwname+"']/trans[@for='"+colname+"']"); ViewObject::TransData(nlist, dw_list, hdr.row, colname, value); } return 1; } int OnModifyRow(int row) { xaserverarg arg=new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("FreightExpenseID", dw_list.GetItemString(row,"FreightExpenseID")); OpenWindow("dev:xpage[FreightExpenseItem.vx]",cast(arg as int)); return 1; } int OnDelete() { int row = dw_list.GetNextSelectRow(1); if(row < 1) { alert("‹÷ béNˆLÛˆLR –d"); return 1; } //msxml::IXMLDOMElement ele = dw_list.GetRowElement(row); string FreightExpenseID = dw_list.GetItemString(row,"FreightExpenseID"); //gåw string InvoiceNo = dw_list.GetItemString(row,"InvoiceNo"); string status = dw_list.GetItemString(row,"Status"); xml y= ViewObject::RetrieveData("/sale/data/expense3/update/FreightExpenseApid","FreightExpenseID",FreightExpenseID); if(y){ string inv=y.GetXmlDoc().text; if(inv=="g "){ alert("kdSU"R¡]òNØk>N €ýR –dÿ"); return 1; } } if(status=="]òbyQÆ" || status=="]ò[¡h8" ){ alert("kdSU]ò[¡h8N €ýR –dÿ"); return 1; } xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg;//e>nSÂep arg.setNativePointer(arg.CreateInstance()); arg.AddArg("FreightExpenseID", FreightExpenseID); int res = win32::MessageBox(this.GetHWND(), "f/T&xn‹¤R –d"+InvoiceNo+"v„9u(?","cÐy:",4); if(res == 6){ if(getUrl("/sale/data/expense3/update/FreightExpensedelete", arg.GetString(),x)!=1) { string error = x.GetXmlDoc().text; alert("err:"+error); return 1; } alert("R –dbRŸ"); dw_list.DeleteRow(0); dw_list.SelectRow(row,false); //OnRetrieve("1"); } return 1; } int OnSaveCopy() { int row = dw_list.GetNextSelectRow(1); if(row < 0) { alert("‹÷ b鉁Y R6v„'NãQlSø"); return 0; } string FreightExpenseID = dw_list.GetItemString(row,"FreightExpenseID"); xaserverarg arg=new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("FreightExpenseIDs", FreightExpenseID); OpenWindow("dev:xpage[FreightExpenseItem.vx]",cast(arg as int)); return 1; } int OnSearchEx() { xaserverarg arg=new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("text", searchStr); OpenWindow("dev:xpage[search.dialog.vx]", cast(arg as int)); string str = arg.GetArgString("text"); if(str != searchStr) { searchStr = str; dw_list.Filter("*",searchStr); return 1; } return 1; } //T}NäSÑ^Qýep int OnCmdDispatch(string comdid) { if (comdid == "xmAddRow" || comdid=="action:bill.new") { OpenWindow("dev:xpage[FreightExpenseItem.vx]",0); return 1; } else if(comdid == "xmSearchEx") { return OnSearchEx(); } else if (comdid == "xmModifyRow") { return OnModifyRow(dw_list.GetRow()); } else if (comdid == "xmDeleteRow"|| comdid=="action:bill.delete") { return OnDelete(); } else if(comdid=="action:bill.refresh" || comdid=="xmSearch" ) { string payType2 = GetPayType(); //dataUrl = "xsql:[GetFrData.xq]"; if(payType2=="]ò{~e6") return OnRetrieve("6"); if(payType2=="Qhè") return OnRetrieve(""); return OnRetrieve("1"); } else if (comdid == "action:bill.open")//"xmModifyRow" { return OnModifyRow(dw_list.GetRow()); } else if (comdid == "action:bill.check.unagree")//"xmModifyRow" { //alert("111"); int row = dw_list.GetNextSelectRow(1); if(row < 1) { alert("‹÷ béNˆLÛˆLSÖmˆ"); return 1; } string box=dw_list.GetItemString(row,"box"); if(box=="f/"){ alert(""R¡]òNØk>ÿ ‹÷‹©"R¡\[ù^”NØk>epcnR –de¹Sïu3‹÷SÖmˆ"); return 1; }else{ return ProcessFlowAction(comdid, 1); } } else if(comdid=="xmAnalysis") { int hCursor = xutil::SetCursorWait(); string str = dw_list.DataAnalysis(""); xaserverarg arg=new xaserverarg; arg.setNativePointer(arg.CreateInstance()); arg.AddArg("html", str); int obj = cast(dw_list as int); arg.AddArg("obj",obj.toString()); OpenWindow("dev:xpage[data.vanalysis.vx]", cast(arg as int)); xutil::RestoreCursor(hCursor); return 1; } else if(comdid.find("action:",0)>=0) { int ret = ProcessFlowAction(comdid, 1); } else if(comdid == "xmSaveCopy") { return OnSaveCopy(); } return 0; } string GetPayType() { xcombobox cbx_type = GetControl("cbx_state"); int h = xcombobox::GetCurSel(cbx_type.GetId()); if(h<0) return ""; return xcombobox::GetLBText(cbx_type.GetId(), h); } int OnCombboChanged(ref TCommandEvent evt,int lParam) { string id = ""; string name = ""; int h = xcombobox::GetCurSel(evt.hCtrl); if(h > -1) { string txt = xcombobox::GetLBText(evt.hCtrl, h); string query ="---"; if(txt=="]ò{~e6") { dw_list.openUrl("/sale/view/Expense3/freight/list"); //dataUrl = "xsql:[GetFrData.xq]"; query="6"; OnRetrieve(query); } else if(txt=="Qhè") { dw_list.openUrl("/sale/view/Expense3/freight/list"); //dataUrl = "xsql:[GetFrData.xq]"; query=""; OnRetrieve(query); } else if(txt=="g*{~e6") { dw_list.openUrl("/sale/view/Expense3/freight/list"); //dataUrl = "xsql:[GetFrData.xq]"; query="1"; OnRetrieve(query); } } return 1; } //T}NäYtN‹Nö int OnXCommand(ref TXCommandEvent evt,int param) { return OnCmdDispatch(evt.pStrID); } int OnAttachEvent() { 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("dw_list","DWV_ROWFOCUSCHANGED",OnRowChanged); AttachEvent("cbx_state","CBN_SELCHANGE",OnCombboChanged); AttachEvent("dw_list","DWV_ROWFOCUSCHANGED",OnRowChanged);//~Ñ[šˆLfôe9‰æSÑN‹NöOnRowChanged } string GetQueryArg() { dw_arg.AcceptText(); xml x = new xml; x.setNativePointer(xml::CreateInstance()); dw_arg.DwUpdateAllTo(x.GetXmlDoc()); return x.GetXml(); } int OnRetrieveEx(string query) { //int hCursor = xutil::SetCursorWait(); int pdata = 0; int len = 0; xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); // arg.AddArg("QueryTxt",""); arg.AddArg("search",""); arg.AddArg("query",query); arg.AddArg("QueryArg",GetQueryArg()); if (xaserver::ProcessCmd(GetServerUrl(),"uri.hxsoft.com/xaserver/"+dataUrl , arg.GetString(),pdata,len,dw_list.GetId()) !=1) { //CloseRetrieveTip(); string str = pdata; trace(str); } int rowCount = datastore.Retrieve(pdata); dw_list.PostRetrieve(); dw_list.SetReadOnly(true); dw_list.SetSelectionMode(1); dw_list.Redraw(); //xutil::RestoreCursor(hCursor); return 1; } int OnRetrieve(string query) { xml x = new xml; x.setNativePointer(xml::CreateInstance()); xaserverarg arg = new xaserverarg; arg.setNativePointer(arg.CreateInstance()); //arg.AddArg("Status","1"); arg.AddArg("search",""); arg.AddArg("query",query); arg.AddArg("QueryArg",GetQueryArg()); if (getUrl("/sale/data/Expense3/view/freightex",arg.GetString(),x)!=1) { trace(x.GetXmlDoc().text); return -1; } else { dw_list.Retrieve(x); dw_list.Redraw(); dw_list.SetSelectionMode(4); dw_list.SetColumnState("SalesPersonID",false); dw_list.SetColumnState("FreightExpenseID",false); } dw_list.SetReadOnly(true); return 1; } int onload() { searchStr = ""; dw_list = GetControl("dw_list"); dw_list.openUrl("/sale/view/Expense3/freight/list"); dw_list.SetColumnState("SalesPersonID",false); dw_list.SetColumnState("FreightExpenseID",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"); OnAttachEvent(); return 1; } int onloaded() { //SetAgent(); SetAgent("list",GetEntityID(1)); //datastore = new dsvcontrol; //datastore.bind(dw_list); //dataUrl = "xsql:[GetFrData.xq]"; OnRetrieve("1"); return 1; } }; ] */