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

unit trade 
[
	class MaintLevelCustomerWin :  public xframe
	{
		xdwtable dw_arg;
		xaserverarg  arg;


		//ÃüÁî·¢²¼º¯Êý
		int OnCmdDispatch(string comdid)
		{
			if(comdid=="xmOk")
			{
				xml x = new xml;
				x.setNativePointer(x.CreateInstance());
				dw_arg.AcceptText();
				dw_arg.DwUpdateAllTo(x.GetXmlDoc());
				if(arg)
				{					
					arg.AddArg("arg",x.GetXml());
					arg.AddArg("ok","true");
				}
				CloseWindow();
				
				return 1;
			}
			else if(comdid=="xmCancel")
			{
				if(arg)arg.AddArg("ok","false");
				CloseWindow();
				return 1;
			}
			return 0;
		}
		
		//ÃüÁî´¦Àíʼþ
		int OnXCommand(ref TXCommandEvent evt,int param)
		{
			return OnCmdDispatch(evt.pStrID);
		}
		
		int OnAttachEvent()
		{
			//°ó¶¨¹¤¾ßÌõµã»÷ʼþ
			AttachEvent("WM_XCOMMAND",OnXCommand);
		}
		
		int onload()
		{
			dw_arg = GetControl("dw_arg");
			
			if(GetParam())arg = GetParam();
			
			string dw = "/sale/view/CustomerV3/template/customer/level.maint";
			dw_arg.openUrl(dw);
		
			dw_arg.SetColHeaderHeight(0);
			dw_arg.SetRowSelectorWidth(0);
			dw_arg.SetHScrollState(false);
			dw_arg.SetVScrollState(false);
			
		
			OnAttachEvent();	
			
			return 1;
		}
		
	};
]