use "win.vl"
use "treeview.vm"
use "dev:vm[xdwgrid.vm]"
use "dev:vm[xdwtable.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 "dev:vm[pagecontrol.vm]"
use "maint.vl"
use "publiccode.vl"

unit vbusiness.xpage
[
	CompanyMaint is extend maint;
	about CompanyMaint
		[
			control:

		method:
			[
				pagecontrol__ m_layer;
				xdwtable__	dw_detail;
				xdwtable__	dw_bank;
				string		m_operate;
				string		m_sguid;

				xnode__	m_agentNode;	//Agent Condition
				string	m_agentCond;	//Agent Node
				int SetAgent()
				{
					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;
				}

				//½¹µã¼¤»î´¦Àíº¯Êý
				int OnSetFocus(ref TEvent evt, int param)
				{
					SetAgent();

					//ÖØÖù¤¾ßÌõ
					return 1;
				}

				int OnPreSave()
				{
					xdwtable__ dw = new xdwtable__;
					dw.setNativePointer(dw_detail.FindDwTable("CompanyInfo", 0));
					string sPartyNo = dw.GetItemString(1, "PartyNo", 0);
					if (sPartyNo == "" || sPartyNo == nil)
					{
						string sGetNo = publiccode::GetIdentityNo("");
						dw.SetItemString(1, "PartyNo", sGetNo);
						//alert("¹«Ë¾±àºÅΪ¿Õ£¡");
						//return -1;
					}
					string sPartyName = dw.GetItemString(1, "Name", 0);
					if (sPartyName == "" || sPartyName == nil)
					{
						alert("¹«Ë¾Ãû³ÆΪ¿Õ£¡");
						return -1;
					}

					string suserid = publiccode::GetUserInfo().id;
					string sdate = publiccode::GetCurDate();
					dw.SetItemString(1, "ModifierID", suserid);
					dw.SetItemString(1, "ModifyDate", sdate);

					dw.setNativePointer(dw_bank.FindDwTable("item", 0));
					if (dw)
					{
						string sno;
						string sname,
							string status;
						int i;
						int row = dw.GetRowCount();
						for (i = 1; i <= row; i++)
						{
							status = dw.GetItemString(i, "Status", 0) + "";
							if (status == "" || status == nil)
							{
								dw.SetItemString(i, "Status", "Y");
								//alert("µÚ"+i.toString()+"ÐÐ״̬Ϊ¿Õ");
								//return -1;
							}
							/*
							sno=dw.GetItemString(i,"BankAccountNo",0)+"";
							sname=dw.GetItemString(i,"BankName",0)+"";
							status=dw.GetItemString(i,"Status",0)+"";
							if (sno=="" || sno==nil)
							{
								if(sname !="" && sname != nil)
								{
									alert("µÚ"+i.toString()+"ÐÐÒøÐбàºÅΪ¿Õ");
									return -1;
								}
							}

							if (sname=="" || sname==nil)
							{
								if(sno !="" && sno != nil)
								{
									alert("µÚ"+i.toString()+"ÐÐÒøÐÐÃû³ÆΪ¿Õ");
									return -1;
								}
							}
							else
							{
								if (status=="" || status==nil)
								{
									dw.SetItemString(i,"Status","Y");
									//alert("µÚ"+i.toString()+"ÐÐ״̬Ϊ¿Õ");
									//return -1;
								}
							}
							*/
						}
					}
					return 1;
				}

				int OnSave()
				{
					dw_detail.AcceptText();
					dw_bank.AcceptText();
					int rec;
					rec = OnPreSave();
					if (rec == -1)
						return -1;

					int hIcon = xutil__::SetCursorWait();

					string val, val2;
					xml__ x = new xml__;
					x.setNativePointer(x.CreateInstance());
					var xdoc = x.GetXmlDoc();
					dw_detail.DwUpdateAllTo(xdoc);
					//val = xdoc.xml ;
					dw_bank.DwUpdateAllTo(xdoc);
					val = xdoc.xml;
					trace(val);
					xaserverarg__ args = new xaserverarg__;
					args.setNativePointer(args.CreateInstance());
					args.AddArg("content", val);
					args.AddArg("dbmap", "CompanyInfo.dbmap");
					//trace(m_EntityValueEx);
					xml__ x1 = new xml__;
					x1.setNativePointer(x1.CreateInstance());
					if (url::post("OrganizationStruct/update.companyinfoex", args.GetString(), x1) != 1)
						//if (xaserver__::ExecXAction("","[update.CompanyInfoEx.xa]",args.GetString(),x1) !=1)
					{
						string error = x1.GetXmlDoc().text;
						trace(error);
					}
					else
					{
						trace(x1.GetXml());
						if (x1.GetXmlDoc().selectSingleNode("error"))
						{
							alert("±£´æ³ö´í2!");
							return 0;
						}
						win__::MessageBox(GetHWND(), "±£´æ³É¹¦£¡", "Ìáʾ", 0);
					}
					xutil__::RestoreCursor(hIcon);
					dw_detail.ResetUpdateStatus();
					dw_bank.ResetUpdateStatus();
					var xdoc2 = x.GetXmlDoc();
					dw_detail.DwUpdateAllTo(xdoc2);
					val = xdoc.xml;
					trace(val);
					return 1;
				}

				int OnItemChanged(ref TNotifyEvent evt, int p)
				{
					ref DWNMHDR dwhdr = evt.pnmh;
					int row = dwhdr.row;
					string col = dwhdr.colname;
					string data = dwhdr.data;
					if (col == "Name")
					{
						xml__ x = new xml__;
						x.setNativePointer(x.CreateInstance());
						xaserverarg__ arg = new xaserverarg__;
						arg.setNativePointer(arg.CreateInstance());
						arg.AddArg("Name", data);
					}

					return 1;
				}

				int OnChildContent(ref TNotifyEvent evt, int p)
				{
					ref DWNMHDR dwhdr = evt.pnmh;
					string col = dwhdr.colname;
					if (col != "") {
						xml__ x = new xml__;
						x.setNativePointer(x.CreateInstance());
						xaserverarg__ arg = new xaserverarg__;
						arg.setNativePointer(arg.CreateInstance());
						string query;
						query = "[IResourceMSSql.xq]";
						if (col == "TradeType") {
							arg.AddArg("ResourceType", "TradeType");//óÒ×·½Ê½	
						}
						if (xaserver__::ExecXQuery(GetServerUrl(), query, arg.GetString(), x) == 1)
							dwhdr.data = x.GetXml();
						//trace(x.GetXml());
					}
					return 1;
				}

				int OnAddRow()
				{
					int h = m_layer.GetSheetIndex();
					if (h == 1)
					{
						xdwtable__ dw = new xdwtable__;
						dw.setNativePointer(dw_bank.GetCurTable());
						string dw_n = dw.GetDwName();
						if (dw_n == "item")
						{
							int row = dw.InsertRow(0);
							dw.SetItemString(row, "Status", "Y");
						}
					}
					return 1;
				}

				int OnInsertRow()
				{
					int h = m_layer.GetSheetIndex();
					if (h == 1)
					{
						xdwtable__ dw = new xdwtable__;
						dw.setNativePointer(dw_bank.GetCurTable());
						string dw_n = dw.GetDwName();
						if (dw_n == "item")
						{
							int row = dw.GetRow();
							int crow = dw.InsertRow(row);
							dw.SetItemString(crow, "Status", "Y");
						}
					}
					return 1;
				}

				int OnDeleteRow()
				{
					int h = m_layer.GetSheetIndex();
					if (h == 1)
					{
						xdwtable__ dw = new xdwtable__;
						dw.setNativePointer(dw_bank.GetCurTable());
						string dw_n = dw.GetDwName();
						if (dw_n == "item")
						{
							int row = dw.GetRow();
							dw.DeleteRow(row);
						}
					}
					return 1;
				}

				//ÃüÁî·¢²¼º¯Êý
				int OnCmdDispatch(string comdid)
				{
					if (comdid == "Save")  OnSave();
					else if (comdid == "AddRow") OnAddRow();
					else if (comdid == "InsertRow") OnInsertRow();
					else if (comdid == "DeleteRow") OnDeleteRow();
					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_detail", "DWV_CHILDCONTENT", OnChildContent);
					AttachEvent("dw_detail", "DWV_ITEMCHANGED", OnItemChanged);
				}

				int  OnRetrieve()
				{
					xml__ x = new xml__;
					x.setNativePointer(x.CreateInstance());
					xaserverarg__ arg = new xaserverarg__;
					arg.setNativePointer(arg.CreateInstance());
					arg.AddArg("guid", m_sguid);
					//trace(m_sguid);
					//if (url::get("OrganizationStruct/detail.CompanyInfo",arg.GetString(),x) != 1)
					if (url::post("OrganizationStruct/detail.CompanyInfo", arg.GetString(), x) != 1)
					{
						trace(x.GetXmlDoc().text);
						return -1;
					}
					else
					{
						dw_detail.Retrieve(x);
						dw_detail.Redraw();
						dw_bank.Retrieve(x);
						dw_bank.Redraw();
						//trace(x.GetXml());
					}

					return 1;
				}

				int OnInitial()
				{
					SetAgent();

					xaserverarg__ arg = new xaserverarg__;
					arg.setNativePointer(arg.CreateInstance());
					arg = this.GetParam();
					if (arg)
					{
						m_operate = arg.GetArgString("operate");
						m_sguid = arg.GetArgString("guid");
					}
					/*if ( m_sguid == "" || m_sguid == nil)
					{
						m_sguid = win__::GetGuid();
						trace(m_sguid);
					}*/

					OnAttachEvent();

					return 1;
				}

				int onload()
				{
					m_layer = new pagecontrol__;
					m_layer.setNativePointer(this.GetControl("cTab"));

					dw_detail = new xdwtable__;
					dw_detail.setNativePointer(this.GetControl("dw_detail"));
					dw_detail.openUrl("×éÖ¯¼Ü¹¹.vface/template/company/detail");
					dw_detail.SetColHeaderHeight(0);
					dw_detail.SetRowSelectorWidth(0);
					dw_bank = new xdwtable__;
					dw_bank.setNativePointer(this.GetControl("dw_bank"));
					dw_bank.openUrl("×éÖ¯¼Ü¹¹.vface/template/company/bank");

					OnInitial();
					if (m_sguid != "") {
						OnRetrieve();
					}
					else {
						xdwtable__ dw = new xdwtable__;
						dw.setNativePointer(dw_detail.FindDwTable("CompanyInfo", 0));
						dw.SetItemString(1, "Status", "1");
						dw.SetItemString(1, "InternalFlag", "Y");
						dw.SetItemString(1, "Type", "0");
						string suserid = publiccode::GetUserInfo().id;
						/*string susername = publiccode::GetUserInfo().name;
						string sdate = publiccode::GetCurDate();
						dw.SetItemString(1,"CreatorID",suserid);
						dw.SetItemDisplayString(1,"CreatorID",susername);
						dw.SetItemString(1,"CreateDate",sdate);*/

						dw.setNativePointer(dw_detail.FindDwTable("address", 0));
						dw.SetItemString(1, "IdentifyAddressFlag", "Y");
						dw.SetItemString(1, "Status", "1");
						dw.setNativePointer(dw_detail.FindDwTable("Regist", 0));
						dw.SetItemString(1, "IdentifyAddressFlag", "N");
						dw.SetItemString(1, "Status", "1");

						dw.setNativePointer(dw_bank.FindDwTable("item", 0));
						if (dw) {
							//msxml::IXMLDOMElement ele = dw.GetElement();
							//trace(ele.xml);
							//dw.SetItemString(1,"Status","Y");
						}
					}
					return 1;
				}

			]

		]
]