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

<?xml version="1.0" encoding="utf-8" ?> 
<Forms>
	<Form Name="FrmSaleBillUpdate">
		<Client>
			<Events>
				<Load>
            <![CDATA[
					@Title="销货单状态更新";
					GetSchema();				
					ChangeMode("Search");
          Search("SearchTransBackForSaleBill");
          Search("SearchRespiteForDG");
				]]></Load>
				<Closing>
					;
				</Closing>
				<Closed>
					;
				</Closed>
			</Events>
			<Mode>
				<Search>
					<Lable name="Search"/>
				</Search>
				<View>
					<Lable name="View" />
				</View>
				<Modify>
					<Lable name="Modify" />
				</Modify>
			</Mode>
			<Controls>
				<IKTextButton name="tbCustomerNo" DataSource="SaleBillUpdate.No_Customer">
					<Events>
						<Enter><![CDATA[
							Empty();
							if(dtStart.Checked==true)
								@StartTime = dtStart.CValue;
							else
								@StartTime = DBNull();
							if(dtEnd.Checked==true)
								@EndTime = dtEnd.CValue;
							else
								@EndTime = DBNull();
							
							@Assess = cbAssess.Text;
							
							@Good = cbGood.Text;
							
							@Check = cbCheck.Text;
							
							@TransBack = cbTransBack.Text;
							
							if(!Search("SearchSaleBillList", tbCustomerNo.CValue, txtShortName.CValue, @StartTime, @EndTime,@Assess,@Good,@Check,@TransBack,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID()))
								Empty("#SaleBill");
							else
								ChangeMode("Modify");		
							]]></Enter>
							<Click>
								@temp = ShowSearchBox("CustomerSearch","INFOMATION",tbCustomerNo.CValue);
								if( @temp == "" )
									return;
								tbCustomerNo.CValue = @temp;
							</Click>
					</Events>
				</IKTextButton>
				<IKTextBox name="txtShortName" DataSource="SaleBillUpdate.ShortName_Customer">
					<Events>
						<Enter><![CDATA[
							Empty();
							if(dtStart.Checked==true)
								@StartTime = dtStart.CValue;
							else
								@StartTime = DBNull();
							if(dtEnd.Checked==true)
								@EndTime = dtEnd.CValue;
							else
								@EndTime = DBNull();
							
							@Assess = cbAssess.Text;
							
							@Good = cbGood.Text;
							
							@Check = cbCheck.Text;
							
							@TransBack = cbTransBack.Text;
							
							if(!Search("SearchSaleBillList", tbCustomerNo.CValue, txtShortName.CValue, @StartTime, @EndTime,@Assess,@Good,@Check,@TransBack,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID()))
								Empty("#SaleBill");
							else
								ChangeMode("Modify");		
							]]></Enter>
					</Events>
				</IKTextBox>
				<IKDateTimePicker name="dtStart" DataSource="SaleBillUpdate.StartTime"/>
				<IKDateTimePicker name="dtEnd" DataSource="SaleBillUpdate.EndTime"/>
				<IKComboBoxEx name="cbAssess" >
					<Events>
						<Enter><![CDATA[
							Empty();
							if(dtStart.Checked==true)
								@StartTime = dtStart.CValue;
							else
								@StartTime = DBNull();
							if(dtEnd.Checked==true)
								@EndTime = dtEnd.CValue;
							else
								@EndTime = DBNull();
							
							@Assess = cbAssess.Text;
							
							@Good = cbGood.Text;
							
							@Check = cbCheck.Text;
							
							@TransBack = cbTransBack.Text;
							
							if(!Search("SearchSaleBillList", tbCustomerNo.CValue, txtShortName.CValue, @StartTime, @EndTime,@Assess,@Good,@Check,@TransBack,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID()))
								Empty("#SaleBill");
							else
								ChangeMode("Modify");		
							]]></Enter>
					</Events>
				</IKComboBoxEx>
				<IKComboBoxEx name="cbGood" DisplaySource="SaleBillUpdate.OutStatus_SaleBill"  DataSource="RespiteForSaleBill" DisplayMember="Result">
					<Events>
						<Reload>
							UpdateForm(false, "cbGood");
							Search("SearchRespiteForSaleBill");
							UpdateForm(true, "cbGood");
						</Reload>
						<Enter><![CDATA[
							Empty();
							if(dtStart.Checked==true)
								@StartTime = dtStart.CValue;
							else
								@StartTime = DBNull();
							if(dtEnd.Checked==true)
								@EndTime = dtEnd.CValue;
							else
								@EndTime = DBNull();
							
							@Assess = cbAssess.Text;
							
							@Good = cbGood.Text;
							
							@Check = cbCheck.Text;
							
							@TransBack = cbTransBack.Text;
							
							if(!Search("SearchSaleBillList", tbCustomerNo.CValue, txtShortName.CValue, @StartTime, @EndTime,@Assess,@Good,@Check,@TransBack,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID()))
								Empty("#SaleBill");
							else
								ChangeMode("Modify");		
							]]></Enter>
					</Events>
				</IKComboBoxEx>
				<IKComboBoxEx name="cbCheck" >
					<Events>
						<Enter><![CDATA[
							Empty();
							if(dtStart.Checked==true)
								@StartTime = dtStart.CValue;
							else
								@StartTime = DBNull();
							if(dtEnd.Checked==true)
								@EndTime = dtEnd.CValue;
							else
								@EndTime = DBNull();
							
							@Assess = cbAssess.Text;
							
							@Good = cbGood.Text;
							
							@Check = cbCheck.Text;
							
							@TransBack = cbTransBack.Text;
							
							if(!Search("SearchSaleBillList", tbCustomerNo.CValue, txtShortName.CValue, @StartTime, @EndTime,@Assess,@Good,@Check,@TransBack,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID()))
								Empty("#SaleBill");
							else
								ChangeMode("Modify");		
							]]></Enter>
					</Events>
				</IKComboBoxEx>
				<IKComboBoxEx name="cbTransBack" >
					<Events>
						<Enter><![CDATA[
							Empty();
							if(dtStart.Checked==true)
								@StartTime = dtStart.CValue;
							else
								@StartTime = DBNull();
							if(dtEnd.Checked==true)
								@EndTime = dtEnd.CValue;
							else
								@EndTime = DBNull();
							
							@Assess = cbAssess.Text;
							
							@Good = cbGood.Text;
							
							@Check = cbCheck.Text;
							
							@TransBack = cbTransBack.Text;
							
							if(!Search("SearchSaleBillList", tbCustomerNo.CValue, txtShortName.CValue, @StartTime, @EndTime,@Assess,@Good,@Check,@TransBack,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID()))
								Empty("#SaleBill");
							else
								ChangeMode("Modify");		
							]]></Enter>
					</Events>
				</IKComboBoxEx>
				<IKDataGridEx name="dgSaleBillUpdate" DataSource="SaleBill" TableStyleIndex="0">
					<DataColumn Index="0" DataSource="SaleBill.No_SaleBill"/>
					<DataColumn Index="1" DataSource="SaleBill.Date_SaleBill"/>
					<DataColumn Index="2" DataSource="SaleBill.No_Customer"/>
					<DataColumn Index="3" DataSource="SaleBill.ShortName_Customer"/>
					<DataColumn Index="4" DataSource="SaleBill.IsGeneric"/>
					<DataColumn Index="5" DataSource="SaleBill.GetMethod_SaleBill"/>
					<DataColumn Index="6" DataSource="SaleBill.TransBack">
						<IKDataGridComboBoxColumn DisplaySourceEx="SaleBill.TransBack" ValueSourceEx="SaleBill.TransBack_SaleBill" DataSourceEx="TransBackForSaleBill" DisplayMemberEx="Result" ValueMemberEx="TransBack">
							<Events>
								<Reload>
									Search("SearchTransBackForSaleBill");
									SetDataGridColumnDataSource(6,"dgSaleBillUpdate");
								</Reload>
							</Events>
						</IKDataGridComboBoxColumn>
					</DataColumn>
					<DataColumn Index="7" DataSource="SaleBill.TransBackDate_SaleBill"/>
					<DataColumn Index="8" DataSource="SaleBill.Assess"/>
					<DataColumn Index="9" DataSource="SaleBill.Status"/>
					<DataColumn Index="10" DataSource="SaleBill.OutStatus_SaleBill">
						<IKDataGridComboBoxColumn DisplaySourceEx="SaleBill.OutStatus_SaleBill" ValueSourceEx="SaleBill.OutStatus_SaleBill" DataSourceEx="RespiteForDG" DisplayMemberEx="Result"  ValueMemberEx="Result">
							<Events>
								<Reload>
									Search("SearchRespiteForDG");
									SetDataGridColumnDataSource(10,"dgSaleBillUpdate");
								</Reload>
							</Events>
						</IKDataGridComboBoxColumn>
					</DataColumn>
				</IKDataGridEx>
				<IKButton name="btnSearch">
					<Events>
						<Click><![CDATA[
							Empty();
							if(dtStart.Checked==true)
								@StartTime = dtStart.CValue;
							else
								@StartTime = DBNull();
							if(dtEnd.Checked==true)
								@EndTime = dtEnd.CValue;
							else
								@EndTime = DBNull();
							
							@Assess = cbAssess.Text;
							
							@Good = cbGood.Text;
							
							@Check = cbCheck.Text;
							
							@TransBack = cbTransBack.Text;
							
							if(!Search("SearchSaleBillList", tbCustomerNo.CValue, txtShortName.CValue, @StartTime, @EndTime,@Assess,@Good,@Check,@TransBack,GetRight("客户基本资料","全权查看")?DBNull():GetLoginUserID()))
								Empty("#SaleBill");
							else
								ChangeMode("Modify");	
						]]></Click>
					</Events>
				</IKButton>
				<IKFormToolBar name="toolBar">
					<Events>
						<ClickPrint>
							PrintReport();
						</ClickPrint>
						<ClickEmpty>
							ChangeMode("Search");
						</ClickEmpty>
	
						<ClickSubmit>
							Update();
							
							ChangeMode("View");
						</ClickSubmit>
					</Events>
				</IKFormToolBar>
			</Controls>
			<Tables>
				<Table name="SaleBill">
					<Events>
						<ColumnsChanged>
							<TransBack>
								if(#SaleBill.TransBack=="是")
								{
									if(Equals(#SaleBill.TransBackDate_SaleBill,DBNull()) || Equals(#SaleBill.TransBackDate_SaleBill,""))
									{
										SetCurrentColoumn("#SaleBill.TransBackDate_SaleBill",DateTimeNow());
									}
									dgSaleBillUpdate.SetDefaultSelectedColoumn("TransBack", "是", false);
									dgSaleBillUpdate.SetDefaultSelectedColoumn("TransBack_SaleBill", 1, false);
									dgSaleBillUpdate.SetDefaultSelectedColoumn("TransBackDate_SaleBill", DateTimeNow(), true);
								}
								else
								{
									SetCurrentColoumn("#SaleBill.TransBackDate_SaleBill",DBNull());
									dgSaleBillUpdate.SetDefaultSelectedColoumn("TransBack", "否", false);
									dgSaleBillUpdate.SetDefaultSelectedColoumn("TransBack_SaleBill", 0, false);
									dgSaleBillUpdate.SetDefaultSelectedColoumn("TransBackDate_SaleBill", DBNull(), false);
								}
							</TransBack>
						</ColumnsChanged>
					</Events>
				</Table>
			</Tables>
			<LogInfomation  LogNO="销货单#SaleBill.No_SaleBill" RecordFormField="" RecordDataGridField="#SaleBill.No_SaleBill,#SaleBill.TransBackDate_SaleBill,#SaleBill.OutStatus_SaleBill"/>
			<ChildForms>
				<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>
			</ChildForms>
			<FormatString>
				<Format name="SearchCustomerCondition">
					if(GetRight("客户基本资料","全权查看"))
					{
						FormatString("");
					}
					else
					{
						FormatString(" Customer.ID_Creator='{0}' ",GetLoginUserID());
					}
				</Format>
			</FormatString>
		</Client>
		<Server>
			<Tables>
				<Table name="SaleBill" Type="Parent">
					<GetSchema CmdType="Text" CmdText="							
						SELECT TOP 0 SaleBill.ID_SaleBill, SaleBill.No_SaleBill, SaleBill.Date_SaleBill,SaleBill.OutStatus_SaleBill,SaleBill.TransBack_SaleBill,SaleBill.Assess_SaleBill,SaleBill.ID_Assessor, Customer.No_Customer,
						Customer.ShortName_Customer, 
						SaleBill.TransBackDate_SaleBill,'' as Assess, '' as TransBack,
						'' as Status,Getdate() as StartTime, Getdate() as EndTime ,	Customer.IsGeneric_Customer,SaleBill.GetMethod_SaleBill,'' as IsGeneric
						FROM SaleBill LEFT JOIN Customer ON Customer.ID_Customer = SaleBill.ID_Customer
					"/>
					<Update CmdType="Text" CmdText=" UPDATE SaleBill
													 SET TransBack_SaleBill = @TransBack_SaleBill,
														 TransBackDate_SaleBill = @TransBackDate_SaleBill,
														 OutStatus_SaleBill = @OutStatus_SaleBill
													 WHERE ID_SaleBill = @ID_SaleBill">
						<Params>
							<Param name="@ID_SaleBill"							type="SaleBill.ID_SaleBill" 					sourceColumn="ID_SaleBill" />
							<Param name="@TransBack_SaleBill"					type="SaleBill.TransBack_SaleBill" 				sourceColumn="TransBack_SaleBill" />
							<Param name="@TransBackDate_SaleBill"				type="SaleBill.TransBackDate_SaleBill" 			sourceColumn="TransBackDate_SaleBill" />
							<Param name="@OutStatus_SaleBill"					type="SaleBill.OutStatus_SaleBill" 				sourceColumn="OutStatus_SaleBill" />
						</Params>
					</Update>	
				</Table>
				<Table name="SaleBillUpdate" Type="Other">
					<GetSchema CmdType="Text" CmdText="							
						SELECT TOP 0 SaleBill.ID_SaleBill, SaleBill.No_SaleBill, SaleBill.Date_SaleBill,SaleBill.OutStatus_SaleBill,SaleBill.TransBack_SaleBill,SaleBill.Assess_SaleBill,SaleBill.ID_Assessor, Customer.No_Customer,
						Customer.ShortName_Customer, 
						SaleBill.TransBackDate_SaleBill,'' as Assess, '' as TransBack,
						'' as Status,Getdate() as StartTime, Getdate() as EndTime ,	Customer.IsGeneric_Customer,SaleBill.GetMethod_SaleBill,'' as IsGeneric
						FROM SaleBill LEFT JOIN Customer ON Customer.ID_Customer = SaleBill.ID_Customer
					"/>
				</Table>
			</Tables>
			<Search>				
				<SearchSaleBillList CmdType="Text" CmdText=" declare @cmd nvarchar(4000)
					declare @string nvarchar(1000)
					set @cmd =
						N' SELECT SaleBill.ID_SaleBill, SaleBill.No_SaleBill, SaleBill.Date_SaleBill,SaleBill.OutStatus_SaleBill,SaleBill.TransBack_SaleBill,SaleBill.Assess_SaleBill,SaleBill.ID_Assessor, Customer.No_Customer,'
						+N' Customer.ShortName_Customer, case SaleBill.TransBack_SaleBill when 0 then '+nchar(39)+N'否'+nchar(39)+N' else '+nchar(39)+N'是'+nchar(39)+N' end as TransBack,'
	
						+N' SaleBill.TransBackDate_SaleBill,'
						+N' case SaleBill.Assess_SaleBill when 0 then '+nchar(39)+N'否'+nchar(39)+N' else '+nchar(39)+N'是'+nchar(39)+N' end as Assess, '
						+N' case isnull(DATALENGTH(ID_Assessor),0) when 0 then case Disable_SaleBill when 1 then '+nchar(39)+N'作废'+nchar(39)+N' else '+nchar(39)+N'未审核'+nchar(39)+N' end  else '+nchar(39)+N'已审核'+nchar(39)+N' end as Status, '
						+N' case Customer.IsGeneric_Customer when 0 then '+nchar(39)+N'否'+nchar(39)+N' else '+nchar(39)+N'是'+nchar(39)+N' end as IsGeneric ,'
						+N' SaleBill.GetMethod_SaleBill '
						+N' FROM SaleBill '
						+N' LEFT JOIN Customer ON Customer.ID_Customer = SaleBill.ID_Customer '
						
						begin
							set @string = N' where '
						end
            --set @string = @string +N' SaleBill.Disable_SaleBill=''0'''
            
						if(@StartTime is not null)
						begin	
              if(DATALENGTH(@string) != 14)
							  begin
								  set @string = @string + ' and '
							  end
							  set @string = @string + N'SaleBill.Date_SaleBill &gt; DATEADD(day, DATEDIFF(day,0,'+nchar(39)+convert(nvarchar,@StartTime) +nchar(39)+N'), 0) '						
						end
						if(@EndTime is not null)
						begin
							if(DATALENGTH(@string) != 14)
							begin
								set @string = @string + ' and '
							end
							set @string = @string +N' SaleBill.Date_SaleBill &lt; DATEADD(day, DATEDIFF(day,0,'+nchar(39)+convert(nvarchar,@EndTime) +nchar(39)+N'), 1) '
						end	
						if(@No_Customer != '')
						begin 
							if(DATALENGTH(@string) != 14)
							begin
								set @string = @string + ' and '
							end
							set @string = @string+N' Customer.No_Customer = ' + nchar(39) +@No_Customer+nchar(39)
						end
						if (@ShortName_Customer != '')
						begin 
							if(DATALENGTH(@string) != 14)
							begin
								set @string = @string + ' and '
							end
							set @string = @string+N' Customer.ShortName_Customer = ' + nchar(39) +@ShortName_Customer+nchar(39)
						end	
						if(@Assess != '' and @Assess!='全部')
						begin
							if(DATALENGTH(@string) != 14)
							begin
								set @string = @string + ' and '
							end
							if(@Assess = '已审核')
								set @string = @string+N' SaleBill.ID_Assessor is not null '
							else if(@Assess = '未审核')	
								set @string = @string+N' SaleBill.ID_Assessor is null and SaleBill.Disable_SaleBill=''0'''
						end 
						if(@Good != '' and @Good !='全部')
						begin
							if(DATALENGTH(@string) != 14)
							begin
								set @string = @string + ' and '
							end
							set @string = @string+N' SaleBill.OutStatus_SaleBill = '+ nchar(39) +@Good+nchar(39)
						end 
						if(@Check != '' and @Check != '全部')
						begin
							if(DATALENGTH(@string) != 14)
							begin
								set @string = @string + ' and '
							end
							if(@Check = '未经财务复核')
								set @string = @string+N' SaleBill.Assess_SaleBill = 0 '
							else if(@Check = '已财务复核')	
								set @string = @string+N' SaleBill.Assess_SaleBill = 1 '
						end 
						if(@TransBack != '' and @TransBack != '全部')
						begin
							if(DATALENGTH(@string) != 14)
							begin
								set @string = @string + ' and '
							end
							if(@TransBack = '未回传')
								set @string = @string+N' SaleBill.TransBack_SaleBill = 0 '
							else if(@TransBack = '已回传')	
								set @string = @string+N' SaleBill.TransBack_SaleBill = 1 '
						end 
						if(@Right is not null)
						begin
							if(DATALENGTH(@string) != 14)
							begin
								set @string = @string + ' and '
							end
							set @string = @string +N' Customer.ID_Creator= '+nchar(39)+Convert(nvarchar(64),@Right)+nchar(39)
						end
            
						if(DATALENGTH(@string) = 14)
						begin
							set @string = ''
						end
            
						set @cmd = @cmd + @string 
						EXECUTE sp_executesql @cmd
						Return 
					">
					<Params>
						<Param name="@No_Customer" 			    type="SaleBill.No_Customer"				Index="0"/>
						<Param name="@ShortName_Customer" 	type="SaleBill.ShortName_Customer"		Index="1"/>
						<Param name="@StartTime" 			      type="SaleBill.Date_SaleBill"			Index="2"/>
						<Param name="@EndTime" 				      type="SaleBill.Date_SaleBill"			Index="3"/>
						<Param name="@Assess" 				      type="SaleBill.No_SaleRtnBill"			Index="4"/>
						<Param name="@Good" 				      type="SaleBill.No_Supplier"				Index="5"/>
						<Param name="@Check" 				type="SaleBill.No_Product"				Index="6"/>
						<Param name="@TransBack" 			type="SaleBill.No_Location"				Index="7"/>
						<Param name="@Right"				type="SaleBill.ID_Customer"				Index="8" />
					</Params>
					<Tables>
						<Table name="SaleBill"/>
					</Tables>
				</SearchSaleBillList>	
				<SearchTransBackForSaleBill CmdType="Text" CmdText=" CREATE TABLE TransBackForSaleBill 
														  (
															  [Type] nvarchar(64),
															  TransBack bit
														  )
														  INSERT INTO TransBackForSaleBill([Type],TransBack) VALUES ('是',1)
														  INSERT INTO TransBackForSaleBill([Type],TransBack) VALUES ('否',0)
														  SELECT Type AS Result,TransBack FROM TransBackForSaleBill
														  DROP TABLE TransBackForSaleBill">
					<Tables>
						<Table name="TransBackForSaleBill" />
					</Tables>
				</SearchTransBackForSaleBill>
				<SearchRespiteForSaleBill CmdType="Text" CmdText=" select '全部' as Result
															Union
														   SELECT Name_TypeDef as Result FROM TypeDef WHERE Type_TypeDef=0 
														  ">
					<Tables>
						<Table name="RespiteForSaleBill" />
					</Tables>
				</SearchRespiteForSaleBill>	
				<SearchRespiteForDG CmdType="Text" CmdText="
														   SELECT Name_TypeDef as Result FROM TypeDef WHERE Type_TypeDef=0 
														  ">
					<Tables>
						<Table name="RespiteForDG" />
					</Tables>
				</SearchRespiteForDG>	
				<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>				
			</Search>
		</Server>
		<Lables>
			<Search>
				Empty();
				NewInstance("#SaleBillUpdate");
				tbCustomerNo.ReadOnly = false;
				txtShortName.ReadOnly = false;
				tbCustomerNo.CValue = StringEmpty();
				txtShortName.CValue = StringEmpty();
				
				dtStart.Enabled = true;
				dtEnd.Enabled = true;
				cbAssess.Enabled = true;
				cbGood.Enabled = true;
				cbCheck.Enabled = true;
				cbTransBack.Enabled = true;
				dgSaleBillUpdate.ReadOnly = true;		
			</Search>
			<View>
				tbCustomerNo.ReadOnly = true;
				txtShortName.ReadOnly = true;
				dgSaleBillUpdate.ReadOnly = true;
				cbAssess.Enabled = false;
				cbGood.Enabled = false;
				cbCheck.Enabled = false;
				cbTransBack.Enabled = false;
				dtStart.Enabled = false;
				dtEnd.Enabled = false;
			</View>
			<Modify>
				dgSaleBillUpdate.ReadOnly = false;
				cbAssess.Enabled = true;
				cbGood.Enabled = true;
				cbCheck.Enabled = true;
				cbTransBack.Enabled = true;
				dtStart.Enabled = true;
				dtEnd.Enabled = true;
				tbCustomerNo.ReadOnly = false;
				txtShortName.ReadOnly = false;
				dgSaleBillUpdate.AllowNew(false);
				dgSaleBillUpdate.AllowDelete(false);
			</Modify>
		</Lables>
	</Form>
</Forms>