ÿþ#include <wobject/xstring.hpp> #include <xcontrol/xtreeview.hpp> #include <xcontrol/xdwgrid.hpp> #include <wobject/xdouble.hpp> #include <xcontrol/xlayersheet.hpp> #include <xcontrol/xdatetimepick.hpp> #include "vbusiness/vframe/listwin.vframe.vbusiness.hpp" #include "viewobject/view.base.hpp" using xml = KXMLDOMDocument; class __declspec(dllexport) PaperCardReconciliation : public xframe { public: xdwgrid dw_list; xstring keyword; xdatetimepick sdate; xdatetimepick edate; xdwgrid dw_goods; xdwtable dw_arg; xstring DatePicker; xstring DatePickerEx; xnode m_agentNode; //Agent Condition public: PaperCardReconciliation(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {} public: static PaperCardReconciliation* CreateInstance(void* implPtr, void* hWnd) { PaperCardReconciliation* pWin = new PaperCardReconciliation(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 OnSave() { xml x ; KXMLDOMDocument xdoc = x; dw_list.DwUpdateAllToEx(xdoc); xaserverarg arg ; arg.AddArg(L"content",x.xml()); //alert(x.xml()); if(xurl::get(L"/sale/data/Expense3/update/PaperItemListUpdate", arg.GetString(),x)!=1) { xstring error = x.text(); alert(L"err:"+error); return 1; } alert(L"ÝOX[bŸRÿ"); dw_list.ResetUpdateStatus(); return 1; } //&q¹pÀo;mYtýQpe int OnSetFocus(TEvent* evt, LPARAM param) { //͑nå]wQag SetAgent(); return 1; } //}TäNÑS^ýQpe int OnCmdDispatch(xstring comdid) { if(comdid == L"xmRefresh") { OnRetrieve(DatePicker,DatePickerEx); } else if (comdid == L"xmSave") { return OnSave(); } else if(comdid==L"xmSaveAs") { dw_list.SaveAs(L""); return 1; } return 0; } //}TäNYt‹NöN int OnXCommand(TEvent* evt, LPARAM param) { return OnCmdDispatch(evt->xcommand.pStrID); } int OnAttachEvent() { //Ñ~š[å]wQag¹pûQ‹NöN AttachEvent(L"WM_XCOMMAND", (FEvent)&PaperCardReconciliation::OnXCommand); //·ƒÖS&q¹p‹NöN ÿ(uŽN͑nå]wQag AttachEvent(L"WM_SETFOCUS", (FEvent)&PaperCardReconciliation::OnSetFocus); AttachEvent(L"cbx_state",L"CBN_SELCHANGE", (FEvent)&PaperCardReconciliation::OnDatePicker); AttachEvent(L"sle_search2",L"CBN_SELCHANGE", (FEvent)&PaperCardReconciliation::OnDatePickerEx); AttachEvent(L"dw_list",L"DWV_ROWFOCUSCHANGED", (FEvent)&PaperCardReconciliation::OnRowChanged); AttachEvent(L"dw_list",L"DWV_DOUBLECLICKED", (FEvent)&PaperCardReconciliation::OnDoubleClicked);//LˆÌSûQ return 1; } int OnDoubleClicked(TEvent* evt, LPARAM p) { xaserverarg arg ; arg.AddArg(L"POItemID",dw_list.GetItemString(dw_list.GetRow(),L"POItemID")); OpenWindow(L"dev:xpage[PaperItemMaint.vx]",arg); return 1; } int OnRowChanged(TEvent* evt, LPARAM p) { DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh; int row = hdr.row; if(row < 1) return 1; HCURSOR hCursor = xutil::SetCursorWait(); xstring POItemID = dw_list.GetItemString(row,L"POItemID"); xml x = ViewObject::RetrieveData(L"/sale/data/Expense3/view/SourcingItem",L"POItemID",POItemID); //alert(x.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(TEvent* evt, LPARAM lParam) { int h = xcombobox::GetCurSel(evt->command.hCtrl); if(h > -1) { xstring txt = xcombobox::GetLBText(evt->command.hCtrl, h); if(txt==L"hQè") { DatePickerEx=L"1"; OnRetrieve(DatePicker,DatePickerEx); } else if(txt==L" NNô") { DatePickerEx=L"2"; OnRetrieve(DatePicker,DatePickerEx); } } trace(DatePickerEx); return 1; } int OnDatePicker(TEvent* evt, LPARAM lParam) { int h = xcombobox::GetCurSel(evt->command.hCtrl); if(h > -1) { xstring txt = xcombobox::GetLBText(evt->command.hCtrl, h); if(txt==L" NUSåeg") { DatePicker=L"PODate"; OnRetrieve(DatePicker,DatePickerEx); } else if(txt==L"ØN>kåeg") { DatePicker=L"PaymentDate"; OnRetrieve(DatePicker,DatePickerEx); } else if(txt==L"ETD") { DatePicker=L"ETD"; OnRetrieve(DatePicker,DatePickerEx); } } return 1; } xstring GetQueryArg() { dw_arg.AcceptText(); xml x ; dw_arg.DwUpdateAllTo(x); return x.xml(); } int OnRetrieve(xstring DatePicker,xstring DatePickerEx) { xml x ; xaserverarg arg ; arg.AddArg(L"QueryTxt",xcontrol(GetControl(L"sle_search")).GetText()); arg.AddArg(L"QueryTxt2", xcontrol(GetControl(L"sle_search1")).GetText()); arg.AddArg(L"QueryArg",GetQueryArg()); arg.AddArg(L"DatePicker",DatePicker); arg.AddArg(L"DatePickerEx",DatePickerEx); trace(xcontrol(GetControl(L"sle_search")).GetText()+L"=====L"+GetQueryArg()+L"=====L"+DatePicker+L"=====L"+ xcontrol(GetControl(L"sle_search1")).GetText()+L"=====L"+DatePickerEx+L"=====L"); if (getUrl(L"/sale/data/Expense3/view/PaperItemList",arg.GetString(),x)!=1) { trace(x.text()); return -1; }else { dw_list.Retrieve(x); dw_list.Redraw(); } return 1; } int onload() { dw_list = GetControl(L"dw_list"); dw_list.openUrl(L"/sale/view/Expense3/PaperItemList"); dw_list.SetColumnState(L"POItemID",false); dw_list.SetColumnState(L"SOLineID",false); dw_list.SetColumnState(L"DeliveryFactory",false); dw_list.SetColumnState(L"DeliveryAddr",false); dw_list.SetColumnState(L"PartyContact",false); dw_list.SetColumnState(L"ETD",false); dw_list.SetColumnState(L"InvoiceNo",false); dw_arg = GetControl(L"dw_arg"); dw_arg.openUrl(L"/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,L"DateType",L",gg"); dw_goods = GetControl(L"dw_goods"); dw_goods.openUrl(L"/sale/view/Expense3/SourcingItem"); dw_goods.SetColumnState(L"POID",false); dw_goods.SetColumnState(L"SOLineID",false); dw_goods.SetColumnState(L"ItemID",false); dw_goods.SetColumnState(L"POItemID",false); dw_goods.SetColumnState(L"GDNLineID",false); dw_goods.SetColumnState(L"Amount",false); dw_goods.SetColumnState(L"Swapthecost",false); DatePickerEx=L"1"; OnAttachEvent(); return 1; } int onloaded() { SetAgent(); return 1; } };