| | |
|---|
| | | #include <wobject/xstring.hpp> |
|---|
| | | #include <xcontrol/xtreeview.hpp> |
|---|
| | | #include <xcontrol/xdwgrid.hpp> |
|---|
| | | |
|---|
| | | #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" |
|---|
| | | #include "viewobject/view.base.hpp" |
|---|
| | | |
|---|
| | | using xml = KXMLDOMDocument; |
|---|
| | | class __declspec(dllexport) Deduction : public xframe |
|---|
| | | { |
|---|
| | | public: |
|---|
| | | xdwgrid dw_list; |
|---|
| | | xstring EntityID; |
|---|
| | | xstring InvoiceNo; |
|---|
| | | |
|---|
| | | xnode m_agentNode; //Agent Condition |
|---|
| | | |
|---|
| | | public: |
|---|
| | | Deduction(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} |
|---|
| | | public: |
|---|
| | | static Deduction* CreateInstance(void* implPtr, void* hWnd) |
|---|
| | | { |
|---|
| | | Deduction* pWin = new Deduction(implPtr, (HWND)hWnd); |
|---|
| | | return pWin; |
|---|
| | | } |
|---|
| | | int SetAgent() |
|---|
| | | { |
|---|
| | | xstring xfNodeAgentArea = L"agentarea"; |
|---|
| | | xnode anode = GetAgentNode(xfNodeAgentArea); |
|---|
| | | if (m_agentNode) |
|---|
| | | { |
|---|
| | | SetAgentNode(anode, m_agentNode); |
|---|
| | | } |
|---|
| | | else |
|---|
| | | { |
|---|
| | | KXMLDOMElement xframeElement = GetElement(); |
|---|
| | | KXMLDOMElement agent = xframeElement.selectSingleNode(L"agent/" + xfNodeAgentArea + L"[1]/*"); |
|---|
| | | if (agent) |
|---|
| | | { |
|---|
| | | xstring s = agent.xml(); |
|---|
| | | m_agentNode = SetAgentNode(anode, s); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | int OnRowChanged(TEvent* evt, LPARAM p) |
|---|
| | | { |
|---|
| | | DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; |
|---|
| | | int row = hdr.row; |
|---|
| | | SetAgent(); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | //焦点激活处理函数 |
|---|
| | | int OnSetFocus(TEvent* evt, LPARAM param) |
|---|
| | | { |
|---|
| | | //重置工具条 |
|---|
| | | SetAgent(); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | //命令发布函数 |
|---|
| | | int OnCmdDispatch(xstring comdid) |
|---|
| | | { |
|---|
| | | if (comdid == L"xmSave") |
|---|
| | | { |
|---|
| | | OnSave(); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | if (comdid == L"xmSearch") |
|---|
| | | { |
|---|
| | | OnRetrieve(InvoiceNo, EntityID); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | if (comdid == L"xmClose") |
|---|
| | | { |
|---|
| | | CloseWindow(); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | return 0; |
|---|
| | | } |
|---|
| | | |
|---|
| | | //命令处理事件 |
|---|
| | | int OnXCommand(TEvent* evt, LPARAM param) |
|---|
| | | { |
|---|
| | | return OnCmdDispatch(evt->xcommand.pStrID); |
|---|
| | | } |
|---|
| | | |
|---|
| | | xstring GetGuid() |
|---|
| | | { |
|---|
| | | return publiccode::GetGuid(); |
|---|
| | | } |
|---|
| | | |
|---|
| | | int OnSave() |
|---|
| | | { |
|---|
| | | xml x; |
|---|
| | | |
|---|
| | | dw_list.AcceptText(); |
|---|
| | | dw_list.DwUpdateAllToEx(x); |
|---|
| | | xaserverarg arg ; |
|---|
| | | |
|---|
| | | arg.AddArg(L"content", x.xml()); |
|---|
| | | trace(x.xml()); |
|---|
| | | if (xurl::get(L"/sale/data/AR/update/ARDeduction", arg.GetString(), x) != 1) |
|---|
| | | { |
|---|
| | | xstring error = x.text(); |
|---|
| | | alert(L"err:" + error); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | xstring str = x.documentElement().getAttribute(L"text"); |
|---|
| | | if (str == L"true") |
|---|
| | | { |
|---|
| | | dw_list.ResetUpdateStatus(); |
|---|
| | | alert(L"保存成功!"); |
|---|
| | | } |
|---|
| | | else |
|---|
| | | { |
|---|
| | | alert(L"保存失败!"); |
|---|
| | | } |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | int OnItemChanged(TEvent* evt, LPARAM p) |
|---|
| | | { |
|---|
| | | DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; |
|---|
| | | xstring colname = hdr.colname; |
|---|
| | | xstring value = hdr.data; |
|---|
| | | int row = hdr.row; |
|---|
| | | xstring dwname = L"dw_list"; |
|---|
| | | if (colname == L"DeductionAmount") |
|---|
| | | { |
|---|
| | | dw_list.SetItemString(row, L"SettlementAdjustID", EntityID); |
|---|
| | | xstring id = publiccode::GetGuid(); |
|---|
| | | KXMLDOMElement ele = dw_list.GetRowElement(row); |
|---|
| | | ele.setAttribute(L"guid", id); |
|---|
| | | //dw_list.SetGuid(row,id); |
|---|
| | | //alert(ele.xml); |
|---|
| | | //alert(dw_list.GetGuid(row)); |
|---|
| | | } |
|---|
| | | dw_list.Redraw(); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | int OnAttachEvent() |
|---|
| | | { |
|---|
| | | //绑定工具条点击事件 |
|---|
| | | AttachEvent(L"WM_XCOMMAND", (FEvent)&Deduction::OnXCommand); |
|---|
| | | //获取焦点事件，用于重置工具条 |
|---|
| | | AttachEvent(L"WM_SETFOCUS", (FEvent)&Deduction::OnSetFocus); |
|---|
| | | AttachEvent(L"dw_list", L"DWV_ROWFOCUSCHANGED", (FEvent)&Deduction::OnRowChanged); |
|---|
| | | AttachEvent(L"dw_list", L"DWV_ITEMCHANGED", (FEvent)&Deduction::OnItemChanged); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | int OnRetrieve(xstring InvoiceNo, xstring EntityID) |
|---|
| | | { |
|---|
| | | xml x; |
|---|
| | | |
|---|
| | | xaserverarg arg ; |
|---|
| | | use "win.vl" |
|---|
| | | use "dev:vm[xdwgrid.vm]" |
|---|
| | | use "pref.vl" |
|---|
| | | use "dev:vm[xml.vm]" |
|---|
| | | use "dev:vm[xaserverarg.vm]" |
|---|
| | | use "dev:vm[xaserver.vm]" |
|---|
| | | use "dev:vm[xutil.vm]" |
|---|
| | | use "frame.vl" |
|---|
| | | //unit vclient.vobject tpp |
|---|
| | | unit vbusiness.xpage |
|---|
| | | [ |
|---|
| | | HrPerson is extend frame; |
|---|
| | | about HrPerson |
|---|
| | | [ |
|---|
| | | control: |
|---|
| | | |
|---|
| | | arg.AddArg(L"InvoiceNo", InvoiceNo); |
|---|
| | | arg.AddArg(L"InvoiceNoEx", xcontrol(GetControl(L"search")).GetText()); |
|---|
| | | arg.AddArg(L"EntityID", EntityID); |
|---|
| | | method: |
|---|
| | | [ |
|---|
| | | xdwgrid__ dw_list; |
|---|
| | | xdwgrid__ dw_HrEmployee; |
|---|
| | | string m_sTxt; |
|---|
| | | |
|---|
| | | //trace(GetControl(L"search").GetText()); |
|---|
| | | if (getUrl(L"/sale/data/AR/DeductionList", arg.GetString(), x) != 1) |
|---|
| | | xnode__ m_agentNode; //Agent Condition |
|---|
| | | string m_agentCond; //Agent Node |
|---|
| | | int SetAgent() |
|---|
| | | { |
|---|
| | | trace(x.text()); |
|---|
| | | return -1; |
|---|
| | | string xfNodeAgentArea = "agentarea"; |
|---|
| | | xnode__ anode = new xnode__; |
|---|
| | | anode.setNativePointer(GetAgentNode(xfNodeAgentArea)); |
|---|
| | | var xframeElement = GetElement(); |
|---|
| | | var agent = xframeElement.selectSingleNode("agent/"+xfNodeAgentArea+"[1]/*"); |
|---|
| | | if(agent) |
|---|
| | | { |
|---|
| | | string s = agent.xml; |
|---|
| | | SetAgentNodeContent (anode,s); |
|---|
| | | } |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | else |
|---|
| | | |
|---|
| | | //焦点激活处理函数 |
|---|
| | | int OnSetFocus(ref TEvent evt,int p) |
|---|
| | | { |
|---|
| | | dw_list.Retrieve(x); |
|---|
| | | dw_list.Redraw(); |
|---|
| | | SetAgent(); |
|---|
| | | |
|---|
| | | //重置工具条 |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | dw_list.SetSelectionMode(1); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | int onload() |
|---|
| | | { |
|---|
| | | SetArg(); |
|---|
| | | dw_list = GetControl(L"dw_list"); |
|---|
| | | dw_list.openUrl(L"/sale/view/AR/template/Deduction"); |
|---|
| | | |
|---|
| | | dw_list.SetColumnState(L"ID", false); |
|---|
| | | dw_list.SetColumnState(L"GDNLineID", false); |
|---|
| | | dw_list.SetColumnState(L"SettlementAdjustID", false); |
|---|
| | | |
|---|
| | | |
|---|
| | | if (GetWinParam()) |
|---|
| | | //xgridex双击 |
|---|
| | | int OnDoubleClicked(ref TNotifyEvent evt,int p) |
|---|
| | | { |
|---|
| | | xaserverarg arg = GetArg(); |
|---|
| | | EntityID = arg.GetArgString(L"EntityID"); |
|---|
| | | InvoiceNo = arg.GetArgString(L"InvoiceNo"); |
|---|
| | | ref DWNMHDR hdr = evt.pnmh; |
|---|
| | | int row = hdr.row; |
|---|
| | | if(row < 1 || row > dw_list.GetRowCount()) |
|---|
| | | return 1; |
|---|
| | | msxml::IXMLDOMElement e = dw_list.GetRowElement(row); |
|---|
| | | string sguid = e.SelectSingleNode("@guid").text; |
|---|
| | | xaserverarg__ arg = new xaserverarg__; |
|---|
| | | arg.setNativePointer(arg.CreateInstance()); |
|---|
| | | arg.AddArg("operate","modify"); |
|---|
| | | arg.AddArg("guid",sguid); |
|---|
| | | //trace(sguid); |
|---|
| | | //xwin::OpenWindow("dev:xpage[HrPersonMaint.xpage]",arg); |
|---|
| | | openUrl("组织架构.vface/xpage/Hr/HrPersonMaint", arg); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | trace(InvoiceNo); |
|---|
| | | OnRetrieve(InvoiceNo, EntityID); |
|---|
| | | OnAttachEvent(); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | //行改变 |
|---|
| | | int OnRowFocusChanged(ref TNotifyEvent evt,int p) |
|---|
| | | { |
|---|
| | | ref DWNMHDR hdr = evt.pnmh; |
|---|
| | | int row = hdr.row; |
|---|
| | | if(row < 1 || row > dw_list.GetRowCount()) |
|---|
| | | return 1; |
|---|
| | | msxml::IXMLDOMElement e = dw_list.GetRowElement(row); |
|---|
| | | string sPersonID = e.SelectSingleNode("@guid").text; |
|---|
| | | xml__ x = new xml__; |
|---|
| | | x.setNativePointer(x.CreateInstance()); |
|---|
| | | xaserverarg__ arg = new xaserverarg__; |
|---|
| | | arg.setNativePointer(arg.CreateInstance()); |
|---|
| | | arg.AddArg("guid",sPersonID); |
|---|
| | | |
|---|
| | | if (url::get("OrganizationStruct/Person.HrEmployee",arg.GetString(),x) != 1) |
|---|
| | | { |
|---|
| | | trace(x.GetXmlDoc().text); |
|---|
| | | return -1; |
|---|
| | | }else |
|---|
| | | { |
|---|
| | | dw_HrEmployee.Retrieve(x); |
|---|
| | | dw_HrEmployee.Redraw(); |
|---|
| | | } |
|---|
| | | |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | int onloaded() |
|---|
| | | { |
|---|
| | | SetAgent(); |
|---|
| | | int OnRetrieve() |
|---|
| | | { |
|---|
| | | xml__ x = new xml__; |
|---|
| | | x.setNativePointer(x.CreateInstance()); |
|---|
| | | xaserverarg__ arg = new xaserverarg__; |
|---|
| | | arg.setNativePointer(arg.CreateInstance()); |
|---|
| | | arg.AddArg("sTxt",m_sTxt); |
|---|
| | | if (url::get("OrganizationStruct/list.HrPerson",arg.GetString(),x) != 1) |
|---|
| | | { |
|---|
| | | trace(x.GetXmlDoc().text); |
|---|
| | | return -1; |
|---|
| | | } |
|---|
| | | else |
|---|
| | | { |
|---|
| | | dw_list.Retrieve(x); |
|---|
| | | dw_list.Redraw(); |
|---|
| | | } |
|---|
| | | // if (dw_list.GetRowCount() >0) |
|---|
| | | // OnRowFocusChanged(); |
|---|
| | | dw_list.SetReadOnly(true); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | }; |
|---|
| | | int OnSearch() |
|---|
| | | { |
|---|
| | | control__ xc = new control__; |
|---|
| | | xc.setNativePointer(this.GetControl("QueryTxt")); |
|---|
| | | m_sTxt= xc.GetText(); |
|---|
| | | OnRetrieve(); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | int OnUpdateAssignmentView() |
|---|
| | | { |
|---|
| | | xml__ x1 = new xml__; |
|---|
| | | x1.setNativePointer(x1.CreateInstance()); |
|---|
| | | if (url::post("OrganizationStruct/update.Assignmentview","",x1) != 1) |
|---|
| | | { |
|---|
| | | string error = x1.GetXmlDoc().text; |
|---|
| | | trace(error); |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | else |
|---|
| | | { |
|---|
| | | trace(x1.GetXml()); |
|---|
| | | win__::MessageBox(GetHWND(),"更新成功！","提示",0); |
|---|
| | | } |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | //命令发布函数 |
|---|
| | | int OnCmdDispatch(string comdid) |
|---|
| | | { |
|---|
| | | xaserverarg__ arg = new xaserverarg__; |
|---|
| | | arg.setNativePointer(arg.CreateInstance()); |
|---|
| | | msxml::IXMLDOMElement e; |
|---|
| | | string sPersonID; |
|---|
| | | string sName; |
|---|
| | | if (comdid =="AddPerson") |
|---|
| | | { |
|---|
| | | arg.AddArg("operate","new0"); |
|---|
| | | arg.AddArg("guid",""); |
|---|
| | | openUrl("组织架构.vface/xpage/Hr/HrPersonMaint", arg); |
|---|
| | | } |
|---|
| | | else if(comdid=="UpdateAssignmentView") |
|---|
| | | OnUpdateAssignmentView(); |
|---|
| | | else if (comdid =="ModifyPerson") |
|---|
| | | { |
|---|
| | | int row = dw_list.GetNextSelectRow(1); |
|---|
| | | if (row < 1) |
|---|
| | | { |
|---|
| | | row = dw_list.GetRow(); |
|---|
| | | if (row < 1) |
|---|
| | | { |
|---|
| | | win__::MessageBox(GetHWND(),"请选中要修改的人员行！","提示",0); |
|---|
| | | return -1; |
|---|
| | | } |
|---|
| | | } |
|---|
| | | e = dw_list.GetRowElement(row); |
|---|
| | | sPersonID = e.SelectSingleNode("@guid").text; |
|---|
| | | arg.AddArg("operate","modify"); |
|---|
| | | arg.AddArg("guid",sPersonID); |
|---|
| | | openUrl("组织架构.vface/xpage/Hr/HrPersonMaint", arg); |
|---|
| | | } |
|---|
| | | else if (comdid =="DeletePerson") |
|---|
| | | { |
|---|
| | | int row = dw_list.GetNextSelectRow(1); |
|---|
| | | if (row < 1) |
|---|
| | | { |
|---|
| | | row = dw_list.GetRow(); |
|---|
| | | if (row < 1) |
|---|
| | | { |
|---|
| | | win__::MessageBox(GetHWND(),"请选中要删除的人员行！","提示",0); |
|---|
| | | return -1; |
|---|
| | | } |
|---|
| | | } |
|---|
| | | |
|---|
| | | e = dw_list.GetRowElement(row); |
|---|
| | | sPersonID = e.SelectSingleNode("@guid").text; |
|---|
| | | sName = e.selectSingleNode("Name").text; |
|---|
| | | sName += ""; |
|---|
| | | int MB_YESNO = 0x00000004; |
|---|
| | | int IDYES = 6; |
|---|
| | | if(win__::MessageBox(GetHWND(),"确认要删除 "+sName+" 的信息吗？","提示",MB_YESNO)!=IDYES) return 1; |
|---|
| | | |
|---|
| | | |
|---|
| | | arg.AddArg("guid",sPersonID); |
|---|
| | | |
|---|
| | | |
|---|
| | | xml__ x1 = new xml__; |
|---|
| | | x1.setNativePointer(x1.CreateInstance()); |
|---|
| | | if (url::post("OrganizationStruct/delete.HrPerson",arg.GetString(),x1) != 1) |
|---|
| | | { |
|---|
| | | string error = x1.GetXmlDoc().text; |
|---|
| | | trace(error); |
|---|
| | | } |
|---|
| | | else |
|---|
| | | { |
|---|
| | | //win32::MessageBox(GetHWND(),"删除成功！","提示",0); |
|---|
| | | dw_list.DeleteRow(row); |
|---|
| | | } |
|---|
| | | } |
|---|
| | | else if (comdid =="Refresh") |
|---|
| | | { |
|---|
| | | OnRetrieve(); |
|---|
| | | } |
|---|
| | | else if (comdid =="search" || comdid=="query") |
|---|
| | | { |
|---|
| | | OnSearch(); |
|---|
| | | } |
|---|
| | | return 0; |
|---|
| | | } |
|---|
| | | |
|---|
| | | //命令处理事件 |
|---|
| | | int OnXCommand(ref TXCommandEvent evt,int param) |
|---|
| | | { |
|---|
| | | return OnCmdDispatch(evt.pStrID); |
|---|
| | | } |
|---|
| | | |
|---|
| | | int OnAttachEvent() |
|---|
| | | { |
|---|
| | | //绑定工具条点击事件 |
|---|
| | | AttachEvent("WM_XCOMMAND",OnXCommand); |
|---|
| | | //获取焦点事件，用于重置工具条 |
|---|
| | | AttachEvent("WM_SETFOCUS",OnSetFocus); |
|---|
| | | AttachEvent("dw_list","DWV_CLICKED",OnRowFocusChanged); |
|---|
| | | AttachEvent("dw_list","DWV_DOUBLECLICKED",OnDoubleClicked); |
|---|
| | | } |
|---|
| | | |
|---|
| | | int OnInitial() |
|---|
| | | { |
|---|
| | | SetAgent(); |
|---|
| | | |
|---|
| | | OnAttachEvent(); |
|---|
| | | |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | |
|---|
| | | int onload() |
|---|
| | | { |
|---|
| | | m_sTxt=""; |
|---|
| | | dw_list = new xdwgrid__; |
|---|
| | | dw_list.setNativePointer(this.GetControl("dw_list")); |
|---|
| | | dw_list.openUrl("组织架构.vface/template/HrPerson/list"); |
|---|
| | | dw_list.SetReadOnly(true); |
|---|
| | | dw_list.SetSelectionMode(1); |
|---|
| | | |
|---|
| | | dw_HrEmployee = new xdwgrid__; |
|---|
| | | dw_HrEmployee.setNativePointer(this.GetControl("dw_HrEmployee")); |
|---|
| | | dw_HrEmployee.openUrl("组织架构.vface/template/HrPerson/listemp"); |
|---|
| | | //dw_HrEmployee.openUrl("组织架构.vface/template/HrEmployee/list"); |
|---|
| | | OnInitial(); |
|---|
| | | |
|---|
| | | OnRetrieve(); |
|---|
| | | |
|---|
| | | return 1; |
|---|
| | | } |
|---|
| | | ] |
|---|
| | | |
|---|
| | | ] |
|---|
| | | ] |
|---|
