sanlu_new/program/SunRoxmServer/Form XML/FrmSalesDailyReport.xml

<?xml version="1.0" encoding="UTF-8"?>
<Forms>
	<Form Name="FrmSalesDailyReport">
		<Client>
			<Events>
				<Load><![CDATA[
					@Title="销货日报表";
					GetSchema();		
					txtCoNo.CValue=GetCurrentCompanyNo();
					txtCoName.CValue=GetCurrentCompanyShortName();		
					Empty();
					NewInstance();
					#UI.StartDate_SaleBill = GetCurrentTime();
					#UI.EndDate_SaleBill   = GetCurrentTime();
				]]></Load>
				<Closing>
					;
				</Closing>
				<Closed>
					;
				</Closed>
			</Events>
			<Mode>
				<Search>
					<Lable name="Search"/>
				</Search>
			</Mode>
			<Controls>
				<IKDateTimePicker name="dtStart" DataSource="UI.StartDate_SaleBill">
					<Events>
						<CheckedChanged>
							dtEnd.Checked = dtStart.Checked;
						</CheckedChanged>
						<ValueChanged>
							dtEnd.CValue = dtStart.CValue;
						</ValueChanged>
					</Events>
				</IKDateTimePicker>	
				<IKDateTimePicker name="dtEnd"	DataSource="UI.EndDate_SaleBill"/>
				<IKTextButton name="tbSaleBillNo1" DataSource="UI.StartNo_SaleBill">
					<Events>
						<Click>
							@temp=ShowSearchBox("BillSearch","HAVEDEPOT", "tbSaleBillNo1",tbSaleBillNo1.CValue);
							if(@temp=="")
								return;
							tbSaleBillNo1.CValue=@temp;
						</Click>
						<TextBoxButtonTextChanged>
							tbSaleBillNo2.CValue = tbSaleBillNo1.CValue;
						</TextBoxButtonTextChanged>
					</Events>
				</IKTextButton>
				<IKTextButton name="tbSaleBillNo2" DataSource="UI.EndNo_SaleBill" >
					<Events>
						<Click>
							@temp=ShowSearchBox("BillSearch","HAVEDEPOT", "tbSaleBillNo2",tbSaleBillNo2.CValue);
							if(@temp=="")
								return;
							tbSaleBillNo2.CValue=@temp;
						</Click>
					</Events>
				</IKTextButton>
				<IKTextButton name="tbCustomerNo1" DataSource="UI.StartNo_Customer">
					<Events>
						<Click>
							@temp = ShowSearchBox("CustomerSearch","INFOMATION",tbCustomerNo1.CValue);
							if( @temp == "" )
								return;
							tbCustomerNo1.CValue = @temp;	
						</Click>
						<TextBoxButtonTextChanged>
							tbCustomerNo2.CValue = tbCustomerNo1.CValue;
						</TextBoxButtonTextChanged>
					</Events>
				</IKTextButton>
				<IKTextButton name="tbCustomerNo2" DataSource="UI.EndNo_Customer">
					<Events>
						<Click>
							@temp = ShowSearchBox("CustomerSearch","INFOMATION",tbCustomerNo2.CValue);
							if( @temp == "" )
								return;
							tbCustomerNo2.CValue = @temp;	
						</Click>
					</Events>
				</IKTextButton>
			
				<IKComboBoxEx name="cbPrincipal1" DisplaySource="UI.StartPrincipal_SaleBill" NoSource="UI.StartNo_Principal" DataSource="Principal" DisplayMember="Name_Employee" NoMember="No_Employee">
					<Events>
						<Reload>
							UpdateForm(false, "cbPrincipal1");
							Search("SearchPrincipal");
							UpdateForm(true, "cbPrincipal1");
						</Reload>
						<TextChanged>
							cbPrincipal2.SelectedName = cbPrincipal1.SelectedName;
							cbPrincipal2.SelectedNo=cbPrincipal1.SelectedNo;
						</TextChanged>
					</Events>
				</IKComboBoxEx>
				<IKComboBoxEx name="cbPrincipal2" DisplaySource="UI.EndPrincipal_SaleBill" NoSource="UI.EndNo_Principal" DataSource="Principal" DisplayMember="Name_Employee" NoMember="No_Employee">
					<Events>
						<Reload>
							UpdateForm(false, "cbPrincipal2");
							Search("SearchPrincipal");
							UpdateForm(true, "cbPrincipal2");
						</Reload>
					</Events>
				</IKComboBoxEx>
				<IKComboBoxEx name="cbLocation1" DisplaySource="UI.StartName_Location" NoSource="UI.StartNo_Location" DataSource="Location" DisplayMember="Name_Location" NoMember="No_Location"  >
					<Events>
						<Reload>
							UpdateForm(false, "cbLocation1");
							Search("SearchLocation");
							UpdateForm(true, "cbLocation1");
						</Reload>
						<TextChanged>
							cbLocation2.SelectedName = cbLocation1.SelectedName;
							cbLocation2.SelectedNo = cbLocation1.SelectedNo;
						</TextChanged>
					</Events>
				</IKComboBoxEx>
				<IKComboBoxEx name="cbLocation2" DisplaySource="UI.EndName_Location" NoSource="UI.EndNo_Location" DataSource="Location" DisplayMember="Name_Location" NoMember="No_Location"  >
					<Events>
						<Reload>
							UpdateForm(false, "cbLocation2");
							Search("SearchLocation");
							UpdateForm(true, "cbLocation2");
						</Reload>
					</Events>
				</IKComboBoxEx>
				<IKButton name="btnView">
					<Events>
						<Click>
						if(ikRadioButton1.Checked==false &amp;&amp; ikRadioButton2.Checked==false &amp;&amp; ikRadioButton3.Checked==false)
							{
							MessageBox("请选择格式！",@Title);
							return;
							}

							UpdateForm(false,"");
							#UI.Name_Creator = GetCurrentUser();
							#UI.CreateDate = GetCurrentTime();
							@StartDate_SaleBill=DBNull();
							@EndDate_SaleBill=DBNull();
							@StartNo_SaleBill = DBNull();
							@EndNo_SaleBill = DBNull();
							@StartNo_Customer = DBNull();
							@EndNo_Customer = DBNull();
							@StartNo_Principal= DBNull();
							@EndNo_Principal = DBNull();
							@StartNo_Location = DBNull();
							@EndNo_Location = DBNull();
							if(dtStart.Checked)
							@StartDate_SaleBill=dtStart.Value;
							else
							#UI.StartDate_SaleBill=DBNull();
							if(dtEnd.Checked)
							@EndDate_SaleBill=dtEnd.Value;
							else
							#UI.EndDate_SaleBill=DBNull();
							if(tbSaleBillNo1.CValue != "")
							@StartNo_SaleBill = tbSaleBillNo1.CValue;
							if(tbSaleBillNo2.CValue != "")
							@EndNo_SaleBill = tbSaleBillNo2.CValue;
							if(tbCustomerNo1.CValue != "")
							@StartNo_Customer = tbCustomerNo1.CValue;
							if(tbCustomerNo2.CValue != "")
							@EndNo_Customer = tbCustomerNo2.CValue;
							if(cbPrincipal1.Text!="")
							{
							if(!cbPrincipal1.CheckSelectedItem())
							{
							MessageBox("请选择有效的业务负责人！",@Title);
							cbPrincipal1.Focus();
							return;
							}
							else
							{
							@StartNo_Principal = cbPrincipal1.SelectedNo;
							}
							}
							if(cbPrincipal2.Text!="")
							{
							if(!cbPrincipal2.CheckSelectedItem())
							{
							MessageBox("请选择有效的业务负责人！",@Title);
							cbPrincipal2.Focus();
							return;
							}
							else
							{
							@EndNo_Principal = cbPrincipal2.SelectedNo;
							}
							}
							if(cbLocation1.Text!="")
							{
							if(!cbLocation1.CheckSelectedItem())
							{
							MessageBox("请选择有效的仓库！",@Title);
							cbLocation1.Focus();
							return;
							}
							else
							{
							@StartNo_Location = cbLocation1.SelectedNo;
							}
							}
							if(cbLocation2.Text!="")
							{
							if(!cbLocation2.CheckSelectedItem())
							{
							MessageBox("请选择有效的仓库！",@Title);
							cbLocation2.Focus();
							return;
							}
							else
							{
							@EndNo_Location = cbLocation2.SelectedNo;
							}
							}
							if(ikRadioButton3.Checked)
							{

							Search("SearchSalesDailyByProduct",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByProduct")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							return;
							}
							else
							{
							PrintReport("UIFrmSalesDailyByProduct", "UI","FrmSalesDailyByProduct");
							}
							}
							else if(ikRadioButton1.Checked)
							{
							Search("SearchSalesDailyByPrincipal",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,	@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByPrincipal")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							}
							else
							{
							PrintReport("UIFrmSalesDailyByPrincipal","UI","FrmSalesDailyByPrincipal");
							}
							}
							else
							{
							Search("SearchSalesDailyByLocation",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,	@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByLocation")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							}
							else
							{
							PrintReport("UIFrmSalesDailyByLocation","UI","FrmSalesDailyByLocation");
							}
							}
						</Click>
					</Events>
				</IKButton>
				<IKButton name="btnExcel">
					<Events>
						<Click>
						if(ikRadioButton1.Checked==false &amp;&amp; ikRadioButton2.Checked==false &amp;&amp; ikRadioButton3.Checked==false)
							{
							MessageBox("请选择格式！",@Title);
							return;
							}

							UpdateForm(false,"");
							#UI.Name_Creator = GetCurrentUser();
							#UI.CreateDate = GetCurrentTime();
							@StartDate_SaleBill=DBNull();
							@EndDate_SaleBill=DBNull();
							@StartNo_SaleBill = DBNull();
							@EndNo_SaleBill = DBNull();
							@StartNo_Customer = DBNull();
							@EndNo_Customer = DBNull();
							@StartNo_Principal= DBNull();
							@EndNo_Principal = DBNull();
							@StartNo_Location = DBNull();
							@EndNo_Location = DBNull();
							if(dtStart.Checked)
							@StartDate_SaleBill=dtStart.Value;
							else
							#UI.StartDate_SaleBill=DBNull();
							if(dtEnd.Checked)
							@EndDate_SaleBill=dtEnd.Value;
							else
							#UI.EndDate_SaleBill=DBNull();
							if(tbSaleBillNo1.CValue != "")
							@StartNo_SaleBill = tbSaleBillNo1.CValue;
							if(tbSaleBillNo2.CValue != "")
							@EndNo_SaleBill = tbSaleBillNo2.CValue;
							if(tbCustomerNo1.CValue != "")
							@StartNo_Customer = tbCustomerNo1.CValue;
							if(tbCustomerNo2.CValue != "")
							@EndNo_Customer = tbCustomerNo2.CValue;
							if(cbPrincipal1.Text!="")
							{
							if(!cbPrincipal1.CheckSelectedItem())
							{
							MessageBox("请选择有效的业务负责人！",@Title);
							cbPrincipal1.Focus();
							return;
							}
							else
							{
							@StartNo_Principal = cbPrincipal1.SelectedNo;
							}
							}
							if(cbPrincipal2.Text!="")
							{
							if(!cbPrincipal2.CheckSelectedItem())
							{
							MessageBox("请选择有效的业务负责人！",@Title);
							cbPrincipal2.Focus();
							return;
							}
							else
							{
							@EndNo_Principal = cbPrincipal2.SelectedNo;
							}
							}
							if(cbLocation1.Text!="")
							{
							if(!cbLocation1.CheckSelectedItem())
							{
							MessageBox("请选择有效的仓库！",@Title);
							cbLocation1.Focus();
							return;
							}
							else
							{
							@StartNo_Location = cbLocation1.SelectedNo;
							}
							}
							if(cbLocation2.Text!="")
							{
							if(!cbLocation2.CheckSelectedItem())
							{
							MessageBox("请选择有效的仓库！",@Title);
							cbLocation2.Focus();
							return;
							}
							else
							{
							@EndNo_Location = cbLocation2.SelectedNo;
							}
							}
							if(ikRadioButton3.Checked)
							{

							Search("SearchSalesDailyByProduct",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByProduct")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							return;
							}
							else
							{
							ExportReport("Excel","UIFrmSalesDailyByProduct", "UI","FrmSalesDailyByProduct");
							}
							}
							else if(ikRadioButton1.Checked)
							{
							Search("SearchSalesDailyByPrincipal",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,	@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByPrincipal")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							}
							else
							{
							ExportReport("Excel","UIFrmSalesDailyByPrincipal","UI","FrmSalesDailyByPrincipal");
							}
							}
							else
							{
							Search("SearchSalesDailyByLocation",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,	@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByLocation")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							}
							else
							{
							ExportReport("Excel","UIFrmSalesDailyByLocation","UI","FrmSalesDailyByLocation");
							}
							}
						</Click>
					</Events>
				</IKButton>
				<IKButton name="btnWord">
					<Events>
						<Click>
						if(ikRadioButton1.Checked==false &amp;&amp; ikRadioButton2.Checked==false &amp;&amp; ikRadioButton3.Checked==false)
							{
							MessageBox("请选择格式！",@Title);
							return;
							}

							UpdateForm(false,"");
							#UI.Name_Creator = GetCurrentUser();
							#UI.CreateDate = GetCurrentTime();
							@StartDate_SaleBill=DBNull();
							@EndDate_SaleBill=DBNull();
							@StartNo_SaleBill = DBNull();
							@EndNo_SaleBill = DBNull();
							@StartNo_Customer = DBNull();
							@EndNo_Customer = DBNull();
							@StartNo_Principal= DBNull();
							@EndNo_Principal = DBNull();
							@StartNo_Location = DBNull();
							@EndNo_Location = DBNull();
							if(dtStart.Checked)
							@StartDate_SaleBill=dtStart.Value;
							else
							#UI.StartDate_SaleBill=DBNull();
							if(dtEnd.Checked)
							@EndDate_SaleBill=dtEnd.Value;
							else
							#UI.EndDate_SaleBill=DBNull();
							if(tbSaleBillNo1.CValue != "")
							@StartNo_SaleBill = tbSaleBillNo1.CValue;
							if(tbSaleBillNo2.CValue != "")
							@EndNo_SaleBill = tbSaleBillNo2.CValue;
							if(tbCustomerNo1.CValue != "")
							@StartNo_Customer = tbCustomerNo1.CValue;
							if(tbCustomerNo2.CValue != "")
							@EndNo_Customer = tbCustomerNo2.CValue;
							if(cbPrincipal1.Text!="")
							{
							if(!cbPrincipal1.CheckSelectedItem())
							{
							MessageBox("请选择有效的业务负责人！",@Title);
							cbPrincipal1.Focus();
							return;
							}
							else
							{
							@StartNo_Principal = cbPrincipal1.SelectedNo;
							}
							}
							if(cbPrincipal2.Text!="")
							{
							if(!cbPrincipal2.CheckSelectedItem())
							{
							MessageBox("请选择有效的业务负责人！",@Title);
							cbPrincipal2.Focus();
							return;
							}
							else
							{
							@EndNo_Principal = cbPrincipal2.SelectedNo;
							}
							}
							if(cbLocation1.Text!="")
							{
							if(!cbLocation1.CheckSelectedItem())
							{
							MessageBox("请选择有效的仓库！",@Title);
							cbLocation1.Focus();
							return;
							}
							else
							{
							@StartNo_Location = cbLocation1.SelectedNo;
							}
							}
							if(cbLocation2.Text!="")
							{
							if(!cbLocation2.CheckSelectedItem())
							{
							MessageBox("请选择有效的仓库！",@Title);
							cbLocation2.Focus();
							return;
							}
							else
							{
							@EndNo_Location = cbLocation2.SelectedNo;
							}
							}
							if(ikRadioButton3.Checked)
							{

							Search("SearchSalesDailyByProduct",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByProduct")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							return;
							}
							else
							{
							ExportReport("Word","UIFrmSalesDailyByProduct", "UI","FrmSalesDailyByProduct");
							}
							}
							else if(ikRadioButton1.Checked)
							{
							Search("SearchSalesDailyByPrincipal",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,	@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByPrincipal")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							}
							else
							{
							ExportReport("Word","UIFrmSalesDailyByPrincipal","UI","FrmSalesDailyByPrincipal");
							}
							}
							else
							{
							Search("SearchSalesDailyByLocation",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,	@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByLocation")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							}
							else
							{
							ExportReport("Word","UIFrmSalesDailyByLocation","UI","FrmSalesDailyByLocation");
							}
							}
						</Click>
					</Events>
				</IKButton>
				<IKButton name="btnPrint">
					<Events>
						<Click>
							if(ikRadioButton1.Checked==false &amp;&amp; ikRadioButton2.Checked==false &amp;&amp; ikRadioButton3.Checked==false)
							{
							MessageBox("请选择格式！",@Title);
							return;
							}

							UpdateForm(false,"");
							#UI.Name_Creator = GetCurrentUser();
							#UI.CreateDate = GetCurrentTime();
							@StartDate_SaleBill=DBNull();
							@EndDate_SaleBill=DBNull();
							@StartNo_SaleBill = DBNull();
							@EndNo_SaleBill = DBNull();
							@StartNo_Customer = DBNull();
							@EndNo_Customer = DBNull();
							@StartNo_Principal= DBNull();
							@EndNo_Principal = DBNull();
							@StartNo_Location = DBNull();
							@EndNo_Location = DBNull();
							if(dtStart.Checked)
							@StartDate_SaleBill=dtStart.Value;
							else
							#UI.StartDate_SaleBill=DBNull();
							if(dtEnd.Checked)
							@EndDate_SaleBill=dtEnd.Value;
							else
							#UI.EndDate_SaleBill=DBNull();
							if(tbSaleBillNo1.CValue != "")
							@StartNo_SaleBill = tbSaleBillNo1.CValue;
							if(tbSaleBillNo2.CValue != "")
							@EndNo_SaleBill = tbSaleBillNo2.CValue;
							if(tbCustomerNo1.CValue != "")
							@StartNo_Customer = tbCustomerNo1.CValue;
							if(tbCustomerNo2.CValue != "")
							@EndNo_Customer = tbCustomerNo2.CValue;
							if(cbPrincipal1.Text!="")
							{
							if(!cbPrincipal1.CheckSelectedItem())
							{
							MessageBox("请选择有效的业务负责人！",@Title);
							cbPrincipal1.Focus();
							return;
							}
							else
							{
							@StartNo_Principal = cbPrincipal1.SelectedNo;
							}
							}
							if(cbPrincipal2.Text!="")
							{
							if(!cbPrincipal2.CheckSelectedItem())
							{
							MessageBox("请选择有效的业务负责人！",@Title);
							cbPrincipal2.Focus();
							return;
							}
							else
							{
							@EndNo_Principal = cbPrincipal2.SelectedNo;
							}
							}
							if(cbLocation1.Text!="")
							{
							if(!cbLocation1.CheckSelectedItem())
							{
							MessageBox("请选择有效的仓库！",@Title);
							cbLocation1.Focus();
							return;
							}
							else
							{
							@StartNo_Location = cbLocation1.SelectedNo;
							}
							}
							if(cbLocation2.Text!="")
							{
							if(!cbLocation2.CheckSelectedItem())
							{
							MessageBox("请选择有效的仓库！",@Title);
							cbLocation2.Focus();
							return;
							}
							else
							{
							@EndNo_Location = cbLocation2.SelectedNo;
							}
							}
							if(ikRadioButton3.Checked)
							{

							Search("SearchSalesDailyByProduct",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByProduct")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							return;
							}
							else
							{
							ExportReport("PrintToPrinter","UIFrmSalesDailyByProduct", "UI","FrmSalesDailyByProduct");
							}
							}
							else if(ikRadioButton1.Checked)
							{
							Search("SearchSalesDailyByPrincipal",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,	@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByPrincipal")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							}
							else
							{
							ExportReport("PrintToPrinter","UIFrmSalesDailyByPrincipal","UI","FrmSalesDailyByPrincipal");
							}
							}
							else
							{
							Search("SearchSalesDailyByLocation",@StartDate_SaleBill,@EndDate_SaleBill,@StartNo_SaleBill,@EndNo_SaleBill,@StartNo_Customer,	@EndNo_Customer,@StartNo_Principal,@EndNo_Principal,@StartNo_Location,@EndNo_Location,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID(),GetFieldRight("销货单","特价单","查看"));
							if(RowCount("#FrmSalesDailyByLocation")==0)
							{
							MessageBox("没有查找到与此相匹配的纪录，未产生报表！",@Title);
							}
							else
							{
							ExportReport("PrintToPrinter","UIFrmSalesDailyByLocation","UI","FrmSalesDailyByLocation");
							}
							}
						</Click>
					</Events>
				</IKButton>		
			</Controls>	
			<ChildForms>
				<ChildForm name="BillSearch"  DataSource="SaleBill" SearchFunction="SearchAllBill" SearchFunctionCondition="SearchBillCondition" SearchFunctionByNo="SearchSaleBillWithNo">
					<DataColumn Index="0" MappingName="#SaleBill.No_SaleBill"				HeaderText="销售单号" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="1" MappingName="#SaleBill.Date_SaleBill"			HeaderText="制单日期" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="2" MappingName="#SaleBill.No_Customer"				HeaderText="客户编号" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="3" MappingName="#SaleBill.ShortName_Customer"		HeaderText="客户名称" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="4" MappingName="#SaleBill.Name_Principal"		HeaderText="业务负责" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="5" MappingName="#SaleBill.TaxCurrency_SaleBill"	HeaderText="税别" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="5" MappingName="#SaleBill.Name_Linkman"			HeaderText="联系人" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="6" MappingName="#SaleBill.Tel_SaleBill"			HeaderText="电话" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="7" MappingName="#SaleBill.Fax_SaleBill"			HeaderText="传真" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
				</ChildForm>
				<ChildForm name="CustomerSearch" DataSource="Customer" SearchFunction="SearchAllCustomer"  SearchFunctionCondition="SearchCustomerCondition" SearchFunctionByNo="" MappingName="客户">
					<DataColumn Index="0" MappingName="#Customer.No_Customer"				HeaderText="客户编号" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="1" MappingName="#Customer.ShortName_Customer"		HeaderText="客户简称" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="2" MappingName="#Customer.Type_Customer"			HeaderText="客户类型" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="3" MappingName="#Customer.Level_Customer"			HeaderText="客户等级" Width="75" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="4" MappingName="#Customer.IsGeneric_Customer"		HeaderText="一般客户" Width="75" ColumnType="IKDataGridBoolColumn"/>
				</ChildForm>
				<!--<ChildForm name="ProductSearch" DataSource="Product" SearchFunction="SearchAllProduct" SearchFunctionByNo="" MappingName="产品">
					<DataColumn Index="0" MappingName="No_Product"		HeaderText="产品编号" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
					<DataColumn Index="1" MappingName="Name_Product"	HeaderText="产品简称" Width="90" ColumnType="IKDataGridTextBoxColumn"/>
				</ChildForm>-->
			</ChildForms>
			<FormatString>
				<Format name="SearchCustomerCondition">
					if(GetRight("客户基本资料","全权查看"))
					{
						FormatString("");
					}
					else
					{
						FormatString(" Customer.ID_Creator='{0}' ",GetLoginUserID());
					}
				</Format>
				<Format name="SearchBillCondition">
					if(GetRight("客户基本资料","全权查看"))
					{
						FormatString("");
					}
					else
					{
						FormatString(" Disable_SaleBill=0 and Customer.ID_Creator='{0}' ",GetLoginUserID());
					}
				</Format>
			</FormatString>
		</Client>
		<Server>	
			<Tables>
				<Table name="UI" Type="Parent">
					<GetSchema CmdType="Text" CmdText="	
														SELECT TOP 0 convert(datetime,0) As StartDate_SaleBill,convert(datetime,0) As EndDate_SaleBill,convert(nvarchar(64),'') As StartNo_SaleBill,convert(nvarchar(64),'') As EndNo_SaleBill,
														convert(nvarchar(64),'') As StartNo_Customer,convert(nvarchar(64),'') As EndNo_Customer,convert(nvarchar(64),'') As StartNo_Principal,convert(nvarchar(64),'') As EndNo_Principal,
														convert(nvarchar(64),'') As StartPrincipal_SaleBill,convert(nvarchar(64),'') As EndPrincipal_SaleBill,convert(nvarchar(64),'') As StartName_Location,convert(nvarchar(64),'') As EndName_Location,convert(nvarchar(64),'') As StartNo_Location,convert(nvarchar(64),'') As EndNo_Location,
														convert(nvarchar(64),'') As Name_Creator,convert(datetime,0) As CreateDate
														--From SaleBill	
															"/>
				</Table>
			</Tables>		
			<Search>
				<SearchAllBill CmdType="Text" CmdText=" SELECT SaleBill.*, Customer.No_Customer, Customer.Name_Customer, Customer.ShortName_Customer, 
														Customer.Type_Customer, Customer.LastDiscount_Customer, Customer.PostalCode_Customer, 
														a.Name_User AS Name_Creator, b.Name_User AS Name_Assessor, c.Name_User AS LastModUserName, 
														Location.No_Location, Location.Name_Location, CONVERT(decimal(18,6), 0) AS NumSum, CONVERT(decimal(18,6), 0) AS MoneySum, 
														CONVERT(decimal(18,6), 0) AS TaxSum, Employee.No_Employee AS No_Principal, Employee.Name_Employee AS Name_Principal
														FROM SaleBill 
														LEFT JOIN Customer ON Customer.ID_Customer = SaleBill.ID_Customer 
														LEFT JOIN AppUser a ON a.ID_User = SaleBill.ID_Creator 
														LEFT JOIN AppUser b ON b.ID_User = SaleBill.ID_Assessor 
														LEFT JOIN AppUser c ON c.ID_User = SaleBill.LastModUser_SaleBill 
														LEFT JOIN Location ON Location.ID_Location = SaleBill.ID_Location 
														LEFT JOIN Employee ON Employee.ID_Employee = SaleBill.ID_Principal
														">
					<Tables>
						<Table name="AllBill" />
					</Tables>
				</SearchAllBill>
				<SearchAllCustomer CmdType="Text" CmdText="SELECT Customer.No_Customer,Customer.ShortName_Customer,Customer.Type_Customer,Customer.Level_Customer,Customer.IsGeneric_Customer FROM Customer ">
					<Tables>
						<Table name="AllCustomer" />
					</Tables>
				</SearchAllCustomer>
				<SearchPrincipal CmdType="Text" CmdText="
															Select No_Employee,Name_Employee
															From Employee
															ORDER BY No_Employee">											
					<Tables>
						<Table name="Principal" />
					</Tables>
				</SearchPrincipal>
				<SearchLocation CmdType="Text" CmdText=" SELECT  No_Location,Name_Location FROM Location WHERE Location.Level_Location = 0 ORDER BY No_Location">
					<Tables>
						<Table name="Location" />
					</Tables>
				</SearchLocation>
				<SearchSalesDailyByProduct CmdType="Text" CmdText="
															declare @cessOut decimal(14,4)
															declare @sqlCmd nvarchar(4000)
															Select @cessOut=CessOut_SystemSetting From SystemSetting 
															set @sqlCmd=N'Select No_Product,Name_Product,Type='+nchar(39)+N'销货'+nchar(39)+N',No_SaleBill,Name_Location,Currency_SaleBill,Quantity_SaleBillProduct,Unit_Product,UnitPrice_SaleBillProduct,SaleBill.TaxCurrency_SaleBill, '
																+N' GoodsAmount_Product=case SaleBill.TaxCurrency_SaleBill ' 
																+N' When '+nchar(39)+'内含'+nchar(39)+N' Then (Quantity_SaleBillProduct*UnitPrice_SaleBillProduct)/(1+'+convert(nvarchar(64),@cessOut)+N'/100)'
																+N' else (Quantity_SaleBillProduct*UnitPrice_SaleBillProduct) end,'
																+N' Amount_Product=case SaleBill.TaxCurrency_SaleBill'
																+N' When '+nchar(39)+'外加'+nchar(39)+N' Then (Quantity_SaleBillProduct*UnitPrice_SaleBillProduct)*(1+'+convert(nvarchar(64),@cessOut)+N'/100)'
																+N' else (Quantity_SaleBillProduct*UnitPrice_SaleBillProduct) end,Date_SaleBill From SaleBill'
																+N' Join SaleBillProduct On SaleBillProduct.ID_SaleBill=SaleBill.ID_SaleBill'
																+N' Join Product On Product.ID_Product=SaleBillProduct.ID_Product'
																+N' Join Location On Location.ID_Location=SaleBill.ID_Location'
																+N' Join Customer On Customer.ID_Customer=SaleBill.ID_Customer'
																+N' Left Join Employee On Employee.ID_Employee=SaleBill.ID_Principal'
																+N' Where SaleBill.ID_Assessor IS Not Null '
															if(@StartDate_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Date_SaleBill &gt;=DateAdd(day,DateDiff(day,0,'+nchar(39)+convert(nvarchar(64),@StartDate_SaleBill)+nchar(39)+N'),0)'
															if(@EndDate_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Date_SaleBill &lt;=DateAdd(day,(DateDiff(day,0,'+nchar(39)+convert(nvarchar(64),@EndDate_SaleBill)+nchar(39)+N')+1),0)'
															if(@StartNo_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_SaleBill &gt;= '+nchar(39)+@StartNo_SaleBill+nchar(39) 
															if(@EndNo_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_SaleBill &lt;= '+nchar(39)+@EndNo_SaleBill+nchar(39)  
															if(@StartNo_Customer Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Customer &gt;= '+nchar(39)+@StartNo_Customer+nchar(39) 
															if(@EndNo_Customer Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Customer &lt;= '+nchar(39)+@EndNo_Customer+nchar(39)  
															if(@StartNo_Principal Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Employee &gt;= '+nchar(39)+@StartNo_Principal+nchar(39) 
															if(@EndNo_Principal Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Employee &lt;= '+nchar(39)+@EndNo_Principal+nchar(39)  
															if(@StartNo_Location Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Location &gt;= '+nchar(39)+@StartNo_Location +nchar(39) 
															if(@EndNo_Location Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Location &lt;= '+nchar(39)+@EndNo_Location+nchar(39)
															if(@Right Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Customer.ID_Creator= '+nchar(39)+Convert(nvarchar(64),@Right)+nchar(39)
															if(@Special=0)
																set @sqlCmd=@sqlCmd+N' And Special_SaleBill=0 '
															set @sqlCmd=@sqlCmd+N' Order By No_Product,No_SaleBill '
															EXECUTE sp_executesql @sqlCmd
															">
																
					<Params>
						<Param name="@StartDate_SaleBill"		type="SaleBill.Date_SaleBill"			Index="0" />
						<Param name="@EndDate_SaleBill"			type="SaleBill.Date_SaleBill"			Index="1" />
						<Param name="@StartNo_SaleBill"			type="SaleBill.No_SaleBill"				Index="2" />
						<Param name="@EndNo_SaleBill"			type="SaleBill.No_SaleBill"				Index="3" />
						<Param name="@StartNo_Customer"			type="Customer.No_Customer"				Index="4" />
						<Param name="@EndNo_Customer"			type="Customer.No_Customer"				Index="5" />
						<Param name="@StartNo_Principal"		type="Employee.No_Employee"				Index="6" />
						<Param name="@EndNo_Principal"			type="Employee.No_Employee"				Index="7" />
						<Param name="@StartNo_Location"			type="Location.No_Location"				Index="8" />
						<Param name="@EndNo_Location"			type="Location.No_Location"				Index="9" />
						<Param name="@Right"					type="SaleBill.ID_Customer"				Index="10" />
						<Param name="@Special"					type="SaleBill.Special_SaleBill"				Index="11" />
					</Params>
					<Tables>
						<Table name="FrmSalesDailyByProduct"/>
					</Tables>
				</SearchSalesDailyByProduct>

				<SearchSalesDailyByPrincipal CmdType="Text" CmdText="
															
															declare @sqlCmd nvarchar(4000)
															set @sqlCmd=N'Select Name_Employee As Principal_SaleBill,Type='+nchar(39)+N'销货'+nchar(39)+N',No_SaleBill,ShortName_Customer,Name_Location,Currency_SaleBill,GoodsAmount_SaleBill,Amount_SaleBill,TaxAmount_SaleBill,TaxCurrency_SaleBill,Date_SaleBill
															From SaleBill
															Join Location On Location.ID_Location=SaleBill.ID_Location
															Join Customer On Customer.ID_Customer=SaleBill.ID_Customer
															Left Join Employee On Employee.ID_Employee=SaleBill.ID_Principal
															Where SaleBill.ID_Assessor Is Not Null '
															if(@StartDate_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Date_SaleBill &gt;=DateAdd(day,DateDiff(day,0,'+nchar(39)+convert(nvarchar(64),@StartDate_SaleBill)+nchar(39)+N'),0)'
															if(@EndDate_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Date_SaleBill &lt;=DateAdd(day,(DateDiff(day,0,'+nchar(39)+convert(nvarchar(64),@EndDate_SaleBill)+nchar(39)+N')+1),0)'
															if(@StartNo_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_SaleBill &gt;= '+nchar(39)+@StartNo_SaleBill+nchar(39) 
															if(@EndNo_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_SaleBill &lt;= '+nchar(39)+@EndNo_SaleBill+nchar(39)  
															if(@StartNo_Customer Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Customer &gt;= '+nchar(39)+@StartNo_Customer+nchar(39) 
															if(@EndNo_Customer Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Customer &lt;= '+nchar(39)+@EndNo_Customer+nchar(39)  
															if(@StartNo_Principal Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Employee &gt;= '+nchar(39)+@StartNo_Principal+nchar(39) 
															if(@EndNo_Principal Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Employee &lt;= '+nchar(39)+@EndNo_Principal+nchar(39)  
															if(@StartNo_Location Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Location &gt;= '+nchar(39)+@StartNo_Location +nchar(39) 
															if(@EndNo_Location Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Location &lt;= '+nchar(39)+@EndNo_Location+nchar(39)
															if(@Right Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Customer.ID_Creator= '+nchar(39)+Convert(nvarchar(64),@Right)+nchar(39)
															if(@Special=0)
																set @sqlCmd=@sqlCmd+N' And Special_SaleBill=0 '
															set @sqlCmd=@sqlCmd+N' Order By Principal_SaleBill,No_SaleBill '
															EXECUTE sp_executesql @sqlCmd
															">

					<Params>
						<Param name="@StartDate_SaleBill"		type="SaleBill.Date_SaleBill"			Index="0" />
						<Param name="@EndDate_SaleBill"			type="SaleBill.Date_SaleBill"			Index="1" />
						<Param name="@StartNo_SaleBill"			type="SaleBill.No_SaleBill"				Index="2" />
						<Param name="@EndNo_SaleBill"			type="SaleBill.No_SaleBill"				Index="3" />
						<Param name="@StartNo_Customer"			type="Customer.No_Customer"				Index="4" />
						<Param name="@EndNo_Customer"			type="Customer.No_Customer"				Index="5" />
						<Param name="@StartNo_Principal"		type="Employee.No_Employee"				Index="6" />
						<Param name="@EndNo_Principal"			type="Employee.No_Employee"				Index="7" />
						<Param name="@StartNo_Location"			type="Location.No_Location"				Index="8" />
						<Param name="@EndNo_Location"			type="Location.No_Location"				Index="9" />
						<Param name="@Right"					type="SaleBill.ID_Customer"				Index="10" />
						<Param name="@Special"					type="SaleBill.Special_SaleBill"				Index="11" />
					</Params>
					<Tables>
						<Table name="FrmSalesDailyByPrincipal"/>
					</Tables>
			</SearchSalesDailyByPrincipal>
			
			<SearchSalesDailyByLocation CmdType="Text" CmdText="
															declare @sqlCmd nvarchar(4000)
															set @sqlCmd=N'Select Name_Employee As Principal_SaleBill,Type='+nchar(39)+N'销货'+nchar(39)+N',No_SaleBill,ShortName_Customer,Name_Location,Currency_SaleBill,GoodsAmount_SaleBill,Amount_SaleBill,TaxAmount_SaleBill,TaxCurrency_SaleBill,Date_SaleBill
															From SaleBill
															Join Location On Location.ID_Location=SaleBill.ID_Location
															Join Customer On Customer.ID_Customer=SaleBill.ID_Customer
															Left Join Employee On Employee.ID_Employee=SaleBill.ID_Principal
															Where SaleBill.ID_Assessor Is Not Null '
															if(@StartDate_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Date_SaleBill &gt;=DateAdd(day,DateDiff(day,0,'+nchar(39)+convert(nvarchar(64),@StartDate_SaleBill)+nchar(39)+N'),0)'
															if(@EndDate_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Date_SaleBill &lt;=DateAdd(day,(DateDiff(day,0,'+nchar(39)+convert(nvarchar(64),@EndDate_SaleBill)+nchar(39)+N')+1),0)'
															if(@StartNo_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_SaleBill &gt;= '+nchar(39)+@StartNo_SaleBill+nchar(39) 
															if(@EndNo_SaleBill Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_SaleBill &lt;= '+nchar(39)+@EndNo_SaleBill+nchar(39)  
															if(@StartNo_Customer Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Customer &gt;= '+nchar(39)+@StartNo_Customer+nchar(39) 
															if(@EndNo_Customer Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Customer &lt;= '+nchar(39)+@EndNo_Customer+nchar(39)  
															if(@StartNo_Principal Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Employee &gt;= '+nchar(39)+@StartNo_Principal+nchar(39) 
															if(@EndNo_Principal Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Employee &lt;= '+nchar(39)+@EndNo_Principal+nchar(39)  
															if(@StartNo_Location Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Location &gt;= '+nchar(39)+@StartNo_Location +nchar(39) 
															if(@EndNo_Location Is Not Null)
																set @sqlCmd=@sqlCmd+N' And No_Location &lt;= '+nchar(39)+@EndNo_Location+nchar(39)
															if(@Right Is Not Null)
																set @sqlCmd=@sqlCmd+N' And Customer.ID_Creator= '+nchar(39)+Convert(nvarchar(64),@Right)+nchar(39)
															if(@Special=0)
																set @sqlCmd=@sqlCmd+N' And Special_SaleBill=0 '
															set @sqlCmd=@sqlCmd+N' Order By Name_Location,No_SaleBill '
															EXECUTE sp_executesql @sqlCmd
															">
																
					<Params>
						<Param name="@StartDate_SaleBill"		type="SaleBill.Date_SaleBill"			Index="0" />
						<Param name="@EndDate_SaleBill"			type="SaleBill.Date_SaleBill"			Index="1" />
						<Param name="@StartNo_SaleBill"			type="SaleBill.No_SaleBill"				Index="2" />
						<Param name="@EndNo_SaleBill"			type="SaleBill.No_SaleBill"				Index="3" />
						<Param name="@StartNo_Customer"			type="Customer.No_Customer"				Index="4" />
						<Param name="@EndNo_Customer"			type="Customer.No_Customer"				Index="5" />
						<Param name="@StartNo_Principal"		type="Employee.No_Employee"				Index="6" />
						<Param name="@EndNo_Principal"			type="Employee.No_Employee"				Index="7" />
						<Param name="@StartNo_Location"			type="Location.No_Location"				Index="8" />
						<Param name="@EndNo_Location"			type="Location.No_Location"				Index="9" />
						<Param name="@Right"					type="SaleBill.ID_Customer"				Index="10" />
						<Param name="@Special"					type="SaleBill.Special_SaleBill"				Index="11" />
					</Params>
					<Tables>
						<Table name="FrmSalesDailyByLocation"/>
					</Tables>
			</SearchSalesDailyByLocation>
		</Search>
	</Server>
	<Lables>
	</Lables>
	</Form>
</Forms>