#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) ListAP : public xframe
	{
	public:
		xstring apType;
		xstring DatePicker;
		xstring DatePickerOne;
		xdwgrid	dw_list;
		xdwtable dw_arg;
		xnode	m_agentNode;	//Agent Condition

	public:
		ListAP(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {}
	public:
		static ListAP* CreateInstance(void* implPtr, void* hWnd)
		{
			ListAP* pWin = new ListAP(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 OnSetFocus(TEvent* evt, LPARAM param)
		{
			//ÖØÖù¤¾ßÌõ
			SetAgent();
			return 1;
		}

		xstring GetPayType()
		{
			xcombobox cbx_type = GetControl(L"cbx_type");
			int h = xcombobox::GetCurSel(cbx_type.GetId());
			if (h < 0) return "";
			return xcombobox::GetLBText(cbx_type.GetId(), h);
		}

		xstring GetEntityName(int pr)
		{
			return L"AP3";
		}

		xstring GetEntityIDName(int /*param*/ pr)
		{
			return L"APID";
		}

		xstring GetEntityID(int /*param*/ pr)
		{
			return dw_list.GetItemString(dw_list.GetRow(), L"APID");
		}

		int ViewUpdate(int pr, xstring updateItem, xaserverarg  arg)
		{
			if (updateItem == L"del")
			{
				int DelRow = dw_list.GetRow();
				dw_list.DeleteRow(DelRow);
				return 1;
			}
			return 1;
		}

		int OnBank()
		{
			xaserverarg arg;
			
			OpenWindow(L"dev:xpage[APBank.vx]", arg);
			if (arg.GetArgString(L"result") == L"ok")
			{
				int ll_row = dw_list.GetNextSelectRow(1);
				dw_list.AcceptText();

				while (ll_row > 0 && ll_row <= dw_list.GetRowCount())
				{
					dw_list.SetItemString(ll_row, L"PayedTerm", arg.GetArgString(L"PayedTerm"));
					dw_list.SetItemString(ll_row, L"PayedBank", arg.GetArgString(L"PayedBank"));
					dw_list.SetItemString(ll_row, L"PayedBankNo", arg.GetArgString(L"PayedBankNo"));
					ll_row = dw_list.GetNextSelectRow(ll_row + 1);
				}
				dw_list.Redraw();
				return 1;
			}
			else return 1;
		}

		//ÃüÁî·¢²¼º¯Êý
		int OnCmdDispatch(xstring comdid)
		{
			if (comdid == L"xmBank") return OnBank();
			if (comdid == L"xmSave") return OnSave();
			if (comdid == L"xmAnalysis") return OnAnalysis();
			if (comdid == L"xmRefresh" || comdid == L"xmSearch")
			{
				xstring payTypeOne = GetPayType();
				if (payTypeOne == L"ÒѸ¶»õ¿î" || payTypeOne == L"´ý¸¶»õ¿î")
				{
					return OnRetrieveEx(apType, DatePicker);
				}
				else if (payTypeOne == L"Ô¤¸¶»õ¿î")
				{
					apType = L"001";
					return OnRetrieveEx(apType, DatePicker);
				}
				else if (payTypeOne == L"Ô¤¸¶»õ¿î(Òѳå)L")
				{
					apType = L"001";
					return OnRetrieveEx1(apType, DatePickerOne);
				}

			}
			if (comdid == L"xmAddRow")
			{
				xstring payType = GetPayType();
				if (payType == L"ÒѸ¶»õ¿î" || payType == L"´ý¸¶»õ¿î")
					OpenWindow(L"dev:xpage[APNew3.warizd.vx]");
				else if (payType == L"Ô¤¸¶»õ¿î" || payType == L"Ô¤¸¶»õ¿î(Òѳå)L")
				{
					xaserverarg arg1;
					
					arg1.AddArg(L"APType", apType);
					
					OpenWindow(L"dev:xpage[maint.ap.vx]", arg1);
				}
				return 1;
			}
			if (comdid == L"xmSaveAs")
			{
				dw_list.SaveAs(L"");
				return 1;
			}
			if (comdid == L"xmModifyRow")
			{

				int row = dw_list.GetRow();
				if (row < 1) return 1;
				KXMLDOMElement ele = dw_list.GetRowElement(row);
				xstring APID = ele.selectSingleNode(L"APID").text();
				ele.Release();
				xaserverarg arg;
				
				arg.AddArg(L"APID", APID);
				arg.AddArg(L"APType", apType);
				
				OpenWindow(L"dev:xpage[maint.ap.vx]", pa);
				return 1;
			}
			if (comdid.find(L"action:", 0) >= 0)
			{
				xstring payType1 = GetPayType();
				if (payType1 == L"ÒѸ¶»õ¿î" || payType1 == L"Ô¤¸¶»õ¿î") ProcessFlowAction(comdid, 1);
			}
			return 0;
		}

		int OnDoubleClicked(TEvent* evt, LPARAM p)
		{
			return OnCmdDispatch(L"xmModifyRow");
		}

		int OnCombboChanged(TEvent* evt, int lParam)
		{
			xstring id = L"";
			xstring name = L"";
			int h = xcombobox::GetCurSel(evt.hCtrl);
			if (h > -1)
			{
				xstring txt = xcombobox::GetLBText(evt.hCtrl, h);
				apType = L"---";
				if (txt == L"ÒѸ¶»õ¿î")
				{
					dw_list.openUrl(L"/sale/view/AP/template/AP/list1");
					apType = L"000";
					OnRetrieveEx(apType, DatePicker);
				}
				else if (txt == L"´ý¸¶»õ¿î")
				{
					dw_list.openUrl(L"/sale/view/AP/template/AP/list2");
					OnRetrieveEx(apType, DatePicker);
				}
				else if (txt == L"Ô¤¸¶»õ¿î")
				{
					dw_list.openUrl(L"/sale/view/AP/template/AP/list3");
					apType = L"001";
					OnRetrieveEx(apType, DatePicker);
				}
				else if (txt == L"Ô¤¸¶»õ¿î(Òѳå)L")
				{
					dw_list.openUrl(L"/sale/view/AP/template/AP/list3");
					apType = L"001";
					OnRetrieveEx1(apType, DatePickerOne);
				}

				dw_list.SetColumnState(L"APID", false);

			}
			return 1;
		}

		//ÃüÁî´¦Àíʼþ
		int OnXCommand(TEvent* evt, LPARAM param)
		{
			return OnCmdDispatch(evt->xcommand.pStrID);
		}

		int OnItemChanged(TEvent* evt, LPARAM p)
		{
			//if(datareading) return 0;
			HCURSOR HCursor = xutil::SetCursorWait();
			DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
			int row = hdr.row;
			xstring col = hdr.colname;
			xstring data = hdr.data;
			xstring ETD = L"";
			if (col == L"InvoiceNo")
			{
				if (dw_list.GetItemString(row, L"InvoiceNo") != L"")
				{
					xml x12 = ViewObject::RetrieveData(L"/sale/data/AP/GetInvoiceNoEx", L"InvoiceNo", dw_list.GetItemString(row, L"InvoiceNo"));
					if (x12)
					{
						xstring COUNT = x12.text();
						if (COUNT != L"")
						{
							alert(COUNT);
							dw_list.SetItemString(row, L"InvoiceNo", L"");
							dw_list.SetItemString(row, L"NotifyInvoiceNo", L"");
							dw_list.SetItemString(row, L"GDNDate", L"");
							dw_list.Redraw();
							return 1;
						}
					}

					xml x11 = ViewObject::RetrieveData(L"/sale/data/AP/GetInvoiceNo", L"InvoiceNo", dw_list.GetItemString(row, L"InvoiceNo"));
					if (x11)
					{
						 ETD = x11.text();
					}
					dw_list.SetItemString(row, L"NotifyInvoiceNo", dw_list.GetItemString(row, L"InvoiceNo"));
					dw_list.SetItemString(row, L"GDNDate", ETD);
					dw_list.Redraw();

					return 1;
				}
				else
				{
					dw_list.SetItemString(row, L"NotifyInvoiceNo", L"");
					dw_list.SetItemString(row, L"GDNDate", L"");
					dw_list.Redraw();
				}
			}

			return 1;
		}

		int OnAttachEvent()
		{
			//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
			AttachEvent(L"WM_XCOMMAND", (FEvent)&ListAP::OnXCommand);
			//»ñÈ¡½¹µãʼþ£¬ÓÃÓÚÖØÖù¤¾ßÌõ
			AttachEvent(L"WM_SETFOCUS", (FEvent)&ListAP::OnSetFocus);
			AttachEvent(L"cbx_type", L"CBN_SELCHANGE", (FEvent)&ListAP::OnCombboChanged);//ÊôÐÔ×éÇл»listÖÐÁеÄÊýÁ¿±ä»¯
			AttachEvent(L"dw_list", L"DWV_DOUBLECLICKED", (FEvent)&ListAP::OnDoubleClicked);//ÐÐË«»÷
			AttachEvent(L"cbx_state", L"CBN_SELCHANGE", (FEvent)&ListAP::OnDatePicker);
			AttachEvent(L"dw_list", L"DWV_ITEMCHANGED", (FEvent)&ListAP::OnItemChanged);
		}

		int OnDatePicker(TEvent* evt, int lParam)
		{
			xstring payTypeTwo = GetPayType();
			if (payTypeTwo == L"ÒѸ¶»õ¿î" || payTypeTwo == L"´ý¸¶»õ¿î")
			{
				int h = xcombobox::GetCurSel(evt.hCtrl);
				if (h > -1)
				{
					xstring txt = xcombobox::GetLBText(evt.hCtrl, h);
					if (txt == L"³öÔËÈÕÆÚ")
					{
						apType = L"000";
						DatePicker = L"GDNDate";
						OnRetrieveEx(apType, DatePicker);
					}
					else if (txt == L"Çë¿îÈÕÆÚ")
					{
						apType = L"000";
						DatePicker = L"APDate";
						OnRetrieveEx(apType, DatePicker);
					}
					else if (txt == L"¸¶¿îÈÕÆÚ")
					{
						apType = L"000";
						DatePicker = L"PayedDate";
						OnRetrieveEx(apType, DatePicker);
					}
				}
			}
			else if (payTypeTwo == L"Ô¤¸¶»õ¿î")
			{
				int h1 = xcombobox::GetCurSel(evt.hCtrl);
				if (h1 > -1)
				{
					xstring txt1 = xcombobox::GetLBText(evt.hCtrl, h1);
					if (txt1 == L"³öÔËÈÕÆÚ")
					{
						apType = L"001";
						DatePicker = L"GDNDate";
						OnRetrieveEx(apType, DatePicker);
					}
					else if (txt1 == L"Çë¿îÈÕÆÚ")
					{
						apType = L"001";
						DatePicker = L"APDate";
						OnRetrieveEx(apType, DatePicker);
					}
					else if (txt1 == L"¸¶¿îÈÕÆÚ")
					{
						apType = L"001";
						DatePicker = L"PayedDate";
						OnRetrieveEx(apType, DatePicker);
					}
				}
			}
			else if (payTypeTwo == L"Ô¤¸¶»õ¿î(Òѳå)L")
			{
				int h2 = xcombobox::GetCurSel(evt.hCtrl);
				if (h2 > -1)
				{
					xstring txt2 = xcombobox::GetLBText(evt.hCtrl, h2);
					if (txt2 == L"³öÔËÈÕÆÚ")
					{
						apType = L"001";
						DatePickerOne = L"GDNDate";
						OnRetrieveEx1(apType, DatePickerOne);
					}
					else if (txt2 == L"Çë¿îÈÕÆÚ")
					{
						apType = L"001";
						DatePickerOne = L"APDate";
						OnRetrieveEx1(apType, DatePickerOne);
					}
					else if (txt2 == L"¸¶¿îÈÕÆÚ")
					{
						apType = L"001";
						DatePickerOne = L"PayedDate";
						OnRetrieveEx1(apType, DatePickerOne);
					}
				}
			}
			return 1;
		}

		int OnSave()
		{
			xml x ;
			
			dw_list.DwUpdateAllToEx(x);
			xaserverarg arg;
			
			arg.AddArg(L"content", x.xml());
			//trace(x.xml);
			if (xurl::get(L"/sale/data/AP/update", 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  OnRetrieveEx1(xstring APType, xstring DatePickerOne)
		{
			xml x ;
			
			xaserverarg arg;
			
			arg.AddArg(L"QueryTxt", GetControl(L"sle_search").GetText());
			arg.AddArg(L"APType", APType);
			arg.AddArg(L"QueryArg", GetQueryArg());
			arg.AddArg(L"DatePicker", DatePickerOne);

			trace(GetQueryArg());
			if (getUrl(L"/sale/data/AP/list9", arg.GetString(), x) != 1)
			{
				trace(x.text());
				return -1;
			}
			else
			{
				dw_list.Retrieve(x);
				dw_list.Redraw();
				dw_list.SetReadOnly(true);
				dw_list.SetSelectionMode(1);
			}
			return 1;
		}

		xstring GetQueryArg()
		{
			dw_arg.AcceptText();
			xml x ;
			
			dw_arg.DwUpdateAllTo(x);

			return x.xml();
		}

		int  OnRetrieveEx(xstring APType, xstring DatePicker)
		{
			xml x ;
			
			xaserverarg arg;
			
			arg.AddArg(L"QueryTxt", GetControl(L"sle_search").GetText());
			arg.AddArg(L"APType", APType);
			arg.AddArg(L"QueryArg", GetQueryArg());
			arg.AddArg(L"DatePicker", DatePicker);

			trace(GetQueryArg());
			if (getUrl(L"/sale/data/AP/list", arg.GetString(), x) != 1)
			{
				trace(x.text());
				return -1;
			}
			else
			{
				//trace(L"xml=L"+x.xml);
				dw_list.Retrieve(x);
				dw_list.Redraw();
				//dw_list.SetReadOnly(true);
				dw_list.SetSelectionMode(1);
			}
			return 1;
		}

		int OnAnalysis()
		{
			HCURSOR hCursor = xutil::SetCursorWait();
			xstring str = dw_list.DataAnalysis(L"");
			xaserverarg arg;
			
			arg.AddArg(L"html", str);
			int obj = cast(dw_list as int);
			arg.AddArg(L"obj", obj.toString());
			OpenWindow(L"dev:xpage[data.vanalysis.vx]", arg);
			xutil::RestoreCursor(hCursor);
			return 1;
		}

		int onload()
		{
			dw_list = GetControl(L"dw_list");
			dw_list.openUrl(L"/sale/view/AP/template/AP/list1");
			dw_list.SetColumnState(L"APID", false);
			dw_list.SetColumnState(L"SupplierID", false);
			dw_list.SetColumnState(L"VATNo", 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"±¾ÔÂ");

			OnAttachEvent();
			apType = L"000";
			OnRetrieveEx(apType, DatePicker);

			return 1;
		}

		int onloaded()
		{
			SetAgent();

			return 1;
		}
	};