use "xcontrol.vframe.vbusiness.vd"
use "xbase.vframe.vbusiness.vd"

unit trade 
[
	class ViewEx1TotalWin :  public xwin
	{
		xdwgrid	dw_list;
		xoffice 	dw_office;
		xcell		dw_cell;
		xnode	m_agentNode;	//Agent Condition
		msxml::IXMLDOMElement rptEle;
		string m_category;
		string argStr;
	
		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 OnSetFocus(ref TEvent evt,int param)
		{
			//ÖØÖù¤¾ßÌõ
			SetAgent();
			return 1;
		}

		//ÃüÁî·¢²¼º¯Êý
		int OnCmdDispatch(string comdid)
		{
			int hCursor =  0;
			 if(comdid=="xmAnalysis")
			{
				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;
			 }
			 if(comdid=="xmTrans")
				 return OnTransData();
			 if(comdid=="xmQuery")
			{
				if(rptEle)
				{
					string argUrl = rptEle.getAttribute("arg");
					if(argUrl !="")
					{
						xaserverarg ar = new xaserverarg;
						ar.setNativePointer(ar.CreateInstance());
						ar.AddArg("argurl",argUrl);
						if(argStr !="") 
							ar.AddArg("arg",argStr);
						OpenWindow("dev:xpage[view.total.arg.vx]",cast(ar as int));
						string arstr = ar.GetArgString("arg");
						if(arstr != "" && ar.GetArgString("action")=="ok")
						{
							argStr = arstr;
							hCursor = xutil::SetCursorWait();
							OnRetrieve(rptEle.getAttribute("data"),argStr);
							xutil::RestoreCursor(hCursor);
						}
					}
					else
					{
						argStr="";
						OnRetrieve(rptEle.getAttribute("data"),argStr);
					}
				}
				return 1;
			 }
			if(comdid=="xmSaveAs")
			{
				dw_list.SaveAs("");
				return 1;
			}
			return 0;
		}
		
		int SwitchReport(msxml::IXMLDOMElement e)
		{
			string dwname = e.getAttribute("template");
			string dataurl = e.getAttribute("data");
			string sheettype = e.getAttribute("reporttype");
			if(rptEle != e)
			{
				argStr = "";
				rptEle = e;
			}
			if(sheettype=="") sheettype="report";
			SwitchLayer("dw_"+sheettype,"report");
			if(sheettype=="report")dw_list.openUrl(dwname);
			
			SetAgent();
			return 1;
		}
		
		int OnCombboChanged(ref TCommandEvent evt,int lParam)
		{
			int h = xcombobox::GetCurSel(evt.hCtrl);
			if(h > -1) 
			{
				int hCursor = xutil::SetCursorWait();
				msxml::IXMLDOMElement e = xcombobox::GetItemData(evt.hCtrl, h);
				SwitchReport(e);
				win32::PostMessage(GetHWND(),0x401,"xmQuery",0);
				//OnCmdDispatch("xmQuery");
				xutil::RestoreCursor(hCursor);
			}
			return 1;
		}

		int OnTransData()
		{
			int ret =   win32::MessageBox(GetHWND(),"ÊÇ·ñ¸üÐÂÊý¾Ý?\n¸üйý³ÌÔ¤¼ÆÐèÒªËÄÊ®·ÖÖÓ£¬Èç¹ûÖм䵯³öµÈ´ýʱ¼ä¹ý³¤µÄÌáʾ£¬Çëµã»÷ÖмäÖØÊÔ°´Å¥£¬»òµÈ´ýµ½Ò»¶¨Ê±¼äÔÙµã»÷","Ìáʾ",0x4 /*yesno*/);
			if(ret != 6 /*IDYES */ ) return 1;

			xml x = new xml;
			x.setNativePointer(xml::CreateInstance());
			int hCursor = xutil::SetCursorWait();
			if (url::get("/sale/data/Total3/total/transdata","",x)!=1)
			{
				xutil::RestoreCursor(hCursor);
				return 1;
			}else	
			{
				xutil::RestoreCursor(hCursor);
				alert("Êý¾Ý´«ÊäÍê³É!");
				return 1;
			}
			
			return 1;
		}
			
		//ÃüÁî´¦Àíʼþ
		int OnXCommand(ref TXCommandEvent evt,int param)
		{
			return OnCmdDispatch(evt.pStrID);
		}
		
		int OnDWClick(ref TNotifyEvent evt,int p)
		{
			ref DWNMHDR  hdr = trust(evt.pnmh as ref DWNMHDR);
			string value = hdr.data;
			string colname = hdr.colname;
			int row = hdr.row;
			
			if(row < 1) return 1;
			
			xaserverarg arg;
			/*
			if(colname=="SONo")
			{
				string SONo = dw_list.GetItemString(row,colname);
				arg=new xaserverarg;
				arg.setNativePointer(arg.CreateInstance());						
				arg.AddArg("EntityNo",SONo);
				arg.AddArg("ReadOnly","true");
				OpenWindow("dev:xpage[base.maint.so.vx]",arg.getNativePointer());
			}
			if(colname=="InvoiceNo")
			{
				string InvoiceNo= dw_list.GetItemString(row,colname);
				arg=new xaserverarg;
				arg.setNativePointer(arg.CreateInstance());						
				arg.AddArg("EntityNo",InvoiceNo);
				arg.AddArg("ReadOnly","true");
				OpenWindow("dev:xpage[maint.GDN3.vx]",arg.getNativePointer());
			}
			if(colname=="InvoiceNoEx")
			{
				string InvoiceNoEx= dw_list.GetItemString(row,colname);
				arg=new xaserverarg;
				arg.setNativePointer(arg.CreateInstance());						
				arg.AddArg("EntityNo",InvoiceNoEx);
				arg.AddArg("invoiceno",InvoiceNoEx);
				arg.AddArg("ReadOnly","true");
				OpenWindow("dev:xpage[maint.vatnotify.vx]",arg.getNativePointer());
			}
			*/
			return 1;
		}

		int OnAttachEvent()
		{
			//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
			AttachEvent("WM_XCOMMAND",OnXCommand);
			//»ñÈ¡½¹µãʼþ£¬ÓÃÓÚÖØÖù¤¾ßÌõ
			AttachEvent("WM_SETFOCUS",OnSetFocus);
			AttachEvent("cb_report","CBN_SELCHANGE",OnCombboChanged);
			AttachEvent("dw_report","DWV_CLICKED",OnDWClick);
		}
		
		int  OnRetrieve(string dataurl, string argstr)
		{
			if(!rptEle) return 0;
			
			dw_list.Reset();
			
			xml x = new xml;
			x.setNativePointer(xml::CreateInstance());
			xaserverarg arg = new xaserverarg;
			arg.setNativePointer(arg.CreateInstance());	
			arg.AddArg("arg",argstr);
			
			string sheettype = rptEle.getAttribute("reporttype");
			if(sheettype=="") sheettype="report";
			if (url::get(dataurl,arg.GetString(),x)!=1)
			{
				trace("\r\n--------"+x.GetXmlDoc().text);
				dw_list.Redraw();
				return -1;
			}else	
			{
				//xutil::SaveToFile("C:\\Temp\\Total3.xml",x.GetXml(),"","","");
				if(sheettype=="report")
				{
					dw_list.Retrieve(x);
					dw_list.Redraw();
					dw_list.SetReadOnly(true);
				 }
				else if(sheettype=="cell")
				{
				}
				else if(sheettype=="office")
				{
					dw_office.LoadTemplate(x);
					for(int i=0; i<dw_office.GetSheetCount();i++)
					{
						xcell sheet = dw_office.GetSheet(i);
						sheet.SetReadOnly(true);
					}
				}
			}
			return 1;
		}

		xml getReportSet(string category)
		{
			xml x = new xml;
			x.setNativePointer(xml::CreateInstance());
			xaserverarg arg = new xaserverarg;
			arg.setNativePointer(arg.CreateInstance());	
			arg.AddArg("category",category);
			if (url::get("/sale/data/Total3/reportset",arg.GetString(),x)!=1)
			{
				return 0;
			}
			return x;
		}
		
		int onload()
		{
			dw_list = GetControl("dw_report");
			dw_office  = GetControl("dw_office");
			dw_cell = GetControl("dw_cell");
			dw_list.openUrl("/sale/view/Total3/template/sodetail");
			
			argStr ="";
			rptEle = 0;
			xcombobox xc = GetControl("cb_report");
			
			//m_category = "total/business";
			m_category = "total/sample";
			if(GetParam()) {
				xaserverarg arg = new xaserverarg;
				arg.setNativePointer(GetParam());	
				m_category = arg.GetArgString("category");
			}
			xml x = getReportSet(m_category);
			if(x)
			{
				msxml::IXMLDOMNodeList nlist =x.GetXmlDoc().selectNodes("//reports/report");
				int len = nlist.length;
				for(int i=0; i<len; i++)
				{
					msxml::IXMLDOMElement rpt = nlist.item(i);
					string name = rpt.getAttribute("name");
					xcombobox::AddItem(xc.GetId(),name,trust(rpt as int));
					if(i==0) xc.SetText(name);
					if(i==0) rptEle = rpt;
				}
			}
			OnAttachEvent();	
			return 1;
		}
		
		int onloaded()
		{
			SetAgent();
			
			if(rptEle)
			{
				SwitchReport(rptEle);
				//OnCmdDispatch("xmQuery");
			}
			
			return 1;
		}		
	};
]