#include <wobject/xstring.hpp>
#include <xcontrol/xtreeview.hpp>
#include <xcontrol/xdwgrid.hpp>
#include <wobject/xdouble.hpp>

#include "vbusiness/vframe/listwin.vframe.vbusiness.hpp"
#include "viewobject/view.base.hpp"

using xml = KXMLDOMDocument;
	class __declspec(dllexport) APNewWarizd3 : public xframe
	{
	public:
		xdwgrid	dw_1;
		xdwgrid	dw_2;
		xdwgrid	dw_3;
		xdwgrid	dw_4;
		xdwgrid	dw_5;
		xdwgrid	dw_6;
		xdwgrid	dw_101;
		xdwgrid	dw_102;
		bool	    bstart;
		xlayersheet m_layer;
		xnode	m_agentNode;	//Agent Condition
		xstring searchStr;

	public:
		APNewWarizd3(void* implPtr, HWND hWnd) :xframe(implPtr, hWnd) {}
	public:
		static APNewWarizd3* CreateInstance(void* implPtr, void* hWnd)
		{
			APNewWarizd3* pWin = new APNewWarizd3(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 OnDoubleClicked(TEvent* evt, LPARAM p)
		{
			dw_1.AcceptText();
			dw_2.AcceptText();

			HCURSOR hCursor = xutil::SetCursorWait();
			int col = dw_1.GetColumn();
			dw_1.ItemChangeTo(dw_1.GetRow(), L"PayAmount", dw_1.GetItemString(dw_1.GetRow(), L"Balance"));
			dw_1.Redraw();
			xutil::RestoreCursor(hCursor);
			return 1;
		}

		int OnDoubleClickedOne(TEvent* evt, LPARAM p)
		{
			DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
			xstring colname = hdr.colname;
			xstring value = hdr.data;

			double Amount = dw_3.GetItemDouble(hdr.row, L"Amount");
			double PayedAmount = dw_3.GetItemDouble(hdr.row, L"PayedAmount");

			if (colname == L"PrePayAmount" || colname == L"Amount")
			{
				double Amount1 = dw_3.GetItemDouble(hdr.row, L"Amount");
				double PrePayAmount = dw_3.GetItemDouble(hdr.row, L"PrePayAmount");
				dw_3.SetItemDouble(hdr.row, L"PayedAmount", xdouble(Amount - PrePayAmount).round(2));
			}
			return 1;
		}


		//½¹µã¼¤»î´¦Àíº¯Êý
		int OnSetFocus(TEvent* evt, LPARAM param)
		{
			//ÖØÖù¤¾ßÌõ
			//SetAgent();
			return 1;
		}

		int ProcessBase(xdwgrid dw_obj)
		{
			xstring SupplierID;
			for (int i = 1; i <= dw_obj.GetRowCount(); i++)
			{
				bool inserted = false;
				SupplierID = dw_obj.GetItemString(i, L"SupplierID");
				int row = 1;
				/*for(row = 1; row <= dw_3.GetRowCount(); row++)
				{
					if( SupplierID ==  dw_3.GetItemString(row,L"SupplierID")) break;
				}
				if(row > dw_3.GetRowCount())
				{*/
				row = dw_3.InsertRow(0);
				inserted = true;
				/*}*/
				if (inserted)
				{
					xstring sdate = publiccode::GetCurrentDate();
					dw_3.SetItemString(row, L"APDate", sdate);

					dw_3.SetItemString(row, L"CreateDate", sdate);
					dw_3.SetItemString(row, L"PayedDate", sdate);
					xstring suserid = publiccode::GetUser().id;
					xstring susername = publiccode::GetUser().name;
					dw_3.SetItemString(row, L"CreatorID", suserid);
					dw_3.SetItemDisplayString(row, L"CreatorID", susername);
					dw_3.SetItemDouble(row, L"PayedAmount", dw_obj.GetItemDouble(i, L"PayedAmount"));
					dw_3.SetItemDouble(row, L"PrePayAmount", dw_obj.GetItemDouble(i, L"PrePayAmount"));
					dw_3.SetItemDouble(row, L"Amount", dw_obj.GetItemDouble(i, L"Amount"));

					dw_3.SetItemString(row, L"APType", L"000"); /*»õ¿î*/
					dw_3.SetItemString(row, L"SupplierID", dw_obj.GetItemString(i, L"SupplierID"));
					dw_3.SetItemDisplayString(row, L"SupplierID", dw_obj.GetItemDisplayString(i, L"SupplierID"));
					dw_3.SetItemString(row, L"APSupplierID", dw_obj.GetItemString(i, L"APSupplierID"));
					dw_3.SetItemDisplayString(row, L"APSupplierID", dw_obj.GetItemDisplayString(i, L"APSupplierID"));
					dw_3.SetItemDisplayString(row, L"SalespersonID", dw_obj.GetItemDisplayString(i, L"SalespersonID"));
					dw_3.SetItemString(row, L"SalespersonID", dw_obj.GetItemString(i, L"SalespersonID"));
					dw_3.SetItemString(row, L"OrgName", dw_obj.GetItemString(i, L"OrgName"));
					dw_3.SetItemString(row, L"InvoiceNo", dw_obj.GetItemString(i, L"NInvoiceNo"));
					xstring APID = publiccode::GetGuid();
					dw_3.SetItemString(row, L"APID", APID);
				}
				else
				{
					double amt = 0.0;
					amt = dw_3.GetItemDouble(row, L"PayedAmount");
					amt += dw_obj.GetItemDouble(i, L"PayedAmount");
					dw_3.SetItemDouble(row, L"PayedAmount", amt);

					amt = dw_3.GetItemDouble(row, L"PrePayAmount");
					amt += dw_obj.GetItemDouble(i, L"PrePayAmount");
					dw_3.SetItemDouble(row, L"PrePayAmount", amt);

					amt = dw_3.GetItemDouble(row, L"Amount");
					amt += dw_obj.GetItemDouble(i, L"Amount");
					dw_3.SetItemDouble(row, L"Amount", amt);
				}
				dw_obj.SetItemString(i, L"APID", dw_3.GetItemString(row, L"APID"));
			}
			dw_3.Redraw();

			return 1;
		}

		int OnTabSelectedSheet(TEvent* evt, LPARAM p)
		{
			int index = m_layer.GetSheetIndex();
			if (index == 1)
			{
				dw_1.AcceptText();

				dw_4.Reset();
				dw_3.Reset();
				dw_6.Reset();

				xml x ;
				
				x.loadXML(L"<data/>");

				xml x1 ;
				
				dw_2.DwUpdateAllToEx(x1);
				xstring SupplierID = L"";
				int i = 0;
				int row = 0;
				for (i = 1; i <= dw_1.GetRowCount(); i++)
				{
					xstring Amount = dw_1.GetItemString(i, L"PayAmount");
					xstring PrePayAmount = dw_1.GetItemString(i, L"PrePayAmount");
					SupplierID = dw_1.GetItemString(i, L"VATSupplierID");
					xstring VATInvoiceID = dw_1.GetItemString(i, L"VATInvoiceID");
					if (Amount != L"" && Amount.toInt() != 0)
					{
						int row = dw_4.InsertRow(0);
						dw_4.SetItemString(row, L"InvoiceNo", dw_1.GetItemString(i, L"InvoiceNo"));
						dw_4.SetItemString(row, L"NInvoiceNo", dw_1.GetItemString(i, L"NInvoiceNo"));
						dw_4.SetItemString(row, L"VATNo", dw_1.GetItemString(i, L"VATNo"));

						dw_4.SetItemString(row, L"Amount", dw_1.GetItemString(i, L"PayAmount"));
						dw_4.SetItemString(row, L"PrePayAmount", dw_1.GetItemString(i, L"PrePayAmount"));
						dw_4.SetItemString(row, L"PayedAmount", dw_1.GetItemString(i, L"APAmount"));

						dw_4.SetItemString(row, L"CurrencyCode", L"RMB");
						dw_4.SetItemString(row, L"SupplierID", dw_1.GetItemString(i, L"SupplierID"));
						dw_4.SetItemDisplayString(row, L"SupplierID", dw_1.GetItemDisplayString(i, L"SupplierID"));
						dw_4.SetItemString(row, L"APSupplierID", dw_1.GetItemString(i, L"VATSupplierID"));
						dw_4.SetItemDisplayString(row, L"APSupplierID", dw_1.GetItemDisplayString(i, L"VATSupplierID"));
						dw_4.SetItemString(row, L"VATInvoiceID", VATInvoiceID);

						dw_4.SetItemDisplayString(row, L"SalespersonID", dw_1.GetItemDisplayString(i, L"SalespersonID"));
						dw_4.SetItemString(row, L"SalespersonID", dw_1.GetItemString(i, L"SalespersonID"));
						dw_4.SetItemString(row, L"OrgName", dw_1.GetItemString(i, L"OrgName"));

						xstring APLineID = publiccode::GetGuid();
						dw_4.SetItemString(row, L"APLineID", APLineID);
					}
				}
				ProcessBase(dw_4);
				for (i = 1; i <= dw_6.GetRowCount(); i++)
				{
					SupplierID = dw_6.GetItemString(i, L"SupplierID");
					for (row = 1; row <= dw_3.GetRowCount(); row++)
					{
						if (SupplierID == dw_3.GetItemString(row, L"SupplierID"))
						{
							dw_6.SetItemString(i, L"APID", dw_3.GetItemString(row, L"APID"));
							break;
						}
					}
				}

				KXMLDOMNodeList nodes = x1.selectNodes(L"data/Item[DisAmountCurrent != '']");
				int len = nodes.length();
				for (i = 0; i < len; i++)
				{
					KXMLDOMNode n = nodes.item(i);
					x.documentElement().appendChild(n);
				}
				dw_5.Retrieve(x);
				dw_5.Redraw();
				dw_5.SetReadOnly(true);
			}
			return 1;
		}

		int ResetDataForContinue()
		{
			dw_1.Reset();
			dw_2.Reset();
			dw_3.Reset();
			dw_4.Reset();
			dw_5.Reset();
			dw_6.Reset();

			return 1;
		}

		int OnSave(bool continueAdd)
		{
			dw_3.AcceptText();
			dw_4.AcceptText();

			xstring error;
			xstring str;
			xml x ;
			xml x1 ;
			xml x2 ;
			xaserverarg arg;
			xaserverarg arg1;
			xaserverarg arg2;

			dw_3.DwUpdateAllToEx(x);
			arg.AddArg(L"content", x.xml());

			if (xurl::get(L"/sale/data/AP/update", arg.GetString(), x) != 1)
			{
				error = x.text();
				alert(L"err:" + error);
				return 1;
			}
			str = x.documentElement().getAttribute(L"text");
			if (str != L"true")
			{
				alert(L"±£´æʧ°Ü1!");
				return 1;
			}

			dw_4.DwUpdateAllToEx(x1);
			arg1.AddArg(L"content", x1.xml());

			if (xurl::get(L"/sale/data/AP/update", arg1.GetString(), x1) != 1)
			{
				error = x1.text();
				alert(L"err:" + error);
				return 1;
			}
			str = x1.documentElement().getAttribute(L"text");
			if (str != L"true")
			{
				alert(L"±£´æʧ°Ü2!");
				return 1;
			}

			if (dw_6.GetRowCount() > 0)
			{
				dw_6.DwUpdateAllToEx(x2);
				arg2.AddArg(L"content", x2.xml());

				if (xurl::get(L"/sale/data/AP/update", arg2.GetString(), x2) != 1)
				{
					error = x2.text();
					alert(L"err:" + error);
					return 1;
				}
				str = x2.documentElement().getAttribute(L"text");
				if (str != L"true")
				{
					alert(L"±£´æʧ°Ü3!");
					return 1;
				}
			}

			dw_3.ResetUpdateStatus();
			dw_4.ResetUpdateStatus();
			dw_6.ResetUpdateStatus();

			if (!continueAdd)
			{
				alert(L"±£´æ³É¹¦!");
				CloseWindow();
			}
			else
			{
				ResetDataForContinue();
				m_layer.SelectSheet(0);
			}

			return 1;
		}

		//ÃüÁî·¢²¼º¯Êý
		int OnCmdDispatch(xstring comdid)
		{
			int index;
			if (comdid == L"xmPrev")
			{
				index = m_layer.GetSheetIndex();
				index--;
				m_layer.SelectSheet(index);
			}
			else if (comdid == L"xmNext")
			{
				index = m_layer.GetSheetIndex();
				index++;
				if (index == 1)
				{
					GetControl(L"sle_filter").SetText(L"");
					xstring str = L"";
					if (str != searchStr)
					{
						searchStr = str;
						dw_1.Filter(L"VATSupplierID", searchStr);
					}
				}
				m_layer.SelectSheet(index);
				return 1;
			}
			else if (comdid == L"xmCancel")
			{
				CloseWindow();
				return 1;
			}
			else if (comdid == L"xmOk")
			{
				return OnSave(false);
			}
			else if (comdid == L"xmOkEx")
			{
				return OnSave(true);
			}
			else if (comdid == L"xmFilter")  return OnFilter();
			else if (comdid == L"xmQuery")
			{

				index = m_layer.GetSheetIndex();
				index++;
				OnRetrieve();

				if (dw_1.GetRowCount() > 0)
				{
					OnPrepayRetrieve(1, bstart);
					dw_2.Redraw();
				}

				return 1;
			}
			return 0;
		}


		int OnItemChanged(TEvent* evt, LPARAM p)
		{
			DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
			xstring colname = hdr.colname;
			xstring value = hdr.data;
			int row = hdr.row;

			if (colname == L"PayAmount")
			{
				double amt = dw_1.GetItemDouble(row, L"PayAmount");
				dw_1.SetItemDouble(row, L"APAmount", amt);
				dw_1.Redraw();
			}
			if (colname == L"APAmount")
			{
				double APAmount = dw_1.GetItemDouble(row, L"APAmount");
				dw_1.SetItemDouble(row, L"PayAmount", APAmount);
				dw_1.Redraw();
			}
			return 1;
		}

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

		int OnRowChanged(TEvent* evt, LPARAM p)
		{
			DWNMHDR& hdr = *(DWNMHDR*)evt->notify.pnmh;
			int row = hdr.row;

			OnPrepayRetrieve(row, bstart);
			xml x = ViewObject::RetrieveData( L"/sale/data/AP/list/invoice/supplier", L"InvoiceNo", dw_1.GetItemString(row, L"InvoiceNo"),
				"SupplierID", dw_1.GetItemString(row, L"SupplierID"));
			if (x) dw_101.Retrieve(x);

			dw_2.Redraw();

			return 1;
		}

		int OnItemAskStyle(TEvent* evt, LPARAM p)
		{
			int DMS_CSSSTYLE = 0x8;
			DWASKSTYLENMHDR& hdr = *(DWASKSTYLENMHDR*)evt->notify.pnmh;
			int row = hdr.row;
			int col = hdr.col;
			xstring colname = hdr.colname;

			int rows = dw_1.GetRowCount();
			if (row < 1 || row > rows)
			{
				return 1;
			}

			if (colname == L"NInvoiceNo")
			{
				xstring NInvoiceNo = dw_1.GetItemString(row, L"NInvoiceNo");
				xstring InvoiceNo = dw_1.GetItemString(row, L"InvoiceNo");
				if (NInvoiceNo != InvoiceNo)
				{
					hdr.mask = DMS_CSSSTYLE;
					hdr.cssstyle = L"color:#ff0000";
				}
			}
			return 1;
		}

		int OnAttachEvent()
		{
			//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
			AttachEvent(L"WM_XCOMMAND", (FEvent)&APNewWarizd3::OnXCommand);
			//»ñÈ¡½¹µãʼþ£¬ÓÃÓÚÖØÖù¤¾ßÌõ
			AttachEvent(L"WM_SETFOCUS", (FEvent)&APNewWarizd3::OnSetFocus);
			AttachEvent(L"dw_1", L"DWV_DOUBLECLICKED", (FEvent)&APNewWarizd3::OnDoubleClicked);//ÐÐË«»÷
			AttachEvent(L"dw_1", L"DWV_ITEMCHANGED", (FEvent)&APNewWarizd3::OnItemChanged);
			AttachEvent(L"tab_1", L"LYSN_SELECTEDSHEET", (FEvent)&APNewWarizd3::OnTabSelectedSheet);
			AttachEvent(L"dw_1", L"DWV_ROWFOCUSCHANGED", (FEvent)&APNewWarizd3::OnRowChanged);
			AttachEvent(L"dw_1", L"DWV_ASKSTYLE", (FEvent)&APNewWarizd3::OnItemAskStyle);
			return 1;
		}

		int OnPrepayRetrieve(int row, bool start = false)
		{
			xstring supplier = dw_1.GetItemString(row, L"VATSupplierID");

			xml x ;
			
			xaserverarg arg;
			
			arg.AddArg(L"SupplierID", supplier);
			arg.AddArg(L"InvoiceNo", dw_1.GetItemString(row, L"InvoiceNo"));
			if (getUrl(L"/sale/data/AP/prepaychecklistex", arg.GetString(), x) != 1)
			{
				trace(x.text());
				return -1;
			}
			else
			{
				dw_2.Retrieve(x);
				dw_2.Redraw();
			}
			return 1;
		}

		int OnPrepayRetrieve0(int row, bool start = false)
		{
			xstring supplier = dw_1.GetItemString(row, L"VATSupplierID");
			xstring VATInvoiceID = dw_1.GetItemString(row, L"VATInvoiceID");
			xstring filterStr = supplier + L"||" + VATInvoiceID;
			if (!start)
			{
				dw_2.Filter(L"FilterColumn", filterStr);
				dw_2.Redraw();
				if (dw_2.GetRowCount() > 0) return 1;
			}

			xml x ;
			
			xaserverarg arg;
			
			arg.AddArg(L"SupplierID", supplier);
			if (getUrl(L"/sale/data/AP/prepaychecklist", arg.GetString(), x) != 1)
			{
				trace(x.text());
				return -1;
			}
			else
			{
				if (start)
				{
					dw_2.Retrieve(x);
					dw_2.Redraw();
					bstart = false;
				}
				else
				{
					xml x1 ;
					
					dw_2.DwUpdateAllToEx(x1);
					KXMLDOMElement docElement = x1.documentElement();
					if (docElement)
					{
						KXMLDOMNodeList lst = x.selectNodes(L"data/Item");
						int n = lst.length();
						for (int i = 0; i < n; i++)
						{
							KXMLDOMElement e = lst.item(i);
							docElement.appendChild(e);
							KXMLDOMElement fe = x1.createElement(L"FilterColumn");
							fe.text = filterStr;
							e.appendChild(fe);
							fe.Release();
							e.Release();
						}
						docElement.Release();
						lst.Release();
						dw_2.Retrieve(x1);
					}
					else
					{
						dw_2.Retrieve(x);
					}
					dw_2.Filter(L"FilterColumn", filterStr);
					dw_2.Redraw();
				}
			}
			return 1;
		}

		int  OnRetrieve()
		{
			HCURSOR  hCursor = xutil::SetCursorWait();
			xml x ;
			
			xaserverarg arg;
			
			arg.AddArg(L"QueryTxt", GetControl(L"sle_search").GetText());

			xcombobox cbx_type = GetControl(L"cbx_ship");
			int h = xcombobox::GetCurSel(cbx_type.GetHWND());
			if (h < 0) return 1;
			xstring str = xcombobox::GetItemData(cbx_type.GetHWND());
			arg.AddArg(L"ShipDays", str);
			trace(str);
			if (getUrl(L"/sale/data/AP/list101", arg.GetString(), x) != 1)
			{
				trace(x.text());
				xutil::RestoreCursor(hCursor);
				return -1;
			}
			else
			{
				dw_1.Retrieve(x);
				dw_1.Redraw();
			}
			bstart = true;
			xutil::RestoreCursor(hCursor);
			return 1;
		}

		int OnFilter()
		{
			xstring str = GetControl(L"sle_filter").GetText();
			if (str != searchStr)
			{
				searchStr = str;
				dw_1.Filter(L"*", searchStr);

				if (dw_1.GetRowCount() > 0)
				{
					OnPrepayRetrieve(1, bstart);
					dw_2.Redraw();
				}
				return 1;
			}
			return 1;
		}

		int onload()
		{
			m_layer = GetControl(L"tab_1");
			dw_1 = GetControl(L"dw_1");
			dw_1.openUrl(L"/sale/view/AP/template/ImportList100");
			dw_1.SetAskStyle(true);

			dw_1.SetColumnState(L"VATNo", false);
			dw_1.SetColumnState(L"APAmount", false);
			dw_1.SetColumnState(L"PrePayAmount", false);
			dw_1.SetColumnState(L"PrePayBalance", false);
			dw_1.SetColumnState(L"VATDate", false);
			dw_1.SetColumnState(L"InvoiceNo", false);
			dw_1.SetColumnState(L"SupplierID", false);

			dw_2 = GetControl(L"dw_2");
			dw_2.openUrl(L"/sale/view/AP/template/ImportList2");
			dw_2.SetColumnState(L"Balance", false);
			dw_2.SetColumnState(L"DisAmountCurrent", false);
			dw_2.SetColumnState(L"DisAmount", false);

			dw_101 = GetControl(L"dw_101");
			dw_101.openUrl(L"/sale/view/AP/template/AP/List1");
			dw_102 = GetControl(L"dw_102");
			dw_102.openUrl(L"/sale/view/AP/template/AP/List1");

			dw_3 = GetControl(L"dw_3");
			dw_3.openUrl(L"/sale/view/AP/template/ImportList3");
			dw_4 = GetControl(L"dw_4");
			dw_4.openUrl(L"/sale/view/AP/template/ImportList4");

			dw_5 = GetControl(L"dw_5");
			dw_5.openUrl(L"/sale/view/AP/template/ImportList5");
			dw_6 = GetControl(L"dw_6");
			dw_6.openUrl(L"/sale/view/AP/template/ImportList6");

			OnAttachEvent();
			searchStr = L"";
			bstart = true;

			return 1;
		}

		int onloaded()
		{
			return 1;
		}
	};